paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:39:36 +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;
SnapToGuideLinesCheckBox: TCheckBox;
procedure ColorBoxChange(Sender: TObject);
procedure ColorsListBoxGetColors(Sender: TCustomColorListBox;
Items: TStrings);
procedure ColorsListBoxGetColors(Sender: TCustomColorListBox; Items: TStrings);
procedure ColorsListBoxSelectionChange(Sender: TObject; User: boolean);
procedure CreateCompFocusNameCheckBoxChange(Sender:TObject);
procedure CreateCompFocusNameCheckBoxChange(Sender: TObject);
procedure FrameResize(Sender: TObject);
private
FLoaded: Boolean;
@ -248,16 +247,14 @@ begin
ColorsListBox.Invalidate;
end;
procedure TFormEditorOptionsFrame.ColorsListBoxSelectionChange(Sender: TObject;
User: boolean);
procedure TFormEditorOptionsFrame.ColorsListBoxSelectionChange(Sender: TObject; User: boolean);
begin
if not (FLoaded and User) then
Exit;
ColorBox.Selected := ColorsListBox.Selected;
end;
procedure TFormEditorOptionsFrame.CreateCompFocusNameCheckBoxChange(Sender:
TObject);
procedure TFormEditorOptionsFrame.CreateCompFocusNameCheckBoxChange(Sender: TObject);
begin
SwitchToFavoritesOITabCheckBox.Enabled := CreateCompFocusNameCheckBox.Checked;
end;