MyLCL_HeaderSection.inc

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

function HeaderSection_Create(AOwner: TCollection): THeaderSection; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  THeaderSection.Create(AOwner);
  handleExceptionEnd
end;

procedure HeaderSection_Free(AObj: THeaderSection); extdecl;
begin
  handleExceptionBegin
  AObj.Free;
  handleExceptionEnd
end;

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

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

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

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

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

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

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

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

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

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

function HeaderSection_GetRight(AObj: THeaderSection): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Right;
  handleExceptionEnd
end;

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

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

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

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

function HeaderSection_GetMaxWidth(AObj: THeaderSection): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.MaxWidth;
  handleExceptionEnd
end;

procedure HeaderSection_SetMaxWidth(AObj: THeaderSection; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.MaxWidth := AValue;
  handleExceptionEnd
end;

function HeaderSection_GetMinWidth(AObj: THeaderSection): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.MinWidth;
  handleExceptionEnd
end;

procedure HeaderSection_SetMinWidth(AObj: THeaderSection; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.MinWidth := AValue;
  handleExceptionEnd
end;

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

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

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

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

function HeaderSection_GetCollection(AObj: THeaderSection): TCollection; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Collection;
  handleExceptionEnd
end;

procedure HeaderSection_SetCollection(AObj: THeaderSection; AValue: TCollection); extdecl;
begin
  handleExceptionBegin
  AObj.Collection := AValue;
  handleExceptionEnd
end;

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

procedure HeaderSection_SetIndex(AObj: THeaderSection; AValue: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Index := AValue;
  handleExceptionEnd
end;

function HeaderSection_GetDisplayName(AObj: THeaderSection): PChar; extdecl;
begin
{$ifdef UsehandleException}Result := PChar(nil);{$endif}
  handleExceptionBegin
  Result :=  PChar(AObj.DisplayName);
  handleExceptionEnd
end;

procedure HeaderSection_SetDisplayName(AObj: THeaderSection; AValue: PChar); extdecl;
begin
  handleExceptionBegin
  AObj.DisplayName := AValue;
  handleExceptionEnd
end;

function HeaderSection_StaticClassType: TClass; extdecl;
begin
  Result := THeaderSection;
end;

exports
  HeaderSection_Create,
  HeaderSection_Free,
  HeaderSection_Assign,
  HeaderSection_GetNamePath,
  HeaderSection_ClassType,
  HeaderSection_ClassName,
  HeaderSection_InstanceSize,
  HeaderSection_InheritsFrom,
  HeaderSection_Equals,
  HeaderSection_GetHashCode,
  HeaderSection_ToString,
  HeaderSection_GetLeft,
  HeaderSection_GetRight,
  HeaderSection_GetAlignment,
  HeaderSection_SetAlignment,
  HeaderSection_GetImageIndex,
  HeaderSection_SetImageIndex,
  HeaderSection_GetMaxWidth,
  HeaderSection_SetMaxWidth,
  HeaderSection_GetMinWidth,
  HeaderSection_SetMinWidth,
  HeaderSection_GetText,
  HeaderSection_SetText,
  HeaderSection_GetWidth,
  HeaderSection_SetWidth,
  HeaderSection_GetCollection,
  HeaderSection_SetCollection,
  HeaderSection_GetIndex,
  HeaderSection_SetIndex,
  HeaderSection_GetDisplayName,
  HeaderSection_SetDisplayName,
  HeaderSection_StaticClassType;