MyLCL_Canvas.inc

//----------------------------------------
// The code is automatically generated by the GenlibLcl tool.
// Copyright © ying32. All Rights Reserved.
// 
// Licensed under Lazarus.modifiedLGPL
//
//----------------------------------------

function Canvas_Create: TCanvas; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  TCanvas.Create;
  handleExceptionEnd
end;

procedure Canvas_Free(AObj: TCanvas); extdecl;
begin
  handleExceptionBegin
  AObj.Free;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_Arc(AObj: TCanvas; X1: Integer; Y1: Integer; X2: Integer; Y2: Integer; X3: Integer; Y3: Integer; X4: Integer; Y4: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_ArcTo(AObj: TCanvas; X1: Integer; Y1: Integer; X2: Integer; Y2: Integer; X3: Integer; Y3: Integer; X4: Integer; Y4: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.ArcTo(X1, Y1, X2, Y2, X3, Y3, X4, Y4);
  handleExceptionEnd
end;

//CLASSMETHOD:
//PARAMS:5=nonPtr,6=nonPtr
procedure Canvas_AngleArc(AObj: TCanvas; X: Integer; Y: Integer; Radius: Cardinal; var StartAngle: Single; var SweepAngle: Single); extdecl;
begin
  handleExceptionBegin
  AObj.AngleArc(X, Y, Radius, StartAngle, SweepAngle);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_Chord(AObj: TCanvas; X1: Integer; Y1: Integer; X2: Integer; Y2: Integer; X3: Integer; Y3: Integer; X4: Integer; Y4: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Chord(X1, Y1, X2, Y2, X3, Y3, X4, Y4);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_Ellipse(AObj: TCanvas; X1: Integer; Y1: Integer; X2: Integer; Y2: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Ellipse(X1, Y1, X2, Y2);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_FloodFill(AObj: TCanvas; X: Integer; Y: Integer; Color: TColor; FillStyle: TFillStyle); extdecl;
begin
  handleExceptionBegin
  AObj.FloodFill(X, Y, Color, FillStyle);
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_HandleAllocated(AObj: TCanvas): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.HandleAllocated;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_LineTo(AObj: TCanvas; X: Integer; Y: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.LineTo(X, Y);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_MoveTo(AObj: TCanvas; X: Integer; Y: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.MoveTo(X, Y);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_Pie(AObj: TCanvas; X1: Integer; Y1: Integer; X2: Integer; Y2: Integer; X3: Integer; Y3: Integer; X4: Integer; Y4: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_Rectangle(AObj: TCanvas; X1: Integer; Y1: Integer; X2: Integer; Y2: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Rectangle(X1, Y1, X2, Y2);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_Refresh(AObj: TCanvas); extdecl;
begin
  handleExceptionBegin
  AObj.Refresh;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_RoundRect(AObj: TCanvas; X1: Integer; Y1: Integer; X2: Integer; Y2: Integer; X3: Integer; Y3: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.RoundRect(X1, Y1, X2, Y2, X3, Y3);
  handleExceptionEnd
end;

//CLASSMETHOD:
//PARAMS:2=nonPtr
procedure Canvas_StretchDraw(AObj: TCanvas; var Rect: TRect; Graphic: TGraphic); extdecl;
begin
  handleExceptionBegin
  AObj.StretchDraw(Rect, Graphic);
  handleExceptionEnd
end;

//CLASSMETHOD:
//RETURNISLASTPARAM:
procedure Canvas_TextExtent(AObj: TCanvas; Text: PChar; var Result: TSize); extdecl;
begin
  handleExceptionBegin
  Result :=  AObj.TextExtent(Text);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_TextOut(AObj: TCanvas; X: Integer; Y: Integer; Text: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.TextOut(X, Y, Text);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_Lock(AObj: TCanvas); extdecl;
begin
  handleExceptionBegin
  AObj.Lock;
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_TextHeight(AObj: TCanvas; Text: PChar): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.TextHeight(Text);
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_TextWidth(AObj: TCanvas; Text: PChar): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.TextWidth(Text);
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_TryLock(AObj: TCanvas): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.TryLock;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_Unlock(AObj: TCanvas); extdecl;
begin
  handleExceptionBegin
  AObj.Unlock;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Canvas_Assign(AObj: TCanvas; Source: TPersistent); extdecl;
begin
  handleExceptionBegin
  AObj.Assign(Source);
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_GetNamePath(AObj: TCanvas): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.GetNamePath);
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_ClassType(AObj: TCanvas): TClass; extdecl;
begin
{$ifdef UsehandleException}Result := TClass(nil);{$endif}
  handleExceptionBegin
  Result :=  AObj.ClassType;
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_ClassName(AObj: TCanvas): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  ToPChar(AObj.ClassName);
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_InstanceSize(AObj: TCanvas): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.InstanceSize;
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_InheritsFrom(AObj: TCanvas; AClass: TClass): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.InheritsFrom(AClass);
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_Equals(AObj: TCanvas; Obj: TObject): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Equals(Obj);
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_GetHashCode(AObj: TCanvas): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.GetHashCode;
  handleExceptionEnd
end;

//CLASSMETHOD:
function Canvas_ToString(AObj: TCanvas): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.ToString);
  handleExceptionEnd
end;

function Canvas_GetHandle(AObj: TCanvas): HDC; extdecl;
begin
{$ifdef UsehandleException}Result := HDC(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Handle;
  handleExceptionEnd
end;

procedure Canvas_SetHandle(AObj: TCanvas; AValue: HDC); extdecl;
begin
  handleExceptionBegin
  AObj.Handle := AValue;
  handleExceptionEnd
end;

function Canvas_GetBrush(AObj: TCanvas): TBrush; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Brush;
  handleExceptionEnd
end;

procedure Canvas_SetBrush(AObj: TCanvas; AValue: TBrush); extdecl;
begin
  handleExceptionBegin
  AObj.Brush := AValue;
  handleExceptionEnd
end;

function Canvas_GetCopyMode(AObj: TCanvas): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.CopyMode;
  handleExceptionEnd
end;

procedure Canvas_SetCopyMode(AObj: TCanvas; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.CopyMode := AValue;
  handleExceptionEnd
end;

function Canvas_GetFont(AObj: TCanvas): TFont; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Font;
  handleExceptionEnd
end;

procedure Canvas_SetFont(AObj: TCanvas; AValue: TFont); extdecl;
begin
  handleExceptionBegin
  AObj.Font := AValue;
  handleExceptionEnd
end;

function Canvas_GetPen(AObj: TCanvas): TPen; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Pen;
  handleExceptionEnd
end;

procedure Canvas_SetPen(AObj: TCanvas; AValue: TPen); extdecl;
begin
  handleExceptionBegin
  AObj.Pen := AValue;
  handleExceptionEnd
end;

//EVENT_TYPE:TNotifyEvent
procedure Canvas_SetOnChange(AObj: TCanvas; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTNotifyEvent}
  {$DEFINE EventName := OnChange}
  EventMethodCode
end;

//EVENT_TYPE:TNotifyEvent
procedure Canvas_SetOnChanging(AObj: TCanvas; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTNotifyEvent}
  {$DEFINE EventName := OnChanging}
  EventMethodCode
end;

function Canvas_GetPixels(AObj: TCanvas; X: Integer; Y: Integer): TColor; extdecl;
begin
{$ifdef UsehandleException}Result := TColor(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Pixels[X, Y];
  handleExceptionEnd
end;

procedure Canvas_SetPixels(AObj: TCanvas; X: Integer; Y: Integer; AValue: TColor); extdecl;
begin
  handleExceptionBegin
  AObj.Pixels[X, Y] := AValue;
  handleExceptionEnd
end;

function Canvas_StaticClassType: TClass; extdecl;
begin
  Result := TCanvas;
end;

exports
  Canvas_Create,
  Canvas_Free,
  Canvas_Arc,
  Canvas_ArcTo,
  Canvas_AngleArc,
  Canvas_Chord,
  Canvas_Ellipse,
  Canvas_FloodFill,
  Canvas_HandleAllocated,
  Canvas_LineTo,
  Canvas_MoveTo,
  Canvas_Pie,
  Canvas_Rectangle,
  Canvas_Refresh,
  Canvas_RoundRect,
  Canvas_StretchDraw,
  Canvas_TextExtent,
  Canvas_TextOut,
  Canvas_Lock,
  Canvas_TextHeight,
  Canvas_TextWidth,
  Canvas_TryLock,
  Canvas_Unlock,
  Canvas_Assign,
  Canvas_GetNamePath,
  Canvas_ClassType,
  Canvas_ClassName,
  Canvas_InstanceSize,
  Canvas_InheritsFrom,
  Canvas_Equals,
  Canvas_GetHashCode,
  Canvas_ToString,
  Canvas_GetHandle,
  Canvas_SetHandle,
  Canvas_GetBrush,
  Canvas_SetBrush,
  Canvas_GetCopyMode,
  Canvas_SetCopyMode,
  Canvas_GetFont,
  Canvas_SetFont,
  Canvas_GetPen,
  Canvas_SetPen,
  Canvas_SetOnChange,
  Canvas_SetOnChanging,
  Canvas_GetPixels,
  Canvas_SetPixels,
  Canvas_StaticClassType;