paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 19:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk intf: reduced warnings

Browse Source 
git-svn-id: trunk@12232 -
This commit is contained in:
mattias 2007-09-29 10:11:50 +00:00
parent cfa187ade0
commit b1eb2613c6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7857,7 +7857,7 @@ var
Assert(False, Format('trace: [TGtkWidgetSet.SelectObject] DC: 0x%x, Type: Bitmap', [DC])); Assert(False, Format('trace: [TGtkWidgetSet.SelectObject] DC: 0x%x, Type: Bitmap', [DC]));
Result := HBITMAP(PtrUInt(DevCon.GetBitmap)); // always create, because a valid GDIObject is needed to restore Result := HBITMAP(PtrUInt(DevCon.GetBitmap)); // always create, because a valid GDIObject is needed to restore
if DevCon.CurrentBitmap = GDIObject then Exit; if DevCon.CurrentBitmap = GDIObject then Exit;
DevCon.CurrentBitmap := GDIObject; DevCon.CurrentBitmap := GDIObject;
with DevCon.CurrentBitmap^ do with DevCon.CurrentBitmap^ do
case GDIBitmapType of case GDIBitmapType of
@ -7870,7 +7870,8 @@ var
if NewDrawable = nil if NewDrawable = nil
then begin then begin
DebugLn('[TGtkWidgetSet.SelectObject] - Empty bitmap, DC=0x%x', [DC]); // no drawable: this is normal, when restoring the default bitmap (FreeDC)
//DebugLn('[TGtkWidgetSet.SelectObject] - Empty bitmap, DC=0x%x', [DC]);
Exit; Exit;
end; end;