paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 05:18:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TControl.ClientToScreen(TRect) overload - Delphi compatibility

Browse Source
This commit is contained in:
Ondrej Pokorny 2021-12-17 10:16:49 +01:00
parent d93d5c3e08
commit f05922b05d
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/controls.pp
View File

@ -1663,7 +1663,8 @@ type
procedure SetTextBuf(Buffer: PChar); virtual;
function Perform(Msg: Cardinal; WParam: WParam; LParam: LParam): LRESULT;
function ScreenToClient(const APoint: TPoint): TPoint; virtual;
function ClientToScreen(const APoint: TPoint): TPoint; virtual;
function ClientToScreen(const APoint: TPoint): TPoint; overload; virtual;
function ClientToScreen(const ARect: TRect): TRect; overload;
function ScreenToControl(const APoint: TPoint): TPoint;
function ControlToScreen(const APoint: TPoint): TPoint;
function ClientToParent(const Point: TPoint; AParent: TWinControl = nil): TPoint;

9
lcl/include/control.inc
View File

@ -1654,6 +1654,15 @@ begin
Result.Y := APoint.Y + P.Y;
end;
function TControl.ClientToScreen(const ARect: TRect): TRect;
var
P : TPoint;
begin
P := ClientToScreen(Point(0, 0));
Result := ARect;
Result.Offset(P);
end;
{------------------------------------------------------------------------------
function TControl.ScreenToControl(const APoint: TPoint): TPoint;
------------------------------------------------------------------------------}