MyLCL_BitBtn.inc

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

function BitBtn_Create(AOwner: TComponent): TBitBtn; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  TBitBtn.Create(AOwner);
  handleExceptionEnd
end;

procedure BitBtn_Free(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.Free;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_Click(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.Click;
  handleExceptionEnd
end;

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

//CLASSMETHOD:
function BitBtn_ContainsControl(AObj: TBitBtn; Control: TControl): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.ContainsControl(Control);
  handleExceptionEnd
end;

//CLASSMETHOD:
//PARAMS:2=nonPtr
function BitBtn_ControlAtPos(AObj: TBitBtn; var Pos: TPoint; AllowDisabled: LongBool; AllowWinControls: LongBool): TControl; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.ControlAtPos(Pos, AllowDisabled, AllowWinControls);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_DisableAlign(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.DisableAlign;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_EnableAlign(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.EnableAlign;
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_FindChildControl(AObj: TBitBtn; ControlName: PChar): TControl; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.FindChildControl(ControlName);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_FlipChildren(AObj: TBitBtn; AllLevels: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.FlipChildren(AllLevels);
  handleExceptionEnd
end;

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

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

//CLASSMETHOD:
procedure BitBtn_InsertControl(AObj: TBitBtn; AControl: TControl); extdecl;
begin
  handleExceptionBegin
  AObj.InsertControl(AControl);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_Invalidate(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.Invalidate;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_PaintTo(AObj: TBitBtn; DC: HDC; X: Integer; Y: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.PaintTo(DC, X, Y);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_RemoveControl(AObj: TBitBtn; AControl: TControl); extdecl;
begin
  handleExceptionBegin
  AObj.RemoveControl(AControl);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_Realign(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.Realign;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_Repaint(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.Repaint;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_ScaleBy(AObj: TBitBtn; M: Integer; D: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.ScaleBy(M, D);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_ScrollBy(AObj: TBitBtn; DeltaX: Integer; DeltaY: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.ScrollBy(DeltaX, DeltaY);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_SetBounds(AObj: TBitBtn; ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.SetBounds(ALeft, ATop, AWidth, AHeight);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_SetFocus(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.SetFocus;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_Update(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.Update;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_BringToFront(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.BringToFront;
  handleExceptionEnd
end;

//CLASSMETHOD:
//RETURNISLASTPARAM:
//PARAMS:2=nonPtr
procedure BitBtn_ClientToScreen(AObj: TBitBtn; var Point: TPoint; var Result: TPoint); extdecl;
begin
  handleExceptionBegin
  Result :=  AObj.ClientToScreen(Point);
  handleExceptionEnd
end;

//CLASSMETHOD:
//RETURNISLASTPARAM:
//PARAMS:2=nonPtr
procedure BitBtn_ClientToParent(AObj: TBitBtn; var Point: TPoint; AParent: TWinControl; var Result: TPoint); extdecl;
begin
  handleExceptionBegin
  Result :=  AObj.ClientToParent(Point, AParent);
  handleExceptionEnd
end;

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

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

//CLASSMETHOD:
procedure BitBtn_Hide(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.Hide;
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_Perform(AObj: TBitBtn; Msg: Cardinal; WParam: NativeUInt; LParam: NativeInt): NativeInt; extdecl;
begin
{$ifdef UsehandleException}Result := NativeInt(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Perform(Msg, WParam, LParam);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_Refresh(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.Refresh;
  handleExceptionEnd
end;

//CLASSMETHOD:
//RETURNISLASTPARAM:
//PARAMS:2=nonPtr
procedure BitBtn_ScreenToClient(AObj: TBitBtn; var Point: TPoint; var Result: TPoint); extdecl;
begin
  handleExceptionBegin
  Result :=  AObj.ScreenToClient(Point);
  handleExceptionEnd
end;

//CLASSMETHOD:
//RETURNISLASTPARAM:
//PARAMS:2=nonPtr
procedure BitBtn_ParentToClient(AObj: TBitBtn; var Point: TPoint; AParent: TWinControl; var Result: TPoint); extdecl;
begin
  handleExceptionBegin
  Result :=  AObj.ParentToClient(Point, AParent);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_SendToBack(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.SendToBack;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_Show(AObj: TBitBtn); extdecl;
begin
  handleExceptionBegin
  AObj.Show;
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_GetTextBuf(AObj: TBitBtn; Buffer: PChar; BufSize: Integer): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.GetTextBuf(Buffer, BufSize);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_GetTextLen(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  {$ifdef darwin}Length(AObj.Caption){$else}AObj.GetTextLen{$endif};
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_SetTextBuf(AObj: TBitBtn; Buffer: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.SetTextBuf(Buffer);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_FindComponent(AObj: TBitBtn; AName: PChar): TComponent; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.FindComponent(AName);
  handleExceptionEnd
end;

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

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

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

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

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

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

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

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

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

//CLASSMETHOD:
procedure BitBtn_AnchorToNeighbour(AObj: TBitBtn; ASide: TAnchorKind; ASpace: Integer; ASibling: TControl); extdecl;
begin
  handleExceptionBegin
  AObj.AnchorToNeighbour(ASide, ASpace, ASibling);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_AnchorParallel(AObj: TBitBtn; ASide: TAnchorKind; ASpace: Integer; ASibling: TControl); extdecl;
begin
  handleExceptionBegin
  AObj.AnchorParallel(ASide, ASpace, ASibling);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_AnchorHorizontalCenterTo(AObj: TBitBtn; ASibling: TControl); extdecl;
begin
  handleExceptionBegin
  AObj.AnchorHorizontalCenterTo(ASibling);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_AnchorVerticalCenterTo(AObj: TBitBtn; ASibling: TControl); extdecl;
begin
  handleExceptionBegin
  AObj.AnchorVerticalCenterTo(ASibling);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_AnchorSame(AObj: TBitBtn; ASide: TAnchorKind; ASibling: TControl); extdecl;
begin
  handleExceptionBegin
  AObj.AnchorSame(ASide, ASibling);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_AnchorAsAlign(AObj: TBitBtn; ATheAlign: TAlign; ASpace: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.AnchorAsAlign(ATheAlign, ASpace);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_AnchorClient(AObj: TBitBtn; ASpace: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.AnchorClient(ASpace);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_ScaleDesignToForm(AObj: TBitBtn; ASize: Integer): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ScaleDesignToForm(ASize);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_ScaleFormToDesign(AObj: TBitBtn; ASize: Integer): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ScaleFormToDesign(ASize);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_Scale96ToForm(AObj: TBitBtn; ASize: Integer): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Scale96ToForm(ASize);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_ScaleFormTo96(AObj: TBitBtn; ASize: Integer): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ScaleFormTo96(ASize);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_Scale96ToFont(AObj: TBitBtn; ASize: Integer): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Scale96ToFont(ASize);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_ScaleFontTo96(AObj: TBitBtn; ASize: Integer): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ScaleFontTo96(ASize);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_ScaleScreenToFont(AObj: TBitBtn; ASize: Integer): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ScaleScreenToFont(ASize);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_ScaleFontToScreen(AObj: TBitBtn; ASize: Integer): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ScaleFontToScreen(ASize);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_Scale96ToScreen(AObj: TBitBtn; ASize: Integer): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Scale96ToScreen(ASize);
  handleExceptionEnd
end;

//CLASSMETHOD:
function BitBtn_ScaleScreenTo96(AObj: TBitBtn; ASize: Integer): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ScaleScreenTo96(ASize);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_AutoAdjustLayout(AObj: TBitBtn; AMode: TLayoutAdjustmentPolicy; AFromPPI: Integer; AToPPI: Integer; AOldFormWidth: Integer; ANewFormWidth: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.AutoAdjustLayout(AMode, AFromPPI, AToPPI, AOldFormWidth, ANewFormWidth);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure BitBtn_FixDesignFontsPPI(AObj: TBitBtn; ADesignTimePPI: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.FixDesignFontsPPI(ADesignTimePPI);
  handleExceptionEnd
end;

//CLASSMETHOD:
//PARAMS:3=nonPtr
procedure BitBtn_ScaleFontsPPI(AObj: TBitBtn; AToPPI: Integer; var AProportion: Double); extdecl;
begin
  handleExceptionBegin
  AObj.ScaleFontsPPI(AToPPI, AProportion);
  handleExceptionEnd
end;

function BitBtn_GetDefaultCaption(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.DefaultCaption;
  handleExceptionEnd
end;

procedure BitBtn_SetDefaultCaption(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.DefaultCaption := AValue;
  handleExceptionEnd
end;

function BitBtn_GetGlyphShowMode(AObj: TBitBtn): TGlyphShowMode; extdecl;
begin
{$ifdef UsehandleException}Result := Low(TGlyphShowMode);{$endif}
  handleExceptionBegin
  Result :=  AObj.GlyphShowMode;
  handleExceptionEnd
end;

procedure BitBtn_SetGlyphShowMode(AObj: TBitBtn; AValue: TGlyphShowMode); extdecl;
begin
  handleExceptionBegin
  AObj.GlyphShowMode := AValue;
  handleExceptionEnd
end;

function BitBtn_GetImageIndex(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ImageIndex;
  handleExceptionEnd
end;

procedure BitBtn_SetImageIndex(AObj: TBitBtn; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.ImageIndex := AValue;
  handleExceptionEnd
end;

function BitBtn_GetImages(AObj: TBitBtn): TCustomImageList; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Images;
  handleExceptionEnd
end;

procedure BitBtn_SetImages(AObj: TBitBtn; AValue: TCustomImageList); extdecl;
begin
  handleExceptionBegin
  AObj.Images := AValue;
  handleExceptionEnd
end;

function BitBtn_GetImageWidth(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ImageWidth;
  handleExceptionEnd
end;

procedure BitBtn_SetImageWidth(AObj: TBitBtn; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.ImageWidth := AValue;
  handleExceptionEnd
end;

function BitBtn_GetAction(AObj: TBitBtn): TBasicAction; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Action;
  handleExceptionEnd
end;

procedure BitBtn_SetAction(AObj: TBitBtn; AValue: TBasicAction); extdecl;
begin
  handleExceptionBegin
  AObj.Action := AValue;
  handleExceptionEnd
end;

function BitBtn_GetAlign(AObj: TBitBtn): TAlign; extdecl;
begin
{$ifdef UsehandleException}Result := Low(TAlign);{$endif}
  handleExceptionBegin
  Result :=  AObj.Align;
  handleExceptionEnd
end;

procedure BitBtn_SetAlign(AObj: TBitBtn; AValue: TAlign); extdecl;
begin
  handleExceptionBegin
  AObj.Align := AValue;
  handleExceptionEnd
end;

function BitBtn_GetAnchors(AObj: TBitBtn): TAnchors; extdecl;
begin
{$ifdef UsehandleException}Result := [];{$endif}
  handleExceptionBegin
  Result :=  AObj.Anchors;
  handleExceptionEnd
end;

procedure BitBtn_SetAnchors(AObj: TBitBtn; AValue: TAnchors); extdecl;
begin
  handleExceptionBegin
  AObj.Anchors := AValue;
  handleExceptionEnd
end;

function BitBtn_GetBiDiMode(AObj: TBitBtn): TBiDiMode; extdecl;
begin
{$ifdef UsehandleException}Result := Low(TBiDiMode);{$endif}
  handleExceptionBegin
  Result :=  AObj.BiDiMode;
  handleExceptionEnd
end;

procedure BitBtn_SetBiDiMode(AObj: TBitBtn; AValue: TBiDiMode); extdecl;
begin
  handleExceptionBegin
  AObj.BiDiMode := AValue;
  handleExceptionEnd
end;

function BitBtn_GetCancel(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Cancel;
  handleExceptionEnd
end;

procedure BitBtn_SetCancel(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.Cancel := AValue;
  handleExceptionEnd
end;

function BitBtn_GetCaption(AObj: TBitBtn): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.Caption);
  handleExceptionEnd
end;

procedure BitBtn_SetCaption(AObj: TBitBtn; AValue: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.Caption := AValue;
  handleExceptionEnd
end;

function BitBtn_GetConstraints(AObj: TBitBtn): TSizeConstraints; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Constraints;
  handleExceptionEnd
end;

procedure BitBtn_SetConstraints(AObj: TBitBtn; AValue: TSizeConstraints); extdecl;
begin
  handleExceptionBegin
  AObj.Constraints := AValue;
  handleExceptionEnd
end;

function BitBtn_GetDefault(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Default;
  handleExceptionEnd
end;

procedure BitBtn_SetDefault(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.Default := AValue;
  handleExceptionEnd
end;

function BitBtn_GetDoubleBuffered(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.DoubleBuffered;
  handleExceptionEnd
end;

procedure BitBtn_SetDoubleBuffered(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.DoubleBuffered := AValue;
  handleExceptionEnd
end;

function BitBtn_GetEnabled(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Enabled;
  handleExceptionEnd
end;

procedure BitBtn_SetEnabled(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.Enabled := AValue;
  handleExceptionEnd
end;

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

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

function BitBtn_GetGlyph(AObj: TBitBtn): TBitmap; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Glyph;
  handleExceptionEnd
end;

procedure BitBtn_SetGlyph(AObj: TBitBtn; AValue: TBitmap); extdecl;
begin
  handleExceptionBegin
  AObj.Glyph := AValue;
  handleExceptionEnd
end;

function BitBtn_GetKind(AObj: TBitBtn): TBitBtnKind; extdecl;
begin
{$ifdef UsehandleException}Result := Low(TBitBtnKind);{$endif}
  handleExceptionBegin
  Result :=  AObj.Kind;
  handleExceptionEnd
end;

procedure BitBtn_SetKind(AObj: TBitBtn; AValue: TBitBtnKind); extdecl;
begin
  handleExceptionBegin
  AObj.Kind := AValue;
  handleExceptionEnd
end;

function BitBtn_GetLayout(AObj: TBitBtn): TButtonLayout; extdecl;
begin
{$ifdef UsehandleException}Result := Low(TButtonLayout);{$endif}
  handleExceptionBegin
  Result :=  AObj.Layout;
  handleExceptionEnd
end;

procedure BitBtn_SetLayout(AObj: TBitBtn; AValue: TButtonLayout); extdecl;
begin
  handleExceptionBegin
  AObj.Layout := AValue;
  handleExceptionEnd
end;

function BitBtn_GetModalResult(AObj: TBitBtn): TModalResult; extdecl;
begin
{$ifdef UsehandleException}Result := TModalResult(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ModalResult;
  handleExceptionEnd
end;

procedure BitBtn_SetModalResult(AObj: TBitBtn; AValue: TModalResult); extdecl;
begin
  handleExceptionBegin
  AObj.ModalResult := AValue;
  handleExceptionEnd
end;

function BitBtn_GetNumGlyphs(AObj: TBitBtn): TNumGlyphs; extdecl;
begin
{$ifdef UsehandleException}Result := TNumGlyphs(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.NumGlyphs;
  handleExceptionEnd
end;

procedure BitBtn_SetNumGlyphs(AObj: TBitBtn; AValue: TNumGlyphs); extdecl;
begin
  handleExceptionBegin
  AObj.NumGlyphs := AValue;
  handleExceptionEnd
end;

function BitBtn_GetParentDoubleBuffered(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.ParentDoubleBuffered;
  handleExceptionEnd
end;

procedure BitBtn_SetParentDoubleBuffered(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.ParentDoubleBuffered := AValue;
  handleExceptionEnd
end;

function BitBtn_GetParentFont(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.ParentFont;
  handleExceptionEnd
end;

procedure BitBtn_SetParentFont(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.ParentFont := AValue;
  handleExceptionEnd
end;

function BitBtn_GetParentShowHint(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.ParentShowHint;
  handleExceptionEnd
end;

procedure BitBtn_SetParentShowHint(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.ParentShowHint := AValue;
  handleExceptionEnd
end;

function BitBtn_GetPopupMenu(AObj: TBitBtn): TPopupMenu; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.PopupMenu;
  handleExceptionEnd
end;

procedure BitBtn_SetPopupMenu(AObj: TBitBtn; AValue: TPopupMenu); extdecl;
begin
  handleExceptionBegin
  AObj.PopupMenu := AValue;
  handleExceptionEnd
end;

function BitBtn_GetShowHint(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.ShowHint;
  handleExceptionEnd
end;

procedure BitBtn_SetShowHint(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.ShowHint := AValue;
  handleExceptionEnd
end;

function BitBtn_GetSpacing(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Spacing;
  handleExceptionEnd
end;

procedure BitBtn_SetSpacing(AObj: TBitBtn; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Spacing := AValue;
  handleExceptionEnd
end;

function BitBtn_GetTabOrder(AObj: TBitBtn): TTabOrder; extdecl;
begin
{$ifdef UsehandleException}Result := TTabOrder(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.TabOrder;
  handleExceptionEnd
end;

procedure BitBtn_SetTabOrder(AObj: TBitBtn; AValue: TTabOrder); extdecl;
begin
  handleExceptionBegin
  AObj.TabOrder := AValue;
  handleExceptionEnd
end;

function BitBtn_GetTabStop(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.TabStop;
  handleExceptionEnd
end;

procedure BitBtn_SetTabStop(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.TabStop := AValue;
  handleExceptionEnd
end;

function BitBtn_GetVisible(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Visible;
  handleExceptionEnd
end;

procedure BitBtn_SetVisible(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.Visible := AValue;
  handleExceptionEnd
end;

//EVENT_TYPE:TNotifyEvent
procedure BitBtn_SetOnClick(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTNotifyEvent}
  {$DEFINE EventName := OnClick}
  EventMethodCode
end;

//EVENT_TYPE:TContextPopupEvent
procedure BitBtn_SetOnContextPopup(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTContextPopupEvent}
  {$DEFINE EventName := OnContextPopup}
  EventMethodCode
end;

//EVENT_TYPE:TDragDropEvent
procedure BitBtn_SetOnDragDrop(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTDragDropEvent}
  {$DEFINE EventName := OnDragDrop}
  EventMethodCode
end;

//EVENT_TYPE:TDragOverEvent
procedure BitBtn_SetOnDragOver(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTDragOverEvent}
  {$DEFINE EventName := OnDragOver}
  EventMethodCode
end;

//EVENT_TYPE:TEndDragEvent
procedure BitBtn_SetOnEndDrag(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTEndDragEvent}
  {$DEFINE EventName := OnEndDrag}
  EventMethodCode
end;

//EVENT_TYPE:TNotifyEvent
procedure BitBtn_SetOnEnter(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTNotifyEvent}
  {$DEFINE EventName := OnEnter}
  EventMethodCode
end;

//EVENT_TYPE:TNotifyEvent
procedure BitBtn_SetOnExit(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTNotifyEvent}
  {$DEFINE EventName := OnExit}
  EventMethodCode
end;

//EVENT_TYPE:TKeyEvent
procedure BitBtn_SetOnKeyDown(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTKeyEvent}
  {$DEFINE EventName := OnKeyDown}
  EventMethodCode
end;

//EVENT_TYPE:TKeyPressEvent
procedure BitBtn_SetOnKeyPress(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTKeyPressEvent}
  {$DEFINE EventName := OnKeyPress}
  EventMethodCode
end;

//EVENT_TYPE:TKeyEvent
procedure BitBtn_SetOnKeyUp(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTKeyEvent}
  {$DEFINE EventName := OnKeyUp}
  EventMethodCode
end;

//EVENT_TYPE:TMouseEvent
procedure BitBtn_SetOnMouseDown(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTMouseEvent}
  {$DEFINE EventName := OnMouseDown}
  EventMethodCode
end;

//EVENT_TYPE:TNotifyEvent
procedure BitBtn_SetOnMouseEnter(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTNotifyEvent}
  {$DEFINE EventName := OnMouseEnter}
  EventMethodCode
end;

//EVENT_TYPE:TNotifyEvent
procedure BitBtn_SetOnMouseLeave(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTNotifyEvent}
  {$DEFINE EventName := OnMouseLeave}
  EventMethodCode
end;

//EVENT_TYPE:TMouseMoveEvent
procedure BitBtn_SetOnMouseMove(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTMouseMoveEvent}
  {$DEFINE EventName := OnMouseMove}
  EventMethodCode
end;

//EVENT_TYPE:TMouseEvent
procedure BitBtn_SetOnMouseUp(AObj: TBitBtn; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTMouseEvent}
  {$DEFINE EventName := OnMouseUp}
  EventMethodCode
end;

function BitBtn_GetDockClientCount(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.DockClientCount;
  handleExceptionEnd
end;

function BitBtn_GetDockSite(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.DockSite;
  handleExceptionEnd
end;

procedure BitBtn_SetDockSite(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.DockSite := AValue;
  handleExceptionEnd
end;

function BitBtn_GetMouseInClient(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.MouseInClient;
  handleExceptionEnd
end;

function BitBtn_GetVisibleDockClientCount(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.VisibleDockClientCount;
  handleExceptionEnd
end;

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

function BitBtn_GetControlCount(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ControlCount;
  handleExceptionEnd
end;

function BitBtn_GetHandle(AObj: TBitBtn): HWND; extdecl;
begin
{$ifdef UsehandleException}Result := HWND(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Handle;
  handleExceptionEnd
end;

function BitBtn_GetParentWindow(AObj: TBitBtn): HWND; extdecl;
begin
{$ifdef UsehandleException}Result := HWND(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ParentWindow;
  handleExceptionEnd
end;

procedure BitBtn_SetParentWindow(AObj: TBitBtn; AValue: HWND); extdecl;
begin
  handleExceptionBegin
  AObj.ParentWindow := AValue;
  handleExceptionEnd
end;

function BitBtn_GetShowing(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Showing;
  handleExceptionEnd
end;

function BitBtn_GetUseDockManager(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.UseDockManager;
  handleExceptionEnd
end;

procedure BitBtn_SetUseDockManager(AObj: TBitBtn; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.UseDockManager := AValue;
  handleExceptionEnd
end;

//RETURNISLASTPARAM:
procedure BitBtn_GetBoundsRect(AObj: TBitBtn; var Result: TRect); extdecl;
begin
  handleExceptionBegin
  Result :=  AObj.BoundsRect;
  handleExceptionEnd
end;

//PARAMS:2=nonPtr
procedure BitBtn_SetBoundsRect(AObj: TBitBtn; var AValue: TRect); extdecl;
begin
  handleExceptionBegin
  AObj.BoundsRect := AValue;
  handleExceptionEnd
end;

function BitBtn_GetClientHeight(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ClientHeight;
  handleExceptionEnd
end;

procedure BitBtn_SetClientHeight(AObj: TBitBtn; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.ClientHeight := AValue;
  handleExceptionEnd
end;

//RETURNISLASTPARAM:
procedure BitBtn_GetClientOrigin(AObj: TBitBtn; var Result: TPoint); extdecl;
begin
  handleExceptionBegin
  Result :=  AObj.ClientOrigin;
  handleExceptionEnd
end;

//RETURNISLASTPARAM:
procedure BitBtn_GetClientRect(AObj: TBitBtn; var Result: TRect); extdecl;
begin
  handleExceptionBegin
  Result :=  AObj.ClientRect;
  handleExceptionEnd
end;

function BitBtn_GetClientWidth(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ClientWidth;
  handleExceptionEnd
end;

procedure BitBtn_SetClientWidth(AObj: TBitBtn; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.ClientWidth := AValue;
  handleExceptionEnd
end;

function BitBtn_GetControlState(AObj: TBitBtn): TControlState; extdecl;
begin
{$ifdef UsehandleException}Result := [];{$endif}
  handleExceptionBegin
  Result :=  AObj.ControlState;
  handleExceptionEnd
end;

procedure BitBtn_SetControlState(AObj: TBitBtn; AValue: TControlState); extdecl;
begin
  handleExceptionBegin
  AObj.ControlState := AValue;
  handleExceptionEnd
end;

function BitBtn_GetControlStyle(AObj: TBitBtn): TControlStyle; extdecl;
begin
{$ifdef UsehandleException}Result := [];{$endif}
  handleExceptionBegin
  Result :=  AObj.ControlStyle;
  handleExceptionEnd
end;

procedure BitBtn_SetControlStyle(AObj: TBitBtn; AValue: TControlStyle); extdecl;
begin
  handleExceptionBegin
  AObj.ControlStyle := AValue;
  handleExceptionEnd
end;

function BitBtn_GetFloating(AObj: TBitBtn): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Floating;
  handleExceptionEnd
end;

function BitBtn_GetParent(AObj: TBitBtn): TWinControl; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Parent;
  handleExceptionEnd
end;

procedure BitBtn_SetParent(AObj: TBitBtn; AValue: TWinControl); extdecl;
begin
  handleExceptionBegin
  AObj.Parent := AValue;
  handleExceptionEnd
end;

function BitBtn_GetLeft(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Left;
  handleExceptionEnd
end;

procedure BitBtn_SetLeft(AObj: TBitBtn; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Left := AValue;
  handleExceptionEnd
end;

function BitBtn_GetTop(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Top;
  handleExceptionEnd
end;

procedure BitBtn_SetTop(AObj: TBitBtn; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Top := AValue;
  handleExceptionEnd
end;

function BitBtn_GetWidth(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Width;
  handleExceptionEnd
end;

procedure BitBtn_SetWidth(AObj: TBitBtn; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Width := AValue;
  handleExceptionEnd
end;

function BitBtn_GetHeight(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Height;
  handleExceptionEnd
end;

procedure BitBtn_SetHeight(AObj: TBitBtn; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Height := AValue;
  handleExceptionEnd
end;

function BitBtn_GetCursor(AObj: TBitBtn): TCursor; extdecl;
begin
{$ifdef UsehandleException}Result := TCursor(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Cursor;
  handleExceptionEnd
end;

procedure BitBtn_SetCursor(AObj: TBitBtn; AValue: TCursor); extdecl;
begin
  handleExceptionBegin
  AObj.Cursor := AValue;
  handleExceptionEnd
end;

function BitBtn_GetHint(AObj: TBitBtn): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.Hint);
  handleExceptionEnd
end;

procedure BitBtn_SetHint(AObj: TBitBtn; AValue: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.Hint := AValue;
  handleExceptionEnd
end;

function BitBtn_GetComponentCount(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ComponentCount;
  handleExceptionEnd
end;

function BitBtn_GetComponentIndex(AObj: TBitBtn): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ComponentIndex;
  handleExceptionEnd
end;

procedure BitBtn_SetComponentIndex(AObj: TBitBtn; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.ComponentIndex := AValue;
  handleExceptionEnd
end;

function BitBtn_GetOwner(AObj: TBitBtn): TComponent; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Owner;
  handleExceptionEnd
end;

function BitBtn_GetName(AObj: TBitBtn): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.Name);
  handleExceptionEnd
end;

procedure BitBtn_SetName(AObj: TBitBtn; AValue: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.Name := AValue;
  handleExceptionEnd
end;

function BitBtn_GetTag(AObj: TBitBtn): NativeInt; extdecl;
begin
{$ifdef UsehandleException}Result := NativeInt(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Tag;
  handleExceptionEnd
end;

procedure BitBtn_SetTag(AObj: TBitBtn; AValue: NativeInt); extdecl;
begin
  handleExceptionBegin
  AObj.Tag := AValue;
  handleExceptionEnd
end;

function BitBtn_GetAnchorSideLeft(AObj: TBitBtn): TAnchorSide; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.AnchorSideLeft;
  handleExceptionEnd
end;

procedure BitBtn_SetAnchorSideLeft(AObj: TBitBtn; AValue: TAnchorSide); extdecl;
begin
  handleExceptionBegin
  AObj.AnchorSideLeft := AValue;
  handleExceptionEnd
end;

function BitBtn_GetAnchorSideTop(AObj: TBitBtn): TAnchorSide; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.AnchorSideTop;
  handleExceptionEnd
end;

procedure BitBtn_SetAnchorSideTop(AObj: TBitBtn; AValue: TAnchorSide); extdecl;
begin
  handleExceptionBegin
  AObj.AnchorSideTop := AValue;
  handleExceptionEnd
end;

function BitBtn_GetAnchorSideRight(AObj: TBitBtn): TAnchorSide; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.AnchorSideRight;
  handleExceptionEnd
end;

procedure BitBtn_SetAnchorSideRight(AObj: TBitBtn; AValue: TAnchorSide); extdecl;
begin
  handleExceptionBegin
  AObj.AnchorSideRight := AValue;
  handleExceptionEnd
end;

function BitBtn_GetAnchorSideBottom(AObj: TBitBtn): TAnchorSide; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.AnchorSideBottom;
  handleExceptionEnd
end;

procedure BitBtn_SetAnchorSideBottom(AObj: TBitBtn; AValue: TAnchorSide); extdecl;
begin
  handleExceptionBegin
  AObj.AnchorSideBottom := AValue;
  handleExceptionEnd
end;

function BitBtn_GetChildSizing(AObj: TBitBtn): TControlChildSizing; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.ChildSizing;
  handleExceptionEnd
end;

procedure BitBtn_SetChildSizing(AObj: TBitBtn; AValue: TControlChildSizing); extdecl;
begin
  handleExceptionBegin
  AObj.ChildSizing := AValue;
  handleExceptionEnd
end;

function BitBtn_GetBorderSpacing(AObj: TBitBtn): TControlBorderSpacing; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.BorderSpacing;
  handleExceptionEnd
end;

procedure BitBtn_SetBorderSpacing(AObj: TBitBtn; AValue: TControlBorderSpacing); extdecl;
begin
  handleExceptionBegin
  AObj.BorderSpacing := AValue;
  handleExceptionEnd
end;

function BitBtn_GetDockClients(AObj: TBitBtn; Index: Integer): TControl; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.DockClients[Index];
  handleExceptionEnd
end;

function BitBtn_GetControls(AObj: TBitBtn; Index: Integer): TControl; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Controls[Index];
  handleExceptionEnd
end;

function BitBtn_GetComponents(AObj: TBitBtn; AIndex: Integer): TComponent; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Components[AIndex];
  handleExceptionEnd
end;

function BitBtn_GetAnchorSide(AObj: TBitBtn; AKind: TAnchorKind): TAnchorSide; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.AnchorSide[AKind];
  handleExceptionEnd
end;

function BitBtn_StaticClassType: TClass; extdecl;
begin
  Result := TBitBtn;
end;

exports
  BitBtn_Create,
  BitBtn_Free,
  BitBtn_Click,
  BitBtn_CanFocus,
  BitBtn_ContainsControl,
  BitBtn_ControlAtPos,
  BitBtn_DisableAlign,
  BitBtn_EnableAlign,
  BitBtn_FindChildControl,
  BitBtn_FlipChildren,
  BitBtn_Focused,
  BitBtn_HandleAllocated,
  BitBtn_InsertControl,
  BitBtn_Invalidate,
  BitBtn_PaintTo,
  BitBtn_RemoveControl,
  BitBtn_Realign,
  BitBtn_Repaint,
  BitBtn_ScaleBy,
  BitBtn_ScrollBy,
  BitBtn_SetBounds,
  BitBtn_SetFocus,
  BitBtn_Update,
  BitBtn_BringToFront,
  BitBtn_ClientToScreen,
  BitBtn_ClientToParent,
  BitBtn_Dragging,
  BitBtn_HasParent,
  BitBtn_Hide,
  BitBtn_Perform,
  BitBtn_Refresh,
  BitBtn_ScreenToClient,
  BitBtn_ParentToClient,
  BitBtn_SendToBack,
  BitBtn_Show,
  BitBtn_GetTextBuf,
  BitBtn_GetTextLen,
  BitBtn_SetTextBuf,
  BitBtn_FindComponent,
  BitBtn_GetNamePath,
  BitBtn_Assign,
  BitBtn_ClassType,
  BitBtn_ClassName,
  BitBtn_InstanceSize,
  BitBtn_InheritsFrom,
  BitBtn_Equals,
  BitBtn_GetHashCode,
  BitBtn_ToString,
  BitBtn_AnchorToNeighbour,
  BitBtn_AnchorParallel,
  BitBtn_AnchorHorizontalCenterTo,
  BitBtn_AnchorVerticalCenterTo,
  BitBtn_AnchorSame,
  BitBtn_AnchorAsAlign,
  BitBtn_AnchorClient,
  BitBtn_ScaleDesignToForm,
  BitBtn_ScaleFormToDesign,
  BitBtn_Scale96ToForm,
  BitBtn_ScaleFormTo96,
  BitBtn_Scale96ToFont,
  BitBtn_ScaleFontTo96,
  BitBtn_ScaleScreenToFont,
  BitBtn_ScaleFontToScreen,
  BitBtn_Scale96ToScreen,
  BitBtn_ScaleScreenTo96,
  BitBtn_AutoAdjustLayout,
  BitBtn_FixDesignFontsPPI,
  BitBtn_ScaleFontsPPI,
  BitBtn_GetDefaultCaption,
  BitBtn_SetDefaultCaption,
  BitBtn_GetGlyphShowMode,
  BitBtn_SetGlyphShowMode,
  BitBtn_GetImageIndex,
  BitBtn_SetImageIndex,
  BitBtn_GetImages,
  BitBtn_SetImages,
  BitBtn_GetImageWidth,
  BitBtn_SetImageWidth,
  BitBtn_GetAction,
  BitBtn_SetAction,
  BitBtn_GetAlign,
  BitBtn_SetAlign,
  BitBtn_GetAnchors,
  BitBtn_SetAnchors,
  BitBtn_GetBiDiMode,
  BitBtn_SetBiDiMode,
  BitBtn_GetCancel,
  BitBtn_SetCancel,
  BitBtn_GetCaption,
  BitBtn_SetCaption,
  BitBtn_GetConstraints,
  BitBtn_SetConstraints,
  BitBtn_GetDefault,
  BitBtn_SetDefault,
  BitBtn_GetDoubleBuffered,
  BitBtn_SetDoubleBuffered,
  BitBtn_GetEnabled,
  BitBtn_SetEnabled,
  BitBtn_GetFont,
  BitBtn_SetFont,
  BitBtn_GetGlyph,
  BitBtn_SetGlyph,
  BitBtn_GetKind,
  BitBtn_SetKind,
  BitBtn_GetLayout,
  BitBtn_SetLayout,
  BitBtn_GetModalResult,
  BitBtn_SetModalResult,
  BitBtn_GetNumGlyphs,
  BitBtn_SetNumGlyphs,
  BitBtn_GetParentDoubleBuffered,
  BitBtn_SetParentDoubleBuffered,
  BitBtn_GetParentFont,
  BitBtn_SetParentFont,
  BitBtn_GetParentShowHint,
  BitBtn_SetParentShowHint,
  BitBtn_GetPopupMenu,
  BitBtn_SetPopupMenu,
  BitBtn_GetShowHint,
  BitBtn_SetShowHint,
  BitBtn_GetSpacing,
  BitBtn_SetSpacing,
  BitBtn_GetTabOrder,
  BitBtn_SetTabOrder,
  BitBtn_GetTabStop,
  BitBtn_SetTabStop,
  BitBtn_GetVisible,
  BitBtn_SetVisible,
  BitBtn_SetOnClick,
  BitBtn_SetOnContextPopup,
  BitBtn_SetOnDragDrop,
  BitBtn_SetOnDragOver,
  BitBtn_SetOnEndDrag,
  BitBtn_SetOnEnter,
  BitBtn_SetOnExit,
  BitBtn_SetOnKeyDown,
  BitBtn_SetOnKeyPress,
  BitBtn_SetOnKeyUp,
  BitBtn_SetOnMouseDown,
  BitBtn_SetOnMouseEnter,
  BitBtn_SetOnMouseLeave,
  BitBtn_SetOnMouseMove,
  BitBtn_SetOnMouseUp,
  BitBtn_GetDockClientCount,
  BitBtn_GetDockSite,
  BitBtn_SetDockSite,
  BitBtn_GetMouseInClient,
  BitBtn_GetVisibleDockClientCount,
  BitBtn_GetBrush,
  BitBtn_GetControlCount,
  BitBtn_GetHandle,
  BitBtn_GetParentWindow,
  BitBtn_SetParentWindow,
  BitBtn_GetShowing,
  BitBtn_GetUseDockManager,
  BitBtn_SetUseDockManager,
  BitBtn_GetBoundsRect,
  BitBtn_SetBoundsRect,
  BitBtn_GetClientHeight,
  BitBtn_SetClientHeight,
  BitBtn_GetClientOrigin,
  BitBtn_GetClientRect,
  BitBtn_GetClientWidth,
  BitBtn_SetClientWidth,
  BitBtn_GetControlState,
  BitBtn_SetControlState,
  BitBtn_GetControlStyle,
  BitBtn_SetControlStyle,
  BitBtn_GetFloating,
  BitBtn_GetParent,
  BitBtn_SetParent,
  BitBtn_GetLeft,
  BitBtn_SetLeft,
  BitBtn_GetTop,
  BitBtn_SetTop,
  BitBtn_GetWidth,
  BitBtn_SetWidth,
  BitBtn_GetHeight,
  BitBtn_SetHeight,
  BitBtn_GetCursor,
  BitBtn_SetCursor,
  BitBtn_GetHint,
  BitBtn_SetHint,
  BitBtn_GetComponentCount,
  BitBtn_GetComponentIndex,
  BitBtn_SetComponentIndex,
  BitBtn_GetOwner,
  BitBtn_GetName,
  BitBtn_SetName,
  BitBtn_GetTag,
  BitBtn_SetTag,
  BitBtn_GetAnchorSideLeft,
  BitBtn_SetAnchorSideLeft,
  BitBtn_GetAnchorSideTop,
  BitBtn_SetAnchorSideTop,
  BitBtn_GetAnchorSideRight,
  BitBtn_SetAnchorSideRight,
  BitBtn_GetAnchorSideBottom,
  BitBtn_SetAnchorSideBottom,
  BitBtn_GetChildSizing,
  BitBtn_SetChildSizing,
  BitBtn_GetBorderSpacing,
  BitBtn_SetBorderSpacing,
  BitBtn_GetDockClients,
  BitBtn_GetControls,
  BitBtn_GetComponents,
  BitBtn_GetAnchorSide,
  BitBtn_StaticClassType;