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

Added InvalidateRect to gtkwinapi.inc

Browse Source 
Shane

git-svn-id: trunk@129 -
This commit is contained in:
lazarus 2001-01-23 18:42:10 +00:00
parent 23d3f2c4ee
commit 0c11c51967
5 changed files with 56 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/interfacebase.inc
View File

@ -224,6 +224,12 @@ begin
Result := False;
end;
Function TInterfaceBase.InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean;
begin
// Your default here
// Result :=
end;
function TInterfaceBase.LineTo(DC: HDC; X, Y: Integer): Boolean;
begin
Result := False;
@ -402,6 +408,10 @@ end;
{ =============================================================================
$Log$
Revision 1.8 2001/01/23 18:42:10 lazarus
Added InvalidateRect to gtkwinapi.inc
Shane
Revision 1.7 2000/12/06 14:54:38 lazarus
Set some defaults in interfacebase.inc
Shane

9
lcl/include/winapi.inc
View File

@ -231,6 +231,11 @@ begin
Result := InterfaceObject.HideCaret(hWnd);
end;
Function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean;
begin
Result := InterfaceObject.InvalidateRect(aHandle, Rect, bErase);
end;
function LineTo(DC: HDC; X, Y: Integer): Boolean;
begin
Result := InterfaceObject.LineTo(DC, X, Y);
@ -939,6 +944,10 @@ end;
{ =============================================================================
$Log$
Revision 1.7 2001/01/23 18:42:10 lazarus
Added InvalidateRect to gtkwinapi.inc
Shane
Revision 1.6 2000/09/10 23:08:30 lazarus
MWE:
+ Added CreateCompatibeleBitamp function

5
lcl/include/winapih.inc
View File

@ -77,6 +77,7 @@ function HideCaret(hWnd: HWND): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
//function InflateRect --> independent
//function IntersectRect --> independent
Function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
//function IsCharAlphaNumeric --> independent
//function IsRectEmpty --> independent
@ -216,6 +217,10 @@ function UnionRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): Boolean
{ =============================================================================
$Log$
Revision 1.7 2001/01/23 18:42:10 lazarus
Added InvalidateRect to gtkwinapi.inc
Shane
Revision 1.6 2000/09/10 23:08:30 lazarus
MWE:
+ Added CreateCompatibeleBitamp function

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

@ -1995,6 +1995,28 @@ begin
end;
{------------------------------------------------------------------------------
Function: InvalidateRect
Params: aHandle:
Rect:
bErase:
Returns:
------------------------------------------------------------------------------}
Function TGTKObject.InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean;
var
gdkRect : TGDKRectangle;
begin
Writeln('[InvalidateRect]');
Writeln(format('Rect = %d,%d,%d,%d',[rect^.left,rect^.top,rect^.Right,rect^.Bottom]));
gdkRect.X := Rect^.Left;
gdkRect.Y := Rect^.Top;
gdkREct.Width := (Rect^.Right - Rect^.Left);
gdkREct.Height := (Rect^.Bottom - Rect^.Top);
gtk_widget_draw(PgtkWidget(aHandle),@gdkRect);
Writeln('[InvalidateRect] Exiting....');
end;
{------------------------------------------------------------------------------
Function: LineTo
Params: none
@ -3113,6 +3135,10 @@ end;
{ =============================================================================
$Log$
Revision 1.13 2001/01/23 18:42:10 lazarus
Added InvalidateRect to gtkwinapi.inc
Shane
Revision 1.12 2001/01/12 18:46:50 lazarus
Named the speedbuttons in MAINIDE and took out some writelns.
Shane

6
lcl/interfaces/gtk/gtkwinapih.inc
View File

@ -54,6 +54,8 @@ Function GetWindowRect(Handle : hwnd; Rect : PRect): Integer; override;
function HideCaret(hWnd: HWND): Boolean; override;
Function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean; override;
function LineTo(DC: HDC; X, Y: Integer): Boolean; override;
function MaskBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Mask: HBITMAP; XMask, YMask: Integer; Rop: DWORD): Boolean; override;
@ -99,6 +101,10 @@ Function WindowFromPoint(Point : TPoint) : HWND; override;
{ =============================================================================
$Log$
Revision 1.7 2001/01/23 18:42:10 lazarus
Added InvalidateRect to gtkwinapi.inc
Shane
Revision 1.6 2000/09/10 23:08:31 lazarus
MWE:
+ Added CreateCompatibeleBitamp function