paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 13:09:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide:

Browse Source 
- remove dummy warning when you cancel export in todolist dialog
  - add at least some related icon to "export" button in todolist dialog

git-svn-id: trunk@16837 -
This commit is contained in:
paul 2008-10-02 02:19:00 +00:00
parent 3807a31112
commit 2080c834cf
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/todolist.pas
View File

@ -196,6 +196,7 @@ begin
ToolBar.Images := IDEImages.Images_16;
acGoto.ImageIndex := IDEImages.LoadImage(16, 'menu_goto_line');
acRefresh.ImageIndex := IDEImages.LoadImage(16, 'refresh');
acExport.ImageIndex := IDEImages.LoadImage(16, 'menu_saveas');
end;
destructor TfrmTodo.Destroy;
@ -377,20 +378,20 @@ end;
procedure TfrmTodo.FormCreate(Sender: TObject);
begin
fBuild:=False;
fScannedFiles:=TAvgLvlTree.Create(@CompareTLScannedFiles);
fBuild := False;
fScannedFiles := TAvgLvlTree.Create(@CompareTLScannedFiles);
Caption := lisTodoListCaption;
acRefresh.Hint := lisTodolistRefresh;
acGoto.Hint := listodoListGotoLine;
tbPrint.Hint :=listodoListPrintList;
tbOptions.Hint := lisToDoListOptions;
acRefresh.Hint := lisTodolistRefresh;
acGoto.Hint := listodoListGotoLine;
tbPrint.Hint := listodoListPrintList;
tbOptions.Hint := lisToDoListOptions;
tbOptions.Caption:=dlgFROpts;
tbPrint.Caption:=lisPrint;
tbRefresh.Caption:=dlgUnitDepRefresh;
tbGoto.Caption:=lisToDoGoto;
tbOptions.Caption := dlgFROpts;
tbPrint.Caption := lisPrint;
tbRefresh.Caption := dlgUnitDepRefresh;
tbGoto.Caption := lisToDoGoto;
with lvTodo do
begin
@ -512,9 +513,7 @@ begin
CommaList.Clear;
CommaList.Free;
end;
end
else
MessageDlg('Warning','Filename is: '+SaveDialog1.FileName,mtWarning,[mbClose],0);
end;
end;
procedure TfrmTodo.acRefreshExecute(Sender: TObject);