hp/befpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor fixes.

Browse Source
This commit is contained in:
oscarl-2
2003-12-23 20:56:22 +00:00
parent 598dbaaa79
commit b3c872be59
2 changed files with 111 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bepascal/source/bepascal/pas/src/be/interface/radiobutton.pp
View File

@@ -155,7 +155,7 @@ end;
procedure BRadioButton.Draw(updateRect : BRect); procedure BRadioButton.Draw(updateRect : BRect);
begin begin
BRadioButton_Draw(CPlusObject, updateRect{.CPlusObject}); // BRadioButton_Draw(CPlusObject, updateRect{.CPlusObject});
end; end;
procedure BRadioButton.MouseDown(where : BPoint); procedure BRadioButton.MouseDown(where : BPoint);
@@ -165,7 +165,7 @@ end;
procedure BRadioButton.AttachedToWindow; procedure BRadioButton.AttachedToWindow;
begin begin
BRadioButton_AttachedToWindow(CPlusObject); // BRadioButton_AttachedToWindow(CPlusObject);
end; end;
procedure BRadioButton.KeyDown(bytes : PChar; numBytes : Longint); procedure BRadioButton.KeyDown(bytes : PChar; numBytes : Longint);
@@ -215,7 +215,7 @@ end;
procedure BRadioButton.DetachedFromWindow; procedure BRadioButton.DetachedFromWindow;
begin begin
BRadioButton_DetachedFromWindow(CPlusObject); // BRadioButton_DetachedFromWindow(CPlusObject);
end; end;
procedure BRadioButton.FrameMoved(new_position : BPoint); procedure BRadioButton.FrameMoved(new_position : BPoint);

208
bepascal/source/bepascal/pas/src/be/interface/screen.pp
View File

@@ -1,27 +1,28 @@
{ BePascal - A pascal wrapper around the BeOS API { BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2002 Olivier Coursiere Copyright (C) 2002 Olivier Coursiere
Eric Jourde Eric Jourde
This library is free software; you can redistribute it and/or This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version. version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful, This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details. Library General Public License for more details.
You should have received a copy of the GNU Library General Public You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free License along with this library; if not, write to the Free
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
} }
unit screen; unit Screen;
interface interface
uses uses
beobj,interfacedefs,window,bitmap,rect,graphicdefs,SupportDefs,accelerant; BeObj, Accelerant, Bitmap, GraphicDefs, InterfaceDefs, Rect, SupportDefs,
Window;
type type
BScreen = class(TBeObject) BScreen = class(TBeObject)
@@ -30,72 +31,72 @@ type
constructor Create; override; constructor Create; override;
//constructor Create(win : BWindow); //constructor Create(win : BWindow);
destructor Destroy;override; destructor Destroy;override;
function IsValid : boolean; function IsValid : Boolean;
function SetToNext : Status_t; function SetToNext : status_t;
function ColorSpace : Color_Space; function ColorSpace : color_space;
function Frame : BRect; function Frame : BRect;
function ID : screen_id; function ID : screen_id;
function WaitForRetrace : Status_t; function WaitForRetrace : status_t;
function WaitForRetrace(timeout : Bigtime_t) : Status_t; function WaitForRetrace(timeout : bigtime_t) : status_t;
function IndexForColor(rgb : rgb_color) : integer; function IndexForColor(rgb : rgb_color) : Longint;
function IndexForColor(r : integer; g : integer; b : integer; a : integer) : integer; function IndexForColor(r : Longint; g : Longint; b : Longint; a : Longint) : Longint;
function ColorForIndex(index : integer) : rgb_color; function ColorForIndex(index : Longint) : rgb_color;
function InvertIndex(index : integer) : integer; function InvertIndex(index : Longint) : Longint;
function ColorMap : color_map; function ColorMap : color_map;
function GetBitmap(screen_shot : BBitmap; draw_cursor : boolean; bound : BRect) : Status_t; function GetBitmap(screen_shot : BBitmap; draw_cursor : Boolean; bound : BRect) : status_t;
function ReadBitmap(buffer : BBitmap; draw_cursor : boolean; bound : BRect) : Status_t; function ReadBitmap(buffer : BBitmap; draw_cursor : Boolean; bound : BRect) : status_t;
function DesktopColor : rgb_color; function DesktopColor : rgb_color;
function DesktopColor(index : Cardinal) : rgb_color; function DesktopColor(index : Longword) : rgb_color;
procedure SetDesktopColor(rgb : rgb_color; stick : boolean); procedure SetDesktopColor(rgb : rgb_color; stick : Boolean);
procedure SetDesktopColor(rgb : rgb_color; index : Cardinal; stick : boolean); procedure SetDesktopColor(rgb : rgb_color; index : Longword; stick : Boolean);
function ProposeMode(target : display_mode; low : display_mode; high : display_mode) : Status_t; function ProposeMode(target : display_mode; low : display_mode; high : display_mode) : status_t;
function GetModeList(mode_list : display_mode; count : integer) : Status_t; function GetModeList(mode_list : display_mode; count : Longint) : status_t;
function GetMode(mode : display_mode) : Status_t; function GetMode(mode : display_mode) : status_t;
function GetMode(workspace : Cardinal; mode : display_mode) : Status_t; function GetMode(workspace : Longword; mode : display_mode) : status_t;
function SetMode(mode : display_mode; makeDefault : boolean) : Status_t; function SetMode(mode : display_mode; makeDefault : Boolean) : status_t;
function SetMode(workspace : Cardinal; mode : display_mode; makeDefault : boolean) : Status_t; function SetMode(workspace : Longword; mode : display_mode; makeDefault : Boolean) : status_t;
function GetDeviceInfo(adi : accelerant_device_info) : Status_t; function GetDeviceInfo(adi : accelerant_device_info) : status_t;
function GetPixelClockLimits(mode : display_mode; low : integer; high : integer) : Status_t; function GetPixelClockLimits(mode : display_mode; low : Longint; high : Longint) : status_t;
function GetTimingConstraints(dtc : display_timing_constraints) : Status_t; function GetTimingConstraints(dtc : display_timing_constraints) : status_t;
function SetDPMS(dpms_state : Cardinal) : Status_t; function SetDPMS(dpms_state : Longword) : status_t;
function DPMSState : Cardinal; function DPMSState : Longword;
function DPMSCapabilites : Cardinal; function DPMSCapabilites : Longword;
// function private_screen : BPrivateScreen; // function private_screen : BPrivateScreen;
end; end;
function BScreen_Create(AObject : TBeObject): TCPlusObject; cdecl; external BePascalLibName name 'BScreen_Create'; function BScreen_Create(AObject : TBeObject): TCPlusObject; cdecl; external BePascalLibName name 'BScreen_Create';
//function BScreen_Create(AObject : TBeObject; win : TCPlusObject); cdecl; external BePascalLibName name 'BScreen_Create'; //function BScreen_Create(AObject : TBeObject; win : TCPlusObject); cdecl; external BePascalLibName name 'BScreen_Create';
procedure BScreen_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BScreen_Free'; procedure BScreen_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BScreen_Free';
function BScreen_IsValid(AObject : TCPlusObject) : boolean; cdecl; external BePascalLibName name 'BScreen_IsValid'; function BScreen_IsValid(AObject : TCPlusObject) : Boolean; cdecl; external BePascalLibName name 'BScreen_IsValid';
function BScreen_SetToNext(AObject : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BScreen_SetToNext'; function BScreen_SetToNext(AObject : TCPlusObject) : status_t; cdecl; external BePascalLibName name 'BScreen_SetToNext';
function BScreen_ColorSpace(AObject : TCPlusObject) : Color_Space; cdecl; external BePascalLibName name 'BScreen_ColorSpace'; function BScreen_ColorSpace(AObject : TCPlusObject) : Color_Space; cdecl; external BePascalLibName name 'BScreen_ColorSpace';
function BScreen_Frame(AObject : TCPlusObject) : BRect; cdecl; external BePascalLibName name 'BScreen_Frame'; function BScreen_Frame(AObject : TCPlusObject) : BRect; cdecl; external BePascalLibName name 'BScreen_Frame';
function BScreen_ID(AObject : TCPlusObject) : screen_id; cdecl; external BePascalLibName name 'BScreen_ID'; function BScreen_ID(AObject : TCPlusObject) : screen_id; cdecl; external BePascalLibName name 'BScreen_ID';
function BScreen_WaitForRetrace(AObject : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BScreen_WaitForRetrace'; function BScreen_WaitForRetrace(AObject : TCPlusObject) : status_t; cdecl; external BePascalLibName name 'BScreen_WaitForRetrace';
function BScreen_WaitForRetrace(AObject : TCPlusObject; timeout : Bigtime_t) : Status_t; cdecl; external BePascalLibName name 'BScreen_WaitForRetrace'; function BScreen_WaitForRetrace(AObject : TCPlusObject; timeout : Bigtime_t) : status_t; cdecl; external BePascalLibName name 'BScreen_WaitForRetrace';
function BScreen_IndexForColor(AObject : TCPlusObject; rgb : rgb_color) : integer; cdecl; external BePascalLibName name 'BScreen_IndexForColor'; function BScreen_IndexForColor(AObject : TCPlusObject; rgb : rgb_color) : Longint; cdecl; external BePascalLibName name 'BScreen_IndexForColor';
function BScreen_IndexForColor(AObject : TCPlusObject; r : integer; g : integer; b : integer; a : integer) : integer; cdecl; external BePascalLibName name 'BScreen_IndexForColor'; function BScreen_IndexForColor(AObject : TCPlusObject; r : Longint; g : Longint; b : Longint; a : Longint) : Longint; cdecl; external BePascalLibName name 'BScreen_IndexForColor';
function BScreen_ColorForIndex(AObject : TCPlusObject; index : integer) : rgb_color; cdecl; external BePascalLibName name 'BScreen_ColorForIndex'; function BScreen_ColorForIndex(AObject : TCPlusObject; index : Longint) : rgb_color; cdecl; external BePascalLibName name 'BScreen_ColorForIndex';
function BScreen_InvertIndex(AObject : TCPlusObject; index : integer) : integer; cdecl; external BePascalLibName name 'BScreen_InvertIndex'; function BScreen_InvertIndex(AObject : TCPlusObject; index : Longint) : Longint; cdecl; external BePascalLibName name 'BScreen_InvertIndex';
function BScreen_ColorMap(AObject : TCPlusObject) : color_map; cdecl; external BePascalLibName name 'BScreen_ColorMap'; function BScreen_ColorMap(AObject : TCPlusObject) : color_map; cdecl; external BePascalLibName name 'BScreen_ColorMap';
function BScreen_GetBitmap(AObject : TCPlusObject; screen_shot : TCPlusObject; draw_cursor : boolean; bound : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BScreen_GetBitmap'; function BScreen_GetBitmap(AObject : TCPlusObject; screen_shot : TCPlusObject; draw_cursor : Boolean; bound : TCPlusObject) : status_t; cdecl; external BePascalLibName name 'BScreen_GetBitmap';
function BScreen_ReadBitmap(AObject : TCPlusObject; buffer : TCPlusObject; draw_cursor : boolean; bound : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BScreen_ReadBitmap'; function BScreen_ReadBitmap(AObject : TCPlusObject; buffer : TCPlusObject; draw_cursor : Boolean; bound : TCPlusObject) : status_t; cdecl; external BePascalLibName name 'BScreen_ReadBitmap';
function BScreen_DesktopColor(AObject : TCPlusObject) : rgb_color; cdecl; external BePascalLibName name 'BScreen_DesktopColor'; function BScreen_DesktopColor(AObject : TCPlusObject) : rgb_color; cdecl; external BePascalLibName name 'BScreen_DesktopColor';
function BScreen_DesktopColor(AObject : TCPlusObject; index : Cardinal) : rgb_color; cdecl; external BePascalLibName name 'BScreen_DesktopColor'; function BScreen_DesktopColor(AObject : TCPlusObject; index : Longword) : rgb_color; cdecl; external BePascalLibName name 'BScreen_DesktopColor';
procedure BScreen_SetDesktopColor(AObject : TCPlusObject; rgb : rgb_color; stick : boolean); cdecl; external BePascalLibName name 'BScreen_SetDesktopColor'; procedure BScreen_SetDesktopColor(AObject : TCPlusObject; rgb : rgb_color; stick : Boolean); cdecl; external BePascalLibName name 'BScreen_SetDesktopColor';
procedure BScreen_SetDesktopColor(AObject : TCPlusObject; rgb : rgb_color; index : Cardinal; stick : boolean); cdecl; external BePascalLibName name 'BScreen_SetDesktopColor'; procedure BScreen_SetDesktopColor(AObject : TCPlusObject; rgb : rgb_color; index : Longword; stick : Boolean); cdecl; external BePascalLibName name 'BScreen_SetDesktopColor';
function BScreen_ProposeMode(AObject : TCPlusObject; target : display_mode; low : display_mode; high : display_mode) : Status_t; cdecl; external BePascalLibName name 'BScreen_ProposeMode'; function BScreen_ProposeMode(AObject : TCPlusObject; target : display_mode; low : display_mode; high : display_mode) : status_t; cdecl; external BePascalLibName name 'BScreen_ProposeMode';
function BScreen_GetModeList(AObject : TCPlusObject; mode_list : display_mode; count : integer) : Status_t; cdecl; external BePascalLibName name 'BScreen_GetModeList'; function BScreen_GetModeList(AObject : TCPlusObject; mode_list : display_mode; count : Longint) : status_t; cdecl; external BePascalLibName name 'BScreen_GetModeList';
function BScreen_GetMode(AObject : TCPlusObject; mode : display_mode) : Status_t; cdecl; external BePascalLibName name 'BScreen_GetMode'; function BScreen_GetMode(AObject : TCPlusObject; mode : display_mode) : status_t; cdecl; external BePascalLibName name 'BScreen_GetMode';
function BScreen_GetMode(AObject : TCPlusObject; workspace : Cardinal; mode : display_mode) : Status_t; cdecl; external BePascalLibName name 'BScreen_GetMode'; function BScreen_GetMode(AObject : TCPlusObject; workspace : Longword; mode : display_mode) : status_t; cdecl; external BePascalLibName name 'BScreen_GetMode';
function BScreen_SetMode(AObject : TCPlusObject; mode : display_mode; makeDefault : boolean) : Status_t; cdecl; external BePascalLibName name 'BScreen_SetMode'; function BScreen_SetMode(AObject : TCPlusObject; mode : display_mode; makeDefault : Boolean) : status_t; cdecl; external BePascalLibName name 'BScreen_SetMode';
function BScreen_SetMode(AObject : TCPlusObject; workspace : Cardinal; mode : display_mode; makeDefault : boolean) : Status_t; cdecl; external BePascalLibName name 'BScreen_SetMode'; function BScreen_SetMode(AObject : TCPlusObject; workspace : Longword; mode : display_mode; makeDefault : Boolean) : status_t; cdecl; external BePascalLibName name 'BScreen_SetMode';
function BScreen_GetDeviceInfo(AObject : TCPlusObject; adi : accelerant_device_info) : Status_t; cdecl; external BePascalLibName name 'BScreen_GetDeviceInfo'; function BScreen_GetDeviceInfo(AObject : TCPlusObject; adi : accelerant_device_info) : status_t; cdecl; external BePascalLibName name 'BScreen_GetDeviceInfo';
function BScreen_GetPixelClockLimits(AObject : TCPlusObject; mode : display_mode; low : integer; high : integer) : Status_t; cdecl; external BePascalLibName name 'BScreen_GetPixelClockLimits'; function BScreen_GetPixelClockLimits(AObject : TCPlusObject; mode : display_mode; low : Longint; high : Longint) : status_t; cdecl; external BePascalLibName name 'BScreen_GetPixelClockLimits';
function BScreen_GetTimingConstraints(AObject : TCPlusObject; dtc : display_timing_constraints) : Status_t; cdecl; external BePascalLibName name 'BScreen_GetTimingConstraints'; function BScreen_GetTimingConstraints(AObject : TCPlusObject; dtc : display_timing_constraints) : status_t; cdecl; external BePascalLibName name 'BScreen_GetTimingConstraints';
function BScreen_SetDPMS(AObject : TCPlusObject; dpms_state : Cardinal) : Status_t; cdecl; external BePascalLibName name 'BScreen_SetDPMS'; function BScreen_SetDPMS(AObject : TCPlusObject; dpms_state : Longword) : status_t; cdecl; external BePascalLibName name 'BScreen_SetDPMS';
function BScreen_DPMSState(AObject : TCPlusObject) : Cardinal; cdecl; external BePascalLibName name 'BScreen_DPMSState'; function BScreen_DPMSState(AObject : TCPlusObject) : Longword; cdecl; external BePascalLibName name 'BScreen_DPMSState';
function BScreen_DPMSCapabilites(AObject : TCPlusObject) : Cardinal; cdecl; external BePascalLibName name 'BScreen_DPMSCapabilites'; function BScreen_DPMSCapabilites(AObject : TCPlusObject) : Longword; cdecl; external BePascalLibName name 'BScreen_DPMSCapabilites';
//function BScreen_private_screen(AObject : TCPlusObject) : BPrivateScreen; cdecl; external BePascalLibName name 'BScreen_private_screen'; //function BScreen_private_screen(AObject : TCPlusObject) : BPrivateScreen; cdecl; external BePascalLibName name 'BScreen_private_screen';
implementation implementation
@@ -117,17 +118,17 @@ begin
inherited; inherited;
end; end;
function BScreen.IsValid : boolean; function BScreen.IsValid : Boolean;
begin begin
Result := BScreen_IsValid(CPlusObject); Result := BScreen_IsValid(CPlusObject);
end; end;
function BScreen.SetToNext : Status_t; function BScreen.SetToNext : status_t;
begin begin
Result := BScreen_SetToNext(CPlusObject); Result := BScreen_SetToNext(CPlusObject);
end; end;
function BScreen.ColorSpace : Color_Space; function BScreen.ColorSpace : color_space;
begin begin
Result := BScreen_ColorSpace(CPlusObject); Result := BScreen_ColorSpace(CPlusObject);
end; end;
@@ -142,32 +143,33 @@ begin
Result := BScreen_ID(CPlusObject); Result := BScreen_ID(CPlusObject);
end; end;
function BScreen.WaitForRetrace : Status_t; function BScreen.WaitForRetrace : status_t;
begin begin
Result := BScreen_WaitForRetrace(CPlusObject); Result := BScreen_WaitForRetrace(CPlusObject);
end; end;
function BScreen.WaitForRetrace(timeout : Bigtime_t) : Status_t; function BScreen.WaitForRetrace(timeout : bigtime_t) : status_t;
begin begin
Result := BScreen_WaitForRetrace(CPlusObject, timeout); Result := BScreen_WaitForRetrace(CPlusObject, timeout);
end; end;
function BScreen.IndexForColor(rgb : rgb_color) : integer; function BScreen.IndexForColor(rgb : rgb_color) : Longint;
begin begin
Result := BScreen_IndexForColor(CPlusObject, rgb); Result := BScreen_IndexForColor(CPlusObject, rgb);
end; end;
function BScreen.IndexForColor(r : integer; g : integer; b : integer; a : integer) : integer; function BScreen.IndexForColor(r : Longint; g : Longint; b : Longint;
a : Longint) : Longint;
begin begin
Result := BScreen_IndexForColor(CPlusObject, r, g, b, a); Result := BScreen_IndexForColor(CPlusObject, r, g, b, a);
end; end;
function BScreen.ColorForIndex(index : integer) : rgb_color; function BScreen.ColorForIndex(index : Longint) : rgb_color;
begin begin
Result := BScreen_ColorForIndex(CPlusObject, index); Result := BScreen_ColorForIndex(CPlusObject, index);
end; end;
function BScreen.InvertIndex(index : integer) : integer; function BScreen.InvertIndex(index : Longint) : Longint;
begin begin
Result := BScreen_InvertIndex(CPlusObject, index); Result := BScreen_InvertIndex(CPlusObject, index);
end; end;
@@ -177,14 +179,18 @@ begin
Result := BScreen_ColorMap(CPlusObject); Result := BScreen_ColorMap(CPlusObject);
end; end;
function BScreen.GetBitmap(screen_shot : BBitmap; draw_cursor : boolean; bound : BRect) : Status_t; function BScreen.GetBitmap(screen_shot : BBitmap; draw_cursor : Boolean;
bound : BRect) : status_t;
begin begin
Result := BScreen_GetBitmap(CPlusObject, screen_shot.CPlusObject, draw_cursor, bound.CPlusObject); Result := BScreen_GetBitmap(CPlusObject, screen_shot.CPlusObject, draw_cursor,
bound.CPlusObject);
end; end;
function BScreen.ReadBitmap(buffer : BBitmap; draw_cursor : boolean; bound : BRect) : Status_t; function BScreen.ReadBitmap(buffer : BBitmap; draw_cursor : Boolean;
bound : BRect) : status_t;
begin begin
Result := BScreen_ReadBitmap(CPlusObject, buffer.CPlusObject, draw_cursor, bound.CPlusObject); Result := BScreen_ReadBitmap(CPlusObject, buffer.CPlusObject, draw_cursor,
bound.CPlusObject);
end; end;
function BScreen.DesktopColor : rgb_color; function BScreen.DesktopColor : rgb_color;
@@ -192,77 +198,80 @@ begin
Result := BScreen_DesktopColor(CPlusObject); Result := BScreen_DesktopColor(CPlusObject);
end; end;
function BScreen.DesktopColor(index : Cardinal) : rgb_color; function BScreen.DesktopColor(index : Longword) : rgb_color;
begin begin
Result := BScreen_DesktopColor(CPlusObject, index); Result := BScreen_DesktopColor(CPlusObject, index);
end; end;
procedure BScreen.SetDesktopColor(rgb : rgb_color; stick : boolean); procedure BScreen.SetDesktopColor(rgb : rgb_color; stick : Boolean);
begin begin
BScreen_SetDesktopColor(CPlusObject, rgb, stick); BScreen_SetDesktopColor(CPlusObject, rgb, stick);
end; end;
procedure BScreen.SetDesktopColor(rgb : rgb_color; index : Cardinal; stick : boolean); procedure BScreen.SetDesktopColor(rgb : rgb_color; index : Longword; stick : Boolean);
begin begin
BScreen_SetDesktopColor(CPlusObject, rgb, index, stick); BScreen_SetDesktopColor(CPlusObject, rgb, index, stick);
end; end;
function BScreen.ProposeMode(target : display_mode; low : display_mode; high : display_mode) : Status_t; function BScreen.ProposeMode(target : display_mode; low : display_mode;
high : display_mode) : status_t;
begin begin
Result := BScreen_ProposeMode(CPlusObject, target, low, high); Result := BScreen_ProposeMode(CPlusObject, target, low, high);
end; end;
function BScreen.GetModeList(mode_list : display_mode; count : integer) : Status_t; function BScreen.GetModeList(mode_list : display_mode; count : Longint) : status_t;
begin begin
Result := BScreen_GetModeList(CPlusObject, mode_list, count); Result := BScreen_GetModeList(CPlusObject, mode_list, count);
end; end;
function BScreen.GetMode(mode : display_mode) : Status_t; function BScreen.GetMode(mode : display_mode) : status_t;
begin begin
Result := BScreen_GetMode(CPlusObject, mode); Result := BScreen_GetMode(CPlusObject, mode);
end; end;
function BScreen.GetMode(workspace : Cardinal; mode : display_mode) : Status_t; function BScreen.GetMode(workspace : Longword; mode : display_mode) : status_t;
begin begin
Result := BScreen_GetMode(CPlusObject, workspace, mode); Result := BScreen_GetMode(CPlusObject, workspace, mode);
end; end;
function BScreen.SetMode(mode : display_mode; makeDefault : boolean) : Status_t; function BScreen.SetMode(mode : display_mode; makeDefault : Boolean) : status_t;
begin begin
Result := BScreen_SetMode(CPlusObject, mode, makeDefault); Result := BScreen_SetMode(CPlusObject, mode, makeDefault);
end; end;
function BScreen.SetMode(workspace : Cardinal; mode : display_mode; makeDefault : boolean) : Status_t; function BScreen.SetMode(workspace : Longword; mode : display_mode;
makeDefault : Boolean) : status_t;
begin begin
Result := BScreen_SetMode(CPlusObject, workspace, mode, makeDefault); Result := BScreen_SetMode(CPlusObject, workspace, mode, makeDefault);
end; end;
function BScreen.GetDeviceInfo(adi : accelerant_device_info) : Status_t; function BScreen.GetDeviceInfo(adi : accelerant_device_info) : status_t;
begin begin
Result := BScreen_GetDeviceInfo(CPlusObject, adi); Result := BScreen_GetDeviceInfo(CPlusObject, adi);
end; end;
function BScreen.GetPixelClockLimits(mode : display_mode; low : integer; high : integer) : Status_t; function BScreen.GetPixelClockLimits(mode : display_mode; low : Longint;
high : Longint) : status_t;
begin begin
Result := BScreen_GetPixelClockLimits(CPlusObject, mode, low, high); Result := BScreen_GetPixelClockLimits(CPlusObject, mode, low, high);
end; end;
function BScreen.GetTimingConstraints(dtc : display_timing_constraints) : Status_t; function BScreen.GetTimingConstraints(dtc : display_timing_constraints) : status_t;
begin begin
Result := BScreen_GetTimingConstraints(CPlusObject, dtc); Result := BScreen_GetTimingConstraints(CPlusObject, dtc);
end; end;
function BScreen.SetDPMS(dpms_state : Cardinal) : Status_t; function BScreen.SetDPMS(dpms_state : Longword) : status_t;
begin begin
Result := BScreen_SetDPMS(CPlusObject, dpms_state); Result := BScreen_SetDPMS(CPlusObject, dpms_state);
end; end;
function BScreen.DPMSState : Cardinal; function BScreen.DPMSState : Longword;
begin begin
Result := BScreen_DPMSState(CPlusObject); Result := BScreen_DPMSState(CPlusObject);
end; end;
function BScreen.DPMSCapabilites : Cardinal; function BScreen.DPMSCapabilites : Longword;
begin begin
Result := BScreen_DPMSCapabilites(CPlusObject); Result := BScreen_DPMSCapabilites(CPlusObject);
end; end;
@@ -273,5 +282,4 @@ begin
end; end;
} }
end. end.