From a08643d58c24f0f8e01cb78cc86219e010baea4f Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 13 Jun 2010 11:25:29 +0000
Subject: [PATCH] TodoList: Unify code formatting.

git-svn-id: trunk@26078 -
---
 ide/todolist.pas | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/ide/todolist.pas b/ide/todolist.pas
index 6e7ba7b2cc..c747352bde 100644
--- a/ide/todolist.pas
+++ b/ide/todolist.pas
@@ -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;