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

Comp. Education: fix compilation after component palette changes.

Browse Source 
git-svn-id: trunk@47353 -
This commit is contained in:
juha 2015-01-12 15:30:35 +00:00
parent 7b2b561fcb
commit a75f914bf9
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/education/educomppalette.pas
View File

@ -319,9 +319,6 @@ begin
ExtendedComponents[24] := 'TDBLookupComboBox';
ExtendedComponents[25] := 'TDBCheckBox';
ComponentsTreeView.BeginUpdate;
Node:=ComponentsTreeView.Items.GetFirstNode;
while Node<>nil do begin
@ -391,8 +388,7 @@ end;
{ TEduComponentPaletteOptions }
function TEduComponentPaletteOptions.GetComponentVisible(ComponentName: string
): boolean;
function TEduComponentPaletteOptions.GetComponentVisible(ComponentName: string): boolean;
begin
Result:=fVisible[ComponentName]='1';
end;
@ -428,8 +424,7 @@ begin
inherited Destroy;
end;
function TEduComponentPaletteOptions.Load(Config: TConfigStorage
): TModalResult;
function TEduComponentPaletteOptions.Load(Config: TConfigStorage): TModalResult;
var
Cnt: LongInt;
i: Integer;
@ -445,8 +440,7 @@ begin
Result:=inherited Load(Config);
end;
function TEduComponentPaletteOptions.Save(Config: TConfigStorage
): TModalResult;
function TEduComponentPaletteOptions.Save(Config: TConfigStorage): TModalResult;
var
Node: TAvgLvlTreeNode;
Item: PStringToStringItem;
@ -468,7 +462,7 @@ procedure TEduComponentPaletteOptions.Apply(Enable: boolean);
begin
inherited Apply(Enable);
if IDEComponentPalette<>nil then
IDEComponentPalette.UpdateVisible;
IDEComponentPalette.Update(False);
end;
{$R *.lfm}