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

added comments

Browse Source 
git-svn-id: trunk@4413 -
This commit is contained in:
mattias 2003-07-20 06:39:03 +00:00
parent 413480e395
commit 0ba12a0f29
2 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/interfacebase.inc
View File

@ -1060,15 +1060,19 @@ Begin
end;
function TInterfaceBase.GetWindowRect(Handle : hwnd; var Rect : TRect): Integer;
{ After the call, ARect will be the control area in screen coordinates.
That means, Left and Top will be the screen coordinate of the TopLeft pixel
of the Handle object and Right and Bottom will be the screen coordinate of
the BottomRight pixel. }
begin
Result := 0;
end;
function TInterfaceBase.GetWindowRelativePosition(Handle : hwnd;
var Left, Top: integer): boolean;
// return the position of the left, top coordinate relative to the clientorigin
// of its parent. This is normally the Left, Top of a TWinControl. But not
// during moving/sizing.
{ returns the position of the left, top coordinate relative to the clientorigin
of its parent. This is normally the Left, Top of a TWinControl. But not
during moving/sizing. }
var
ChildRect: TRect;
ParentLeftTop: TPoint;
@ -1091,6 +1095,7 @@ end;
Function TInterfaceBase.GetWindowSize(Handle : hwnd;
var Width, Height: integer): boolean;
// Returns the current Width and Height
begin
Result:=false;
end;
@ -1805,6 +1810,9 @@ end;
{ =============================================================================
$Log$
Revision 1.98 2003/07/20 06:39:03 mattias
added comments
Revision 1.97 2003/07/20 06:27:19 mattias
fixed GetWindowRelativePosition

9
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -246,7 +246,9 @@ end;
{------------------------------------------------------------------------------
Function: ClientToScreen
Params: Handle : HWND; var P : TPoint
Returns: Nothing
Returns: true on success
Converts the client-area coordinates of P to screen coordinates.
------------------------------------------------------------------------------}
Function TgtkObject.ClientToScreen(Handle : HWND; var P : TPoint) : Boolean;
var
@ -5020,7 +5022,7 @@ end;
Params: none
Returns: Nothing
Returns the x-coordinates and y-coordinates of the window origin for the
Returns the x- and y-coordinates of the window origin for the
specified device context.
------------------------------------------------------------------------------}
function TgtkObject.GetWindowOrgEx(dc : hdc; P : PPoint): Integer;
@ -8606,6 +8608,9 @@ end;
{ =============================================================================
$Log$
Revision 1.263 2003/07/20 06:39:03 mattias
added comments
Revision 1.262 2003/07/08 20:09:40 mattias
updated build fpc rpm script