kolibrios-gitea/programs/cmm/lib/gui/tabs.h
Kirill Lipatov (Leency) 6af7c83564 sysmon: add process tab
git-svn-id: svn://kolibrios.org@7614 a494cfbc-eb01-0410-851d-a64ba20cac60
2019-03-18 22:31:13 +00:00

46 lines
987 B
C

#define TAB_PADDING 15
#define TAB_HEIGHT 28
:struct _tabs
{
int active_tab;
int x,y,w,h;
void draw_button();
int click();
void draw_wrapper();
};
:void _tabs::draw_wrapper()
{
DrawRectangle(x,y+TAB_HEIGHT,w-1,h-TAB_HEIGHT, system.color.work_graph);
DrawRectangle(x+1,y+1+TAB_HEIGHT,w-3,h-2-TAB_HEIGHT, system.color.work_light);
}
:void _tabs::draw_button(dword xx, but_id, text)
{
dword col_bg, col_text;
dword ww=strlen(text)*8, hh=TAB_HEIGHT;
if (but_id==active_tab)
{
col_bg=0xE44C9C;
col_text=system.color.work_text;
}
else
{
col_bg=0xC3A1B7;
col_text= MixColors(system.color.work, system.color.work_text, 120);
}
DefineHiddenButton(xx-2,y, ww-1+4,hh-1, but_id);
WriteText(xx, y+6, 0x90, col_text, text);
DrawBar(xx, y+hh-3, ww, 3, col_bg);
//DrawStandartCaptButton(xx, y, but_id, text); //GetFreeButtonId()
}
:int _tabs::click(int N)
{
if (N==active_tab) return false;
active_tab = N;
return true;
}