Menu
▾
▴
[GExperts-CVS] gexperts/unstable/Src GX_ConfigurationInfo.pas, 1.43, 1.44 GX_Configure.dfm, 1.32, 1.33 GX_Configure.pas, 1.46, 1.47 GX_IdeEnhance.pas, 1.29, 1.30
|
From: Erik B. <eb...@us...> - 2007-03-23 08:59:03
|
Update of /cvsroot/gexperts/gexperts/unstable/Src In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv861 Modified Files: GX_ConfigurationInfo.pas GX_Configure.dfm GX_Configure.pas GX_IdeEnhance.pas Log Message: Remove IdeEnhancements.Enabled feature that never worked anyway Add form enhancer feature to IDE enhancements Remove/hide the custom OI/CP font feature that stoped working in recent IDEs anyway Rearrange configuration dialog slightly Index: GX_Configure.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.pas,v retrieving revision 1.46 retrieving revision 1.47 diff -u -d -r1.46 -r1.47 --- GX_Configure.pas 26 Feb 2007 06:21:41 -0000 1.46 +++ GX_Configure.pas 23 Mar 2007 08:59:00 -0000 1.47 @@ -46,18 +46,8 @@ chkEditorToolBar: TCheckBox; gbxIDEMenu: TGroupBox; chkDisableEditorExperts: TCheckBox; - gbxFonts: TGroupBox; dlgFont: TFontDialog; - btnOIFont: TButton; - btnCPFont: TButton; - chkOIFontEnabled: TCheckBox; - chkCPFontEnabled: TCheckBox; - chkDisableIDEEnhancements: TCheckBox; chkDisableEDTEnhancements: TCheckBox; - gbxFileSaving: TGroupBox; - chkAutoSave: TCheckBox; - lblEvery: TLabel; - lblMinutes: TLabel; chkEditTabButtonsFlat: TCheckBox; rgAlign: TRadioGroup; gbxTabDockHost: TGroupBox; @@ -74,16 +64,27 @@ chkAlphabetizeMenu: TCheckBox; btnConfigureToolBar: TButton; chkPlaceGxMainMenuInToolsMenu: TCheckBox; - chkOIFontNames: TCheckBox; chkMiddleButtonClose: TCheckBox; tshDebug: TTabSheet; chkEditorKeyTracing: TCheckBox; btnEnumerateModules: TButton; - edtMinutes: TEdit; - udMinutes: TUpDown; btnEumerateActions: TButton; btnGetFonts: TButton; btnAppBuilder: TButton; + gbxIDEForms: TGroupBox; + chkEnhanceDialogs: TCheckBox; + chkOIFontNames: TCheckBox; + gbxFonts: TGroupBox; + btnOIFont: TButton; + btnCPFont: TButton; + chkOIFontEnabled: TCheckBox; + chkCPFontEnabled: TCheckBox; + gbxFileSaving: TGroupBox; + lblEvery: TLabel; + lblMinutes: TLabel; + chkAutoSave: TCheckBox; + edtMinutes: TEdit; + udMinutes: TUpDown; procedure btnEnumerateModulesClick(Sender: TObject); procedure chkEditorKeyTracingClick(Sender: TObject); procedure sbVCLDirClick(Sender: TObject); @@ -96,7 +97,6 @@ procedure btnShortCutClick(Sender: TObject); procedure EditShortCutClick(Sender: TObject); procedure chkDisableEditorExpertsClick(Sender: TObject); - procedure chkDisableIDEEnhancementsClick(Sender: TObject); procedure chkFontEnabledClick(Sender: TObject); procedure btnFontClick(Sender: TObject); procedure chkDisableEDTEnhancementsClick(Sender: TObject); @@ -192,8 +192,6 @@ chkDisableEditorExperts.Checked := not ConfigInfo.EditorExpertsEnabled; LoadIdeEnhancements; - chkDisableIDEEnhancements.Checked := not IdeEnhancements.Enabled; - DisableUnsupportedIdeItems; chkPlaceGxMainMenuInToolsMenu.Checked := ConfigInfo.PlaceGxMainMenuInToolsMenu; chkAlphabetizeMenu.Checked := ConfigInfo.AlphabetizeMenu; @@ -201,7 +199,7 @@ LoadEditorEnhancements; chkEditorKeyTracing.Checked := GxOtaGetEditorKeyTracingEnabled; chkDisableEDTEnhancements.Checked := not EditorEnhancements.Enabled; - chkDisableIDEEnhancementsClick(chkDisableIDEEnhancements); + DisableUnsupportedIdeItems; tshDebug.TabVisible := False; end; @@ -494,8 +492,6 @@ begin Assert(IdeEnhancements <> nil); - chkDisableIDEEnhancements.Checked := not IdeEnhancements.Enabled; - if not EditorEnhancementsPossible then tshEditor.TabVisible := False; gbxEditor.Enabled := RunningDelphi7OrLess; @@ -515,6 +511,8 @@ chkMultiLineTabDockHost.Checked := IdeEnhancements.MultiLineTabDockHost; chkDefaultMultiLineTabDockHost.Checked := IdeEnhancements.DefaultMultiLineTabDockHost; + chkEnhanceDialogs.Checked := IdeEnhancements.EnhanceIDEForms; + chkCPFontEnabled.Checked := IdeEnhancements.CPFontEnabled; FCPFont.Assign(IdeEnhancements.CPFont); @@ -563,8 +561,6 @@ begin Assert(IdeEnhancements <> nil); - IdeEnhancements.Enabled := not chkDisableIDEEnhancements.Checked; - // Multi-line tab dock host IdeEnhancements.MultiLineTabDockHost := chkMultiLineTabDockHost.Checked; IdeEnhancements.DefaultMultiLineTabDockHost := chkDefaultMultiLineTabDockHost.Checked; @@ -581,6 +577,8 @@ IdeEnhancements.OIFont.Assign(FOIFont); IdeEnhancements.CPFont.Assign(FCPFont); + IdeEnhancements.EnhanceIDEForms := chkEnhanceDialogs.Checked; + // Menus ConfigInfo.PlaceGxMainMenuInToolsMenu := chkPlaceGxMainMenuInToolsMenu.Checked; GXMenuActionManager.Alphabetical := chkAlphabetizeMenu.Checked; @@ -657,27 +655,6 @@ lvEditorExperts.Items[0].Selected := True; end; -procedure TfmConfiguration.chkDisableIDEEnhancementsClick(Sender: TObject); -var - EnableState: Boolean; -begin - EnableState := not chkDisableIDEEnhancements.Checked; - - SetupGroupBox(gbxFonts, EnableState); - SetupGroupBox(gbxCompPalette, EnableState); - SetupGroupBox(gbxIDEMenu, EnableState); - SetupGroupBox(gbxFileSaving, EnableState); - SetupGroupBox(gbxTabDockHost, EnableState); - - chkFontEnabledClick(Self); - chkCPAsButtonsClick(chkCPAsButtons); - chkCPTabsInPopupClick(chkCPTabsInPopup); - chkMultiLineTabDockHostClick(chkMultiLineTabDockHost); - chkCPMultiLineClick(chkCPMultiLine); - - DisableUnsupportedIdeItems; -end; - procedure TfmConfiguration.chkDisableEDTEnhancementsClick(Sender: TObject); var EnableState: Boolean; @@ -714,12 +691,9 @@ end; procedure TfmConfiguration.chkFontEnabledClick(Sender: TObject); -var - IdeEnhancementsEnabled: Boolean; begin - IdeEnhancementsEnabled := not chkDisableIDEEnhancements.Checked; - btnOIFont.Enabled := chkOIFontEnabled.Checked and IdeEnhancementsEnabled; - btnCPFont.Enabled := chkCPFontEnabled.Checked and IdeEnhancementsEnabled; + btnOIFont.Enabled := chkOIFontEnabled.Checked; + btnCPFont.Enabled := chkCPFontEnabled.Checked; end; procedure TfmConfiguration.btnFontClick(Sender: TObject); @@ -754,9 +728,7 @@ EnableState: Boolean; begin EnableState := (Sender as TCheckBox).Checked and - (Sender as TCheckBox).Enabled and - not chkDisableIDEEnhancements.Checked; - + (Sender as TCheckBox).Enabled; chkCPFlat.Enabled := EnableState; end; @@ -765,8 +737,7 @@ EnableState: Boolean; begin EnableState := (Sender as TCheckBox).Checked and - (Sender as TCheckBox).Enabled and - not chkDisableIDEEnhancements.Checked; + (Sender as TCheckBox).Enabled; chkCPTabsInPopupAlphaSort.Enabled := EnableState; end; @@ -775,8 +746,7 @@ EnableState: Boolean; begin EnableState := (Sender as TCheckBox).Checked and - (Sender as TCheckBox).Enabled and - not chkDisableIDEEnhancements.Checked; + (Sender as TCheckBox).Enabled; chkCPScrollOpposite.Enabled := EnableState; chkCPRaggedRight.Enabled := EnableState; @@ -816,8 +786,7 @@ EnableState: Boolean; begin EnableState := (Sender as TCheckBox).Checked and - (Sender as TCheckBox).Enabled and - not chkDisableIDEEnhancements.Checked; + (Sender as TCheckBox).Enabled; chkDefaultMultiLineTabDockHost.Enabled := EnableState; end; Index: GX_ConfigurationInfo.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ConfigurationInfo.pas,v retrieving revision 1.43 retrieving revision 1.44 diff -u -d -r1.43 -r1.44 --- GX_ConfigurationInfo.pas 26 Feb 2007 06:21:41 -0000 1.43 +++ GX_ConfigurationInfo.pas 23 Mar 2007 08:59:00 -0000 1.44 @@ -398,9 +398,10 @@ end; EditorEnhancements.Enabled := False; - IdeEnhancements.Enabled := False; LoadSettings; + if not IsStandAlone then + IdeEnhancements.Initialize; ShowGxMessageBox(TShowBadDirectoryMessage, FConfigPath); end; @@ -431,9 +432,6 @@ FPlaceGxMainMenuInToolsMenu := Settings.ReadBool(ConfigurationKey, 'PlaceGxMainMenuInToolsMenu', False); FEnableKeyboardShortcuts := Settings.ReadBool(ConfigurationKey, 'EnableKeyboardShortcuts', True); - Setting := Settings.ReadBool(ConfigurationKey, 'IdeEnhancementsEnabled', False); - IdeEnhancements.Enabled := Setting and not IsStandAlone; - Setting := Settings.ReadBool(ConfigurationKey, 'EditorEnhancementsEnabled', False); EditorEnhancements.Enabled := Setting and not IsStandAlone; finally @@ -456,7 +454,6 @@ Settings.WriteBool(ConfigurationKey, 'AlphabetizeMenu', FAlphabetizeMenu); Settings.WriteBool(ConfigurationKey, 'EditorExpertsEnabled', FEditorExpertsEnabled); Settings.WriteBool(ConfigurationKey, 'PlaceGxMainMenuInToolsMenu', FPlaceGxMainMenuInToolsMenu); - Settings.WriteBool(ConfigurationKey, 'IdeEnhancementsEnabled', IdeEnhancements.Enabled); Settings.WriteBool(ConfigurationKey, 'EditorEnhancementsEnabled', EditorEnhancements.Enabled); finally FreeAndNil(Settings); Index: GX_IdeEnhance.pas =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_IdeEnhance.pas,v retrieving revision 1.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- GX_IdeEnhance.pas 26 Feb 2007 06:21:41 -0000 1.29 +++ GX_IdeEnhance.pas 23 Mar 2007 08:59:00 -0000 1.30 @@ -6,12 +6,11 @@ uses Classes, Graphics, ComCtrls, Menus, - GX_MultiLinePalette, GX_MultilineHost; + GX_MultiLinePalette, GX_MultilineHost, GX_IdeFormEnhancer; type TIdeEnhancements = class(TObject) private - FEnabled: Boolean; // Fonts FOIFont: TFont; FOldOIFont: TFont; @@ -27,7 +26,6 @@ {$ENDIF VER150} procedure SetAutoSave(const Value: Boolean); procedure SetAutoSaveInterval(const Value: Integer); - procedure SetEnabled(const Value: Boolean); procedure SetOIFont(Value: TFont); procedure SetOIFontEnabled(Value: Boolean); procedure OIFontChange(Sender: TObject); @@ -71,18 +69,20 @@ procedure SetCPFlatButtons(const Value: Boolean); procedure SetCPRaggedRight(const Value: Boolean); procedure SetCPScrollOpposite(const Value: Boolean); - procedure Install; procedure Remove; function ConfigurationKey: string; + procedure SetEnhanceIDEForms(const Value: Boolean); + function GetEnhanceIDEForms: Boolean; public constructor Create; destructor Destroy; override; - property Enabled: Boolean read FEnabled write SetEnabled; - + procedure Initialize; procedure LoadSettings; procedure SaveSettings; + // IDE + property EnhanceIDEForms: Boolean read GetEnhanceIDEForms write SetEnhanceIDEForms; // Fonts property OIFontEnabled: Boolean read FOIFontEnabled write SetOIFontEnabled; property OIFont: TFont read FOIFont; @@ -135,7 +135,7 @@ FCPFont.OnChange := CPFontChange; end; -procedure TIdeEnhancements.Install; +procedure TIdeEnhancements.Initialize; begin Assert(Application.MainForm <> nil, 'No MainForm found'); @@ -149,6 +149,7 @@ procedure TIdeEnhancements.Remove; begin + EnhanceIDEForms := False; // MultiLine component palette CPMultiLine := False; CPAsButtons := False; @@ -160,18 +161,15 @@ RemoveMultiLineComponentTabs; RemoveMultiLineHostTabs; OIFontEnabled := False; + // Don't call SaveSettings after this point end; -procedure TIdeEnhancements.SetEnabled(const Value: Boolean); +procedure TIdeEnhancements.SetEnhanceIDEForms(const Value: Boolean); begin - if FEnabled <> Value then - begin - FEnabled := Value; - if FEnabled then - Install - else - Remove; - end; + if Value then + TIDEFormEnhancements.SetEnabled(True) + else + TIDEFormEnhancements.SetEnabled(False); end; destructor TIdeEnhancements.Destroy; @@ -198,6 +196,7 @@ Settings := TGExpertsSettings.Create; with Settings do try + EnhanceIDEForms := ReadBool(ConfigurationKey, 'EnhanceIDEForms', False); // File saving AutoSave := ReadBool(ConfigurationKey, 'AutoSave', False); AutoSaveInterval := ReadInteger(ConfigurationKey, 'AutoSaveInterval', 5); @@ -238,6 +237,7 @@ Settings := TGExpertsSettings.Create; with Settings do try + WriteBool(ConfigurationKey, 'EnhanceIDEForms', EnhanceIDEForms); // File saving WriteBool(ConfigurationKey, 'AutoSave', AutoSave); WriteInteger(ConfigurationKey, 'AutoSaveInterval', AutoSaveInterval); @@ -672,6 +672,11 @@ Result := GX_MultilineHost.DefaultToMultiLine; end; +function TIdeEnhancements.GetEnhanceIDEForms: Boolean; +begin + Result := TIDEFormEnhancements.GetEnabled; +end; + function TIdeEnhancements.GetMultiLineTabDockHost: Boolean; begin Result := (FMultiLineTabDockHostManager <> nil); Index: GX_Configure.dfm =================================================================== RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.dfm,v retrieving revision 1.32 retrieving revision 1.33 diff -u -d -r1.32 -r1.33 --- GX_Configure.dfm 30 Jun 2006 07:07:11 -0000 1.32 +++ GX_Configure.dfm 23 Mar 2007 08:59:00 -0000 1.33 @@ -1,12 +1,12 @@ object fmConfiguration: TfmConfiguration Left = 411 Top = 164 - Width = 525 - Height = 540 + Width = 519 + Height = 520 BorderIcons = [biSystemMenu] Caption = 'GExperts Configuration' Color = clBtnFace - Constraints.MinHeight = 448 + Constraints.MinHeight = 520 Constraints.MinWidth = 493 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -25,8 +25,8 @@ object pnlMain: TPanel Left = 0 Top = 0 - Width = 517 - Height = 477 + Width = 511 + Height = 457 Align = alClient BevelOuter = bvNone BorderWidth = 7 @@ -34,8 +34,8 @@ object pcConfig: TPageControl Left = 7 Top = 7 - Width = 503 - Height = 463 + Width = 497 + Height = 443 ActivePage = tshExperts Align = alClient HotTrack = True @@ -48,8 +48,8 @@ object sbxExperts: TScrollBox Left = 0 Top = 0 - Width = 495 - Height = 435 + Width = 489 + Height = 415 VertScrollBar.Increment = 40 VertScrollBar.Range = 920 VertScrollBar.Tracking = True @@ -61,18 +61,18 @@ object tshGeneral: TTabSheet Caption = 'File Locations' DesignSize = ( - 495 - 435) + 489 + 415) object gbxLocations: TGroupBox Left = 8 Top = 8 - Width = 477 + Width = 471 Height = 169 Anchors = [akLeft, akTop, akRight] Caption = 'File Locations' TabOrder = 0 DesignSize = ( - 477 + 471 169) object lblVCL: TLabel Left = 12 @@ -99,7 +99,7 @@ FocusControl = edHelpFile end object sbVCLDir: TButton - Left = 444 + Left = 438 Top = 40 Width = 21 Height = 21 @@ -109,7 +109,7 @@ OnClick = sbVCLDirClick end object sbConfigDir: TButton - Left = 444 + Left = 438 Top = 88 Width = 21 Height = 21 @@ -119,7 +119,7 @@ OnClick = sbConfigDirClick end object sbHelpFile: TButton - Left = 444 + Left = 438 Top = 136 Width = 21 Height = 21 @@ -131,7 +131,7 @@ object edVCLPath: TEdit Left = 12 Top = 40 - Width = 432 + Width = 426 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 0 @@ -139,7 +139,7 @@ object edConfigPath: TEdit Left = 12 Top = 88 - Width = 432 + Width = 426 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 2 @@ -147,7 +147,7 @@ object edHelpFile: TEdit Left = 12 Top = 136 - Width = 432 + Width = 426 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 4 @@ -157,21 +157,21 @@ object tshEditorExperts: TTabSheet Caption = 'Editor Experts' DesignSize = ( - 495 - 435) + 489 + 415) object gbxKeyboard: TGroupBox Left = 8 Top = 8 - Width = 478 - Height = 417 + Width = 472 + Height = 397 Anchors = [akLeft, akTop, akRight, akBottom] Caption = 'Editor Experts' TabOrder = 0 DesignSize = ( - 478 - 417) + 472 + 397) object btnConfigure: TButton - Left = 393 + Left = 387 Top = 80 Width = 75 Height = 26 @@ -182,7 +182,7 @@ OnClick = btnConfigureClick end object btnShortcut: TButton - Left = 393 + Left = 387 Top = 116 Width = 75 Height = 26 @@ -194,8 +194,8 @@ end object meHelp: TMemo Left = 10 - Top = 289 - Width = 458 + Top = 269 + Width = 452 Height = 118 TabStop = False Anchors = [akLeft, akRight, akBottom] @@ -205,7 +205,7 @@ TabOrder = 4 end object chkDisableEditorExperts: TCheckBox - Left = 393 + Left = 387 Top = 22 Width = 82 Height = 21 @@ -217,8 +217,8 @@ object lvEditorExperts: TListView Left = 10 Top = 22 - Width = 375 - Height = 260 + Width = 369 + Height = 240 Anchors = [akLeft, akTop, akRight, akBottom] Columns = < item @@ -244,15 +244,15 @@ Caption = 'IDE' object gbxIDEMenu: TGroupBox Left = 8 - Top = 83 - Width = 265 + Top = 8 + Width = 330 Height = 70 Caption = '&Menu' - TabOrder = 1 + TabOrder = 0 object chkAlphabetizeMenu: TCheckBox Left = 8 Top = 22 - Width = 253 + Width = 310 Height = 17 Caption = 'Alphabetize the GExperts menu items' TabOrder = 0 @@ -260,133 +260,19 @@ object chkPlaceGxMainMenuInToolsMenu: TCheckBox Left = 8 Top = 41 - Width = 253 + Width = 310 Height = 17 Caption = 'Place GExperts menu under Tools' TabOrder = 1 end end - object gbxFonts: TGroupBox - Left = 8 - Top = 159 - Width = 329 - Height = 96 - Caption = 'Custom &Fonts' - TabOrder = 2 - object btnOIFont: TButton - Left = 24 - Top = 42 - Width = 119 - Height = 26 - Caption = 'Object Inspector' - TabOrder = 1 - OnClick = btnFontClick - end - object btnCPFont: TButton - Left = 172 - Top = 42 - Width = 124 - Height = 26 - Caption = 'Component Palette' - TabOrder = 3 - OnClick = btnFontClick - end - object chkOIFontEnabled: TCheckBox - Left = 55 - Top = 71 - Width = 89 - Height = 17 - Caption = 'Enable' - TabOrder = 2 - OnClick = chkFontEnabledClick - end - object chkCPFontEnabled: TCheckBox - Left = 203 - Top = 71 - Width = 97 - Height = 17 - Caption = 'Enable' - TabOrder = 4 - OnClick = chkFontEnabledClick - end - object chkOIFontNames: TCheckBox - Left = 8 - Top = 19 - Width = 317 - Height = 17 - Caption = 'Show object inspector font names using the font' - TabOrder = 0 - end - end - object chkDisableIDEEnhancements: TCheckBox - Left = 280 - Top = 11 - Width = 181 - Height = 17 - Caption = '&Disable IDE enhancements' - TabOrder = 3 - OnClick = chkDisableIDEEnhancementsClick - end - object gbxFileSaving: TGroupBox - Left = 285 - Top = 83 - Width = 180 - Height = 70 - Caption = 'File &Saving' - TabOrder = 4 - Visible = False - object lblEvery: TLabel - Left = 31 - Top = 44 - Width = 27 - Height = 13 - Alignment = taRightJustify - Caption = 'Every' - end - object lblMinutes: TLabel - Left = 120 - Top = 44 - Width = 42 - Height = 13 - Caption = 'minute(s)' - end - object chkAutoSave: TCheckBox - Left = 12 - Top = 20 - Width = 157 - Height = 17 - Caption = 'Enable auto save of files' - TabOrder = 0 - OnClick = chkAutoSaveClick - end - object edtMinutes: TEdit - Left = 64 - Top = 40 - Width = 38 - Height = 21 - TabOrder = 1 - Text = '1' - end - object udMinutes: TUpDown - Left = 102 - Top = 40 - Width = 12 - Height = 21 - Associate = edtMinutes - Min = 1 - Max = 1000 - Position = 1 - TabOrder = 2 - Wrap = False - end - end object gbxTabDockHost: TGroupBox Left = 8 - Top = 8 - Width = 265 + Top = 165 + Width = 329 Height = 68 Caption = 'Tab Dock &Hosts' - TabOrder = 0 + TabOrder = 2 object chkMultiLineTabDockHost: TCheckBox Left = 8 Top = 22 @@ -407,15 +293,15 @@ end object gbxCompPalette: TGroupBox Left = 8 - Top = 262 - Width = 329 + Top = 240 + Width = 330 Height = 165 Caption = 'Component &Palette' - TabOrder = 5 + TabOrder = 3 object chkCPMultiLine: TCheckBox Left = 8 Top = 22 - Width = 291 + Width = 310 Height = 17 Caption = 'Multiline tabs' TabOrder = 0 @@ -424,7 +310,7 @@ object chkCPAsButtons: TCheckBox Left = 8 Top = 79 - Width = 291 + Width = 310 Height = 17 Caption = 'Show tabs as buttons' TabOrder = 3 @@ -433,7 +319,7 @@ object chkCPTabsInPopup: TCheckBox Left = 8 Top = 118 - Width = 291 + Width = 310 Height = 17 Caption = 'Add popup menu/button with tab names' TabOrder = 5 @@ -442,7 +328,7 @@ object chkCPFlat: TCheckBox Left = 24 Top = 98 - Width = 275 + Width = 300 Height = 17 Caption = 'Flat buttons' TabOrder = 4 @@ -450,7 +336,7 @@ object chkCPTabsInPopupAlphaSort: TCheckBox Left = 24 Top = 137 - Width = 275 + Width = 300 Height = 19 Caption = 'Show tab names in alphabetical order' TabOrder = 6 @@ -458,7 +344,7 @@ object chkCPScrollOpposite: TCheckBox Left = 24 Top = 41 - Width = 275 + Width = 300 Height = 17 Caption = 'Scroll &opposite' TabOrder = 1 @@ -466,12 +352,44 @@ object chkCPRaggedRight: TCheckBox Left = 24 Top = 60 - Width = 275 + Width = 300 Height = 17 Caption = 'Ragged &right' TabOrder = 2 end end + object gbxIDEForms: TGroupBox + Left = 8 + Top = 86 + Width = 330 + Height = 70 + Caption = 'IDE' + TabOrder = 1 + object chkEnhanceDialogs: TCheckBox + Left = 9 + Top = 19 + Width = 310 + Height = 17 + Hint = + 'Enhance IDE options dialogs to allow resizing, remember position' + + 's, increase'#13'combobox DropDownCounts, resizable picture open dial' + + 'ogs, collapse Together'#13'options tree node, etc. (Most enhancemen' + + 'ts require BDS 2006 or later)' + Caption = 'Enhance IDE dialogs (allow resize, remember position, etc.)' + ParentShowHint = False + ShowHint = True + TabOrder = 0 + OnClick = chkAutoSaveClick + end + object chkOIFontNames: TCheckBox + Left = 8 + Top = 43 + Width = 310 + Height = 17 + Caption = 'Show object inspector font names using the font' + TabOrder = 1 + end + end end object tshEditor: TTabSheet Caption = 'Code Editor' @@ -622,22 +540,119 @@ TabOrder = 4 OnClick = btnAppBuilderClick end + object gbxFonts: TGroupBox + Left = 16 + Top = 175 + Width = 321 + Height = 81 + Caption = 'Custom &Fonts' + TabOrder = 5 + object btnOIFont: TButton + Left = 24 + Top = 22 + Width = 119 + Height = 26 + Caption = 'Object Inspector' + TabOrder = 0 + OnClick = btnFontClick + end + object btnCPFont: TButton + Left = 172 + Top = 22 + Width = 124 + Height = 26 + Caption = 'Component Palette' + TabOrder = 2 + OnClick = btnFontClick + end + object chkOIFontEnabled: TCheckBox + Left = 55 + Top = 51 + Width = 89 + Height = 17 + Caption = 'Enable' + TabOrder = 1 + OnClick = chkFontEnabledClick + end + object chkCPFontEnabled: TCheckBox + Left = 203 + Top = 51 + Width = 97 + Height = 17 + Caption = 'Enable' + TabOrder = 3 + OnClick = chkFontEnabledClick + end + end + object gbxFileSaving: TGroupBox + Left = 18 + Top = 269 + Width = 175 + Height = 70 + Caption = 'File &Saving' + TabOrder = 6 + Visible = False + object lblEvery: TLabel + Left = 31 + Top = 44 + Width = 27 + Height = 13 + Alignment = taRightJustify + Caption = 'Every' + end + object lblMinutes: TLabel + Left = 120 + Top = 44 + Width = 42 + Height = 13 + Caption = 'minute(s)' + end + object chkAutoSave: TCheckBox + Left = 12 + Top = 20 + Width = 157 + Height = 17 + Caption = 'Enable auto save of files' + TabOrder = 0 + OnClick = chkAutoSaveClick + end + object edtMinutes: TEdit + Left = 64 + Top = 40 + Width = 38 + Height = 21 + TabOrder = 1 + Text = '1' + end + object udMinutes: TUpDown + Left = 102 + Top = 40 + Width = 16 + Height = 21 + Associate = edtMinutes + Min = 1 + Max = 1000 + Position = 1 + TabOrder = 2 + Wrap = False + end + end end end end object pnlButtons: TPanel Left = 0 - Top = 477 - Width = 517 + Top = 457 + Width = 511 Height = 34 Align = alBottom BevelOuter = bvNone TabOrder = 1 DesignSize = ( - 517 + 511 34) object btnOK: TButton - Left = 275 + Left = 269 Top = 1 Width = 75 Height = 26 @@ -648,7 +663,7 @@ OnClick = btnOKClick end object btnCancel: TButton - Left = 355 + Left = 349 Top = 1 Width = 75 Height = 26 @@ -659,7 +674,7 @@ TabOrder = 1 end object btnHelp: TButton - Left = 435 + Left = 429 Top = 1 Width = 75 Height = 26 |