mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-29 03:42:49 +02:00
added comments
git-svn-id: trunk@4413 -
This commit is contained in:
parent
413480e395
commit
0ba12a0f29
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user