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

IDE: clean up

Browse Source 
git-svn-id: trunk@32810 -
This commit is contained in:
mattias 2011-10-10 21:19:41 +00:00
parent 736c57ad21
commit 6cb5b7f6ec
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -12163,7 +12163,7 @@ end;
function TMainIDE.DoManageExamples: TModalResult; function TMainIDE.DoManageExamples: TModalResult;
begin begin
ShowManageExamplesDlg; Result:=ShowManageExamplesDlg;
end; end;
function TMainIDE.DoBuildLazarusSub(Flags: TBuildLazarusFlags): TModalResult; function TMainIDE.DoBuildLazarusSub(Flags: TBuildLazarusFlags): TModalResult;

4
ide/manageexamples.pas
View File

@ -42,7 +42,7 @@ type
procedure SetIdleConnected(const AValue: boolean); procedure SetIdleConnected(const AValue: boolean);
procedure OnIdle(Sender: TObject; var Done: Boolean); procedure OnIdle(Sender: TObject; var Done: Boolean);
public public
constructor Create(AnOwner: TComponent); constructor Create(AnOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
property IdleConnected: boolean read fIdleConnected write SetIdleConnected; property IdleConnected: boolean read fIdleConnected write SetIdleConnected;
end; end;
@ -93,8 +93,6 @@ type
{ TListFileSearcher } { TListFileSearcher }
procedure TListFileSearcher.DoFileFound; procedure TListFileSearcher.DoFileFound;
var
ShortName, FilePath: String;
begin begin
fForm.ProjectsListBox.Items.Add(FileName) fForm.ProjectsListBox.Items.Add(FileName)
end; end;