added comments

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

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

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