paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 05:58:14 +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;
procedure TCodetoolsGeneralOptionsFrame.IndentOnPasteCheckBoxChange(
Sender: TObject);
procedure TCodetoolsGeneralOptionsFrame.IndentOnPasteCheckBoxChange(Sender: TObject);
begin
VisualizeIndentEnabled;
end;
@ -102,9 +101,7 @@ begin
with TPathEditorDialog.Create(Self) do
try
Path := SrcPathEdit.Text;
Templates:=SetDirSeparators(
'/home/username/buggypackage'
);
Templates:=SetDirSeparators('/home/username/buggypackage');
if (ShowModal = mrOK) then
SrcPathEdit.Text := Path;
finally
@ -123,8 +120,7 @@ begin
IndentContextSensitiveCheckBox.Enabled:=e;
end;
procedure TCodetoolsGeneralOptionsFrame.IndentOnLineBreakCheckBoxChange(
Sender: TObject);
procedure TCodetoolsGeneralOptionsFrame.IndentOnLineBreakCheckBoxChange(Sender: TObject);
begin
VisualizeIndentEnabled;
end;
@ -134,8 +130,7 @@ begin
FDialog.OpenEditor(GroupEditor,EdtOptionsGeneral);
end;
procedure TCodetoolsGeneralOptionsFrame.GeneralAutoIndentMouseEnter(
Sender: TObject);
procedure TCodetoolsGeneralOptionsFrame.GeneralAutoIndentMouseEnter(Sender: TObject);
begin
(Sender as TLabel).Font.Underline := True;
(Sender as TLabel).Font.Color := clRed;
@ -176,8 +171,7 @@ begin
lisImitateIndentationOfCurrentUnitProjectOrPackage;
end;
procedure TCodetoolsGeneralOptionsFrame.ReadSettings(
AOptions: TAbstractIDEOptions);
procedure TCodetoolsGeneralOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
begin
with AOptions as TCodeToolsOptions do
begin
@ -194,8 +188,7 @@ begin
VisualizeIndentEnabled;
end;
procedure TCodetoolsGeneralOptionsFrame.WriteSettings(
AOptions: TAbstractIDEOptions);
procedure TCodetoolsGeneralOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
begin
with AOptions as TCodeToolsOptions do
begin