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

Fixxed bug in RestoreDC

Browse Source 
Shane

git-svn-id: trunk@131 -
This commit is contained in:
lazarus 2001-01-23 19:01:10 +00:00
parent 66c98f419a
commit c9bfc42a4d
4 changed files with 30 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/interfacebase.inc
View File

@ -398,6 +398,12 @@ begin
// Result :=
end;
Function TInterfaceBase.UnionRect(DestRect, SrcRect1, SrcRect2 : pRect): Boolean;
begin
// Your default here
// Result :=
end;
Function TInterfaceBase.WindowFromPoint(Point : TPoint) : HWND;
begin
// Your default here
@ -408,6 +414,10 @@ end;
{ =============================================================================
$Log$
Revision 1.9 2001/01/23 19:01:10 lazarus
Fixxed bug in RestoreDC
Shane
Revision 1.8 2001/01/23 18:42:10 lazarus
Added InvalidateRect to gtkwinapi.inc
Shane

9
lcl/include/winapi.inc
View File

@ -401,6 +401,11 @@ begin
Result := InterfaceObject.TextOut(DC, X, Y, Str, Count);
end;
Function UnionRect(DestRect, SrcRect1, SrcRect2 : pRect): Boolean;
begin
Result := InterfaceObject.UnionRect(DestRect, SrcRect1, SrcRect2);
end;
function WindowFromPoint(Point : TPoint) : HWND;
begin
Result := InterfaceObject.WindowFromPoint(Point);
@ -944,6 +949,10 @@ end;
{ =============================================================================
$Log$
Revision 1.8 2001/01/23 19:01:10 lazarus
Fixxed bug in RestoreDC
Shane
Revision 1.7 2001/01/23 18:42:10 lazarus
Added InvalidateRect to gtkwinapi.inc
Shane

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

@ -2406,7 +2406,9 @@ begin
pDC^.SavedContext := pSaved^.SavedContext;
pSaved^.SavedContext := nil;
//prevent deleting of copied objects;
Result := CopyDCData(pDC, pSaved);
//prevent deleting of copied objects;
if pSaved^.CurrentBitmap = pDC^.CurrentBitmap
then pSaved^.CurrentBitmap := nil;
if pSaved^.CurrentFont = pDC^.CurrentFont
@ -2416,7 +2418,6 @@ begin
if pSaved^.CurrentBrush = pDC^.CurrentBrush
then pSaved^.CurrentBrush := nil;
Result := CopyDCData(pDC, pSaved);
DeleteDC(HGDIOBJ(pSaved));
// fornow unref GC
@ -3141,8 +3142,8 @@ end;
{ =============================================================================
$Log$
Revision 1.14 2001/01/23 18:43:12 lazarus
Slight modification to Invalidaterect.
Revision 1.15 2001/01/23 19:01:10 lazarus
Fixxed bug in RestoreDC
Shane
Revision 1.12 2001/01/12 18:46:50 lazarus

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

@ -95,12 +95,18 @@ function StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; X
Function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : Boolean; override;
Function UnionRect(DestRect, SrcRect1, SrcRect2 : pRect): Boolean; override;
Function WindowFromPoint(Point : TPoint) : HWND; override;
//##apiwiz##eps## // Do not remove
{ =============================================================================
$Log$
Revision 1.8 2001/01/23 19:01:10 lazarus
Fixxed bug in RestoreDC
Shane
Revision 1.7 2001/01/23 18:42:10 lazarus
Added InvalidateRect to gtkwinapi.inc
Shane