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

small update

Browse Source
This commit is contained in:
ocoursiere
2003-01-22 23:35:08 +00:00
parent d35d315a3f
commit dc8fa54475
3 changed files with 44 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
bepascal/bepascal/be/app/Message.cpp
View File

@@ -110,6 +110,12 @@ status_t BMessage_AddInt8(TCPlusObject message, const char *name, int8 anInt8)
return reinterpret_cast<BMessage*>(message)->AddInt8(name, anInt8);
}
status_t BMessage_FindInt8(TCPlusObject message,const char *name, int8 *value)
{
return reinterpret_cast<BMessage*>(message)->FindInt8(name, value);
}
status_t BMessage_AddInt16(TCPlusObject message, const char *name, int16 anInt16)
{
return reinterpret_cast<BMessage*>(message)->AddInt16(name, anInt16);
@@ -140,6 +146,12 @@ status_t BMessage_AddString(TCPlusObject message, const char *name, const char *
return reinterpret_cast<BMessage*>(message)->AddString(name, string);
}
status_t BMessage_FindString(TCPlusObject message,const char *name, const char **str)
{
return reinterpret_cast<BMessage*>(message)->FindString(name, str);
}
status_t BMessage_AddMessage(TCPlusObject message, const char *name, const TCPlusObject amessage)
{
return reinterpret_cast<BMessage*>(message)->AddMessage(name, reinterpret_cast<BMessage*>(amessage));

14
bepascal/bepascal/be/app/message.pp
View File

@@ -51,12 +51,14 @@ type
function AddData(const Name : PChar; aType : TType_Code; const Data : Pointer; FixedSize : Cardinal; NumItems : Integer) : TStatus_t;
function AddBool(const Name : PChar; aBool : boolean) : TStatus_t;
function AddInt8(const Name : PChar; anInt8 : Shortint) : TStatus_t;
function FindInt8(const Name : PChar; var anInt8 : Shortint) : TStatus_t;
function AddInt16(const Name : PChar; anInt16 : Smallint) : TStatus_t;
function AddInt32(const Name : PChar; anInt32 : Integer) : TStatus_t;
function AddInt64(const Name : PChar; anInt64 : int64) : TStatus_t;
function AddFloat(const Name : PChar; aFloat : Single) : TStatus_t;
function AddDouble(const Name : PChar; aDouble : Double) : TStatus_t;
function AddString(const Name : PChar; aString : PChar) : TStatus_t;
function FindString(const Name : PChar; var aString : PChar) : TStatus_t;
function AddMessage(const Name : PChar; aMessage : TCPlusObject) : TStatus_t;
function CountNames(aType : TType_Code) : Integer;
function HasSpecifiers : boolean;
@@ -84,12 +86,14 @@ procedure BMessage_SetWhat(Message : TCPlusObject; What : Cardinal); cdecl; exte
function BMessage_AddData(Message : TCPlusObject; const Name : PChar; aType : TType_Code; const Data : Pointer; FixedSize : Cardinal; NumItems : Integer) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_AddBool(Message : TCPlusObject; const Name : PChar; aBool : boolean) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_AddInt8(Message : TCPlusObject; const Name : PChar; anInt8 : Shortint) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_FindInt8(Message : TCPlusObject; const Name : PChar; var anInt8 : Shortint) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_AddInt16(Message : TCPlusObject; const Name : PChar; anInt16 : Smallint) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_AddInt32(Message : TCPlusObject; const Name : PChar; anInt32 : Integer) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_AddInt64(Message : TCPlusObject; const Name : PChar; anInt64 : int64) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_AddFloat(Message : TCPlusObject; const Name : PChar; aFloat : Single) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_AddDouble(Message : TCPlusObject; const Name : PChar; aDouble : Double) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_AddString(Message : TCPlusObject; const Name : PChar; aString : PChar) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_FindString(Message : TCPlusObject; const Name : PChar;var aString : PChar) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_AddMessage(Message : TCPlusObject; const Name : PChar; aMessage : TCPlusObject) : TStatus_t; cdecl; external BePascalLibName;
function BMessage_CountNames(Message : TCPlusObject; aType : TType_Code) : Integer; cdecl; external BePascalLibName;
function BMessage_HasSpecifiers(Message : TCPlusObject) : boolean; cdecl; external BePascalLibName;
@@ -159,6 +163,11 @@ begin
result := BMessage_AddInt8(CPlusObject, Name, anInt8);
end;
function TMessage.FindInt8(const Name : PChar; var anInt8 : Shortint) : TStatus_t;
begin
result := BMessage_FindInt8(CPlusObject, Name, anInt8);
end;
function TMessage.AddInt16(const Name : PChar; anInt16 : Smallint) : TStatus_t;
begin
result := BMessage_AddInt16(CPlusObject, Name, anInt16);
@@ -189,6 +198,11 @@ begin
result := BMessage_AddString(CPlusObject, Name, aString);
end;
function TMessage.FindString(const Name : PChar;var aString : PChar) : TStatus_t;
begin
result := BMessage_FindString(CPlusObject, Name, aString);
end;
function TMessage.AddMessage(const Name : PChar; aMessage : TCPlusObject) : TStatus_t;
begin
result := BMessage_AddMessage(CPlusObject, Name, aMessage);

19
bepascal/bepascal/be/interface/interfacedefs.pp
View File

@@ -20,11 +20,28 @@ unit interfacedefs;
interface
uses graphicdefs,beobj;
type
TAlignment = (B_ALIGN_LEFT,
TAlignment = (B_ALIGN_LEFT,
B_ALIGN_RIGHT,
B_ALIGN_CENTER);
Tcolor_which =(Tcolor_nil,
B_PANEL_BACKGROUND_COLOR ,
B_MENU_BACKGROUND_COLOR ,
B_MENU_SELECTION_BACKGROUND_COLOR ,
B_MENU_ITEM_TEXT_COLOR ,
B_MENU_SELECTED_ITEM_TEXT_COLOR ,
B_WINDOW_TAB_COLOR ,
B_KEYBOARD_NAVIGATION_COLOR ,
B_DESKTOP_COLOR );
function ui_color(which : Tcolor_which) : Trgb_color; cdecl; external 'be' name 'ui_color__F11color_which';
function Ttint_color(color : Trgb_color; which :Tcolor_which) : Trgb_color;cdecl; external 'be' name 'tint_color__FG9rgb_colorf';
implementation
end.