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