home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1999 March / CDW0399.iso / Demos / HomePage / data1.cab / Program_Executable_Files / Homepage.exe / 1009 / 2006 < prev    next >
Encoding:
Text File  |  1997-12-10  |  7.9 KB  |  314 lines
  1. // -----
  2. // VDL2006.txt
  3. // Copyright 1997 Claris
  4. // -----
  5.  
  6. //---------------------------------
  7. // ConfirmFTPDownload.txt 
  8. //---------------------------------
  9.  
  10.  
  11. #include "StdVPref.txt"   
  12.  
  13.  
  14. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  15. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  16. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  17.  
  18. //This section contains all localizable string constants for this VDL program. Be sure to 
  19. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  20. //You may also flatten multiline constants into a single line, if you prefer
  21.  
  22.  
  23. #define kLit1 "Upload Page"
  24. #define kLit2 "Server Name:"
  25.  
  26. #define kLit3 "File/Folder to download:"
  27.  
  28.  
  29. #define kLit11 "Download to location"
  30. #define kLit12 "Location:"
  31. #define kLit13 "&Browse..."
  32.  
  33.  
  34.  
  35. #define kLit15 "Download"
  36. #define kLit16 "Cancel"
  37. #define kLit17 "&Change Download Options..."
  38. //#define kLit18 "Assistant..."
  39. #define kLit19 "Download From"
  40.  
  41.  
  42. #define kHelpPublish "Help/PublishSite.htm"
  43. #define kHelpTitle "&Help"
  44.  
  45. //Localized Fonts
  46. #if Platform_Mac
  47.     #define DisplayFont { Geneva, 10, {Plain} }
  48.     #define kBoldLabelFont  {Geneva, 10, {Bold}}
  49. #else
  50.     #define DisplayFont SystemFont
  51.     #define kBoldLabelFont   SystemFont
  52. #endif
  53.  
  54.  
  55.  
  56. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  57. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  58. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  68. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  69. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  70.  
  71. //This section contains integer constants that are used to format this VDL program.
  72. //These are localizable - they only need to be changed if the localized strings 
  73. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  74.  
  75. #if Platform_Mac
  76.     //Width of the Dialog
  77.     #define kDialogWidth 484 //460
  78.  
  79.     //Width of the labels
  80.     #define kLabelWidth 180
  81.     
  82.     //Width of the displayed values
  83.     #define kValueWidth 88
  84.     
  85.     //Width of the OK Button
  86.     #define kOKButtonWidth 80
  87.  
  88.     #define kLeadSpace        51
  89. #else
  90.     //Width of the Dialog
  91.     #define kDialogWidth 445
  92.  
  93.     //Width of the labels
  94.     #define kLabelWidth 240
  95.     
  96.     //Width of the displayed values
  97.     #define kValueWidth 88
  98.     
  99.     //Width of the OK Button
  100.     #define kOKButtonWidth 80
  101.  
  102.     #define kLeadSpace        51
  103. #endif
  104.  
  105.  
  106.  
  107.  
  108. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  109. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  110. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  111.  
  112.  
  113.  
  114. //No further localizable data past this point
  115.  
  116. /************************** END LOCALIZABLE DATA ***************************************************/
  117. /************************** END LOCALIZABLE DATA ***************************************************/
  118. /************************** END LOCALIZABLE DATA ***************************************************/
  119.  
  120.  
  121.  
  122.  
  123. //-------------------------------------------------------------------------------------
  124. //        Debug / Try Me Defines:  These are for testing only
  125. //-------------------------------------------------------------------------------------
  126.     
  127. #ifdef TryMe
  128.  
  129.     
  130. #endif
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138. //-------------------------------------------------------------------------------------
  139. //        VDL Code Below Here
  140. //-------------------------------------------------------------------------------------
  141.  
  142.  
  143. //--- Defines ---------
  144. #if Platform_Mac
  145.     #define dlogBack stdBackColor
  146. #else
  147.     #define dlogBack stdBackColor
  148. #endif
  149.  
  150.  
  151. //#define kUploadBtnCmdID            1
  152. //#define kCancelBtnCmdID            2
  153. //#define kUnknown1BtnCmdID        3
  154. //#define kUnknown2BtnCmdID        3
  155.  
  156.  
  157.  
  158. Margin(10, 10, 10, 10, dlogBack,MinSizeX = kDialogWidth)
  159. VList(Width = UseParent)
  160. {
  161.     
  162.     VList(Width = UseParent)
  163.     {
  164.  
  165.         //StaticText(kLit1);
  166.  
  167.         // 3D Horizontal Separator
  168.         //Spacer(Height = 1, Width = UseParent, BackColor = Black);
  169.           //Spacer(Height = 1, Width = UseParent, BackColor = White);
  170.  
  171.         Spacer(Height = 10, Width = 0);
  172.  
  173.         // Radio Group
  174.  
  175.         //'download from' group box
  176.         Label(kLit19, Single, Font = kBoldLabelFont)
  177.             Margin(5,5,5,5)
  178.                 VList(Width = UseParent)
  179.                 {
  180.                     Spacer(Height = 3,ScaleV);
  181.                     HList(Width = UseParent)
  182.                     {
  183.     
  184.                         Spacer(Height = 0, Width = kLeadSpace,ScaleH);
  185.                         StaticText(kLit2,Font = DisplayFont);
  186.                         HSpace(8);                
  187.                         StaticText(FTPDownloadServer,Width = UseParent,Font = DisplayFont);
  188.                     }//HList
  189.                         Spacer(Height = 10, Width = 0);
  190.     
  191.                     HList(Width = UseParent)
  192.                     {
  193.                         StaticText(kLit3,Font = DisplayFont);                
  194.                         HSpace(8);                
  195.                         StaticText(downloadPath,Font = DisplayFont);        
  196.                         Spacer(Height = 10,ScaleV);
  197.                     }//HList
  198.     
  199.                     Spacer(Height = 10,ScaleV);
  200.  
  201.                     HList(Width = UseParent)
  202.                     {
  203.                         Spacer(Height = 0, Width = UseParent);
  204.                         PushButton(kLit17, 4000, "ChangeDownloadOption",Font = kBoldLabelFont);
  205.                                           //ccMiscButtonCommand, means dontCare, Only ChangeDownloadOption is effective.
  206.                         Spacer (Width = 10,ScaleH);
  207.                     }//HList
  208.                     
  209.                 }//VList
  210.  
  211.         Spacer(Height = 10, Width = 0);
  212.         
  213.         //'download to location' group box
  214.         Label(kLit11, Single, Font = kBoldLabelFont)
  215.                 Margin(5,5,5,5)
  216.                     VList(Width = UseParent)
  217.                     {
  218.                         HList(Width = UseParent)
  219.                         {
  220.                             StaticText(kLit12,Font = DisplayFont);
  221.                             HSpace(8);                                
  222.                             StaticText(DownloadLocalLocation,Width = UseParent,Font = DisplayFont);
  223.                         }
  224.                         
  225.                         VSpace(10);                
  226.  
  227.                         HList(Width = UseParent)
  228.                         {
  229.                             Spacer(Height = 0, Width = UseParent);
  230.                             PushButton(kLit13, 4000, "BrowseDownloadToLocation",Font = kBoldLabelFont);
  231.                             Spacer (Width = 10,ScaleH);
  232.                         }//HList
  233.  
  234.                     }//VList
  235.  
  236.             Spacer(Height = 20, Width = 0);
  237.     
  238.             HList(Width = UseParent)
  239.             {
  240.                 #if Platform_Mac
  241.                 /*
  242.                     PictPushButton(4000, "ContextHelpProc", HelpFile = kHelpPublish)
  243.                     {
  244.                         Enabled(Draw, 'cicn',14055 );
  245.                         Disabled(Draw, 'cicn',14057 ); 
  246.                         Tracking(Draw, 'cicn',14056 );
  247.                     };
  248.                 */
  249.                     Spacer(Height = 0, Width = UseParent);
  250.                 #else
  251.                 /*
  252.                     PushButton(kHelpTitle, 4000, "ContextHelpProc", HelpFile = kHelpPublish);
  253.                 */
  254.                     Spacer(Height = 0, Width = UseParent);
  255.                 #endif
  256.  
  257.                 #if Platform_Mac
  258.                 CancelButton(kLit16, 4000, "cancelDownload", Width = kOKButtonWidth);
  259.                 Spacer(Height = 0, Width = 5);
  260.                 DefaultButton(kLit15, 4000, "okDownload", Width = kOKButtonWidth);
  261.                 #else
  262.                 DefaultButton(kLit15, 4000, "okDownload", Width = kOKButtonWidth);
  263.                 Spacer(Height = 0, Width = 5);
  264.                 CancelButton(kLit16, 4000, "cancelDownload", Width = kOKButtonWidth);
  265.                 #endif
  266.  
  267.             }//Hlist
  268.  
  269.         
  270.  
  271.  
  272.     }//VList            
  273.     
  274.     
  275.     
  276.  
  277.  
  278.  
  279.  
  280.  
  281.  
  282.  
  283.     
  284. //-------------------------------------------------------------------------------------
  285. //     Try Me Mode VDL Code Below Here: For Testing Only
  286. //-------------------------------------------------------------------------------------
  287.     
  288.     // This is just used during Try Me Mode (Debugging).
  289.     // Use this area to set up and display controls
  290.     // only during debug mode.  This can be usefull to
  291.     // set test how the UI will look and function under
  292.     // differnt states set by controls in this ifdef area.
  293.  
  294.     #ifdef TryMe
  295.         Spacer(Height = 200);
  296.         StaticText("--------- Debugging Controls Below Here ---------");
  297.     #endif
  298. }
  299.  
  300.  
  301.  
  302.  
  303.  
  304.     
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312.  
  313.  
  314.