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

IDE: formatting

Browse Source 
git-svn-id: trunk@38905 -
This commit is contained in:
juha 2012-09-29 17:36:43 +00:00
parent 7e1f04ade7
commit 96b3cbf9c8
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/frames/codetools_general_options.pas
View File

@ -91,8 +91,7 @@ begin
end; end;
end; end;
procedure TCodetoolsGeneralOptionsFrame.IndentOnPasteCheckBoxChange( procedure TCodetoolsGeneralOptionsFrame.IndentOnPasteCheckBoxChange(Sender: TObject);
Sender: TObject);
begin begin
VisualizeIndentEnabled; VisualizeIndentEnabled;
end; end;
@ -102,9 +101,7 @@ begin
with TPathEditorDialog.Create(Self) do with TPathEditorDialog.Create(Self) do
try try
Path := SrcPathEdit.Text; Path := SrcPathEdit.Text;
Templates:=SetDirSeparators( Templates:=SetDirSeparators('/home/username/buggypackage');
'/home/username/buggypackage'
);
if (ShowModal = mrOK) then if (ShowModal = mrOK) then
SrcPathEdit.Text := Path; SrcPathEdit.Text := Path;
finally finally
@ -123,8 +120,7 @@ begin
IndentContextSensitiveCheckBox.Enabled:=e; IndentContextSensitiveCheckBox.Enabled:=e;
end; end;
procedure TCodetoolsGeneralOptionsFrame.IndentOnLineBreakCheckBoxChange( procedure TCodetoolsGeneralOptionsFrame.IndentOnLineBreakCheckBoxChange(Sender: TObject);
Sender: TObject);
begin begin
VisualizeIndentEnabled; VisualizeIndentEnabled;
end; end;
@ -134,8 +130,7 @@ begin
FDialog.OpenEditor(GroupEditor,EdtOptionsGeneral); FDialog.OpenEditor(GroupEditor,EdtOptionsGeneral);
end; end;
procedure TCodetoolsGeneralOptionsFrame.GeneralAutoIndentMouseEnter( procedure TCodetoolsGeneralOptionsFrame.GeneralAutoIndentMouseEnter(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TLabel).Font.Underline := True; (Sender as TLabel).Font.Underline := True;
(Sender as TLabel).Font.Color := clRed; (Sender as TLabel).Font.Color := clRed;
@ -176,8 +171,7 @@ begin
lisImitateIndentationOfCurrentUnitProjectOrPackage; lisImitateIndentationOfCurrentUnitProjectOrPackage;
end; end;
procedure TCodetoolsGeneralOptionsFrame.ReadSettings( procedure TCodetoolsGeneralOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
AOptions: TAbstractIDEOptions);
begin begin
with AOptions as TCodeToolsOptions do with AOptions as TCodeToolsOptions do
begin begin
@ -194,8 +188,7 @@ begin
VisualizeIndentEnabled; VisualizeIndentEnabled;
end; end;
procedure TCodetoolsGeneralOptionsFrame.WriteSettings( procedure TCodetoolsGeneralOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
AOptions: TAbstractIDEOptions);
begin begin
with AOptions as TCodeToolsOptions do with AOptions as TCodeToolsOptions do
begin begin