home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1999 March / CDW0399.iso / Demos / HomePage / data1.cab / Program_Executable_Files / Homepage.exe / 1009 / 2010 < prev    next >
Encoding:
Text File  |  1997-12-10  |  6.0 KB  |  199 lines
  1. // -----
  2. // VDL2010.txt
  3. // Copyright 1997 Claris
  4. // -----
  5.  
  6. // kFTPFileBrowser 2010
  7.  
  8. #include "StdVPref.txt"
  9.  
  10. #define StdHSpace HSpace(6)
  11. #define StdVSpace VSpace(6)
  12. #define StdButtonWidth    Width = 80
  13.  
  14.  
  15. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  16. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  17. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  18.  
  19. //This section contains all localizable string constants for this VDL program. Be sure to 
  20. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  21. //You may also flatten multiline constants into a single line, if you prefer
  22.  
  23. #define kLit1     " Select the folder to upload into:"
  24. #define kLit2     " Select the file or folder to download:"
  25. #define kLit3    "Server name, set at runtime"
  26.  
  27. #define kLit10    "&New Folder"
  28. #define kLit11    "&Delete"
  29. #define kLit12    "Cancel"
  30. #define kLit13    "Open"
  31. #define kLit14    "&Select Current"
  32.  
  33.  
  34.  
  35.  
  36. // Localized Fonts
  37.  
  38. #if Platform_Mac
  39.     #define kSmallBold        Font = {Geneva, 10, {Bold}}
  40.     #define kSmallDisplay     Font = {Geneva, 9, {plain}}
  41.     
  42.     #define kPlainFont          Font = {Geneva, 10, {Plain}}
  43.     #define kStaticFont         Font = {Geneva, 10, {Bold}}
  44.     #define kEditFont           Font = {Geneva, 10, {Plain}}
  45.     #define kPopupFont          Font = {Geneva, 10, {Plain}}
  46.     #define kPopupLabelFont LabelFont = {Geneva, 10, {Bold}}
  47.     #define kButtonFont      Font = SystemFont
  48.     //#define kButtonFont         Font = {Geneva, 10, {Plain}}
  49.     #define kStdLabelFont     LabelFont = {Geneva, 10, {Bold}}
  50. #else
  51.     #define kSmallBold        Font = SystemFont
  52.     #define kSmallDisplay     Font = SystemFont
  53.     
  54.     #define kPlainFont          Font = SystemFont
  55.     #define kStaticFont         Font = SystemFont
  56.     #define kEditFont           Font = SystemFont
  57.     #define kPopupFont          Font = SystemFont
  58.     #define kPopupLabelFont LabelFont = SystemFont
  59.     #define kButtonFont      Font = SystemFont
  60.     #define kStdLabelFont     LabelFont = SystemFont
  61. #endif
  62.  
  63.  
  64. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  65. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  66. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  67.  
  68.  
  69.  
  70. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  71. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  72. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  73.  
  74. //This section contains integer constants that are used to format this VDL program.
  75. //These are localizable - they only need to be changed if the localized strings 
  76. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  77.  
  78. //Basic width of the dialog. Layout will follow this width. Dialog height is 
  79. //computed from wrapped heights of the static text, and other components.
  80. #define kDialogWidth 376
  81.  
  82. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  83. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  84. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  85.  
  86. //No further localizable data past this point
  87.  
  88. /************************** END LOCALIZABLE DATA ***************************************************/
  89. /************************** END LOCALIZABLE DATA ***************************************************/
  90. /************************** END LOCALIZABLE DATA ***************************************************/
  91.  
  92.  
  93. Margin(4,4,4,4, BackColor =  Dialog, Width = kDialogWidth)
  94. VList(Height = 220, Width = UseParent)
  95. {    
  96.     Switch(Upload)
  97.     {
  98.         case 1:
  99.             StaticText(kLit1, kStaticFont);
  100.         case 0:
  101.             StaticText(kLit2, kStaticFont);
  102.     }
  103.     //    StaticText(kLit1, kStaticFont);    //temp test only.
  104.  
  105.     StdVSpace;
  106.     
  107.     Margin(16,0,0,0, Height = 20)
  108.     HList(Width = UseParent)
  109.     {
  110. #if Platform_Mac
  111.         Margin(0,0,0,0, Height = 20, Width = 200)
  112. #else
  113.         Margin(0,0,0,0, Height = 22, Width = 200)
  114. #endif
  115.             FTPPathPopupMenu();
  116.         
  117.         //StdHSpace;
  118.         HSpace(10);
  119.         
  120.         #if Platform_Mac
  121.             cicn(511);
  122.         #else
  123.             cicn(511);
  124.         #endif
  125.         
  126.         HSpace(2);
  127.         Tag(ServerNameView) //@ykh 102697
  128.         StaticText(ServerNameDisplayed, kStaticFont, Width = UseParent);        
  129.     }
  130.  
  131.     StdVSpace;
  132.     
  133.     HList(Width = UseParent)
  134.     {
  135.         Margin(16, 0, 0, 0, Width = 216, Height = 130)
  136.             VList(Height = UseParent, Width = UseParent, VScroll)
  137.                 Tag(FtpFileListView)
  138.                     FTPFileList(NameOnly);
  139.  
  140.         Margin(20, 2, 0, 0, Width = 124, Height = 130)
  141.         VList(Height = UseParent, Width = UseParent)
  142.         {
  143.             StdVSpace;
  144.             HList(Width = UseParent)
  145.             {
  146.                 HSpace(4);
  147.                 PushButton( kLit10, 4000, "FtpMakeFolder", StdButtonWidth, kButtonFont ); 
  148.                                           //ccMiscButtonCommand, means dontCare, Only FtpMakeFolder is effective.
  149.                 
  150.             }
  151.             StdVSpace;
  152.  
  153.             #if Platform_Mac
  154.             VSpace(3); //@ykh 102697 I dont know why?
  155.             #endif
  156.  
  157.             HList(Width = UseParent)
  158.             {
  159.                 HSpace(4);
  160.                 PushButton( kLit11, 4000, "FtpDeleteFolder", StdButtonWidth, kButtonFont );
  161.             }
  162.             //StdVSpace;
  163.             StdVSpace;
  164.             //StdVSpace;
  165.             HList(Width = UseParent)
  166.             {
  167.                 #if Platform_Win
  168.                 HSpace(4);
  169.                 #endif
  170.  
  171.                 CancelButton( kLit12, 1071, "FtpCancelButton", StdButtonWidth, kButtonFont ); //ccOK
  172.                         //do not say 1070 (ccCancel) to work around RunStandardBuiltDialog limit.
  173.             }
  174.             StdVSpace;
  175.             HList(Width = UseParent)
  176.             {
  177.                 #if Platform_Win
  178.                 HSpace(4);
  179.                 #endif
  180.  
  181.                 DefaultButton( kLit13, 1071, "FtpUnfoldFolder", StdButtonWidth, kButtonFont ); //ccOK
  182.             }
  183.             //StdVSpace;            
  184.         }
  185.     }
  186.     
  187.     VSpace(12);
  188.     
  189.     HList(Width = UseParent)
  190.     {
  191.         HSpace(24);    
  192.  
  193.         Tag(FtpSelectButtonView)
  194.             PushButton( kLit14, 4000, "FtpSelectButton", Width = 176, kButtonFont ); 
  195.         //StandardDialogButtonsHEnterOnly;
  196.     }
  197.     VSpace(12);    
  198.  
  199. }