paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 21:19:07 +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[24] := 'TDBLookupComboBox';
ExtendedComponents[25] := 'TDBCheckBox'; ExtendedComponents[25] := 'TDBCheckBox';
ComponentsTreeView.BeginUpdate; ComponentsTreeView.BeginUpdate;
Node:=ComponentsTreeView.Items.GetFirstNode; Node:=ComponentsTreeView.Items.GetFirstNode;
while Node<>nil do begin while Node<>nil do begin
@ -391,8 +388,7 @@ end;
{ TEduComponentPaletteOptions } { TEduComponentPaletteOptions }
function TEduComponentPaletteOptions.GetComponentVisible(ComponentName: string function TEduComponentPaletteOptions.GetComponentVisible(ComponentName: string): boolean;
): boolean;
begin begin
Result:=fVisible[ComponentName]='1'; Result:=fVisible[ComponentName]='1';
end; end;
@ -428,8 +424,7 @@ begin
inherited Destroy; inherited Destroy;
end; end;
function TEduComponentPaletteOptions.Load(Config: TConfigStorage function TEduComponentPaletteOptions.Load(Config: TConfigStorage): TModalResult;
): TModalResult;
var var
Cnt: LongInt; Cnt: LongInt;
i: Integer; i: Integer;
@ -445,8 +440,7 @@ begin
Result:=inherited Load(Config); Result:=inherited Load(Config);
end; end;
function TEduComponentPaletteOptions.Save(Config: TConfigStorage function TEduComponentPaletteOptions.Save(Config: TConfigStorage): TModalResult;
): TModalResult;
var var
Node: TAvgLvlTreeNode; Node: TAvgLvlTreeNode;
Item: PStringToStringItem; Item: PStringToStringItem;
@ -468,7 +462,7 @@ procedure TEduComponentPaletteOptions.Apply(Enable: boolean);
begin begin
inherited Apply(Enable); inherited Apply(Enable);
if IDEComponentPalette<>nil then if IDEComponentPalette<>nil then
IDEComponentPalette.UpdateVisible; IDEComponentPalette.Update(False);
end; end;
{$R *.lfm} {$R *.lfm}