From 96b3cbf9c8509008377f44dfb7c8a104cddababe Mon Sep 17 00:00:00 2001 From: juha Date: Sat, 29 Sep 2012 17:36:43 +0000 Subject: [PATCH] IDE: formatting git-svn-id: trunk@38905 - --- ide/frames/codetools_general_options.pas | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) diff --git a/ide/frames/codetools_general_options.pas b/ide/frames/codetools_general_options.pas index ab68131ecd..a279be12c6 100644 --- a/ide/frames/codetools_general_options.pas +++ b/ide/frames/codetools_general_options.pas @@ -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