home *** CD-ROM | disk | FTP | other *** search
- // -----
- // VDL159.txt
- // Copyright 1996 Claris
- // -----
-
- // Menu Edit dialog
-
- #include "StdVPref.txt"
-
-
- /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
- /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
- /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
-
- //This section contains all localizable string constants for this VDL program. Be sure to
- //include the backslash character at the end of each line of a multi-line string, except for the last line.
- //You may also flatten multiline constants into a single line, if you prefer
-
- #define kLit1 "Item List:"
- #define kLit2 "Title"
- #define kLit3 "&Number of Items Visible:"
- #define kLit4 "Allow &Multiple Selections"
- #define kLit5 "Value"
- #define kLit6 "Check"
- #define kLit7 "Add"
- #define kLit8 "Remove"
-
- //Note: the file name will probably not change, but the name of the "Help" folder
- //probably will. Note that the translated name MUST be 8 chars or less.
- #define kHelpURL "Help/Popups.htm"
- #define kHelpTitle "&Help"
-
- //Localized Fonts
- #if Platform_Mac
- #define kHelpFont Font = {Geneva, 10, {Plain}}
- #define kStaticTextFont Font = {Geneva, 10, {Plain}}
- #else
- #if Dialog_Pixels == 100
- #define kHelpFont Font = {"MS Sans Serif", 8, {Plain}}
- #else
- #define kHelpFont Font = {"MS Sans Serif", 6, {Plain}}
- #endif
- #define kStaticTextFont Font = SystemFont
- #endif
-
-
- /************************** LOCALIZED STRING CONSTANTS END **************************************/
- /************************** LOCALIZED STRING CONSTANTS END **************************************/
- /************************** LOCALIZED STRING CONSTANTS END **************************************/
-
-
-
- /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
- /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
- /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
-
- //This section contains integer constants that are used to format this VDL program.
- //These are localizable - they only need to be changed if the localized strings
- //are sufficiently longer than the US strings. Localize the strings first, then the constants.
-
- //Width of the whole dialog
- #define kDialogMainWidth 360
-
- //Width of the "Number of Items Visible" text
- #if Platform_Mac
- #define kNumberOfItemsTextWidth 194
- #define kPushButtonWidth 60
- #else
- #define kNumberOfItemsTextWidth 154
- #define kPushButtonWidth 72
- #endif
-
- //Width of the checkbox
- #define kAllowMultipleSelsWidth 200
-
- //Margins to the left and right of the checkmark icon at the top left of the
- //list
- #define kCheckIconLeftMargin 16
- #define kCheckIconRightMargin 14
-
- /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
- /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
- /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
-
- //No further localizable data past this point
-
- /************************** END LOCALIZABLE DATA ***************************************************/
- /************************** END LOCALIZABLE DATA ***************************************************/
- /************************** END LOCALIZABLE DATA ***************************************************/
-
- #define ccAddListElement 1303
- #define ccRemoveListElement 1304
-
-
- // DO NOT TOUCH
- // WORK IN PROGRESS
- // - Russ [08.17.97]
- //#if Platform_Mac
- // #define dlogBack BackColor = {65535, 65535, 65535}
- // #define softBack {65535, 65535, 65535}
- //#else
- #define dlogBack BackColor = Dialog
- #define softBack {25000, 25000, 25000}
- //#endif
-
-
- Margin(10, 10, 10, 10, stdBackColor)
- VList(Width = kDialogMainWidth)
- {
- //Label(kLit1, Single)
- //Margin(10,10,10,10)
- VList(Width = UseParent)
- {
- ColumnHeaderList ( MinColWidth = 25,
-
- ColLabel0 = kLit6,
- ColWidth0 = checkedWidth,
- DefaultWidth0 = 40,
-
- ColLabel1 = kLit2,
- ColWidth1 = titleWidth,
- DefaultWidth1 = 72,
-
- ColLabel2 = kLit5,
- ColWidth2 = valueWidth,
- DefaultWidth2 = 100,
- kStaticTextFont, //@ykh 072897 bug fix
- BackColor = {55000, 55000, 55000} ,
- Width = UseParent );
-
- /*
- HList(Width = UseParent)
- {
- Margin(kCheckIconLeftMargin, 2, kCheckIconRightMargin, 0)
- #if Platform_Mac
- cicn(2200);
- #else
- cicn(2201);
- #endif
- StaticText(kLit2);
- Spacer(Width = 50);
- StaticText(kLit5);
- }
- */
-
- //You can use this instead of the three margins below. Delete 1 pixel from the
- //left of the margin for the cicn above in this case (make it 15, not 16)
- /* Margin(1,1,1,1,BackColor = {0,0,0}) */
-
- /*
- #if Platform_Mac
- Margin(0,0,1,1, Width = UseParent, dlogBack )
- Margin(1,1,1,1, Width = UseParent, BackColor = softBack )
- Margin(1,1,0,1, Width = UseParent, BackColor = Black )
- #else
- Margin(0,0,1,1, Width = UseParent, BackColor = White )
- Margin(1,1,1,1, Width = UseParent, BackColor = softBack )
- Margin(1,1,1,1, Width = UseParent, BackColor = Black )
- #endif
-
- */
-
- VList( Width = UseParent, Height = 80, VScroll,
- BackColor = {65535,65535,65535} )
- {
- // EditText(items, Width = UseParent, Height = 180, NoSmartQuotes);
- //GenericView("MenuTextView", Width = UseParent);
- PopupItemList(kStaticTextFont); //@ykh 072897 bug fix
- }
-
- }
-
- Spacer(Height = 8);
-
- HList()
- {
- PushButton(kLit7, ccAddListElement, "None");
- Spacer(Width = 15);
-
- PushButton(kLit8, ccRemoveListElement, "None");
- }
- //PeteF 092297 commented out following that was duped in OE.
- /*
- Spacer(Height = 10, Width = 0);
- EditText( visCount, Width = kNumberOfItemsTextWidth, // FilterProc = "MenuVisCount"
- BackColor = {65535, 65535, 65535},
- Label = kLit3, NoSmartQuotes, NoSmartEdits);
- Spacer(Height = 5, Width = 0);
-
- WidowCheckBox( kLit4, allowMult,
- Width = kAllowMultipleSelsWidth, Height = 16 );
- */
-
- Spacer(Height = 5, Width = 0);
- //StandardDialogButtonsHNoReturn;
- HList(Width = UseParent)
- {
- /*
- #if Platform_Mac
- PictPushButton(4000, "ContextHelpProc", HelpFile = kHelpURL)
- {
- Enabled(Draw, 'cicn',14055 );
- Disabled(Draw, 'cicn',14057 );
- Tracking(Draw, 'cicn',14056 );
- };
- #else
- PushButton(kHelpTitle, 4000, "ContextHelpProc", HelpFile = kHelpURL);
- #endif
- */
-
- Spacer(Height = 0, Width = 150);
-
- StandardDialogButtonsHEnterOnly;
- }
- }
-
-