kolibrios-gitea/programs/cmm/eolite/include/about.h
Kirill Lipatov (Leency) 831f399adb Eolite 4.0: use system colors, decrease app size
TxtRead 1.22: add menu to reopen file in other viewer/editor, not only in tinypad

git-svn-id: svn://kolibrios.org@7462 a494cfbc-eb01-0410-851d-a64ba20cac60
2018-10-14 10:47:23 +00:00

52 lines
1.6 KiB
C

#define BROWSER_PATH "/sys/network/webview"
#define BROWSER_LINK "http://kolibri-n.org/inf/eolite/eolite_p1"
void about_dialog()
{
int id;
proc_info about_form;
int about_x;
if (active_about) {cmd_free=2;ExitProcess();} else active_about=1;
loop() switch(WaitEvent())
{
case evButton:
id=GetButtonID();
IF (id==1)
{
active_about=0;
cmd_free = 2;
ExitProcess();
}
IF (id==11) RunProgram(BROWSER_PATH, BROWSER_LINK);
break;
case evKey:
GetKeys();
IF (key_scancode == SCAN_CODE_ESC)
{
active_about=0;
cmd_free = 2;
ExitProcess();
}
break;
case evReDraw:
DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,300,300+skin_height,0x34,system.color.work,T_ABOUT,0);
GetProcessInfo(#about_form, SelfInfo);
if (about_form.status_window>2) break;
logo_pal[0] = system.color.work;
ESDWORD[#logo_pal+16] = system.color.work_dark;
PutPaletteImage(#logo,86,86,about_form.cwidth-86/2,10,8,#logo_pal);
about_x = -strlen(ABOUT_TITLE)*18+about_form.cwidth/2;
WriteTextB(about_x+2,107,0x82,0xD49CD2,ABOUT_TITLE);
WriteTextB(about_x,105,0x82,0x9D129D,ABOUT_TITLE);
DrawRectangle3D(0,154,about_form.cwidth,1,system.color.work_dark,system.color.work_light);
WriteTextLines(7,163,0x90,system.color.work_text,"KolibriOS File Manager\nAuthors: Leency, Veliant\nPunk_Joker, Pavelyakov\n2008 - 2018",20);
#ifdef LANG_RUS
DrawStandartCaptButton(60,about_form.cheight-38,11,"ˆáâ®à¨ï ࠧࠡ®âª¨");
#endif
}
}