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

fixed AV on StretchDraw 0x0

Browse Source 
git-svn-id: trunk@2585 -
This commit is contained in:
mattias 2002-08-17 23:41:30 +00:00
parent 5d88a46b5f
commit 73524e09ba
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7854,6 +7854,8 @@ var DCOrigin: TPoint;
begin begin
Assert(True, Format('trace:> [TgtkObject.StretchBlt] DestDC:0x%x; X:%d, Y:%d, Width:%d, Height:%d; SrcDC:0x%x; XSrc:%d, YSrc:%d, SrcWidth:%d, SrcHeight:%d; Rop:0x%x', [DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, SrcWidth, SrcHeight, Rop])); Assert(True, Format('trace:> [TgtkObject.StretchBlt] DestDC:0x%x; X:%d, Y:%d, Width:%d, Height:%d; SrcDC:0x%x; XSrc:%d, YSrc:%d, SrcWidth:%d, SrcHeight:%d; Rop:0x%x', [DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, SrcWidth, SrcHeight, Rop]));
Result := IsValidDC(DestDC) and IsValidDC(SrcDC); Result := IsValidDC(DestDC) and IsValidDC(SrcDC);
if (Width=0) and (Height=0) then exit;
if (SrcWidth=0) and (SrcHeight=0) then exit;
if Result if Result
then begin then begin
with TDeviceContext(DestDC) do begin with TDeviceContext(DestDC) do begin
@ -8198,6 +8200,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.242 2003/06/13 10:37:20 mattias
fixed AV on StretchDraw 0x0
Revision 1.241 2003/06/07 13:04:03 mattias Revision 1.241 2003/06/07 13:04:03 mattias
ComboBoxDropDown from Yoyong ComboBoxDropDown from Yoyong