paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 01:03:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: package main source: indent uses section

Browse Source 
git-svn-id: trunk@18406 -
This commit is contained in:
mattias 2009-01-24 11:29:44 +00:00
parent fd633ee9be
commit 568c19f303
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/sqldb/sqldblaz.pas
View File

@ -7,7 +7,7 @@ unit SQLDBLaz;
interface
uses
registersqldb, sqldb, SQLStringsPropertyEditorDlg, LazarusPackageIntf;
registersqldb, sqldb, SQLStringsPropertyEditorDlg, LazarusPackageIntf;
implementation

2
packager/packagesystem.pas
View File

@ -3327,7 +3327,7 @@ begin
Src:=BeautifyCodeOptions.BeautifyStatement(Src,0);
if UsedUnits<>'' then
Src:=Src
+BreakString('uses'+e+UsedUnits+';',
+BreakString('uses'+e+GetIndentStr(BeautifyCodeOptions.Indent)+UsedUnits+';',
BeautifyCodeOptions.LineLength,BeautifyCodeOptions.Indent)+e
+e;
Src:=Src+BeautifyCodeOptions.BeautifyStatement(