When trying to install KOL-CE version 2.80.3 with Lazarus 0.9.29 using the file folder MirrorKOLPackage.lpk MCK, I get the error below:
C: \ lazarus \ components \ Kol-CE \ mck \ mckToolbarEditor.inc (777.59) Error: Identifier not found "GetLookupRootForComponent"
procedure TfmToolbarEditor.MakeActive( SelectAny: Boolean );
var
{$ifndef FPC}
F: TForm;
D: IDesigner;
FD: IFormDesigner;
{$endif FPC}
Bt: TKOLToolbarButton;
begin
if lvButtons.Items.Count > 0 then
if lvButtons.Selected = nil then
if SelectAny then
lvButtons.Selected := lvButtons.Items[ 0 ];
if lvButtons.Selected <> nil then
begin
Bt := lvButtons.Selected.Data;
{$ifdef FPC}
GlobalDesignHook.SelectOnlyThis(Bt);
[b] GlobalDesignHook.LookupRoot:=GetLookupRootForComponent(ToolbarControl);
[/b]{$else Delphi}
F := (ToolbarControl as TKOLToolbar).Owner as TForm;
if F <> nil then
begin
//*///////////////////////////////////////////////////////
{$IFDEF _D6orHigher} //
F.Designer.QueryInterface(IFormDesigner,D); //
{$ELSE} //
//*///////////////////////////////////////////////////////
D := F.Designer;
//*///////////////////////////////////////////////////////
{$ENDIF} //
//*///////////////////////////////////////////////////////
if D <> nil then
if QueryFormDesigner( D, FD ) then
begin
RemoveSelection( FD );
FD.SelectComponent( Bt );
end;
end;
{$endif FPC}
end;
AdjustButtons;
end;
Regards,
Fabio Souza