paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 22:10:55 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix issue #1489: can't install the turbo power package

Browse Source 
git-svn-id: trunk@8244 -
This commit is contained in:
jesus 2005-12-01 19:29:30 +00:00
parent 9391fe1f6c
commit 7e46baf127
1 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/turbopower_ipro/iphtml.pas
View File

@ -2386,8 +2386,13 @@ type
FAnchor : TIpHtmlNodeA; FAnchor : TIpHtmlNodeA;
{HaveFocus : Boolean;} {!!.12} {HaveFocus : Boolean;} {!!.12}
procedure CreateParams(var Params: TCreateParams); override; procedure CreateParams(var Params: TCreateParams); override;
{$IFDEF IP_LAZARUS}
procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS;
procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
{$ELSE}
procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS; procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
procedure WMKillFocus(var Message: TLMSetFocus); message WM_KILLFOCUS; procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
{$ENDIF}
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
property Anchor : TIpHtmlNodeA read FAnchor write FAnchor; property Anchor : TIpHtmlNodeA read FAnchor write FAnchor;
@ -16010,26 +16015,33 @@ begin
end; end;
end; end;
procedure TIpHtmlFocusRect.WMSetFocus(var Message: TWMSetFocus);
begin
{$IFDEF IP_LAZARUS} {$IFDEF IP_LAZARUS}
procedure TIpHtmlFocusRect.WMSetFocus(var Message: TLMSetFocus);
begin
inherited WMSetFocus(Message); inherited WMSetFocus(Message);
{$ELSE}
inherited;
{$ENDIF}
Anchor.DoOnFocus; Anchor.DoOnFocus;
end; end;
procedure TIpHtmlFocusRect.WMKillFocus(var Message: TLMSetFocus); procedure TIpHtmlFocusRect.WMKillFocus(var Message: TLMKillFocus);
begin begin
{$IFDEF IP_LAZARUS}
inherited WMKillFocus(Message); inherited WMKillFocus(Message);
{$ELSE}
inherited;
{$ENDIF}
Anchor.DoOnBlur; Anchor.DoOnBlur;
{HaveFocus := False;} {!!.12} {HaveFocus := False;} {!!.12}
end; end;
{$ELSE}
procedure TIpHtmlFocusRect.WMSetFocus(var Message: TWMSetFocus);
begin
inherited;
Anchor.DoOnFocus;
end;
procedure TIpHtmlFocusRect.WMKillFocus(var Message: TWMKillFocus);
begin
inherited;
Anchor.DoOnBlur;
{HaveFocus := False;} {!!.12}
end;
{$ENDIF}
{ TIpHtmlFrame } { TIpHtmlFrame }