home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1999 March / CDW0399.iso / Demos / HomePage / data1.cab / Program_Executable_Files / Homepage.exe / 1009 / 153 < prev    next >
Encoding:
Text File  |  1997-12-10  |  26.2 KB  |  850 lines
  1. // -----
  2. // VDL153.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6. // Doc Options
  7.  
  8.  
  9. #include "StdVPref.txt"
  10.  
  11.  
  12.  
  13. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  14. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  15. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  16.  
  17. //This section contains all localizable string constants for this VDL program. Be sure to 
  18. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  19. //You may also flatten multiline constants into a single line, if you prefer
  20.  
  21. #define kLit1 " &Document Title:" /*Important: keep the leading space.  It's needed to prevent artifact from drawing.*/
  22. #define kLit2 "Title stored in the HTML file.  Most browsers"\
  23.                     " will display this in the window title."
  24.                                 
  25. #define kLit3 "&Script URL:"
  26.  
  27. // #define kLit4 "The CGI script to be executed when the user presses"\
  28. //                   " a submit button for a form in this document."
  29. //                         
  30. // #define kLit5 "The \"method\" to use when transmitting form"\
  31. //                   " data to the HTTP server."
  32.  
  33. #define kLit6 "GET"
  34. #define kLit7 "POST"
  35. #define kLit8 " &Base Document URL:" /*Important: keep the leading space.  It's needed to prevent artifact from drawing.*/
  36. #define kLit9 "Specifies a base URL from which relative links in"\
  37.                     " this file will be resolved.  If empty, relative links"\
  38.                     " are resolved from the location of the file."
  39.                          
  40. #define kLit10 " Default &Target Frame:" /*Important: keep the leading space.  It's needed to prevent artifact from drawing.*/
  41. #define kLit11 "If not empty, specifies a default frame in which"\
  42.                     " all links from this document will be displayed.  Only used"\
  43.                     " in conjunction with HTML Frames."
  44.                          
  45. #define kLit12 "&Prefix Comment:"
  46. #define kLit13 "A comment string which will appear at the beginning of the HTML file."
  47. #define kLit14 "<HTM&L> Tag Attributes:"
  48. #define kLit15 "Extra attributes to be placed in the <HTML> tag, i.e. <HTML xxx>."
  49. #define kLit16 "<HE&AD> Tag Attributes:"
  50. #define kLit17 "Extra attributes to be placed in the <HEAD> tag,  i.e. <HEAD xxx>."
  51. #define kLit18 "Text in HEAD &Section:"
  52. #define kLit19 "Extra HTML code to be placed within the HEAD section, i.e. <HEAD> xxx </HEAD>."
  53. #define kLit20 "<&BODY> Tag Attributes:"
  54. #define kLit21 "Extra attributes to be placed in the <BODY> tag, i.e. <BODY xxx>."
  55. #define kLit22 "&Text:"  //HotKey must match underscore on this string
  56. #define hotKey22 HotKey = "T"
  57. #define kLit23 "Color for normal text."
  58. #define kLit24 "&Normal Link:"  //HotKey must match underscore on this string
  59. #define hotKey24 HotKey = "N"
  60. #define kLit25 "Color for linked text."
  61. #define kLit26 "&Active Link:"  //HotKey must match underscore on this string
  62. #define hotKey26 HotKey = "A"
  63. #define kLit27 "Color for a link being clicked on."
  64. #define kLit28 "Background"
  65. #define kLit29 "Color of the page background (only used"\
  66.                     " if no background image is specified, or"\
  67.                     " if the browser user has disabled image loading)."
  68.                     
  69. #define kLit30 "&Visited Link:"  //HotKey must match underscore on this string
  70. #define hotKey30 HotKey = "V"
  71. #define kLit31 "Color for linked text when the link has been visited."
  72. #define kLit32 "Image:"
  73. #define kLit33 "  &Set...  "
  74. #define kLit34 "Choose an image file to use as the background"\
  75.                     " for this document."
  76.                                 
  77. #define kLit35 "&None"
  78. #define kLit36 "Remove any background image for this document."
  79. #define kLit37 "The currently selected background image file."
  80. #define kLit38 "A sample of the currently selected background image."
  81.                                          
  82. #define kLit39 "Controls which category of document options is displayed."
  83.                                   
  84. #define kLit40 "Parameters"
  85. #define kLit41 "Appearance"
  86. #define kLit42 "Extended"
  87. #define kLit43 "Use &Defaults"
  88. #define kLit44 "Remove any background image, and restore all"\
  89.                     " color settings to their default values."
  90.                     
  91. #define kLit45 "Document &Encoding:"
  92. #define kLit46 "The character encoding scheme for this document."
  93. #define kLit47 "Western (Latin1)"
  94.  
  95. #define kLit48 "Document &Encoding:"
  96. #define kLit49 "The character encoding scheme for this document."
  97. #define kLit50 "Japanese (JIS)"
  98. #define kLit51 "Japanese (Shift-JIS)"
  99. #define kLit52 "Japanese (EUC)"
  100.  
  101. #define kLit53    "Text Color"
  102. #define kLit54    "Restore &Default Colors"
  103. #define kLit55    "Resets the text colors back to the default colors."
  104.  
  105. #define kLit56    "&Color:"  //Hotkey must match the underscore on this string
  106. #define hotKey56 HotKey = "C"
  107. #define kLit57    "Restore Default &Background"
  108. #define kLit58    "Resets the background to the default color and no image."
  109.  
  110. // #define kLit59    "Form Action"
  111. // #define kLit60    "Method:"
  112.  
  113. #define kLit61 "Other..."
  114. #define kLit62 "No Change"  //used to mean "don't change the original color", in the color control
  115. #define kLit63 "&Remove"
  116. #define kLit64 "Removes the background image."
  117.  
  118.  
  119. //Note: the file name will probably not change, but the name of the "Help" folder
  120. //probably will. Note that the translated name MUST be 8 chars or less.
  121. #define kHelpURL "Help/DocOpts.htm"
  122. #define kHelpTitle "&Help"
  123.  
  124. //Localized Fonts 
  125. #if Platform_Mac
  126.     #define kHelpFont                 {Geneva, 10, {Plain}}
  127.     #define kButtonFont                 {Geneva, 10, {Plain}}
  128.     #define kPlainLabelFont         {Geneva, 10, {Plain}}    
  129.     #define kBoldLabelFont             {Geneva, 10, {Bold}}
  130.     #define kSmallPlainLabelFont     {Geneva, 9,     {Plain}}
  131.     #define kTabLabelFont         {Geneva, 10, {Plain}}    
  132.     
  133. #else
  134.     #if Dialog_Pixels == 100
  135.         #define kHelpFont                     {"MS Sans Serif", 8, {Plain}}
  136.         #define kSmallPlainLabelFont     {"MS Sans Serif", 8, {Plain}}
  137.     #else
  138.         #define kHelpFont                     {"MS Sans Serif", 6, {Plain}}
  139.         #define kSmallPlainLabelFont     {"MS Sans Serif", 6, {Plain}}
  140.     #endif
  141.     #define kButtonFont              SystemFont
  142.     #define kPlainLabelFont         SystemFont
  143.     #define kBoldLabelFont             SystemFont
  144.     #define kTabLabelFont             SystemFont
  145. #endif
  146.  
  147. #define kEditTextFont             Font = EditFont
  148.  
  149. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  150. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  151. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  152.  
  153.  
  154.  
  155. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  156. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  157. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  158.  
  159. //This section contains integer constants that are used to format this VDL program.
  160. //These are localizable - they only need to be changed if the localized strings 
  161. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  162.  
  163. //jeh PrefColorControl uses these values.  Width=22 Height=17 works great on Windows.
  164.  
  165.  
  166. #if Platform_Mac
  167.     //Standard Label width, used for many panes. 
  168.     #define StdLabelW 143
  169.  
  170.     //Height of the help view at the bottom of the window
  171.     #define kHelpViewHeight 35
  172.  
  173.     //Height of the main list (each of the three panes has this height)
  174.     #define kMainListHeight 200
  175.  
  176.     //Base value used to compute the width of this dialog
  177.     #define kDialogBaseWidth 332
  178.     #define kColorPickerWidth    22
  179.     #define kColorPickerHeight    15
  180.  
  181.     //Width of all the labels of the color controls in the "Colors and Background" pane. 
  182.     #define kColorLabelWidth 70
  183.  
  184.     //Field width in the HTML Extras pane.
  185.     #define kHTMLExtrasFieldW 322
  186.  
  187.     //Label width in the HTML Extras pane.
  188.     #define kHTMLExtrasLabelW 145
  189.  
  190. #else
  191.     //Standard Label width, used for many panes. 
  192.     #define StdLabelW 150
  193.     
  194.     //Height of the help view at the bottom of the window
  195.     #define kHelpViewHeight 65
  196.  
  197.     //Height of the main list (each of the three panes has this height)
  198.     #define kMainListHeight 210
  199.  
  200.     //Base value used to compute the width of this dialog
  201.     #if Dialog_Pixels == 100
  202.         #define kDialogBaseWidth 353
  203.     #else
  204.         #define kDialogBaseWidth 325
  205.     #endif
  206.     #define kColorPickerWidth    22
  207.     #define kColorPickerHeight    17
  208.     
  209.     //Width of all the labels of the color controls in the "Colors and Background" pane. 
  210.     #define kColorLabelWidth 70
  211.  
  212.  
  213.     //Label width in the HTML Extras pane.
  214.     #define kHTMLExtrasLabelW 145
  215.     
  216.     //Field width in the HTML Extras pane.
  217.     #define kHTMLExtrasFieldW 322
  218.  
  219. #endif
  220.  
  221.  
  222.  
  223. //Width of the "get/post" popup.
  224. #define kGetPostPopupWidth 64
  225.  
  226.  
  227.  
  228. //Height of the text warning that background images will not appear
  229. #define kBackgroundImageTextHeight 40
  230.  
  231.  
  232. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  233. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  234. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  235.  
  236. //No further localizable data past this point
  237.  
  238. /************************** END LOCALIZABLE DATA ***************************************************/
  239. /************************** END LOCALIZABLE DATA ***************************************************/
  240. /************************** END LOCALIZABLE DATA ***************************************************/
  241.  
  242.  
  243.  
  244. //--------------------------------------------
  245. //        Displays the Help text
  246. //--------------------------------------------
  247. Define(HelpTextDisplay)
  248.     #if Platform_Mac
  249.         Margin(0,0,0,0, TabDialogBack)
  250.             HelpView(Width = UseParent, Height = 40, Font = kHelpFont);
  251.     #else
  252.         //Margin(2,2,2,2, Single) jeh7/97 - removed this border around help, to match spec.
  253.         Margin(0,0,0,0, TabDialogBack)
  254.             HelpView(Width = UseParent, Height = 65, Font = kHelpFont, stdBackColor);
  255.     #endif
  256.  
  257.  
  258.  
  259.  
  260. //------------------------------------
  261. //    Parameters Panel
  262. //------------------------------------
  263.  
  264. Define(Advanced)
  265. Margin (0,0,0,0,MinSizeX = kDialogBaseWidth )
  266. VList(Width = UseParent,TabDialogBack)
  267.     {    
  268.             #ifdef OBSOLETE // This code should be turned back on if
  269.                                  // the DOCUMENT_BASED_FORMS flag is ever
  270.                                  // turned back on.  It provides the UI for
  271.                                  // setting form fields.
  272.                 Label(kLit59, Single, TabDialogBack,Width = UseParent)
  273.                 Margin(5,5,12,10,TabDialogBack)    
  274.                     VList(TabDialogBack )
  275.                     {                
  276.                             EditText( formScript, 
  277.                             Label = kLit3,
  278.                             LabelAlignment = Right,
  279.                             LabelWidth = StdLabelW,
  280.                             LabelWidth = 75,
  281.                             BackColor = {65535, 65535, 65535}, kEditTextFont,
  282.                             NoSmartQuotes, NoSmartEdits,
  283.                             EH kLit4 );
  284.         
  285.                         Spacer(Height = 10);
  286.                         
  287.                         HList()
  288.                         {
  289.     
  290.                             StaticText(kLit60,Width = 75,Alignment = Right,EH kLit5);
  291.                             Spacer(Width = 5);
  292.     
  293.                         IntegerPopup( "", 0, method,Width = kGetPostPopupWidth, EH kLit5)
  294.                         {
  295.                             IntItem(kLit6, 0); // Basic
  296.                             IntItem(kLit7, 1); // Advanced
  297.                         };
  298.     
  299.                         }
  300.                         
  301.                     } //VList
  302.         
  303.             Spacer(Height = 5);
  304.             #endif // OBSOLETE
  305.  
  306.             StaticText(kLit1,Width = UseParent,Alignment = Left,Font = kBoldLabelFont,EH kLit9);
  307.             Margin(20,2,0,0)    
  308.             EditText(    title,
  309.                             Width = UseParent,
  310.                             LabelWidth = 0,  /* this allows us to set the hotkey AND have a label above the text line*/
  311.                             Label = kLit1,
  312.                             BackColor = {65535, 65535, 65535},
  313.                             kEditTextFont, NoSmartQuotes,
  314.                             EH kLit2 );
  315.                 
  316.  
  317.             Spacer(Height = 10);
  318.  
  319.             StaticText(kLit8,Width = UseParent,Alignment = Left,Font = kBoldLabelFont,EH kLit9);
  320.             Margin(20,2,0,0)    
  321.                 EditText( baseURL, 
  322.                              Width = UseParent,
  323.                              LabelWidth = 0, /*needed to set a hotkey AND have the label appear above the text line*/
  324.                              Label = kLit8,
  325.                              BackColor = {65535, 65535, 65535},
  326.                              kEditTextFont, NoSmartQuotes, NoSmartEdits,
  327.                              EH kLit9 );
  328.             
  329.             Spacer(Height = 10);
  330.  
  331.             StaticText(kLit10,Width = UseParent,Alignment = Left,Font = kBoldLabelFont,EH kLit11);
  332.             
  333.             Margin(20,2,0,0)    
  334.                 EditText( defaultTarget, 
  335.                              Width = UseParent, 
  336.                               LabelWidth = 0, /*needed to set a hotkey AND have the label appear above the text line*/
  337.                              Label = kLit10,
  338.                              BackColor = {65535, 65535, 65535},
  339.                              kEditTextFont, NoSmartQuotes, NoSmartEdits,
  340.                              EH kLit11 );
  341.     
  342.  
  343.             #ifdef Kanji_Support
  344.             Spacer(Height=10, Width=1);
  345.             Switch(docEncoding, Width = UseParent)
  346.                 {
  347.                 case 0:
  348.                     IntegerPopup( kLit45, StdLabelW+4, docEncoding,
  349.                                       Alignment = Right,
  350.                                       EH kLit46 )
  351.                         {
  352.                         IntItem(kLit47, 0);
  353.                         };
  354.                 
  355.                 case 1:
  356.                 case 2:
  357.                 case 3:
  358.                     IntegerPopup( kLit48, StdLabelW+4, docEncoding, Alignment = Right,
  359.                                       EH kLit49 )
  360.                         {
  361.                         IntItem(kLit50, 1);
  362.                         IntItem(kLit51, 2);
  363.                         IntItem(kLit52, 3);
  364.                         };
  365.                 
  366.                 default:
  367.                     Spacer(Height=0, Width=0);
  368.                 } // Switch (docEncoding)
  369.             #endif // Kanji_Support
  370.     
  371.  
  372.     Spacer(Height = 36, Width = 0);    
  373.    Spacer(Height = 1, Width = UseParent, BackColor = Black);
  374.       Spacer(Height = 1, Width = UseParent, BackColor = White);
  375.  
  376.         Spacer(Height = 5);
  377.         Call (HelpTextDisplay);
  378.         
  379.     }//VList        
  380.  
  381.  
  382. //------------------------------------
  383. //    Extended Panel
  384. //------------------------------------
  385.  
  386. Define(HTMLExtras)
  387. //$$$    VList(Height = UseParent,TabDialogBack)
  388.     Margin (0,0,0,0,MinSizeX = kDialogBaseWidth )
  389.     VList(Width = UseParent,TabDialogBack)
  390.     {
  391.  
  392. /*$$$$MR the scroll bar is not needed
  393.     #if Platform_Win
  394.         Margin(2,2,2,2, Single, Height = UseParent)
  395.             VList(VScroll, TabDialogBack, Height = UseParent, NoFrame)
  396.     #else
  397.         VList(VScroll, TabDialogBack, Height = UseParent)
  398.     #endif
  399. */
  400.             Margin(5,5,5,5)
  401.                 VList(Width = UseParent)
  402.                     {
  403.                     EditText( prefixComment, 
  404.                                     Width = UseParent, 
  405.                                     Label = kLit12,
  406.                                     LabelAlignment = Right,
  407.                                     LabelWidth = kHTMLExtrasLabelW,
  408.                                     LabelFont = kBoldLabelFont,
  409.                                     BackColor = {65535, 65535, 65535},
  410.                                     kEditTextFont, NoSmartQuotes,
  411. //                                    MaxTo = HTMLExtrasText,
  412.                                     EH kLit13 );
  413.                     
  414.                     Spacer(Height = 5);
  415.                     EditText(    htmlParams, 
  416.                                     //Width = kHTMLExtrasFieldW, 
  417.                                     Label = kLit14,
  418.                                     LabelAlignment = Right,
  419.                                     LabelWidth = kHTMLExtrasLabelW,
  420.                                     LabelFont = kBoldLabelFont,
  421.                                     BackColor = {65535, 65535, 65535},
  422.                                     kEditTextFont, NoSmartQuotes, NoSmartEdits,
  423. //                                    MaxTo = HTMLExtrasText,
  424.                                     EH kLit15 );
  425.                 
  426.                         Spacer(Height = 5);
  427.                     EditText(    headParams, 
  428.                                     //Width = kHTMLExtrasFieldW, 
  429.                                     Label = kLit16,
  430.                                     LabelAlignment = Right,
  431.                                     LabelWidth = kHTMLExtrasLabelW,
  432.                                     LabelFont = kBoldLabelFont,
  433.                                     BackColor = {65535, 65535, 65535},
  434.                                     kEditTextFont, NoSmartQuotes, NoSmartEdits,
  435. //                                    MaxTo = HTMLExtrasText,
  436.                                     EH kLit17 );
  437.                     
  438.                     Spacer(Height = 5);
  439.                     EditText( headContents, 
  440. //                                    MaxTo = HTMLExtrasText,
  441.                                     //Width = kHTMLExtrasFieldW, 
  442.                                     Label = kLit18,
  443.                                     LabelAlignment = Right,
  444.                                     LabelWidth = kHTMLExtrasLabelW,
  445.                                     LabelFont = kBoldLabelFont,
  446.                                     BackColor = {65535, 65535, 65535},
  447.                                     kEditTextFont, NoSmartQuotes, NoSmartEdits,
  448.                                     
  449.                                     EH kLit19 );
  450.         
  451.                     Spacer(Height = 5);
  452.                     EditText( bodyParams, 
  453.                                     //Width = kHTMLExtrasFieldW, 
  454.                                     Label = kLit20,
  455.                                     LabelAlignment = Right,
  456.                                     LabelWidth = kHTMLExtrasLabelW,
  457.                                     LabelFont = kBoldLabelFont,
  458.                                     BackColor = {65535, 65535, 65535},
  459.                                     kEditTextFont, NoSmartQuotes, NoSmartEdits,
  460. //                                    MaxTo = HTMLExtrasText,
  461.                                     EH kLit21 );
  462.                     } // HTMLExtras
  463.     
  464.  
  465.     Spacer(Height = 31, Width = 0);    
  466.  
  467.     Spacer(Height = 1, Width = UseParent, BackColor = Black);
  468.       Spacer(Height = 1, Width = UseParent, BackColor = White);
  469.     Spacer(Height = 5, Width = 0);    
  470.  
  471.     
  472.     Call(HelpTextDisplay);
  473.  
  474.     }//Vlist
  475.  
  476.  
  477.  
  478.  
  479. //--------------------------------------------
  480. //        Displays the Text Color Settings
  481. //--------------------------------------------
  482. Define(TextColors)    
  483.  
  484.     Label(kLit53, Single, TabDialogBack,
  485.                 Font = kBoldLabelFont,MaxToV = MaxColorGroup)
  486.     Margin(10,5,10,10,TabDialogBack)
  487.     VList()    
  488.     {
  489.         HList()            //Text Color
  490.         {
  491.             StaticText( kLit22, Width = kColorLabelWidth, Alignment = Right,Font = kPlainLabelFont,EH kLit23);
  492.             Spacer(Width = 4, Height = 0,ScaleH);
  493.             Switch(singleDocSelected)
  494.             {
  495.                 case 1: // Single document. Color control won't have a "default" or "No Change" option.
  496.                 GenericView("PrefColorControl",Red = textR, Green = textG, Blue = textB,
  497.                                 Height = kColorPickerHeight, Width = kColorPickerWidth, hotKey22, 
  498.                                 ExtraString = kLit61, EnabledHelpString = kLit23, DisabledHelpString = kLit23);
  499.                 
  500.                 case 0: // Multiple documents selected. Color control has a "No Change" option.
  501.                 GenericView("PrefColorControl",Red = textR, Green = textG, Blue = textB,
  502.                                 Height = kColorPickerHeight, Width = kColorPickerWidth, hotKey22, 
  503.                                 ExtraString = kLit61, DefaultString = kLit62, EnabledHelpString = kLit23, DisabledHelpString = kLit23);
  504.             }
  505.         }//HList
  506.  
  507.         Spacer(Width = 0, Height = 5,ScaleV);
  508.  
  509.         HList()            //Link Color
  510.         {
  511.             StaticText( kLit24,  Width = kColorLabelWidth, Alignment = Right,Font = kPlainLabelFont, EH kLit25);
  512.             Spacer(Width = 4, Height = 0,ScaleH);
  513.             Switch(singleDocSelected)
  514.             {
  515.                 case 1:// Single document. Color control won't have a "default" or "No Change" option.
  516.                 GenericView("PrefColorControl",Red = linkR, Green = linkG, Blue = linkB,
  517.                                 Height = kColorPickerHeight, Width = kColorPickerWidth, hotKey24, 
  518.                                 ExtraString = kLit61, EnabledHelpString = kLit25, DisabledHelpString = kLit25);
  519.  
  520.                 case 0:// Multiple documents selected. Color control has a "No Change" option.
  521.                 GenericView("PrefColorControl",Red = linkR, Green = linkG, Blue = linkB,
  522.                                 Height = kColorPickerHeight, Width = kColorPickerWidth, hotKey24, 
  523.                                 ExtraString = kLit61, DefaultString = kLit62 ,EnabledHelpString = kLit25, DisabledHelpString = kLit25);
  524.             }
  525.  
  526.         }//HList
  527.  
  528.         Spacer(Width = 0, Height = 5,ScaleV);
  529.  
  530.         HList()            //Visited Link Color
  531.         {
  532.             StaticText( kLit30, Width = kColorLabelWidth, Alignment = Right,Font = kPlainLabelFont,EH kLit31 );
  533.             Spacer(Width = 4,ScaleH);
  534.             Switch(singleDocSelected)
  535.             {
  536.                 case 1:// Single document. Color control won't have a "default" or "No Change" option.
  537.                 GenericView("PrefColorControl",Red = vLnkR, Green = vLnkG, Blue = vLnkB,
  538.                                 Height = kColorPickerHeight, Width = kColorPickerWidth, hotKey30,
  539.                                 ExtraString = kLit61, EnabledHelpString = kLit31, DisabledHelpString = kLit31);
  540.  
  541.                 case 0:// Multiple documents selected. Color control has a "No Change" option.
  542.                 GenericView("PrefColorControl",Red = vLnkR, Green = vLnkG, Blue = vLnkB,
  543.                                 Height = kColorPickerHeight, Width = kColorPickerWidth, hotKey30,
  544.                                 ExtraString = kLit61, DefaultString = kLit62, EnabledHelpString = kLit31, DisabledHelpString = kLit31);
  545.  
  546.             }
  547.         }//HList
  548.  
  549.         Spacer(Width = 0, Height = 5,ScaleV);
  550.  
  551.         HList()            //Active Link Color
  552.         {
  553.             StaticText( kLit26, Width = kColorLabelWidth, Alignment = Right,Font = kPlainLabelFont,EH kLit27);
  554.             Spacer(Width = 4,ScaleV);
  555.             Switch(singleDocSelected)
  556.             {
  557.                 case 1:// Single document. Color control won't have a "default" or "No Change" option.
  558.                 GenericView("PrefColorControl",Red = aLnkR, Green = aLnkG, Blue = aLnkB,
  559.                                 Height = kColorPickerHeight, Width = kColorPickerWidth, hotKey26,
  560.                                 ExtraString = kLit61, EnabledHelpString = kLit27, DisabledHelpString = kLit27);
  561.  
  562.                 case 0:// Multiple documents selected. Color control has a "No Change" option.
  563.                 GenericView("PrefColorControl",Red = aLnkR, Green = aLnkG, Blue = aLnkB,
  564.                                 Height = kColorPickerHeight, Width = kColorPickerWidth, hotKey26,
  565.                                 ExtraString = kLit61, DefaultString = kLit62, EnabledHelpString = kLit27, DisabledHelpString = kLit27);
  566.  
  567.             }
  568.         }//HList
  569.         
  570.  
  571.         #if Platform_Mac
  572.             Spacer(Height = 20,ScaleV);
  573.  
  574.         #else
  575.  
  576.             Spacer(Height = 24,ScaleV);
  577.         #endif
  578.  
  579.  
  580.         HList()            //Use Default Colors
  581.         {
  582.             Spacer(Height = 5,ScaleV);
  583.             PushButton( kLit54, 3106, "ResetColors",Font = kButtonFont,EH kLit55 );
  584.         }//HList
  585.  
  586. }//VList
  587.  
  588.  
  589.  
  590.  
  591.  
  592. //--------------------------------------------
  593. //        Displays the Background Settings
  594. //--------------------------------------------
  595. Define(BackgroundSettings)    
  596.     Label(kLit28, Single,TabDialogBack,
  597.         Font = kBoldLabelFont,Width = UseParent,MaxToV = MaxColorGroup)
  598.  
  599.     #if Platform_Mac
  600.  
  601.         Margin(0,10,0,10,TabDialogBack)
  602.  
  603.     #else
  604.  
  605.         Margin(0,10,10,10,TabDialogBack)
  606.  
  607.     #endif
  608.  
  609.  
  610.     VList()    
  611.     {
  612.         HList()
  613.         {
  614.             VList()
  615.             {
  616.                 HList()            //--- Background Color ---
  617.                 {
  618.                     StaticText( kLit56, Width = 40, Alignment = Right,Font = kPlainLabelFont,EH kLit29);
  619.                     Spacer(Width = 4, Height = 0, ScaleH);
  620.                     Switch(singleDocSelected)
  621.                     {
  622.                         case 1: // Single document. Color control won't have a "default" or "No Change" option.
  623.                         GenericView("PrefColorControl",Red = backR, Green = backG, Blue = backB,
  624.                                 Height = kColorPickerHeight, Width = kColorPickerWidth, hotKey56,
  625.                                 ExtraString = kLit61, EnabledHelpString = kLit29, DisabledHelpString = kLit29);
  626.                         
  627.                         case 0: // Multiple documents selected. Color control has a "No Change" option.
  628.                         GenericView("PrefColorControl",Red = backR, Green = backG, Blue = backB,
  629.                                 Height = kColorPickerHeight, Width = kColorPickerWidth, hotKey56,
  630.                                 ExtraString = kLit61, DefaultString = kLit62, EnabledHelpString = kLit29, DisabledHelpString = kLit29);
  631.  
  632.                     }
  633.                 }//HList
  634.                 
  635.                 Spacer(Width = 0, Height = 10,  ScaleV);
  636.         
  637.                 HList()            //--- Set Background Image Button ---
  638.                 {
  639.         
  640.                     StaticText( kLit32, Width = 40, Alignment = Right,Font = kPlainLabelFont, EH kLit34);
  641.                     Spacer(Width = 4, Height = 0, ScaleH);
  642.                     PushButton( kLit33, 3107, "SetBackPict",Font = kButtonFont,EH kLit34 );
  643.                 }//HList
  644.     
  645.                 Spacer(Height = 7, ScaleV);
  646.  
  647.                 HList()            //--- Remove Background Image Button ---
  648.                 {
  649.                     Spacer(Width = 44, ScaleH);
  650.                     PushButton( kLit63, 3107,"RemoveBackPict",Font = kButtonFont,EH kLit64 );
  651.                 }//HList
  652.                 
  653.             }//VList
  654.     
  655.             Spacer(Width = 15, Height = 0, ScaleH);
  656.             
  657.             VList()                //--- Background Image Preview ---
  658.             {
  659.             #if Platform_Mac
  660.                     Spacer(Width = 0, Height = 20,ScaleV);
  661.                     Margin(4,4,4,4, Single, Width=48, Height = 48,ScaleH,ScaleV)
  662.             #else
  663.                     Spacer(Width = 0, Height = 25,ScaleV);
  664.                     Margin(4,4,4,4, Single, Width=60, Height = 60,ScaleH,ScaleV)
  665.             #endif
  666.                         GenericView( "PreviewBackPict",EH kLit38 );
  667.             }//VList
  668.             
  669.         }//HList
  670.  
  671.         HList()                    //--- Image Name ---
  672.         {
  673.         #if Platform_Mac
  674.             Spacer(Width = 5,ScaleH);
  675.             StaticText( backgroundPictName,Width = 150, Alignment = Right,Font = kSmallPlainLabelFont);
  676.         #else
  677.             Spacer(Width = 5,ScaleH);
  678.             #if Dialog_Pixels == 100
  679.                 StaticText( backgroundPictName,Width = 185, Alignment = Right,Font = kSmallPlainLabelFont);
  680.             #else
  681.                 StaticText( backgroundPictName,Width = 160, Alignment = Right,Font = kSmallPlainLabelFont);
  682.             #endif
  683.         #endif
  684.         }//HList
  685.         
  686.         #if Platform_Mac
  687.             Spacer(Width = 0, Height = 20,ScaleV);
  688.         #else
  689.             Spacer(Width = 0, Height = 5,ScaleV);
  690.         #endif
  691.         HList()                    //--- Use Default Background Button    ---
  692.         {
  693.             Spacer(Width = 10, Height = 0,ScaleH);
  694.             PushButton( kLit57, 3106, "ResetBackground",Font = kButtonFont,EH kLit58 );
  695.  
  696.         }//HList
  697.  
  698.     }//VList
  699.  
  700.  
  701.  
  702. //------------------------------------
  703. //    Appearance Panel
  704. //------------------------------------
  705. Define(Basic)
  706.     Margin(0,0,0,0, TabDialogBack,MinSizeX = kDialogBaseWidth)
  707.         VList(Width = UseParent)
  708.         {
  709.             HList(Width = UseParent)                //--- Two Group Boxes
  710.             {
  711.                 Call(TextColors);                        //--- Text Color
  712.                 Spacer(Width = 10, Height = 0,ScaleH);
  713.                 Call(BackgroundSettings);                //--- Background
  714.             } // HList
  715.                 
  716.             Spacer(Height = 13,ScaleV);
  717.  
  718.  
  719. //            Spacer(Height = 10, Width = 0,ScaleV);    
  720. //          Spacer(Height = 1, Width = UseParent, BackColor = Black);
  721. //              Spacer(Height = 1, Width = UseParent, BackColor = White);
  722.  
  723. //            Spacer(Height = 10,ScaleV);
  724.             
  725.             Call(HelpTextDisplay);
  726.             
  727.         }//VList
  728.  
  729.  
  730.  
  731.  
  732.  
  733.  
  734. #define kMainListWidth  kDialogBaseWidth
  735. //#define kMainListWidth  UseParent
  736.     
  737. Define(MainList)
  738.     Margin(10,15,10,10, TabDialogBack)
  739.         HList()
  740.             {
  741.             Spacer(Width = 0, Height = kMainListHeight, ScaleV);
  742.             VList(Height = UseParent)
  743.                 {
  744.                 Switch(mode, Height = UseParent)
  745.                     {
  746.                     case 0:
  747.                     default:
  748.                         Margin(0,0,0,0)
  749.                             Call(Basic);
  750.                     
  751.                     #if !LITE_VERSION
  752.                     case 1:
  753.                         Margin(0,0,0,0, Height = UseParent)
  754.                             Call(HTMLExtras);
  755.                     
  756.                     case 2:
  757.                         Margin(0,0,0,0)
  758.                             Call(Advanced);
  759.  
  760.                     #endif //!LITE_VERSION
  761.  
  762.                     } //Switch
  763.  
  764.                 } //HList
  765.             } //VList
  766.  
  767.  
  768.  
  769. Margin(10, 8, 10, 8, TabDialogBack)
  770.     VList()
  771.         {
  772.         #if !WANT_TABS
  773.         Layout(AllowOverlap)
  774.             {
  775.             #if !LITE_VERSION
  776.             HList(Left = 10, Top = 0)
  777.                 {
  778.                 Spacer(Width = 5, Height = 0);
  779.                 IntegerPopup( "", 0, mode,
  780.                                   EH kLit39, NoUndo )
  781.                     {
  782.                     IntItem(kLit41, 0); // Basic
  783.                     IntItem(kLit40, 2); // Advanced
  784.                     IntItem(kLit42, 1); // HTML Extras
  785.                     };
  786.                 Spacer(Width = 5, Height = 0);
  787.                 }            
  788.             #endif //!LITE_VERSION
  789.                 
  790.             Margin(1,1,1,1, BackColor = {0,0,0}, Left =  0, Top = 10)
  791.                 Call(MainList);
  792.             } //Layout
  793.         #else //WANT_TABS
  794.             #if !LITE_VERSION
  795.             TabControl(mode, NoUndo,Font = kTabLabelFont)
  796.                 {
  797.                 Tab(kLit41, 0); // Basic
  798.                 Tab(kLit40, 2); // Advanced
  799.                 Tab(kLit42, 1); // HTML Extras
  800.                 
  801.                 Subview:
  802.                     Margin(0,0,0,0, MinSizeX = kDialogBaseWidth, MinSizeY = kDialogBaseHeight)
  803.                     Call(MainList);
  804.                 }; //Layout
  805.             #else
  806.             Call(MainList);
  807.             #endif //!LITE_VERSION
  808.         #endif //!WANT_TABS
  809.             
  810.         #if Platform_Mac
  811.             Spacer(Height = 3, Width = kMainListWidth+2);
  812.         #else
  813.             Spacer(Height = 3, Width = 0);
  814.         #endif
  815.     
  816.         Spacer(Height = 10, Width = 0, VScale);
  817.  
  818.         
  819.         HList(Width = UseParent)
  820.             {
  821.             Spacer(Width = 20, Height = 0);
  822.             #ifdef TryMe
  823.                 StandardDialogButtonsH;
  824.             #else
  825.             Switch(mode)
  826.                 {
  827.                 case 0:
  828.                     HList(Width = UseParent)
  829.                         {
  830.                         StandardDialogButtonsH;
  831.                         }
  832.                 
  833.                 case 1:
  834.                     StandardDialogButtonsHNoReturn;
  835.                                 
  836.                 default:
  837.                     StandardDialogButtonsH;
  838.                 
  839.                 } //Switch
  840.             #endif
  841.             } //HList
  842.  
  843.         }
  844.  
  845.  
  846.  
  847.  
  848.  
  849.  
  850.