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

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.