mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-24 09:11:44 +02:00
Components, ToDo list: cleanup
git-svn-id: trunk@26160 -
This commit is contained in:
parent
2a3b817e5c
commit
7db6376b93
@ -157,7 +157,6 @@ type
|
|||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure lvTodoClick(Sender: TObject);
|
procedure lvTodoClick(Sender: TObject);
|
||||||
procedure SaveDialog1Show(Sender: TObject);
|
procedure SaveDialog1Show(Sender: TObject);
|
||||||
procedure ToolButton1Click(Sender: TObject);
|
|
||||||
private
|
private
|
||||||
FBaseDirectory: string;
|
FBaseDirectory: string;
|
||||||
fBuild : Boolean;
|
fBuild : Boolean;
|
||||||
@ -319,11 +318,6 @@ begin
|
|||||||
SaveDialog1.InitialDir:=GetCurrentDirUTF8;
|
SaveDialog1.InitialDir:=GetCurrentDirUTF8;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TIDETodoWindow.ToolButton1Click(Sender: TObject);
|
|
||||||
begin
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
//Initialise the todo project and find them
|
//Initialise the todo project and find them
|
||||||
procedure TIDETodoWindow.SetOwnerFilename(const AValue: String);
|
procedure TIDETodoWindow.SetOwnerFilename(const AValue: String);
|
||||||
begin
|
begin
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user