home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1999 March / CDW0399.iso / Demos / HomePage / data1.cab / Program_Executable_Files / Homepage.exe / 1009 / 170 < prev    next >
Encoding:
Text File  |  1997-12-10  |  4.3 KB  |  121 lines
  1. // -----
  2. // VDL170.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6. #include "StdVPref.txt"
  7.  
  8. //Registration screen
  9.  
  10. //License Dialog
  11.  
  12. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  13. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  14. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  15.  
  16. //This section contains all localizable string constants for this VDL program. Be sure to 
  17. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  18. //You may also flatten multiline constants into a single line, if you prefer
  19.  
  20. #define kLit1 "Please Register this Copy of Claris Home Page:"
  21. #define kLit2 "Name: "
  22. #define kLit3 "Company: "
  23. #define kLit4 "Serial Number: "
  24.  
  25.  
  26. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  27. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  28. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  29.  
  30.  
  31.  
  32. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  33. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  34. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  35.  
  36. //This section contains integer constants that are used to format this VDL program.
  37. //These are localizable - they only need to be changed if the localized strings 
  38. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  39.  
  40.  
  41. //Width of the three labels "Name", "Company", "Serial Number"
  42. #define kLabelWidth     100
  43.  
  44. //Width of the edit text fields themselves.
  45. #define kEditTextWidth 250
  46.  
  47. //Margin to the left of the "Home Page" logotype
  48. #define kHomePageLeftMargin 84
  49.  
  50. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  51. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  52. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  53.  
  54. //No further localizable data past this point
  55.  
  56. /************************** END LOCALIZABLE DATA ***************************************************/
  57. /************************** END LOCALIZABLE DATA ***************************************************/
  58. /************************** END LOCALIZABLE DATA ***************************************************/
  59.  
  60. Define(TextFields)
  61.     VList(BackColor = White)
  62.         {
  63.         StaticText(kLit1);
  64.  
  65.         Spacer(Height = 10, Width = 0);
  66.         
  67.         #if Platform_Mac
  68.         EditText(user_name, Label = kLit2, LabelWidth = kLabelWidth, LabelAlignment = Right,Width = kLabelWidth + kEditTextWidth, BackColor = White);
  69.         Spacer(Height = 5, Width = 0);
  70.         EditText(user_company, Label = kLit3, LabelWidth = kLabelWidth, LabelAlignment = Right,Width = kLabelWidth + kEditTextWidth, BackColor = White);
  71.         Spacer(Height = 5, Width = 0);
  72.         EditText(user_ID, Label = kLit4, LabelWidth = kLabelWidth, LabelAlignment = Right,Width = kLabelWidth + kEditTextWidth, BackColor = White);
  73.         #else
  74.         HList()
  75.             {
  76.             Margin(0,3,0,0)
  77.                 StaticText(kLit2, Alignment = Right, Width = kLabelWidth);
  78.                 
  79.             Margin(1,1,1,1, BackColor = Black)
  80.                 Margin(2,2,2,2, BackColor = White)
  81.                     EditText(user_name, NoFrame, Width = kEditTextWidth);
  82.             }
  83.         Spacer(Height = 3, Width = 0);
  84.         HList()
  85.             {
  86.             Margin(0,3,0,0)
  87.                 StaticText(kLit3, Alignment = Right, Width = kLabelWidth);
  88.                 
  89.             Margin(1,1,1,1, BackColor = Black)
  90.                 Margin(2,2,2,2, BackColor = White)
  91.                     EditText(user_company, NoFrame, Width = kEditTextWidth);
  92.             }
  93.         Spacer(Height = 3, Width = 0);
  94.         HList()
  95.             {
  96.             Margin(0,3,0,0)
  97.                 StaticText(kLit4, Alignment = Right, Width = kLabelWidth);
  98.                 
  99.             Margin(1,1,1,1, BackColor = Black)
  100.                 Margin(2,2,2,2, BackColor = White)
  101.                     EditText(user_ID, NoFrame, Width = kEditTextWidth);
  102.             }
  103.         #endif
  104.         }
  105.  
  106.  
  107.  
  108. Margin(10, 10, 10, 10, BackColor = White)
  109.     VList()
  110.         {
  111.         PICT(15000,DontMap);
  112.         Margin(kHomePageLeftMargin, 0, 0, 0)    
  113.             PICT(15001,DontMap);
  114.         Call(TextFields );
  115.  
  116.         Spacer(Height = 20, Width = 0);
  117.         StandardDialogButtonsH;
  118.         } //Main List
  119.         
  120.         
  121.