paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 17:01:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: set Enabled state to controls in Codefolding options

Browse Source 
git-svn-id: trunk@33349 -
This commit is contained in:
juha 2011-11-05 17:52:29 +00:00
parent 83b0419b71
commit 48b7f94535
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/editor_codefolding_options.lfm
View File

@ -4,6 +4,7 @@ inherited EditorCodefoldingOptionsFrame: TEditorCodefoldingOptionsFrame
Anchors = [akTop]
ClientHeight = 352
ClientWidth = 511
TabOrder = 0
Visible = False
DesignLeft = 346
DesignTop = 366
@ -41,6 +42,7 @@ inherited EditorCodefoldingOptionsFrame: TEditorCodefoldingOptionsFrame
Top = 0
Width = 149
Caption = 'chkCodeFoldingEnabled'
OnChange = chkCodeFoldingEnabledChange
TabOrder = 0
end
object LanguageComboBox: TComboBox[3]

12
ide/frames/editor_codefolding_options.pas
View File

@ -45,6 +45,7 @@ type
chkFold: TRadioButton;
chkHide: TRadioButton;
chkBoth: TRadioButton;
procedure chkCodeFoldingEnabledChange(Sender: TObject);
procedure chkFoldChange(Sender: TObject);
procedure FoldConfigCheckListBoxClick(Sender: TObject);
procedure FoldConfigCheckListBoxClickCheck(Sender: TObject);
@ -180,6 +181,16 @@ begin
Hl.FoldConfig[i].Modes := Modes;
end;
procedure TEditorCodefoldingOptionsFrame.chkCodeFoldingEnabledChange(Sender: TObject);
var
b: Boolean;
begin
b := (Sender as TCheckBox).Checked;
LanguageComboBox.Enabled := b;
FoldConfigCheckListBox.Enabled := b;
chkPopOrder.Enabled := b;
end;
procedure TEditorCodefoldingOptionsFrame.FoldConfigCheckListBoxKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
FoldConfigCheckListBoxClickCheck(Sender);
@ -229,6 +240,7 @@ begin
chkPopOrder.Caption := dlgCodeFoldPopUpOrder;
LanguageLabel.Caption := dlgLang;
FModeLock := False;
chkCodeFoldingEnabledChange(chkCodeFoldingEnabled);
end;
procedure TEditorCodefoldingOptionsFrame.ReadSettings(