paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 01:55:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: cleanup

Browse Source 
git-svn-id: trunk@45266 -
This commit is contained in:
juha 2014-05-31 22:27:06 +00:00
parent debd43a9dc
commit 624af549f8
1 changed files with 0 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/sourcefilemanager.pas
View File

@ -66,7 +66,6 @@ type
SearchFlags: TProjectFileSearchFlags): boolean;
procedure RemovePathFromBuildModes(ObsoletePaths: String; pcos: TParsedCompilerOptString);
function ShowCheckListBuildModes(DlgMsg: String): Boolean;
function ShowListedBuildModes(DlgMsg: String; AList: TStringList): Boolean;
public
constructor Create;
destructor Destroy; override;
@ -2680,31 +2679,6 @@ begin
Result:=FListForm.ShowModal=mrOK;
end;
function TLazSourceFileManager.ShowListedBuildModes(DlgMsg: String; AList: TStringList): Boolean;
var
i: Integer;
begin
if Assigned(FListForm) then
FListForm.CheckListBox1.Clear
else begin
FListForm:=TGenericCheckListForm.Create(Nil);
FListForm.Caption:=lisAvailableProjectBuildModes;
FListForm.InfoLabel.Caption:=DlgMsg;
end;
// Fill the CheckListBox with items from AList
for i:=0 to AList.Count-1 do begin
FListForm.CheckListBox1.Items.Add(AList[i]);
FListForm.CheckListBox1.Checked[i]:=True;
end;
Result:=FListForm.ShowModal=mrOK;
AList.Clear;
// Copy only checked items back to AList
if Result then
for i := 0 to FListForm.CheckListBox1.Count-1 do
if FListForm.CheckListBox1.Checked[i] then
AList.Add(FListForm.CheckListBox1.Items[i]);
end;
function TLazSourceFileManager.AddPathToBuildModes(aPath, CurDirectory: string;
IsIncludeFile: Boolean): Boolean;
var