home *** CD-ROM | disk | FTP | other *** search
- //
- // VDL
- //
- // Copyright (c) 1997 Claris Corporation
- //
- // FileMaker Options Dialog
- //
- #include "StdVPref.txt"
-
- #define StdVSpace VSpace(6)
- #define StdLabel LabelWidth = 60, LabelAlignment = Right
-
-
- /******************************************************************************/
- /********************* LOCALIZED STRING CONSTANTS BEGIN ***********************/
- /******************************************************************************/
- #define kLit1 "IP Address:"
- #define kLit2 "User Name:"
- #define kLit3 "Password:"
- #define kLit4 "Connect"
- #define kLit5 "Database:"
- #define kLit6 "Layout:"
-
- /******************************************************************************/
- /********************** LOCALIZED STRING CONSTANTS END ************************/
- /******************************************************************************/
- Margin(10, 10, 10, 10, TabDialogBack)
- VList(UseParentWidth)
- {
- HList()
- {
- VList(UseParentWidth)
- {
- EditText(IPAddress, BackColor = {65535, 65535, 65535},
- Label = kLit1, StdLabel, kStdLabelFont, kEditFont, NoSmartQuotes,
- NoSmartEdits);
- StdVSpace;
- EditText(UserName, BackColor = {65535, 65535, 65535},
- Label = kLit2, StdLabel, kStdLabelFont, kEditFont, NoSmartQuotes,
- NoSmartEdits);
- StdVSpace;
- EditText(Password, BackColor = {65535, 65535, 65535},
- Label = kLit3, StdLabel, kStdLabelFont, kEditFont, NoSmartQuotes,
- NoSmartEdits);
- }
- HSpace(30);
- PushButton(kLit4, 5071, "None", kButtonFont); // ccConnectToFileMaker
-
- }
-
- VSpace(15);
-
- HList()
- {
- VList()
- {
- StaticText(kLit5, Width = UseParent, Alignment = Left);
- VList(Height = 100, Width = 100, VScroll)
- {
- ListBox(ListAttr = DatabaseList,
- SingleSelectionOnly,
- ItemDisplayAttr = DatabaseName,
- ItemSelectStore = SelectedDatabase,
- NoEdit,
- SelDomain = "DatabaseNames",
- AllowDrag = false);
- }
- }
-
- HSpace(30);
-
- VList()
- {
- StaticText(kLit6, Width = UseParent, Alignment = Left);
- VList(Height = 100, Width = 100, VScroll)
- {
- ListBox(ListAttr = LayoutList,
- ItemDisplayAttr = LayoutName,
- SingleSelectionOnly,
- ItemSelectStore = SelectedLayout,
- NoEdit,
- SelDomain = "LayoutNames",
- AllowDrag = false);
- }
- }
- }
-
- VSpace(20);
- StandardDialogButtonsH;
- }
-
-