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

educationlaz: fixed compilation, issue #27096

Browse Source 
git-svn-id: trunk@46998 -
This commit is contained in:
mattias 2014-11-27 11:18:09 +00:00
parent 21c8dad40d
commit 3dbe932999
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
components/education/educomppalette.pas
View File

@ -188,11 +188,10 @@ procedure TEduCompPaletteFrame.FillComponentTreeView;
var var
i: Integer; i: Integer;
Page: TBaseComponentPage; Page: TBaseComponentPage;
j: Integer;
Comp: TRegisteredComponent;
PageNode: TTreeNode; PageNode: TTreeNode;
CompNode: TTreeNode; CompNode: TTreeNode;
CompName: String; CompName: String;
Comp: TRegisteredComponent;
begin begin
ComponentsTreeView.BeginUpdate; ComponentsTreeView.BeginUpdate;
ComponentsTreeView.Items.Clear; ComponentsTreeView.Items.Clear;
@ -205,21 +204,21 @@ begin
ComponentsTreeView.Images.Clear; ComponentsTreeView.Images.Clear;
ShowImgID:=IDEImages.LoadImage(16,'menu_run'); ShowImgID:=IDEImages.LoadImage(16,'menu_run');
HideImgID:=IDEImages.LoadImage(16,'menu_stop'); HideImgID:=IDEImages.LoadImage(16,'menu_stop');
for i:=0 to IDEComponentPalette.Count-1 do begin for i:=0 to IDEComponentPalette.Comps.Count-1 do begin
Page:=IDEComponentPalette[i]; Comp:=IDEComponentPalette.Comps[i];
if Page.PageName='' then continue; Page:=Comp.RealPage;
PageNode:=ComponentsTreeView.Items.Add(nil,Page.PageName); if (Page=nil) or (Page.PageName='') then continue;
for j:=0 to Page.Count-1 do begin PageNode:=ComponentsTreeView.Items.FindTopLvlNode(Page.PageName);
Comp:=Page[j]; if PageNode=nil then
CompName:=Comp.ComponentClass.ClassName; PageNode:=ComponentsTreeView.Items.Add(nil,Page.PageName);
CompNode:=ComponentsTreeView.Items.AddChild(PageNode,CompName); CompName:=Comp.ComponentClass.ClassName;
CompNode.ImageIndex:=GetCompImgIndex(CompName); CompNode:=ComponentsTreeView.Items.AddChild(PageNode,CompName);
CompNode.SelectedIndex:=CompNode.ImageIndex; CompNode.ImageIndex:=GetCompImgIndex(CompName);
if EduComponentPaletteOptions.ComponentVisible[CompName] then CompNode.SelectedIndex:=CompNode.ImageIndex;
CompNode.StateIndex:=ShowImgID if EduComponentPaletteOptions.ComponentVisible[CompName] then
else CompNode.StateIndex:=ShowImgID
CompNode.StateIndex:=HideImgID; else
end; CompNode.StateIndex:=HideImgID;
PageNode.Expanded:=true; PageNode.Expanded:=true;
end; end;
ComponentsTreeView.EndUpdate; ComponentsTreeView.EndUpdate;