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

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
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit screen;
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.