unit WrapDelphiGraphics;

Classes, Windows, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses, Graphics;

TPyDelphiGraphic = class(TPyDelphiPersistent)

private

function GetDelphiObject: TGraphic;

procedure SetDelphiObject(const Value: TGraphic);

protected

// Exposed Methods

function LoadFromFile_Wrapper(args : PPyObject) : PPyObject; cdecl;

function SaveToFile_Wrapper(args : PPyObject) : PPyObject; cdecl;

function LoadFromStream_Wrapper(args : PPyObject) : PPyObject; cdecl;

function SaveToStream_Wrapper(args : PPyObject) : PPyObject; cdecl;

function LoadFromClipboardFormat_Wrapper(args : PPyObject) : PPyObject; cdecl;

function SaveToClipboardFormat_Wrapper(args : PPyObject) : PPyObject; cdecl;

// Property Getters

function Get_Empty( AContext : Pointer) : PPyObject; cdecl;

function Get_Height( AContext : Pointer) : PPyObject; cdecl;

function Get_Modified( AContext : Pointer) : PPyObject; cdecl;

function Get_Palette( AContext : Pointer) : PPyObject; cdecl;

function Get_PaletteModified( AContext : Pointer) : PPyObject; cdecl;

function Get_Transparent( AContext : Pointer) : PPyObject; cdecl;

function Get_Width( AContext : Pointer) : PPyObject; cdecl;

// Property Setters

function Set_Height( AValue : PPyObject; AContext : Pointer) : integer; cdecl;

function Set_Modified( AValue : PPyObject; AContext : Pointer) : integer; cdecl;

function Set_Palette( AValue : PPyObject; AContext : Pointer) : integer; cdecl;

function Set_PaletteModified( AValue : PPyObject; AContext : Pointer) : integer; cdecl;

function Set_Transparent( AValue : PPyObject; AContext : Pointer) : integer; cdecl;

function Set_Width( AValue : PPyObject; AContext : Pointer) : integer; cdecl;

public

class function DelphiObjectClass : TClass; override;

class procedure RegisterGetSets( PythonType : TPythonType ); override;

class procedure RegisterMethods( PythonType : TPythonType ); override;

// Properties

property DelphiObject: TGraphic read GetDelphiObject write SetDelphiObject;

end;

TPyDelphiBitmap = class(TPyDelphiGraphic)

private

function GetDelphiObject: TBitmap;

procedure SetDelphiObject(const Value: TBitmap);

protected

// Exposed Methods

{$IFNDEF FPC}

function Dormant_Wrapper(args : PPyObject) : PPyObject; cdecl;

{$ENDIF FPC}

function FreeImage_Wrapper(args : PPyObject) : PPyObject; cdecl;

function LoadFromResourceName_Wrapper(args : PPyObject) : PPyObject; cdecl;

function LoadFromResourceID_Wrapper(args : PPyObject) : PPyObject; cdecl;

function Mask_Wrapper(args : PPyObject) : PPyObject; cdecl;

function ReleaseHandle_Wrapper(args : PPyObject) : PPyObject; cdecl;

function ReleaseMaskHandle_Wrapper(args : PPyObject) : PPyObject; cdecl;

function ReleasePalette_Wrapper(args : PPyObject) : PPyObject; cdecl;

// Property Getters

function Get_Canvas( AContext : Pointer) : PPyObject; cdecl;

function Get_Handle( AContext : Pointer) : PPyObject; cdecl;

function Get_HandleAllocated( AContext : Pointer) : PPyObject; cdecl;

function Get_HandleType( AContext : Pointer) : PPyObject; cdecl;

{$IFNDEF FPC}

function Get_IgnorePalette( AContext : Pointer) : PPyObject; cdecl;

{$ENDIF FPC}

function Get_MaskHandle( AContext : Pointer) : PPyObject; cdecl;

function Get_Monochrome( AContext : Pointer) : PPyObject; cdecl;

function Get_PixelFormat( AContext : Pointer) : PPyObject; cdecl;

function Get_TransparentColor( AContext : Pointer) : PPyObject; cdecl;

function Get_TransparentMode( AContext : Pointer) : PPyObject; cdecl;

// Property Setters

function Set_Handle( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

function Set_HandleType( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

{$IFNDEF FPC}

function Set_IgnorePalette( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

{$ENDIF FPC}

function Set_MaskHandle( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

function Set_Monochrome( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

function Set_PixelFormat( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

function Set_TransparentColor( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

function Set_TransparentMode( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

public

class function DelphiObjectClass : TClass; override;

class procedure RegisterGetSets( PythonType : TPythonType ); override;

class procedure RegisterMethods( PythonType : TPythonType ); override;

// Properties

property DelphiObject: TBitmap read GetDelphiObject write SetDelphiObject;

end;

{$IFNDEF FPC}

TPyDelphiMetaFile = class(TPyDelphiGraphic)

private

function GetDelphiObject: TMetaFile;

procedure SetDelphiObject(const Value: TMetaFile);

protected

// Exposed Methods

function Clear_Wrapper(args : PPyObject) : PPyObject; cdecl;

function ReleaseHandle_Wrapper(args : PPyObject) : PPyObject; cdecl;

// Property Getters

function Get_CreatedBy( AContext : Pointer) : PPyObject; cdecl;

function Get_Description( AContext : Pointer) : PPyObject; cdecl;

function Get_Enhanced( AContext : Pointer) : PPyObject; cdecl;

function Get_Handle( AContext : Pointer) : PPyObject; cdecl;

function Get_HandleAllocated( AContext : Pointer) : PPyObject; cdecl;

function Get_MMWidth( AContext : Pointer) : PPyObject; cdecl;

function Get_MMHeight( AContext : Pointer) : PPyObject; cdecl;

function Get_Inch( AContext : Pointer) : PPyObject; cdecl;

// Property Setters

function Set_Enhanced( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

function Set_Handle( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

function Set_MMWidth( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

function Set_MMHeight( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

function Set_Inch( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

public

class function DelphiObjectClass : TClass; override;

class procedure RegisterGetSets( PythonType : TPythonType ); override;

class procedure RegisterMethods( PythonType : TPythonType ); override;

// Properties

property DelphiObject: TMetaFile read GetDelphiObject write SetDelphiObject;

end;

{$ENDIF FPC}

TPyDelphiIcon = class(TPyDelphiGraphic)

private

function GetDelphiObject: TIcon;

procedure SetDelphiObject(const Value: TIcon);

protected

// Exposed Methods

function ReleaseHandle_Wrapper(args : PPyObject) : PPyObject; cdecl;

// Property Getters

function Get_Handle( AContext : Pointer) : PPyObject; cdecl;

function Get_HandleAllocated( AContext : Pointer) : PPyObject; cdecl;

// Property Setters

function Set_Handle( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

public

class function DelphiObjectClass : TClass; override;

class procedure RegisterGetSets( PythonType : TPythonType ); override;

class procedure RegisterMethods( PythonType : TPythonType ); override;

// Properties

property DelphiObject: TIcon read GetDelphiObject write SetDelphiObject;

end;

TPyDelphiPicture = class(TPyDelphiPersistent)

private

function GetDelphiObject: TPicture;

procedure SetDelphiObject(const Value: TPicture);

protected

// Exposed Methods

function LoadFromFile_Wrapper(args : PPyObject) : PPyObject; cdecl;

function SaveToFile_Wrapper(args : PPyObject) : PPyObject; cdecl;

// Property Getters

function Get_Bitmap( AContext : Pointer) : PPyObject; cdecl;

function Get_Graphic( AContext : Pointer) : PPyObject; cdecl;

function Get_Height( AContext : Pointer) : PPyObject; cdecl;

function Get_Icon( AContext : Pointer) : PPyObject; cdecl;

{$IFNDEF FPC}

function Get_MetaFile( AContext : Pointer) : PPyObject; cdecl;

{$ENDIF FPC}

function Get_Width( AContext : Pointer) : PPyObject; cdecl;

// Property Setters

function Set_Bitmap( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

function Set_Graphic( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

function Set_Icon( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

{$IFNDEF FPC}

function Set_MetaFile( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;

{$ENDIF FPC}

public

class function DelphiObjectClass : TClass; override;

class procedure RegisterGetSets( PythonType : TPythonType ); override;

class procedure RegisterMethods( PythonType : TPythonType ); override;

// Properties

property DelphiObject: TPicture read GetDelphiObject write SetDelphiObject;

end;

{

TPyDelphiCanvas = class(TPyDelphiPersistent)

private

function GetDelphiObject: TCanvas;

procedure SetDelphiObject(const Value: TCanvas);

protected

// Exposed Methods

function Arc_Wrapper(args : PPyObject) : PPyObject; cdecl;

{$IFNDEF FPC}

function BrushCopy_Wrapper(args : PPyObject) : PPyObject; cdecl;

{$ENDIF FPC}

function Chord_Wrapper(args : PPyObject) : PPyObject; cdecl;

function CopyRect_Wrapper(args : PPyObject) : PPyObject; cdecl;

function Draw_Wrapper(args : PPyObject) : PPyObject; cdecl;

function DrawFocusRect_Wrapper(args : PPyObject) : PPyObject; cdecl;

function Ellipse_Wrapper(args : PPyObject) : PPyObject; cdecl;

function FillRect_Wrapper(args : PPyObject) : PPyObject; cdecl;

function FloodFill_Wrapper(args : PPyObject) : PPyObject; cdecl;

function FrameRect_Wrapper(args : PPyObject) : PPyObject; cdecl;

function LineTo_Wrapper(args : PPyObject) : PPyObject; cdecl;

function Lock_Wrapper(args : PPyObject) : PPyObject; cdecl;

function MoveTo_Wrapper(args : PPyObject) : PPyObject; cdecl;

function Pie_Wrapper(args : PPyObject) : PPyObject; cdecl;

function Polygon_Wrapper(args : PPyObject) : PPyObject; cdecl;

function Polyline_Wrapper(args : PPyObject) : PPyObject; cdecl;

function PolyBezier_Wrapper(args : PPyObject) : PPyObject; cdecl;

{$IFNDEF FPC}

function PolyBezierTo_Wrapper(args : PPyObject) : PPyObject; cdecl;

{$ENDIF FPC}

function Rectangle_Wrapper(args : PPyObject) : PPyObject; cdecl;

function Refresh_Wrapper(args : PPyObject) : PPyObject; cdecl;

function RoundRect_Wrapper(args : PPyObject) : PPyObject; cdecl;

function StretchDraw_Wrapper(args : PPyObject) : PPyObject; cdecl;

function TextExtent_Wrapper(args : PPyObject) : PPyObject; cdecl;

function TextHeight_Wrapper(args : PPyObject) : PPyObject; cdecl;

function TextOut_Wrapper(args : PPyObject) : PPyObject; cdecl;

function TextRect_Wrapper(args : PPyObject) : PPyObject; cdecl;

function TextWidth_Wrapper(args : PPyObject) : PPyObject; cdecl;

function TryLock_Wrapper(args : PPyObject) : PPyObject; cdecl;

function Unlock_Wrapper(args : PPyObject) : PPyObject; cdecl;

// Pixels[x,y] : TColor wrapper -> GetPixel / SetPixel

function GetPixel(args : PPyObject) : PPyObject; cdecl;

function SetPixel(args : PPyObject) : PPyObject; cdecl;

// Property Getters

function Get_HandleAllocated( AContext : Pointer) : PPyObject; cdecl;

function Get_ClipRect( AContext : Pointer) : PPyObject; cdecl;

function Get_Handle( AContext : Pointer) : PPyObject; cdecl;

function Get_LockCount( AContext : Pointer) : PPyObject; cdecl;

{$IFNDEF FPC}

function Get_CanvasOrientation( AContext : Pointer) : PPyObject; cdecl;

function Get_TextFlags( AContext : Pointer) : PPyObject; cdecl;

{$ENDIF FPC}

function Get_PenPos( AContext : Pointer) : PPyObject; cdecl;

function Get_OnChange( AContext : Pointer) : PPyObject; cdecl;

function Get_OnChanging( AContext : Pointer) : PPyObject; cdecl;

// Property Setters

function Set_Handle( AValue : PPyObject; AContext : Pointer) : integer; cdecl;

{$IFNDEF FPC}

function Set_TextFlags( AValue : PPyObject; AContext : Pointer) : integer; cdecl;

{$ENDIF FPC}

function Set_OnChange( AValue : PPyObject; AContext : Pointer) : integer; cdecl;

function Set_OnChanging( AValue : PPyObject; AContext : Pointer) : integer; cdecl;

public

class function DelphiObjectClass : TClass; override;

class procedure RegisterGetSets( PythonType : TPythonType ); override;

class procedure RegisterMethods( PythonType : TPythonType ); override;

// Properties

property DelphiObject: TCanvas read GetDelphiObject write SetDelphiObject;

end;

Types,

{$IFDEF FPC}

GraphType,

{$ENDIF FPC}

WrapDelphiTypes;

TGraphicsRegistration = class(TRegisteredUnit)

public

function Name : string; override;

procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;

procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;

end;

procedure TGraphicsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);

inherited;

APyDelphiWrapper.DefineVar('clScrollBar', clScrollBar);

APyDelphiWrapper.DefineVar('clBackground', clBackground);

APyDelphiWrapper.DefineVar('clActiveCaption', clActiveCaption);

APyDelphiWrapper.DefineVar('clInactiveCaption', clInactiveCaption);

APyDelphiWrapper.DefineVar('clMenu', clMenu);

APyDelphiWrapper.DefineVar('clWindow', clWindow);

APyDelphiWrapper.DefineVar('clWindowFrame', clWindowFrame);

APyDelphiWrapper.DefineVar('clMenuText', clMenuText);

APyDelphiWrapper.DefineVar('clWindowText', clWindowText);

APyDelphiWrapper.DefineVar('clCaptionText', clCaptionText);

APyDelphiWrapper.DefineVar('clActiveBorder', clActiveBorder);

APyDelphiWrapper.DefineVar('clInactiveBorder', clInactiveBorder);

APyDelphiWrapper.DefineVar('clAppWorkSpace', clAppWorkSpace);

APyDelphiWrapper.DefineVar('clHighlight', clHighlight);

APyDelphiWrapper.DefineVar('clHighlightText', clHighlightText);

APyDelphiWrapper.DefineVar('clBtnFace', clBtnFace);

APyDelphiWrapper.DefineVar('clBtnShadow', clBtnShadow);

APyDelphiWrapper.DefineVar('clGrayText', clGrayText);

APyDelphiWrapper.DefineVar('clBtnText', clBtnText);

APyDelphiWrapper.DefineVar('clInactiveCaptionText', clInactiveCaptionText);

APyDelphiWrapper.DefineVar('clBtnHighlight', clBtnHighlight);

APyDelphiWrapper.DefineVar('cl3DDkShadow', cl3DDkShadow);

APyDelphiWrapper.DefineVar('cl3DLight', cl3DLight);

APyDelphiWrapper.DefineVar('clInfoText', clInfoText);

APyDelphiWrapper.DefineVar('clInfoBk', clInfoBk);

APyDelphiWrapper.DefineVar('clHotLight', clHotLight);

APyDelphiWrapper.DefineVar('clGradientActiveCaption', clGradientActiveCaption);

APyDelphiWrapper.DefineVar('clGradientInactiveCaption', clGradientInactiveCaption);

APyDelphiWrapper.DefineVar('clMenuHighlight', clMenuHighlight);

APyDelphiWrapper.DefineVar('clMenuBar', clMenuBar);

APyDelphiWrapper.DefineVar('clBlack', clBlack);

APyDelphiWrapper.DefineVar('clMaroon', clMaroon);

APyDelphiWrapper.DefineVar('clGreen', clGreen);

APyDelphiWrapper.DefineVar('clOlive', clOlive);

APyDelphiWrapper.DefineVar('clNavy', clNavy);

APyDelphiWrapper.DefineVar('clPurple', clPurple);

APyDelphiWrapper.DefineVar('clTeal', clTeal);

APyDelphiWrapper.DefineVar('clGray', clGray);

APyDelphiWrapper.DefineVar('clSilver', clSilver);

APyDelphiWrapper.DefineVar('clRed', clRed);

APyDelphiWrapper.DefineVar('clLime', clLime);

APyDelphiWrapper.DefineVar('clYellow', clYellow);

APyDelphiWrapper.DefineVar('clBlue', clBlue);

APyDelphiWrapper.DefineVar('clFuchsia', clFuchsia);

APyDelphiWrapper.DefineVar('clAqua', clAqua);

APyDelphiWrapper.DefineVar('clLtGray', clLtGray);

APyDelphiWrapper.DefineVar('clDkGray', clDkGray);

APyDelphiWrapper.DefineVar('clWhite', clWhite);

APyDelphiWrapper.DefineVar('clMoneyGreen', clMoneyGreen);

APyDelphiWrapper.DefineVar('clSkyBlue', clSkyBlue);

APyDelphiWrapper.DefineVar('clCream', clCream);

APyDelphiWrapper.DefineVar('clMedGray', clMedGray);

APyDelphiWrapper.DefineVar('clNone', clNone);

APyDelphiWrapper.DefineVar('clDefault', clDefault);

APyDelphiWrapper.DefineVar('fsSurface', 'fsSurface');

APyDelphiWrapper.DefineVar('fsBorder', 'fsBorder');

end;

function TGraphicsRegistration.Name: string;

Result := 'Graphics';

end;

procedure TGraphicsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);

inherited;

APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiGraphic);

APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiBitmap);

{$IFNDEF FPC}

APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiMetaFile);

{$ENDIF FPC}

APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiIcon);

APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPicture);

APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCanvas);

end;

class function TPyDelphiGraphic.DelphiObjectClass: TClass;

Result := TGraphic;

end;

function TPyDelphiGraphic.GetDelphiObject: TGraphic;

Result := TGraphic(inherited DelphiObject);

end;

function TPyDelphiGraphic.Get_Empty(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.VariantAsPyObject(DelphiObject.Empty);

end;

function TPyDelphiGraphic.Get_Height(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.PyLong_FromLong(DelphiObject.Height);

end;

function TPyDelphiGraphic.Get_Modified(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.VariantAsPyObject(DelphiObject.Modified);

end;

function TPyDelphiGraphic.Get_Palette(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.PyLong_FromLong(DelphiObject.Palette);

end;

function TPyDelphiGraphic.Get_PaletteModified(

AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.VariantAsPyObject(DelphiObject.PaletteModified);

end;

function TPyDelphiGraphic.Get_Transparent(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.VariantAsPyObject(DelphiObject.Transparent);

end;

function TPyDelphiGraphic.Get_Width(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.PyLong_FromLong(DelphiObject.Width);

end;

function TPyDelphiGraphic.LoadFromClipboardFormat_Wrapper(

args: PPyObject): PPyObject;

_format : Integer;

{$IFNDEF FPC}

_data : Integer;

_palette : Integer;

{$ENDIF FPC}

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

{$IFDEF FPC}

if PyArg_ParseTuple( args, 'i:LoadFromClipboardFormat',@_format ) <> 0 then

begin

DelphiObject.LoadFromClipboardFormat(_format);

{$ELSE FPC}

if PyArg_ParseTuple( args, 'iii:LoadFromClipboardFormat',@_format, @_data, @_palette ) <> 0 then

begin

DelphiObject.LoadFromClipboardFormat(_format, _data, _palette);

{$ENDIF FPC}

Result := ReturnNone;

end

else

Result := nil;

end;

end;

function TPyDelphiGraphic.LoadFromFile_Wrapper(args: PPyObject): PPyObject;

_pFileName : PPyObject;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

if PyArg_ParseTuple( args, 'O:LoadFromFile',@_pFileName ) <> 0 then

begin

DelphiObject.LoadFromFile(PyObjectAsString(_pFileName));

Result := ReturnNone;

end

else

Result := nil;

end;

end;

function TPyDelphiGraphic.LoadFromStream_Wrapper(

args: PPyObject): PPyObject;

_obj : TObject;

_oStream : PPyObject;

_stream : TStream;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

_oStream := nil;

if (PyArg_ParseTuple( args, 'O:LoadFromStrea',@_oStream ) <> 0) and

CheckObjAttribute(_oStream, 'Stream', TStream, _obj) then

begin

_stream := TStream(_obj);

DelphiObject.LoadFromStream(_stream);

Result := ReturnNone;

end

else

Result := nil;

end;

end;

class procedure TPyDelphiGraphic.RegisterGetSets(PythonType: TPythonType);

inherited;

with PythonType do

begin

AddGetSet('Empty', @TPyDelphiGraphic.Get_Empty, nil,

'', nil);

AddGetSet('Height', @TPyDelphiGraphic.Get_Height, @TPyDelphiGraphic.Set_Height,

'', nil);

AddGetSet('Modified', @TPyDelphiGraphic.Get_Modified, @TPyDelphiGraphic.Set_Modified,

'', nil);

AddGetSet('Palette', @TPyDelphiGraphic.Get_Palette, @TPyDelphiGraphic.Set_Palette,

'', nil);

AddGetSet('PaletteModified', @TPyDelphiGraphic.Get_PaletteModified, @TPyDelphiGraphic.Set_PaletteModified,

'', nil);

AddGetSet('Transparent', @TPyDelphiGraphic.Get_Transparent, @TPyDelphiGraphic.Set_Transparent,

'', nil);

AddGetSet('Width', @TPyDelphiGraphic.Get_Width, @TPyDelphiGraphic.Set_Width,

'', nil);

end;

end;

class procedure TPyDelphiGraphic.RegisterMethods(PythonType: TPythonType);

inherited;

PythonType.AddMethod('LoadFromFile', @TPyDelphiGraphic.LoadFromFile_Wrapper,

'TGraphic.LoadFromFile()'#10 +

'');

PythonType.AddMethod('SaveToFile', @TPyDelphiGraphic.SaveToFile_Wrapper,

'TGraphic.SaveToFile()'#10 +

'');

PythonType.AddMethod('LoadFromStream', @TPyDelphiGraphic.LoadFromStream_Wrapper,

'TGraphic.LoadFromStream()'#10 +

'');

PythonType.AddMethod('SaveToStream', @TPyDelphiGraphic.SaveToStream_Wrapper,

'TGraphic.SaveToStream()'#10 +

'');

PythonType.AddMethod('LoadFromClipboardFormat', @TPyDelphiGraphic.LoadFromClipboardFormat_Wrapper,

'TGraphic.LoadFromClipboardFormat()'#10 +

'');

PythonType.AddMethod('SaveToClipboardFormat', @TPyDelphiGraphic.SaveToClipboardFormat_Wrapper,

'TGraphic.SaveToClipboardFormat()'#10 +

'');

end;

function TPyDelphiGraphic.SaveToClipboardFormat_Wrapper(

args: PPyObject): PPyObject;

_format : Word;

{$IFNDEF FPC}

_data : THandle;

_palette : HPALETTE;

{$ENDIF FPC}

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

{$IFDEF FPC}

if PyArg_ParseTuple( args, ':SaveToClipboardFormat') <> 0 then

begin

DelphiObject.SaveToClipboardFormat(_format);

{$ELSE FPC}

if PyArg_ParseTuple( args, ':SaveToClipboardFormat') <> 0 then

begin

DelphiObject.SaveToClipboardFormat(_format, _data, _palette);

{$ENDIF FPC}

Result := PyTuple_New(3);

PyTuple_SetItem(Result, 0, PyLong_FromLong(_format));

{$IFNDEF FPC}

PyTuple_SetItem(Result, 1, PyLong_FromLong(_data));

PyTuple_SetItem(Result, 2, PyLong_FromLong(_palette));

{$ENDIF FPC}

end

else

Result := nil;

end;

end;

function TPyDelphiGraphic.SaveToFile_Wrapper(args: PPyObject): PPyObject;

_pFileName : PPyObject;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

if PyArg_ParseTuple( args, 'O:SaveToFile',@_pFileName ) <> 0 then

begin

DelphiObject.SaveToFile(PyObjectAsString(_pFileName));

Result := ReturnNone;

end

else

Result := nil;

end;

end;

function TPyDelphiGraphic.SaveToStream_Wrapper(args: PPyObject): PPyObject;

_obj : TObject;

_oStream : PPyObject;

_stream : TStream;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

_oStream := nil;

if (PyArg_ParseTuple( args, 'O:SaveToStream',@_oStream ) <> 0) and

CheckObjAttribute(_oStream, 'Stream', TStream, _obj) then

begin

_stream := TStream(_obj);

DelphiObject.SaveToStream(_stream);

Result := ReturnNone;

end

else

Result := nil;

end;

end;

procedure TPyDelphiGraphic.SetDelphiObject(const Value: TGraphic);

inherited DelphiObject := Value;

end;

function TPyDelphiGraphic.Set_Height(AValue: PPyObject;

AContext: Pointer): integer;

_value : Integer;

Adjust(@Self);

if CheckIntAttribute(AValue, 'Height', _value) then

begin

DelphiObject.Height := _value;

Result := 0;

end

else

Result := -1;

end;

function TPyDelphiGraphic.Set_Modified(AValue: PPyObject;

AContext: Pointer): integer;

_value : Boolean;

Adjust(@Self);

if CheckBoolAttribute(AValue, 'Modified', _value) then

begin

DelphiObject.Modified := _value;

Result := 0;

end

else

Result := -1;

end;

function TPyDelphiGraphic.Set_Palette(AValue: PPyObject;

AContext: Pointer): integer;

_value : Integer;

Adjust(@Self);

if CheckIntAttribute(AValue, 'Palette', _value) then

begin

DelphiObject.Palette := _value;

Result := 0;

end

else

Result := -1;

end;

function TPyDelphiGraphic.Set_PaletteModified(AValue: PPyObject;

AContext: Pointer): integer;

_value : Boolean;

Adjust(@Self);

if CheckBoolAttribute(AValue, 'PaletteModified', _value) then

begin

DelphiObject.PaletteModified := _value;

Result := 0;

end

else

Result := -1;

end;

function TPyDelphiGraphic.Set_Transparent(AValue: PPyObject;

AContext: Pointer): integer;

_value : Boolean;

Adjust(@Self);

if CheckBoolAttribute(AValue, 'Transparent', _value) then

begin

DelphiObject.Transparent := _value;

Result := 0;

end

else

Result := -1;

end;

function TPyDelphiGraphic.Set_Width(AValue: PPyObject;

AContext: Pointer): integer;

_value : Integer;

Adjust(@Self);

if CheckIntAttribute(AValue, 'Width', _value) then

begin

DelphiObject.Width := _value;

Result := 0;

end

else

Result := -1;

end;

class function TPyDelphiBitmap.DelphiObjectClass: TClass;

Result := TBitmap;

end;

function TPyDelphiBitmap.Dormant_Wrapper(args: PPyObject): PPyObject;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

if PyArg_ParseTuple( args, ':Dormant') <> 0 then

begin

DelphiObject.Dormant;

Result := ReturnNone;

end

else

Result := nil;

end;

end;

function TPyDelphiBitmap.FreeImage_Wrapper(args: PPyObject): PPyObject;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

if PyArg_ParseTuple( args, ':FreeImage') <> 0 then

begin

DelphiObject.FreeImage;

Result := ReturnNone;

end

else

Result := nil;

end;

end;

function TPyDelphiBitmap.GetDelphiObject: TBitmap;

Result := TBitmap(inherited DelphiObject);

end;

function TPyDelphiBitmap.Get_Canvas(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := Wrap(DelphiObject.Canvas);

end;

function TPyDelphiBitmap.Get_Handle(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.PyLong_FromLong(DelphiObject.Handle);

end;

function TPyDelphiBitmap.Get_HandleAllocated(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.VariantAsPyObject(DelphiObject.HandleAllocated);

end;

function TPyDelphiBitmap.Get_HandleType(AContext: Pointer): PPyObject;

Adjust(@Self);

with GetPythonEngine do begin

case DelphiObject.HandleType of

bmDIB: Result := PyUnicodeFromString('bmDIB');

bmDDB: Result := PyUnicodeFromString('bmDDB');

else

Result := ReturnNone;

end;

end;

end;

function TPyDelphiBitmap.Get_IgnorePalette(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.VariantAsPyObject(DelphiObject.IgnorePalette);

end;

function TPyDelphiBitmap.Get_MaskHandle(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.PyLong_FromLong(DelphiObject.MaskHandle);

end;

function TPyDelphiBitmap.Get_Monochrome(AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.VariantAsPyObject(DelphiObject.Monochrome);

end;

function TPyDelphiBitmap.Get_PixelFormat(AContext: Pointer): PPyObject;

Adjust(@Self);

with GetPythonEngine do begin

case DelphiObject.PixelFormat of

pfDevice: Result := PyUnicodeFromString('pfDevice');

pf1bit: Result := PyUnicodeFromString('pf1bit');

pf4bit: Result := PyUnicodeFromString('pf4bit');

pf8bit: Result := PyUnicodeFromString('pf8bit');

pf15bit: Result := PyUnicodeFromString('pf15bit');

pf16bit: Result := PyUnicodeFromString('pf16bit');

pf24bit: Result := PyUnicodeFromString('pf24bit');

pf32bit: Result := PyUnicodeFromString('pf32bit');

pfCustom: Result := PyUnicodeFromString('pfCustom');

else

Result := ReturnNone;

end;

end;

end;

function TPyDelphiBitmap.Get_TransparentColor(

AContext: Pointer): PPyObject;

Adjust(@Self);

Result := GetPythonEngine.PyLong_FromLong(DelphiObject.TransparentColor);

end;

function TPyDelphiBitmap.Get_TransparentMode(AContext: Pointer): PPyObject;

Adjust(@Self);

with GetPythonEngine do begin

case DelphiObject.TransparentMode of

tmAuto: Result := PyUnicodeFromString('tmAuto');

tmFixed: Result := PyUnicodeFromString('tmFixed');

else

Result := ReturnNone;

end;

end;

end;

function TPyDelphiBitmap.LoadFromResourceID_Wrapper(

args: PPyObject): PPyObject;

_instance : Integer;

_resID : Integer;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

if PyArg_ParseTuple( args, 'ii:LoadFromResourceID',@_instance, @_resID ) <> 0 then

begin

DelphiObject.LoadFromResourceID(_instance, _resID);

Result := ReturnNone;

end

else

Result := nil;

end;

end;

function TPyDelphiBitmap.LoadFromResourceName_Wrapper(

args: PPyObject): PPyObject;

_instance : Integer;

_resName : PAnsiChar;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

_resName := nil;

if PyArg_ParseTuple( args, 'is:LoadFromResourceName',@_instance, @_resName ) <> 0 then

begin

if _resName <> nil then

DelphiObject.LoadFromResourceName(_instance, string(_resName));

Result := ReturnNone;

end

else

Result := nil;

end;

end;

function TPyDelphiBitmap.Mask_Wrapper(args: PPyObject): PPyObject;

_transpColor : Integer;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

if PyArg_ParseTuple( args, 'i:Mask',@_transpColor ) <> 0 then

begin

DelphiObject.Mask(_transpColor);

Result := ReturnNone;

end

else

Result := nil;

end;

end;

class procedure TPyDelphiBitmap.RegisterGetSets(PythonType: TPythonType);

inherited;

with PythonType do

begin

AddGetSet('Canvas', @TPyDelphiBitmap.Get_Canvas, nil,

'', nil);

AddGetSet('Handle', @TPyDelphiBitmap.Get_Handle, @TPyDelphiBitmap.Set_Handle,

'', nil);

AddGetSet('HandleAllocated', @TPyDelphiBitmap.Get_HandleAllocated, nil,

'', nil);

AddGetSet('HandleType', @TPyDelphiBitmap.Get_HandleType, @TPyDelphiBitmap.Set_HandleType,

'', nil);

{$IFNDEF FPC}

AddGetSet('IgnorePalette', @TPyDelphiBitmap.Get_IgnorePalette, @TPyDelphiBitmap.Set_IgnorePalette,

'', nil);

{$ENDIF FPC}

AddGetSet('MaskHandle', @TPyDelphiBitmap.Get_MaskHandle, @TPyDelphiBitmap.Set_MaskHandle,

'', nil);

AddGetSet('Monochrome', @TPyDelphiBitmap.Get_Monochrome, @TPyDelphiBitmap.Set_Monochrome,

'', nil);

AddGetSet('PixelFormat', @TPyDelphiBitmap.Get_PixelFormat, @TPyDelphiBitmap.Set_PixelFormat,

'', nil);

AddGetSet('TransparentColor', @TPyDelphiBitmap.Get_TransparentColor, @TPyDelphiBitmap.Set_TransparentColor,

'', nil);

AddGetSet('TransparentMode', @TPyDelphiBitmap.Get_TransparentMode, @TPyDelphiBitmap.Set_TransparentMode,

'', nil);

end;

end;

class procedure TPyDelphiBitmap.RegisterMethods(PythonType: TPythonType);

inherited;

{$IFNDEF FPC}

PythonType.AddMethod('Dormant', @TPyDelphiBitmap.Dormant_Wrapper,

'TBitmap.Dormant()'#10 +

'');

{$ENDIF FPC}

PythonType.AddMethod('FreeImage', @TPyDelphiBitmap.FreeImage_Wrapper,

'TBitmap.FreeImage()'#10 +

'');

PythonType.AddMethod('LoadFromResourceName', @TPyDelphiBitmap.LoadFromResourceName_Wrapper,

'TBitmap.LoadFromResourceName()'#10 +

'');

PythonType.AddMethod('LoadFromResourceID', @TPyDelphiBitmap.LoadFromResourceID_Wrapper,

'TBitmap.LoadFromResourceID()'#10 +

'');

PythonType.AddMethod('Mask', @TPyDelphiBitmap.Mask_Wrapper,

'TBitmap.Mask()'#10 +

'');

PythonType.AddMethod('ReleaseHandle', @TPyDelphiBitmap.ReleaseHandle_Wrapper,

'TBitmap.ReleaseHandle()'#10 +

'');

PythonType.AddMethod('ReleaseMaskHandle', @TPyDelphiBitmap.ReleaseMaskHandle_Wrapper,

'TBitmap.ReleaseMaskHandle()'#10 +

'');

PythonType.AddMethod('ReleasePalette', @TPyDelphiBitmap.ReleasePalette_Wrapper,

'TBitmap.ReleasePalette()'#10 +

'');

end;

function TPyDelphiBitmap.ReleaseHandle_Wrapper(args: PPyObject): PPyObject;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

if PyArg_ParseTuple( args, ':ReleaseHandle') <> 0 then

begin

Result := PyLong_FromLong(DelphiObject.ReleaseHandle);

end

else

Result := nil;

end;

end;

function TPyDelphiBitmap.ReleaseMaskHandle_Wrapper(

args: PPyObject): PPyObject;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

if PyArg_ParseTuple( args, ':ReleaseMaskHandle') <> 0 then

begin

Result := PyLong_FromLong(DelphiObject.ReleaseMaskHandle);

end

else

Result := nil;

end;

end;

function TPyDelphiBitmap.ReleasePalette_Wrapper(

args: PPyObject): PPyObject;

// We adjust the transmitted self argument

Adjust(@Self);

with GetPythonEngine do begin

if PyArg_ParseTuple( args, ':ReleasePalette') <> 0 then

begin

Result := PyLong_FromLong(DelphiObject.ReleasePalette);

end

else

Result := nil;

end;

end;

procedure TPyDelphiBitmap.SetDelphiObject(const Value: TBitmap);

inherited DelphiObject := Value;

end;

function TPyDelphiBitmap.Set_Handle(AValue: PPyObject;