MyLCL_ParaAttributes.inc

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

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

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

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

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

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

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

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

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

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

function ParaAttributes_GetAlignment(AObj: TParaAttributes): TAlignment; extdecl;
begin
{$ifdef UsehandleException}Result := Low(TAlignment);{$endif}
  handleExceptionBegin
  Result :=  AObj.Alignment;
  handleExceptionEnd
end;

procedure ParaAttributes_SetAlignment(AObj: TParaAttributes; AValue: TAlignment); extdecl;
begin
  handleExceptionBegin
  AObj.Alignment := AValue;
  handleExceptionEnd
end;

function ParaAttributes_GetFirstIndent(AObj: TParaAttributes): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.FirstIndent;
  handleExceptionEnd
end;

procedure ParaAttributes_SetFirstIndent(AObj: TParaAttributes; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.FirstIndent := AValue;
  handleExceptionEnd
end;

function ParaAttributes_GetLeftIndent(AObj: TParaAttributes): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.LeftIndent;
  handleExceptionEnd
end;

procedure ParaAttributes_SetLeftIndent(AObj: TParaAttributes; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.LeftIndent := AValue;
  handleExceptionEnd
end;

function ParaAttributes_GetNumbering(AObj: TParaAttributes): TNumberingStyle; extdecl;
begin
{$ifdef UsehandleException}Result := Low(TNumberingStyle);{$endif}
  handleExceptionBegin
  Result :=  AObj.Numbering;
  handleExceptionEnd
end;

procedure ParaAttributes_SetNumbering(AObj: TParaAttributes; AValue: TNumberingStyle); extdecl;
begin
  handleExceptionBegin
  AObj.Numbering := AValue;
  handleExceptionEnd
end;

function ParaAttributes_GetRightIndent(AObj: TParaAttributes): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.RightIndent;
  handleExceptionEnd
end;

procedure ParaAttributes_SetRightIndent(AObj: TParaAttributes; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.RightIndent := AValue;
  handleExceptionEnd
end;

function ParaAttributes_GetTabCount(AObj: TParaAttributes): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.TabCount;
  handleExceptionEnd
end;

procedure ParaAttributes_SetTabCount(AObj: TParaAttributes; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.TabCount := AValue;
  handleExceptionEnd
end;

function ParaAttributes_GetTab(AObj: TParaAttributes; Index: Byte): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Tab[Index];
  handleExceptionEnd
end;

procedure ParaAttributes_SetTab(AObj: TParaAttributes; Index: Byte; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Tab[Index] := AValue;
  handleExceptionEnd
end;

function ParaAttributes_StaticClassType: TClass; extdecl;
begin
  Result := TParaAttributes;
end;

exports
  ParaAttributes_Assign,
  ParaAttributes_GetNamePath,
  ParaAttributes_ClassType,
  ParaAttributes_ClassName,
  ParaAttributes_InstanceSize,
  ParaAttributes_InheritsFrom,
  ParaAttributes_Equals,
  ParaAttributes_GetHashCode,
  ParaAttributes_ToString,
  ParaAttributes_GetAlignment,
  ParaAttributes_SetAlignment,
  ParaAttributes_GetFirstIndent,
  ParaAttributes_SetFirstIndent,
  ParaAttributes_GetLeftIndent,
  ParaAttributes_SetLeftIndent,
  ParaAttributes_GetNumbering,
  ParaAttributes_SetNumbering,
  ParaAttributes_GetRightIndent,
  ParaAttributes_SetRightIndent,
  ParaAttributes_GetTabCount,
  ParaAttributes_SetTabCount,
  ParaAttributes_GetTab,
  ParaAttributes_SetTab,
  ParaAttributes_StaticClassType;