MyLCL_Screen.inc

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

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

procedure Screen_Free(AObj: TScreen); extdecl;
begin
  handleExceptionBegin
  AObj.Free;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Screen_BeginTempCursor(AObj: TScreen; aCursor: TCursor); extdecl;
begin
  handleExceptionBegin
  AObj.BeginTempCursor(aCursor);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Screen_EndTempCursor(AObj: TScreen; aCursor: TCursor); extdecl;
begin
  handleExceptionBegin
  AObj.EndTempCursor(aCursor);
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Screen_BeginWaitCursor(AObj: TScreen); extdecl;
begin
  handleExceptionBegin
  AObj.BeginWaitCursor;
  handleExceptionEnd
end;

//CLASSMETHOD:
procedure Screen_EndWaitCursor(AObj: TScreen); extdecl;
begin
  handleExceptionBegin
  AObj.EndWaitCursor;
  handleExceptionEnd
end;

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

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

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

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

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

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

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

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

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

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

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

function Screen_GetRealCursor(AObj: TScreen): TCursor; extdecl;
begin
{$ifdef UsehandleException}Result := TCursor(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.RealCursor;
  handleExceptionEnd
end;

function Screen_GetFocusedForm(AObj: TScreen): TCustomForm; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.FocusedForm;
  handleExceptionEnd
end;

function Screen_GetActiveControl(AObj: TScreen): TWinControl; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.ActiveControl;
  handleExceptionEnd
end;

function Screen_GetActiveForm(AObj: TScreen): TForm; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.ActiveForm;
  handleExceptionEnd
end;

function Screen_GetCustomFormCount(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.CustomFormCount;
  handleExceptionEnd
end;

function Screen_GetCursor(AObj: TScreen): TCursor; extdecl;
begin
{$ifdef UsehandleException}Result := TCursor(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Cursor;
  handleExceptionEnd
end;

procedure Screen_SetCursor(AObj: TScreen; AValue: TCursor); extdecl;
begin
  handleExceptionBegin
  AObj.Cursor := AValue;
  handleExceptionEnd
end;

function Screen_GetMonitorCount(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.MonitorCount;
  handleExceptionEnd
end;

//RETURNISLASTPARAM:
procedure Screen_GetDesktopRect(AObj: TScreen; var Result: TRect); extdecl;
begin
  handleExceptionBegin
  Result :=  AObj.DesktopRect;
  handleExceptionEnd
end;

function Screen_GetDesktopHeight(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.DesktopHeight;
  handleExceptionEnd
end;

function Screen_GetDesktopLeft(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.DesktopLeft;
  handleExceptionEnd
end;

function Screen_GetDesktopTop(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.DesktopTop;
  handleExceptionEnd
end;

function Screen_GetDesktopWidth(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.DesktopWidth;
  handleExceptionEnd
end;

//RETURNISLASTPARAM:
procedure Screen_GetWorkAreaRect(AObj: TScreen; var Result: TRect); extdecl;
begin
  handleExceptionBegin
  Result :=  AObj.WorkAreaRect;
  handleExceptionEnd
end;

function Screen_GetWorkAreaHeight(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.WorkAreaHeight;
  handleExceptionEnd
end;

function Screen_GetWorkAreaLeft(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.WorkAreaLeft;
  handleExceptionEnd
end;

function Screen_GetWorkAreaTop(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.WorkAreaTop;
  handleExceptionEnd
end;

function Screen_GetWorkAreaWidth(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.WorkAreaWidth;
  handleExceptionEnd
end;

function Screen_GetFonts(AObj: TScreen): TStrings; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Fonts;
  handleExceptionEnd
end;

function Screen_GetFormCount(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.FormCount;
  handleExceptionEnd
end;

function Screen_GetHeight(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Height;
  handleExceptionEnd
end;

function Screen_GetPixelsPerInch(AObj: TScreen): Integer; extdecl;
begin
{$ifdef UsehandleException}Result := Integer(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.PixelsPerInch;
  handleExceptionEnd
end;

function Screen_GetPrimaryMonitor(AObj: TScreen): TMonitor; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.PrimaryMonitor;
  handleExceptionEnd
end;

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

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

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

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

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

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

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

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

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

function Screen_GetCursors(AObj: TScreen; Index: Integer): HICON; extdecl;
begin
{$ifdef UsehandleException}Result := HICON(0);{$endif}
  handleExceptionBegin
  Result :=  AObj.Cursors[Index];
  handleExceptionEnd
end;

procedure Screen_SetCursors(AObj: TScreen; Index: Integer; AValue: HICON); extdecl;
begin
  handleExceptionBegin
  AObj.Cursors[Index] := AValue;
  handleExceptionEnd
end;

function Screen_GetMonitors(AObj: TScreen; Index: Integer): TMonitor; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Monitors[Index];
  handleExceptionEnd
end;

function Screen_GetForms(AObj: TScreen; Index: Integer): TForm; extdecl;
begin
{$ifdef UsehandleException}Result := nil;{$endif}
  handleExceptionBegin
  Result :=  AObj.Forms[Index];
  handleExceptionEnd
end;

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

function Screen_StaticClassType: TClass; extdecl;
begin
  Result := TScreen;
end;

exports
  Screen_Create,
  Screen_Free,
  Screen_BeginTempCursor,
  Screen_EndTempCursor,
  Screen_BeginWaitCursor,
  Screen_EndWaitCursor,
  Screen_FindComponent,
  Screen_GetNamePath,
  Screen_HasParent,
  Screen_Assign,
  Screen_ClassType,
  Screen_ClassName,
  Screen_InstanceSize,
  Screen_InheritsFrom,
  Screen_Equals,
  Screen_GetHashCode,
  Screen_ToString,
  Screen_GetRealCursor,
  Screen_GetFocusedForm,
  Screen_GetActiveControl,
  Screen_GetActiveForm,
  Screen_GetCustomFormCount,
  Screen_GetCursor,
  Screen_SetCursor,
  Screen_GetMonitorCount,
  Screen_GetDesktopRect,
  Screen_GetDesktopHeight,
  Screen_GetDesktopLeft,
  Screen_GetDesktopTop,
  Screen_GetDesktopWidth,
  Screen_GetWorkAreaRect,
  Screen_GetWorkAreaHeight,
  Screen_GetWorkAreaLeft,
  Screen_GetWorkAreaTop,
  Screen_GetWorkAreaWidth,
  Screen_GetFonts,
  Screen_GetFormCount,
  Screen_GetHeight,
  Screen_GetPixelsPerInch,
  Screen_GetPrimaryMonitor,
  Screen_GetWidth,
  Screen_GetComponentCount,
  Screen_GetComponentIndex,
  Screen_SetComponentIndex,
  Screen_GetOwner,
  Screen_GetName,
  Screen_SetName,
  Screen_GetTag,
  Screen_SetTag,
  Screen_GetCursors,
  Screen_SetCursors,
  Screen_GetMonitors,
  Screen_GetForms,
  Screen_GetComponents,
  Screen_StaticClassType;