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

IDE: new project dialog: store project desc in listbox

Browse Source 
git-svn-id: trunk@31741 -
This commit is contained in:
mattias 2011-07-18 20:17:25 +00:00
parent b518b70fa5
commit 15084b31ef
1 changed files with 6 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/newprojectdlg.pp
View File

@ -50,11 +50,12 @@ type
procedure ListBoxDblClick(Sender: TObject); procedure ListBoxDblClick(Sender: TObject);
procedure ListBoxSelectionChange(Sender: TObject; User: boolean); procedure ListBoxSelectionChange(Sender: TObject; User: boolean);
private private
FProjectDescriptor: TProjectDescriptor;
procedure FillHelpLabel; procedure FillHelpLabel;
procedure SetupComponents; procedure SetupComponents;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetProjectDescriptor: TProjectDescriptor; property ProjectDescriptor: TProjectDescriptor read FProjectDescriptor;
end; end;
function ChooseNewProject(var ProjectDesc: TProjectDescriptor): TModalResult; function ChooseNewProject(var ProjectDesc: TProjectDescriptor): TModalResult;
@ -72,7 +73,7 @@ begin
try try
Result:=NewProjectDialog.ShowModal; Result:=NewProjectDialog.ShowModal;
if Result=mrOk then if Result=mrOk then
ProjectDesc:=NewProjectDialog.GetProjectDescriptor; ProjectDesc:=NewProjectDialog.ProjectDescriptor;
finally finally
NewProjectDialog.Free; NewProjectDialog.Free;
end; end;
@ -88,23 +89,10 @@ begin
FillHelpLabel; FillHelpLabel;
end; end;
function TNewProjectDialog.GetProjectDescriptor: TProjectDescriptor;
var
i: LongInt;
s: string;
begin
Result:=ProjectDescriptorApplication;
i:=ListBox.ItemIndex;
if (i<0) then exit;
s:=ListBox.Items[i];
for i:=0 to ProjectDescriptors.Count-1 do
if ProjectDescriptors[i].GetLocalizedName=s then
exit(ProjectDescriptors[i]);
end;
procedure TNewProjectDialog.FillHelpLabel; procedure TNewProjectDialog.FillHelpLabel;
begin begin
HelpLabel.Caption:=GetProjectDescriptor.GetLocalizedDescription; FProjectDescriptor := TProjectDescriptor(ListBox.Items.Objects[ListBox.ItemIndex]);
HelpLabel.Caption:=FProjectDescriptor.GetLocalizedDescription;
HelpLabel.Width:=Self.ClientWidth-HelpLabel.Left-10; HelpLabel.Width:=Self.ClientWidth-HelpLabel.Left-10;
end; end;
@ -117,7 +105,7 @@ begin
BeginUpdate; BeginUpdate;
for i:=0 to ProjectDescriptors.Count-1 do begin for i:=0 to ProjectDescriptors.Count-1 do begin
if ProjectDescriptors[i].VisibleInNewDialog then if ProjectDescriptors[i].VisibleInNewDialog then
Add(ProjectDescriptors[i].GetLocalizedName); AddObject(ProjectDescriptors[i].GetLocalizedName, ProjectDescriptors[i]);
end; end;
EndUpdate; EndUpdate;
end; end;