e87ec306f4
- removed unused units from uses git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@485 8e941d3f-bd1b-0410-a28a-d453659cc2b4
83 lines
2.5 KiB
ObjectPascal
83 lines
2.5 KiB
ObjectPascal
{
|
|
/***************************************************************************
|
|
RGBGTKRoutines.pas
|
|
|
|
|
|
***************************************************************************/
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* See the file COPYING.modifiedLGPL, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
|
|
Author: Tom Gregorovic (_tom_@centrum.cz)
|
|
|
|
Abstract:
|
|
This unit contains routines for GTK interfaces.
|
|
|
|
}
|
|
unit RGBGTKRoutines;
|
|
|
|
{$ifdef fpc}
|
|
{$mode objfpc}{$H+}
|
|
{$endif}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, LCLType,
|
|
{$IFDEF LCLgtk2}
|
|
glib2, gdk2,
|
|
{$ENDIF}
|
|
{$IFDEF LCLgtk}
|
|
glib, gdk,
|
|
{$ENDIF}
|
|
gtkDef, gtkProc,
|
|
RGBTypes;
|
|
|
|
procedure WidgetSetDrawRGB32Bitmap(Dest: HDC; DstX, DstY: Integer; SrcX, SrcY, SrcWidth, SrcHeight: Integer;
|
|
Bitmap: TRGB32BitmapCore);
|
|
|
|
procedure WidgetSetDrawRGB8Bitmap(Dest: HDC; DstX, DstY: Integer; SrcX, SrcY, SrcWidth, SrcHeight: Integer;
|
|
Bitmap: TRGB8BitmapCore);
|
|
|
|
implementation
|
|
|
|
procedure WidgetSetDrawRGB32Bitmap(Dest: HDC; DstX, DstY: Integer; SrcX, SrcY, SrcWidth,
|
|
SrcHeight: Integer; Bitmap: TRGB32BitmapCore);
|
|
var
|
|
P: TPoint;
|
|
begin
|
|
P := TGtkDeviceContext(Dest).Offset;
|
|
Inc(DstX, P.X);
|
|
Inc(DstY, P.Y);
|
|
gdk_draw_rgb_32_image(TGtkDeviceContext(Dest).Drawable, TGtkDeviceContext(Dest).GC,
|
|
DstX, DstY, SrcWidth, SrcHeight, GDK_RGB_DITHER_NONE,
|
|
Pguchar(Bitmap.GetPixelPtrUnsafe(SrcX, SrcY)), Bitmap.RowPixelStride shl 2);
|
|
end;
|
|
|
|
procedure WidgetSetDrawRGB8Bitmap(Dest: HDC; DstX, DstY: Integer; SrcX, SrcY,
|
|
SrcWidth, SrcHeight: Integer; Bitmap: TRGB8BitmapCore);
|
|
var
|
|
P: TPoint;
|
|
begin
|
|
P := TGtkDeviceContext(Dest).Offset;
|
|
Inc(DstX, P.X);
|
|
Inc(DstY, P.Y);
|
|
gdk_draw_gray_image(TGtkDeviceContext(Dest).Drawable, TGtkDeviceContext(Dest).GC,
|
|
DstX, DstY, SrcWidth, SrcHeight, GDK_RGB_DITHER_NONE,
|
|
Pguchar(Bitmap.Get8PixelPtrUnsafe(SrcX, SrcY)), Bitmap.RowPixelStride);
|
|
end;
|
|
|
|
initialization
|
|
gdk_rgb_init;
|
|
|
|
end.
|
|
|