pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

- fixed Handle deprecation

Browse Source 
- removed unused units from uses

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@485 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
tomb0
2008-06-16 15:01:08 +00:00
parent d59d809574
commit e87ec306f4
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rgbgraphics/rgbgraphics.pas
View File

@@ -937,7 +937,7 @@ procedure TRGBMask.StretchDrawShapePortionTo(ACanvas: TCanvas; DstX, DstY,
begin begin
if ACanvas <> nil then if ACanvas <> nil then
StretchDrawRGBMaskShapePortion(ACanvas.Handle, DstX, DstY, DstWidth, DstHeight, StretchDrawRGBMaskShapePortion(ACanvas.Handle, DstX, DstY, DstWidth, DstHeight,
Self, DX, DY, DW, DH, FBGPen.Handle, FFGPen.Handle); Self, DX, DY, DW, DH, FBGPen.Reference.Handle, FFGPen.Reference.Handle);
end; end;
procedure TRGBMask.DrawTo(ACanvas: TCanvas; X, Y: Integer); procedure TRGBMask.DrawTo(ACanvas: TCanvas; X, Y: Integer);

6
components/rgbgraphics/rgbgtkroutines.pas
View File

@@ -33,13 +33,13 @@ interface
uses uses
SysUtils, Classes, LCLType, SysUtils, Classes, LCLType,
{$IFDEF LCLgtk2} {$IFDEF LCLgtk2}
glib2, gdk2, gtk2, glib2, gdk2,
{$ENDIF} {$ENDIF}
{$IFDEF LCLgtk} {$IFDEF LCLgtk}
glib, gdk, gtk, glib, gdk,
{$ENDIF} {$ENDIF}
gtkDef, gtkProc, gtkDef, gtkProc,
RGBTypes, RGBUtils; RGBTypes;
procedure WidgetSetDrawRGB32Bitmap(Dest: HDC; DstX, DstY: Integer; SrcX, SrcY, SrcWidth, SrcHeight: Integer; procedure WidgetSetDrawRGB32Bitmap(Dest: HDC; DstX, DstY: Integer; SrcX, SrcY, SrcWidth, SrcHeight: Integer;
Bitmap: TRGB32BitmapCore); Bitmap: TRGB32BitmapCore);