paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 08:09:26 +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
i: Integer;
Page: TBaseComponentPage;
j: Integer;
Comp: TRegisteredComponent;
PageNode: TTreeNode;
CompNode: TTreeNode;
CompName: String;
Comp: TRegisteredComponent;
begin
ComponentsTreeView.BeginUpdate;
ComponentsTreeView.Items.Clear;
@ -205,21 +204,21 @@ begin
ComponentsTreeView.Images.Clear;
ShowImgID:=IDEImages.LoadImage(16,'menu_run');
HideImgID:=IDEImages.LoadImage(16,'menu_stop');
for i:=0 to IDEComponentPalette.Count-1 do begin
Page:=IDEComponentPalette[i];
if Page.PageName='' then continue;
PageNode:=ComponentsTreeView.Items.Add(nil,Page.PageName);
for j:=0 to Page.Count-1 do begin
Comp:=Page[j];
CompName:=Comp.ComponentClass.ClassName;
CompNode:=ComponentsTreeView.Items.AddChild(PageNode,CompName);
CompNode.ImageIndex:=GetCompImgIndex(CompName);
CompNode.SelectedIndex:=CompNode.ImageIndex;
if EduComponentPaletteOptions.ComponentVisible[CompName] then
CompNode.StateIndex:=ShowImgID
else
CompNode.StateIndex:=HideImgID;
end;
for i:=0 to IDEComponentPalette.Comps.Count-1 do begin
Comp:=IDEComponentPalette.Comps[i];
Page:=Comp.RealPage;
if (Page=nil) or (Page.PageName='') then continue;
PageNode:=ComponentsTreeView.Items.FindTopLvlNode(Page.PageName);
if PageNode=nil then
PageNode:=ComponentsTreeView.Items.Add(nil,Page.PageName);
CompName:=Comp.ComponentClass.ClassName;
CompNode:=ComponentsTreeView.Items.AddChild(PageNode,CompName);
CompNode.ImageIndex:=GetCompImgIndex(CompName);
CompNode.SelectedIndex:=CompNode.ImageIndex;
if EduComponentPaletteOptions.ComponentVisible[CompName] then
CompNode.StateIndex:=ShowImgID
else
CompNode.StateIndex:=HideImgID;
PageNode.Expanded:=true;
end;
ComponentsTreeView.EndUpdate;