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

Merged revision(s) 47353 #a75f914bf9 from trunk:

Browse Source 
Comp. Education: fix compilation after component palette changes.
........

git-svn-id: branches/fixes_1_4@47364 -
This commit is contained in:
maxim 2015-01-12 21:54:57 +00:00
parent 911b6a274d
commit 9aae5dc449
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}