paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 11:22:56 +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; end;
function TInterfaceBase.GetWindowRect(Handle : hwnd; var Rect : TRect): Integer; 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 begin
Result := 0; Result := 0;
end; end;
function TInterfaceBase.GetWindowRelativePosition(Handle : hwnd; function TInterfaceBase.GetWindowRelativePosition(Handle : hwnd;
var Left, Top: integer): boolean; var Left, Top: integer): boolean;
// return the position of the left, top coordinate relative to the clientorigin { 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 of its parent. This is normally the Left, Top of a TWinControl. But not
// during moving/sizing. during moving/sizing. }
var var
ChildRect: TRect; ChildRect: TRect;
ParentLeftTop: TPoint; ParentLeftTop: TPoint;
@ -1091,6 +1095,7 @@ end;
Function TInterfaceBase.GetWindowSize(Handle : hwnd; Function TInterfaceBase.GetWindowSize(Handle : hwnd;
var Width, Height: integer): boolean; var Width, Height: integer): boolean;
// Returns the current Width and Height
begin begin
Result:=false; Result:=false;
end; end;
@ -1805,6 +1810,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.98 2003/07/20 06:39:03 mattias
added comments
Revision 1.97 2003/07/20 06:27:19 mattias Revision 1.97 2003/07/20 06:27:19 mattias
fixed GetWindowRelativePosition fixed GetWindowRelativePosition

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

@ -246,7 +246,9 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: ClientToScreen Function: ClientToScreen
Params: Handle : HWND; var P : TPoint 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; Function TgtkObject.ClientToScreen(Handle : HWND; var P : TPoint) : Boolean;
var var
@ -5020,7 +5022,7 @@ end;
Params: none Params: none
Returns: Nothing 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. specified device context.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TgtkObject.GetWindowOrgEx(dc : hdc; P : PPoint): Integer; function TgtkObject.GetWindowOrgEx(dc : hdc; P : PPoint): Integer;
@ -8606,6 +8608,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.263 2003/07/20 06:39:03 mattias
added comments
Revision 1.262 2003/07/08 20:09:40 mattias Revision 1.262 2003/07/08 20:09:40 mattias
updated build fpc rpm script updated build fpc rpm script