MyLCL_ToolButton.inc

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

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

procedure ToolButton_Free(AObj: TToolButton); extdecl;
begin
  handleExceptionBegin
  AObj.Free;
  handleExceptionEnd
end;

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

//CLASSMETHOD:
procedure ToolButton_Click(AObj: TToolButton); extdecl;
begin
  handleExceptionBegin
  AObj.Click;
  handleExceptionEnd
end;

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

//CLASSMETHOD:
procedure ToolButton_BringToFront(AObj: TToolButton); extdecl;
begin
  handleExceptionBegin
  AObj.BringToFront;
  handleExceptionEnd
end;

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

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

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

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

//CLASSMETHOD:
procedure ToolButton_Hide(AObj: TToolButton); extdecl;
begin
  handleExceptionBegin
  AObj.Hide;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure ToolButton_Invalidate(AObj: TToolButton); extdecl;
begin
  handleExceptionBegin
  AObj.Invalidate;
  handleExceptionEnd
end;

//CLASSMETHOD:
function ToolButton_Perform(AObj: TToolButton; 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 ToolButton_Refresh(AObj: TToolButton); extdecl;
begin
  handleExceptionBegin
  AObj.Refresh;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure ToolButton_Repaint(AObj: TToolButton); extdecl;
begin
  handleExceptionBegin
  AObj.Repaint;
  handleExceptionEnd
end;

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

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

//CLASSMETHOD:
procedure ToolButton_SendToBack(AObj: TToolButton); extdecl;
begin
  handleExceptionBegin
  AObj.SendToBack;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure ToolButton_Show(AObj: TToolButton); extdecl;
begin
  handleExceptionBegin
  AObj.Show;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure ToolButton_Update(AObj: TToolButton); extdecl;
begin
  handleExceptionBegin
  AObj.Update;
  handleExceptionEnd
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

function ToolButton_GetIndex(AObj: TToolButton): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Index;
  handleExceptionEnd
end;

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

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

function ToolButton_GetAllowAllUp(AObj: TToolButton): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.AllowAllUp;
  handleExceptionEnd
end;

procedure ToolButton_SetAllowAllUp(AObj: TToolButton; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.AllowAllUp := AValue;
  handleExceptionEnd
end;

function ToolButton_GetAutoSize(AObj: TToolButton): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.AutoSize;
  handleExceptionEnd
end;

procedure ToolButton_SetAutoSize(AObj: TToolButton; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.AutoSize := AValue;
  handleExceptionEnd
end;

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

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

function ToolButton_GetDown(AObj: TToolButton): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Down;
  handleExceptionEnd
end;

procedure ToolButton_SetDown(AObj: TToolButton; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.Down := AValue;
  handleExceptionEnd
end;

function ToolButton_GetDragCursor(AObj: TToolButton): TCursor; extdecl;
begin
{$ifdef UsehandleException}Result := TCursor(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.DragCursor;
  handleExceptionEnd
end;

procedure ToolButton_SetDragCursor(AObj: TToolButton; AValue: TCursor); extdecl;
begin
  handleExceptionBegin
  AObj.DragCursor := AValue;
  handleExceptionEnd
end;

function ToolButton_GetDragKind(AObj: TToolButton): TDragKind; extdecl;
begin
{$ifdef UsehandleException}Result := Low(TDragKind);{$endif}
  handleExceptionBegin
  Result :=  AObj.DragKind;
  handleExceptionEnd
end;

procedure ToolButton_SetDragKind(AObj: TToolButton; AValue: TDragKind); extdecl;
begin
  handleExceptionBegin
  AObj.DragKind := AValue;
  handleExceptionEnd
end;

function ToolButton_GetDragMode(AObj: TToolButton): TDragMode; extdecl;
begin
{$ifdef UsehandleException}Result := Low(TDragMode);{$endif}
  handleExceptionBegin
  Result :=  AObj.DragMode;
  handleExceptionEnd
end;

procedure ToolButton_SetDragMode(AObj: TToolButton; AValue: TDragMode); extdecl;
begin
  handleExceptionBegin
  AObj.DragMode := AValue;
  handleExceptionEnd
end;

function ToolButton_GetDropdownMenu(AObj: TToolButton): TPopupMenu; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.DropdownMenu;
  handleExceptionEnd
end;

procedure ToolButton_SetDropdownMenu(AObj: TToolButton; AValue: TPopupMenu); extdecl;
begin
  handleExceptionBegin
  AObj.DropdownMenu := AValue;
  handleExceptionEnd
end;

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

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

function ToolButton_GetGrouped(AObj: TToolButton): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Grouped;
  handleExceptionEnd
end;

procedure ToolButton_SetGrouped(AObj: TToolButton; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.Grouped := AValue;
  handleExceptionEnd
end;

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

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

function ToolButton_GetImageIndex(AObj: TToolButton): TImageIndex; extdecl;
begin
{$ifdef UsehandleException}Result := TImageIndex(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ImageIndex;
  handleExceptionEnd
end;

procedure ToolButton_SetImageIndex(AObj: TToolButton; AValue: TImageIndex); extdecl;
begin
  handleExceptionBegin
  AObj.ImageIndex := AValue;
  handleExceptionEnd
end;

function ToolButton_GetIndeterminate(AObj: TToolButton): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Indeterminate;
  handleExceptionEnd
end;

procedure ToolButton_SetIndeterminate(AObj: TToolButton; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.Indeterminate := AValue;
  handleExceptionEnd
end;

function ToolButton_GetMarked(AObj: TToolButton): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Marked;
  handleExceptionEnd
end;

procedure ToolButton_SetMarked(AObj: TToolButton; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.Marked := AValue;
  handleExceptionEnd
end;

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

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

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

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

function ToolButton_GetWrap(AObj: TToolButton): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Wrap;
  handleExceptionEnd
end;

procedure ToolButton_SetWrap(AObj: TToolButton; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.Wrap := AValue;
  handleExceptionEnd
end;

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

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

function ToolButton_GetStyle(AObj: TToolButton): TToolButtonStyle; extdecl;
begin
{$ifdef UsehandleException}Result := Low(TToolButtonStyle);{$endif}
  handleExceptionBegin
  Result :=  AObj.Style;
  handleExceptionEnd
end;

procedure ToolButton_SetStyle(AObj: TToolButton; AValue: TToolButtonStyle); extdecl;
begin
  handleExceptionBegin
  AObj.Style := AValue;
  handleExceptionEnd
end;

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

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

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

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

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

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

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

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

//EVENT_TYPE:TEndDragEvent
procedure ToolButton_SetOnEndDock(AObj: TToolButton; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTEndDragEvent}
  {$DEFINE EventName := OnEndDock}
  EventMethodCode
end;

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

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

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

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

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

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

//EVENT_TYPE:TStartDockEvent
procedure ToolButton_SetOnStartDock(AObj: TToolButton; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTStartDockEvent}
  {$DEFINE EventName := OnStartDock}
  EventMethodCode
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

function ToolButton_StaticClassType: TClass; extdecl;
begin
  Result := TToolButton;
end;

exports
  ToolButton_Create,
  ToolButton_Free,
  ToolButton_CheckMenuDropdown,
  ToolButton_Click,
  ToolButton_SetBounds,
  ToolButton_BringToFront,
  ToolButton_ClientToScreen,
  ToolButton_ClientToParent,
  ToolButton_Dragging,
  ToolButton_HasParent,
  ToolButton_Hide,
  ToolButton_Invalidate,
  ToolButton_Perform,
  ToolButton_Refresh,
  ToolButton_Repaint,
  ToolButton_ScreenToClient,
  ToolButton_ParentToClient,
  ToolButton_SendToBack,
  ToolButton_Show,
  ToolButton_Update,
  ToolButton_GetTextBuf,
  ToolButton_GetTextLen,
  ToolButton_SetTextBuf,
  ToolButton_FindComponent,
  ToolButton_GetNamePath,
  ToolButton_Assign,
  ToolButton_ClassType,
  ToolButton_ClassName,
  ToolButton_InstanceSize,
  ToolButton_InheritsFrom,
  ToolButton_Equals,
  ToolButton_GetHashCode,
  ToolButton_ToString,
  ToolButton_AnchorToNeighbour,
  ToolButton_AnchorParallel,
  ToolButton_AnchorHorizontalCenterTo,
  ToolButton_AnchorVerticalCenterTo,
  ToolButton_AnchorSame,
  ToolButton_AnchorAsAlign,
  ToolButton_AnchorClient,
  ToolButton_ScaleDesignToForm,
  ToolButton_ScaleFormToDesign,
  ToolButton_Scale96ToForm,
  ToolButton_ScaleFormTo96,
  ToolButton_Scale96ToFont,
  ToolButton_ScaleFontTo96,
  ToolButton_ScaleScreenToFont,
  ToolButton_ScaleFontToScreen,
  ToolButton_Scale96ToScreen,
  ToolButton_ScaleScreenTo96,
  ToolButton_AutoAdjustLayout,
  ToolButton_FixDesignFontsPPI,
  ToolButton_ScaleFontsPPI,
  ToolButton_GetIndex,
  ToolButton_GetAction,
  ToolButton_SetAction,
  ToolButton_GetAllowAllUp,
  ToolButton_SetAllowAllUp,
  ToolButton_GetAutoSize,
  ToolButton_SetAutoSize,
  ToolButton_GetCaption,
  ToolButton_SetCaption,
  ToolButton_GetDown,
  ToolButton_SetDown,
  ToolButton_GetDragCursor,
  ToolButton_SetDragCursor,
  ToolButton_GetDragKind,
  ToolButton_SetDragKind,
  ToolButton_GetDragMode,
  ToolButton_SetDragMode,
  ToolButton_GetDropdownMenu,
  ToolButton_SetDropdownMenu,
  ToolButton_GetEnabled,
  ToolButton_SetEnabled,
  ToolButton_GetGrouped,
  ToolButton_SetGrouped,
  ToolButton_GetHeight,
  ToolButton_SetHeight,
  ToolButton_GetImageIndex,
  ToolButton_SetImageIndex,
  ToolButton_GetIndeterminate,
  ToolButton_SetIndeterminate,
  ToolButton_GetMarked,
  ToolButton_SetMarked,
  ToolButton_GetParentShowHint,
  ToolButton_SetParentShowHint,
  ToolButton_GetPopupMenu,
  ToolButton_SetPopupMenu,
  ToolButton_GetWrap,
  ToolButton_SetWrap,
  ToolButton_GetShowHint,
  ToolButton_SetShowHint,
  ToolButton_GetStyle,
  ToolButton_SetStyle,
  ToolButton_GetVisible,
  ToolButton_SetVisible,
  ToolButton_GetWidth,
  ToolButton_SetWidth,
  ToolButton_SetOnClick,
  ToolButton_SetOnContextPopup,
  ToolButton_SetOnDragDrop,
  ToolButton_SetOnDragOver,
  ToolButton_SetOnEndDock,
  ToolButton_SetOnEndDrag,
  ToolButton_SetOnMouseDown,
  ToolButton_SetOnMouseEnter,
  ToolButton_SetOnMouseLeave,
  ToolButton_SetOnMouseMove,
  ToolButton_SetOnMouseUp,
  ToolButton_SetOnStartDock,
  ToolButton_GetAlign,
  ToolButton_SetAlign,
  ToolButton_GetAnchors,
  ToolButton_SetAnchors,
  ToolButton_GetBiDiMode,
  ToolButton_SetBiDiMode,
  ToolButton_GetBoundsRect,
  ToolButton_SetBoundsRect,
  ToolButton_GetClientHeight,
  ToolButton_SetClientHeight,
  ToolButton_GetClientOrigin,
  ToolButton_GetClientRect,
  ToolButton_GetClientWidth,
  ToolButton_SetClientWidth,
  ToolButton_GetConstraints,
  ToolButton_SetConstraints,
  ToolButton_GetControlState,
  ToolButton_SetControlState,
  ToolButton_GetControlStyle,
  ToolButton_SetControlStyle,
  ToolButton_GetFloating,
  ToolButton_GetParent,
  ToolButton_SetParent,
  ToolButton_GetLeft,
  ToolButton_SetLeft,
  ToolButton_GetTop,
  ToolButton_SetTop,
  ToolButton_GetCursor,
  ToolButton_SetCursor,
  ToolButton_GetHint,
  ToolButton_SetHint,
  ToolButton_GetComponentCount,
  ToolButton_GetComponentIndex,
  ToolButton_SetComponentIndex,
  ToolButton_GetOwner,
  ToolButton_GetName,
  ToolButton_SetName,
  ToolButton_GetTag,
  ToolButton_SetTag,
  ToolButton_GetAnchorSideLeft,
  ToolButton_SetAnchorSideLeft,
  ToolButton_GetAnchorSideTop,
  ToolButton_SetAnchorSideTop,
  ToolButton_GetAnchorSideRight,
  ToolButton_SetAnchorSideRight,
  ToolButton_GetAnchorSideBottom,
  ToolButton_SetAnchorSideBottom,
  ToolButton_GetBorderSpacing,
  ToolButton_SetBorderSpacing,
  ToolButton_GetComponents,
  ToolButton_GetAnchorSide,
  ToolButton_StaticClassType;