paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-29 21:42:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed codetools abort

Browse Source 
git-svn-id: trunk@1295 -
This commit is contained in:
lazarus 2002-02-09 01:48:14 +00:00
parent ab46a2220c
commit e76225cec5
1 changed files with 44 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
lcl/include/control.inc
View File

@ -284,6 +284,11 @@ begin
Result := ClientRect.Right; Result := ClientRect.Right;
end; end;
function TControl.IsHelpContextStored: boolean;
begin
Result:=false;
end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
{ TControl GetTabOrder } { TControl GetTabOrder }
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
@ -369,9 +374,21 @@ Begin
FParent.Perform(CM_MOUSELEAVE,0,longint(Self)); FParent.Perform(CM_MOUSELEAVE,0,longint(Self));
end; end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------
{ TControl.CMVisibleChanged } procedure TControl.CMHintShow(var Message: TLMessage);
{------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.CMHintShow(var Message: TLMessage);
begin
DoOnShowHint(@TCMHintShow(Message).HintInfo);
if (ActionLink <> nil)
and not ActionLink.DoShowHint(TCMHintShow(Message).HintInfo^.HintStr)
then
Message.Result := 1;
end;
{------------------------------------------------------------------------------
TControl.CMVisibleChanged
------------------------------------------------------------------------------}
procedure TControl.CMVisibleChanged(var Message : TLMessage); procedure TControl.CMVisibleChanged(var Message : TLMessage);
begin begin
if (not (csDesigning in ComponentState) if (not (csDesigning in ComponentState)
@ -730,6 +747,15 @@ begin
Result := FPopupMenu; Result := FPopupMenu;
end; end;
{------------------------------------------------------------------------------
procedure TControl.DoOnShowHint(var HintInfo: THintInfo);
------------------------------------------------------------------------------}
procedure TControl.DoOnShowHint(HintInfo: Pointer);
begin
if Assigned(OnShowHint) then
OnShowHint(Self,HintInfo);
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
TControl GetClientRect TControl GetClientRect
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
@ -1541,6 +1567,18 @@ begin
SetBounds(FLeft, FTop, FWidth, Value); SetBounds(FLeft, FTop, FWidth, Value);
end; end;
procedure TControl.SetHelpContext(const AValue: THelpContext);
begin
if FHelpContext=AValue then exit;
FHelpContext:=AValue;
end;
procedure TControl.SetHelpKeyword(const AValue: String);
begin
if FHelpKeyword=AValue then exit;
FHelpKeyword:=AValue;
end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
{ TControl SetParent } { TControl SetParent }
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
@ -2003,6 +2041,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.99 2002/11/06 15:59:24 lazarus
MG: fixed codetools abort
Revision 1.98 2002/11/04 19:49:36 lazarus Revision 1.98 2002/11/04 19:49:36 lazarus
MG: added persistent hints for main ide bar MG: added persistent hints for main ide bar