paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: formatting

Browse Source 
git-svn-id: trunk@42554 -
This commit is contained in:
juha 2013-09-02 09:57:52 +00:00
parent 6c48f0f732
commit a435bd680f
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/frames/formed_options.pas
View File

@ -67,10 +67,9 @@ type
SnapToGridCheckBox: TCheckBox; SnapToGridCheckBox: TCheckBox;
SnapToGuideLinesCheckBox: TCheckBox; SnapToGuideLinesCheckBox: TCheckBox;
procedure ColorBoxChange(Sender: TObject); procedure ColorBoxChange(Sender: TObject);
procedure ColorsListBoxGetColors(Sender: TCustomColorListBox; procedure ColorsListBoxGetColors(Sender: TCustomColorListBox; Items: TStrings);
Items: TStrings);
procedure ColorsListBoxSelectionChange(Sender: TObject; User: boolean); procedure ColorsListBoxSelectionChange(Sender: TObject; User: boolean);
procedure CreateCompFocusNameCheckBoxChange(Sender:TObject); procedure CreateCompFocusNameCheckBoxChange(Sender: TObject);
procedure FrameResize(Sender: TObject); procedure FrameResize(Sender: TObject);
private private
FLoaded: Boolean; FLoaded: Boolean;
@ -248,16 +247,14 @@ begin
ColorsListBox.Invalidate; ColorsListBox.Invalidate;
end; end;
procedure TFormEditorOptionsFrame.ColorsListBoxSelectionChange(Sender: TObject; procedure TFormEditorOptionsFrame.ColorsListBoxSelectionChange(Sender: TObject; User: boolean);
User: boolean);
begin begin
if not (FLoaded and User) then if not (FLoaded and User) then
Exit; Exit;
ColorBox.Selected := ColorsListBox.Selected; ColorBox.Selected := ColorsListBox.Selected;
end; end;
procedure TFormEditorOptionsFrame.CreateCompFocusNameCheckBoxChange(Sender: procedure TFormEditorOptionsFrame.CreateCompFocusNameCheckBoxChange(Sender: TObject);
TObject);
begin begin
SwitchToFavoritesOITabCheckBox.Enabled := CreateCompFocusNameCheckBox.Checked; SwitchToFavoritesOITabCheckBox.Enabled := CreateCompFocusNameCheckBox.Checked;
end; end;