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);

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

@@ -16,12 +16,13 @@
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.