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

MG: added persistent hints for main ide bar

Browse Source 
git-svn-id: trunk@1311 -
This commit is contained in:
lazarus 2002-02-09 01:48:15 +00:00
parent d29e780698
commit 144226f976
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/controls.pp
View File

@ -516,7 +516,6 @@ type
Procedure UpdateTaborder(value : TTabOrder);
protected
AutoSizing : Boolean;
FControlState: TControlState;
procedure AdjustSize; dynamic;
procedure DoAutoSize; Virtual;
@ -629,6 +628,7 @@ type
constructor Create(AOwner: TComponent);override;
destructor Destroy; override;
function HasParent : Boolean; override;
function IsParentOf(AControl: TControl): boolean; virtual;
procedure Refresh;
procedure Repaint; virtual;
Procedure Invalidate; virtual;
@ -962,6 +962,7 @@ function CNSendMessage(LM_Message : integer; Sender : TObject; data : pointer) :
Function FindDragTarget(const Pos : TPoint; AllowDisabled: Boolean): TControl;
Function FindLCLWindow(const Pos : TPoint) : TWinControl;
Function FindControl(Handle : hwnd) : TWinControl;
function FindLCLControl(const ScreenPos : TPoint) : TControl;
function SendAppMessage(Msg: Cardinal; WParam, LParam: Longint): Longint;
Procedure MoveWindowOrg(dc : hdc; X,Y : Integer);
@ -1035,6 +1036,21 @@ begin
else Result := nil;
end;
function FindLCLControl(const ScreenPos : TPoint) : TControl;
var
AWinControl: TWinControl;
ClientPos: TPoint;
begin
Result:=nil;
// find wincontrol at mouse cursor
AWinControl:=FindLCLWindow(ScreenPos);
if AWinControl=nil then exit;
// find control at mouse cursor
ClientPos:=AWinControl.ScreenToClient(ScreenPos);
Result:=AWinControl.ControlAtPos(ClientPos,true);
if Result=nil then Result:=AWinControl;
end;
function SendAppMessage(Msg: Cardinal; WParam, LParam: Longint): Longint;
begin
Result:=LCLProc.SendApplicationMessage(Msg,WParam,LParam);
@ -1386,6 +1402,9 @@ end.
{ =============================================================================
$Log$
Revision 1.86 2002/11/04 19:49:35 lazarus
MG: added persistent hints for main ide bar
Revision 1.85 2002/11/03 22:40:28 lazarus
MG: fixed ControlAtPos