MyLCL_CoolBands.inc

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

function CoolBands_Create(AOwner: TCoolBar): TCoolBands; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  TCoolBands.Create(AOwner);
  handleExceptionEnd
end;

procedure CoolBands_Free(AObj: TCoolBands); extdecl;
begin
  handleExceptionBegin
  AObj.Free;
  handleExceptionEnd
end;

//CLASSMETHOD:
function CoolBands_Add(AObj: TCoolBands): TCoolBand; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Add;
  handleExceptionEnd
end;

//CLASSMETHOD:
function CoolBands_FindBand(AObj: TCoolBands; AControl: TControl): TCoolBand; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.FindBand(AControl);
  handleExceptionEnd
end;

//CLASSMETHOD:
function CoolBands_Owner(AObj: TCoolBands): TPersistent; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Owner;
  handleExceptionEnd
end;

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

//CLASSMETHOD:
procedure CoolBands_BeginUpdate(AObj: TCoolBands); extdecl;
begin
  handleExceptionBegin
  AObj.BeginUpdate;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure CoolBands_Clear(AObj: TCoolBands); extdecl;
begin
  handleExceptionBegin
  AObj.Clear;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure CoolBands_Delete(AObj: TCoolBands; Index: Integer); extdecl;
begin
  handleExceptionBegin
  AObj.Delete(Index);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure CoolBands_EndUpdate(AObj: TCoolBands); extdecl;
begin
  handleExceptionBegin
  AObj.EndUpdate;
  handleExceptionEnd
end;

//CLASSMETHOD:
function CoolBands_FindItemID(AObj: TCoolBands; ID: Integer): TCollectionItem; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.FindItemID(ID);
  handleExceptionEnd
end;

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

//CLASSMETHOD:
function CoolBands_Insert(AObj: TCoolBands; Index: Integer): TCollectionItem; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Insert(Index);
  handleExceptionEnd
end;

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

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

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

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

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

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

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

function CoolBands_GetCount(AObj: TCoolBands): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Count;
  handleExceptionEnd
end;

function CoolBands_GetItems(AObj: TCoolBands; Index: Integer): TCoolBand; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Items[Index];
  handleExceptionEnd
end;

procedure CoolBands_SetItems(AObj: TCoolBands; Index: Integer; AValue: TCoolBand); extdecl;
begin
  handleExceptionBegin
  AObj.Items[Index] := AValue;
  handleExceptionEnd
end;

function CoolBands_StaticClassType: TClass; extdecl;
begin
  Result := TCoolBands;
end;

exports
  CoolBands_Create,
  CoolBands_Free,
  CoolBands_Add,
  CoolBands_FindBand,
  CoolBands_Owner,
  CoolBands_Assign,
  CoolBands_BeginUpdate,
  CoolBands_Clear,
  CoolBands_Delete,
  CoolBands_EndUpdate,
  CoolBands_FindItemID,
  CoolBands_GetNamePath,
  CoolBands_Insert,
  CoolBands_ClassType,
  CoolBands_ClassName,
  CoolBands_InstanceSize,
  CoolBands_InheritsFrom,
  CoolBands_Equals,
  CoolBands_GetHashCode,
  CoolBands_ToString,
  CoolBands_GetCount,
  CoolBands_GetItems,
  CoolBands_SetItems,
  CoolBands_StaticClassType;