MyLCL_TaskDialog.inc

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

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

procedure TaskDialog_Free(AObj: TTaskDialog); extdecl;
begin
  handleExceptionBegin
  AObj.Free;
  handleExceptionEnd
end;

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

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

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

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

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

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

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

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

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

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

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

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

function TaskDialog_GetButtons(AObj: TTaskDialog): TTaskDialogButtons; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Buttons;
  handleExceptionEnd
end;

procedure TaskDialog_SetButtons(AObj: TTaskDialog; AValue: TTaskDialogButtons); extdecl;
begin
  handleExceptionBegin
  AObj.Buttons := AValue;
  handleExceptionEnd
end;

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

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

function TaskDialog_GetCommonButtons(AObj: TTaskDialog): TTaskDialogCommonButtons; extdecl;
begin
{$ifdef UsehandleException}Result := [];{$endif}
  handleExceptionBegin
  Result :=  AObj.CommonButtons;
  handleExceptionEnd
end;

procedure TaskDialog_SetCommonButtons(AObj: TTaskDialog; AValue: TTaskDialogCommonButtons); extdecl;
begin
  handleExceptionBegin
  AObj.CommonButtons := AValue;
  handleExceptionEnd
end;

function TaskDialog_GetDefaultButton(AObj: TTaskDialog): TTaskDialogCommonButton; extdecl;
begin
{$ifdef UsehandleException}Result := Low(TTaskDialogCommonButton);{$endif}
  handleExceptionBegin
  Result :=  AObj.DefaultButton;
  handleExceptionEnd
end;

procedure TaskDialog_SetDefaultButton(AObj: TTaskDialog; AValue: TTaskDialogCommonButton); extdecl;
begin
  handleExceptionBegin
  AObj.DefaultButton := AValue;
  handleExceptionEnd
end;

function TaskDialog_GetExpandButtonCaption(AObj: TTaskDialog): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.ExpandButtonCaption);
  handleExceptionEnd
end;

procedure TaskDialog_SetExpandButtonCaption(AObj: TTaskDialog; AValue: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.ExpandButtonCaption := AValue;
  handleExceptionEnd
end;

function TaskDialog_GetExpandedText(AObj: TTaskDialog): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.ExpandedText);
  handleExceptionEnd
end;

procedure TaskDialog_SetExpandedText(AObj: TTaskDialog; AValue: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.ExpandedText := AValue;
  handleExceptionEnd
end;

function TaskDialog_GetFlags(AObj: TTaskDialog): TTaskDialogFlags; extdecl;
begin
{$ifdef UsehandleException}Result := [];{$endif}
  handleExceptionBegin
  Result :=  AObj.Flags;
  handleExceptionEnd
end;

procedure TaskDialog_SetFlags(AObj: TTaskDialog; AValue: TTaskDialogFlags); extdecl;
begin
  handleExceptionBegin
  AObj.Flags := AValue;
  handleExceptionEnd
end;

function TaskDialog_GetFooterIcon(AObj: TTaskDialog): TTaskDialogIcon; extdecl;
begin
{$ifdef UsehandleException}Result := TTaskDialogIcon(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.FooterIcon;
  handleExceptionEnd
end;

procedure TaskDialog_SetFooterIcon(AObj: TTaskDialog; AValue: TTaskDialogIcon); extdecl;
begin
  handleExceptionBegin
  AObj.FooterIcon := AValue;
  handleExceptionEnd
end;

function TaskDialog_GetFooterText(AObj: TTaskDialog): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.FooterText);
  handleExceptionEnd
end;

procedure TaskDialog_SetFooterText(AObj: TTaskDialog; AValue: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.FooterText := AValue;
  handleExceptionEnd
end;

function TaskDialog_GetMainIcon(AObj: TTaskDialog): TTaskDialogIcon; extdecl;
begin
{$ifdef UsehandleException}Result := TTaskDialogIcon(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.MainIcon;
  handleExceptionEnd
end;

procedure TaskDialog_SetMainIcon(AObj: TTaskDialog; AValue: TTaskDialogIcon); extdecl;
begin
  handleExceptionBegin
  AObj.MainIcon := AValue;
  handleExceptionEnd
end;

function TaskDialog_GetRadioButtons(AObj: TTaskDialog): TTaskDialogButtons; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.RadioButtons;
  handleExceptionEnd
end;

procedure TaskDialog_SetRadioButtons(AObj: TTaskDialog; AValue: TTaskDialogButtons); extdecl;
begin
  handleExceptionBegin
  AObj.RadioButtons := AValue;
  handleExceptionEnd
end;

function TaskDialog_GetText(AObj: TTaskDialog): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.Text);
  handleExceptionEnd
end;

procedure TaskDialog_SetText(AObj: TTaskDialog; AValue: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.Text := AValue;
  handleExceptionEnd
end;

function TaskDialog_GetTitle(AObj: TTaskDialog): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.Title);
  handleExceptionEnd
end;

procedure TaskDialog_SetTitle(AObj: TTaskDialog; AValue: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.Title := AValue;
  handleExceptionEnd
end;

function TaskDialog_GetVerificationText(AObj: TTaskDialog): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.VerificationText);
  handleExceptionEnd
end;

procedure TaskDialog_SetVerificationText(AObj: TTaskDialog; AValue: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.VerificationText := AValue;
  handleExceptionEnd
end;

//EVENT_TYPE:TTaskDlgClickEvent
procedure TaskDialog_SetOnButtonClicked(AObj: TTaskDialog; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTTaskDlgClickEvent}
  {$DEFINE EventName := OnButtonClicked}
  EventMethodCode
end;

function TaskDialog_GetButton(AObj: TTaskDialog): TTaskDialogButtonItem; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Button;
  handleExceptionEnd
end;

procedure TaskDialog_SetButton(AObj: TTaskDialog; AValue: TTaskDialogButtonItem); extdecl;
begin
  handleExceptionBegin
  AObj.Button := AValue;
  handleExceptionEnd
end;

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

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

function TaskDialog_GetRadioButton(AObj: TTaskDialog): TTaskDialogRadioButtonItem; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.RadioButton;
  handleExceptionEnd
end;

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

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

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

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

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

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

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

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

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

function TaskDialog_StaticClassType: TClass; extdecl;
begin
  Result := TTaskDialog;
end;

exports
  TaskDialog_Create,
  TaskDialog_Free,
  TaskDialog_Execute,
  TaskDialog_FindComponent,
  TaskDialog_GetNamePath,
  TaskDialog_HasParent,
  TaskDialog_Assign,
  TaskDialog_ClassType,
  TaskDialog_ClassName,
  TaskDialog_InstanceSize,
  TaskDialog_InheritsFrom,
  TaskDialog_Equals,
  TaskDialog_GetHashCode,
  TaskDialog_ToString,
  TaskDialog_GetButtons,
  TaskDialog_SetButtons,
  TaskDialog_GetCaption,
  TaskDialog_SetCaption,
  TaskDialog_GetCommonButtons,
  TaskDialog_SetCommonButtons,
  TaskDialog_GetDefaultButton,
  TaskDialog_SetDefaultButton,
  TaskDialog_GetExpandButtonCaption,
  TaskDialog_SetExpandButtonCaption,
  TaskDialog_GetExpandedText,
  TaskDialog_SetExpandedText,
  TaskDialog_GetFlags,
  TaskDialog_SetFlags,
  TaskDialog_GetFooterIcon,
  TaskDialog_SetFooterIcon,
  TaskDialog_GetFooterText,
  TaskDialog_SetFooterText,
  TaskDialog_GetMainIcon,
  TaskDialog_SetMainIcon,
  TaskDialog_GetRadioButtons,
  TaskDialog_SetRadioButtons,
  TaskDialog_GetText,
  TaskDialog_SetText,
  TaskDialog_GetTitle,
  TaskDialog_SetTitle,
  TaskDialog_GetVerificationText,
  TaskDialog_SetVerificationText,
  TaskDialog_SetOnButtonClicked,
  TaskDialog_GetButton,
  TaskDialog_SetButton,
  TaskDialog_GetModalResult,
  TaskDialog_SetModalResult,
  TaskDialog_GetRadioButton,
  TaskDialog_GetComponentCount,
  TaskDialog_GetComponentIndex,
  TaskDialog_SetComponentIndex,
  TaskDialog_GetOwner,
  TaskDialog_GetName,
  TaskDialog_SetName,
  TaskDialog_GetTag,
  TaskDialog_SetTag,
  TaskDialog_GetComponents,
  TaskDialog_StaticClassType;