MyLCL_MenuItem.inc

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

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

procedure MenuItem_Free(AObj: TMenuItem); extdecl;
begin
  handleExceptionBegin
  AObj.Free;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure MenuItem_Insert(AObj: TMenuItem; Index: Integer; Item: TMenuItem); extdecl;
begin
  handleExceptionBegin
  AObj.Insert(Index, Item);
  handleExceptionEnd
end;

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

//CLASSMETHOD:
procedure MenuItem_Clear(AObj: TMenuItem); extdecl;
begin
  handleExceptionBegin
  AObj.Clear;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure MenuItem_Click(AObj: TMenuItem); extdecl;
begin
  handleExceptionBegin
  AObj.Click;
  handleExceptionEnd
end;

//CLASSMETHOD:
function MenuItem_IndexOf(AObj: TMenuItem; Item: TMenuItem): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.IndexOf(Item);
  handleExceptionEnd
end;

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

//CLASSMETHOD:
procedure MenuItem_Add(AObj: TMenuItem; Item: TMenuItem); extdecl;
begin
  handleExceptionBegin
  AObj.Add(Item);
  handleExceptionEnd
end;

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

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

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

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

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

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

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

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

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

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

function MenuItem_GetHandle(AObj: TMenuItem): HMENU; extdecl;
begin
{$ifdef UsehandleException}Result := HMENU(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Handle;
  handleExceptionEnd
end;

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

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

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

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

function MenuItem_GetAutoCheck(AObj: TMenuItem): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.AutoCheck;
  handleExceptionEnd
end;

procedure MenuItem_SetAutoCheck(AObj: TMenuItem; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.AutoCheck := AValue;
  handleExceptionEnd
end;

function MenuItem_GetBitmap(AObj: TMenuItem): TBitmap; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Bitmap;
  handleExceptionEnd
end;

procedure MenuItem_SetBitmap(AObj: TMenuItem; AValue: TBitmap); extdecl;
begin
  handleExceptionBegin
  AObj.Bitmap := AValue;
  handleExceptionEnd
end;

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

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

function MenuItem_GetChecked(AObj: TMenuItem): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Checked;
  handleExceptionEnd
end;

procedure MenuItem_SetChecked(AObj: TMenuItem; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.Checked := AValue;
  handleExceptionEnd
end;

function MenuItem_GetDefault(AObj: TMenuItem): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.Default;
  handleExceptionEnd
end;

procedure MenuItem_SetDefault(AObj: TMenuItem; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.Default := AValue;
  handleExceptionEnd
end;

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

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

function MenuItem_GetGroupIndex(AObj: TMenuItem): Byte; extdecl;
begin
{$ifdef UsehandleException}Result := Byte(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.GroupIndex;
  handleExceptionEnd
end;

procedure MenuItem_SetGroupIndex(AObj: TMenuItem; AValue: Byte); extdecl;
begin
  handleExceptionBegin
  AObj.GroupIndex := AValue;
  handleExceptionEnd
end;

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

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

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

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

function MenuItem_GetRadioItem(AObj: TMenuItem): LongBool; extdecl;
begin
{$ifdef UsehandleException}Result := False;{$endif}
  handleExceptionBegin
  Result :=  AObj.RadioItem;
  handleExceptionEnd
end;

procedure MenuItem_SetRadioItem(AObj: TMenuItem; AValue: LongBool); extdecl;
begin
  handleExceptionBegin
  AObj.RadioItem := AValue;
  handleExceptionEnd
end;

function MenuItem_GetShortCut(AObj: TMenuItem): TShortCut; extdecl;
begin
{$ifdef UsehandleException}Result := TShortCut(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.ShortCut;
  handleExceptionEnd
end;

procedure MenuItem_SetShortCut(AObj: TMenuItem; AValue: TShortCut); extdecl;
begin
  handleExceptionBegin
  AObj.ShortCut := AValue;
  handleExceptionEnd
end;

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

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

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

//EVENT_TYPE:TMenuMeasureItemEvent
procedure MenuItem_SetOnMeasureItem(AObj: TMenuItem; AEventData: Pointer); extdecl;
begin
  {$DEFINE EventMethodName := OnTMenuMeasureItemEvent}
  {$DEFINE EventName := OnMeasureItem}
  EventMethodCode
end;

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

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

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

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

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

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

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

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

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

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

function MenuItem_StaticClassType: TClass; extdecl;
begin
  Result := TMenuItem;
end;

exports
  MenuItem_Create,
  MenuItem_Free,
  MenuItem_Insert,
  MenuItem_Delete,
  MenuItem_Clear,
  MenuItem_Click,
  MenuItem_IndexOf,
  MenuItem_HasParent,
  MenuItem_Add,
  MenuItem_FindComponent,
  MenuItem_GetNamePath,
  MenuItem_Assign,
  MenuItem_ClassType,
  MenuItem_ClassName,
  MenuItem_InstanceSize,
  MenuItem_InheritsFrom,
  MenuItem_Equals,
  MenuItem_GetHashCode,
  MenuItem_ToString,
  MenuItem_GetHandle,
  MenuItem_GetCount,
  MenuItem_GetParent,
  MenuItem_GetAction,
  MenuItem_SetAction,
  MenuItem_GetAutoCheck,
  MenuItem_SetAutoCheck,
  MenuItem_GetBitmap,
  MenuItem_SetBitmap,
  MenuItem_GetCaption,
  MenuItem_SetCaption,
  MenuItem_GetChecked,
  MenuItem_SetChecked,
  MenuItem_GetDefault,
  MenuItem_SetDefault,
  MenuItem_GetEnabled,
  MenuItem_SetEnabled,
  MenuItem_GetGroupIndex,
  MenuItem_SetGroupIndex,
  MenuItem_GetHint,
  MenuItem_SetHint,
  MenuItem_GetImageIndex,
  MenuItem_SetImageIndex,
  MenuItem_GetRadioItem,
  MenuItem_SetRadioItem,
  MenuItem_GetShortCut,
  MenuItem_SetShortCut,
  MenuItem_GetVisible,
  MenuItem_SetVisible,
  MenuItem_SetOnClick,
  MenuItem_SetOnMeasureItem,
  MenuItem_GetComponentCount,
  MenuItem_GetComponentIndex,
  MenuItem_SetComponentIndex,
  MenuItem_GetOwner,
  MenuItem_GetName,
  MenuItem_SetName,
  MenuItem_GetTag,
  MenuItem_SetTag,
  MenuItem_GetItems,
  MenuItem_GetComponents,
  MenuItem_StaticClassType;