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

TodoList: Unify code formatting.

Browse Source 
git-svn-id: trunk@26078 -
This commit is contained in:
juha 2010-06-13 11:25:29 +00:00
parent c27563fcab
commit a08643d58c
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/todolist.pas
View File

@ -574,14 +574,11 @@ begin
end;
procedure TIDETodoWindow.acExportExecute(Sender: TObject);
var CommaList : TStringList;
s,t : string;
todoItm : TTodoItem;
i : integer;
var
CommaList: TStringList;
s,t : string;
todoItm : TTodoItem;
i : integer;
begin
SaveDialog1.FileName:='TodoList_'+FormatDateTime('YYYY_MM_DD',now);
if SaveDialog1.Execute then
@ -696,10 +693,8 @@ begin
end;
if CurPackage<>nil then begin
// scan all units of package
DebugLn(['TfrmTodo.acRefreshExecute lpk=',CurPackage.Filename]);
for i:=0 to CurPackage.FileCount-1 do begin
CurPkgFile:=CurPackage.Files[i];
DebugLn(['TfrmTodo.acRefreshExecute PkgFile ',i,' ',CurPkgFile.Filename]);
if FilenameIsPascalUnit(CurPkgFile.Filename) then
ScanFile(CurPkgFile.Filename);
end;