kolibrios-gitea/programs/cmm/eolite/include/about.h
Kirill Lipatov (Leency) 80c86aab65 CMM: a lot of small changes
git-svn-id: svn://kolibrios.org@6050 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-01-10 20:02:47 +00:00

56 lines
1.6 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

//Leency 2008-2016
#define BROWSER_PATH "/sys/network/webview"
#define BROWSER_LINK "http://kolibri-n.org/inf/eolite/eolite_p1"
#ifdef LANG_RUS
?define DEVELOPERS_TEXT "<EFBFBD> §à ¡®â稪¨:\nLeency Veliant PunkJoker Pavelyakov\nKolibriOS Team\n2008-2016"
?define CLOSE_BUTTON_TEXT "‡ ªàëâì"
#else
?define DEVELOPERS_TEXT "Developers:\nLeency Veliant PunkJoker Pavelyakov\nKolibriOS Team\n2008-2016"
?define CLOSE_BUTTON_TEXT "Close"
#endif
void about_dialog()
{
byte id;
proc_info about_form;
if (active_about) {cmd_free=2;ExitProcess();} else active_about=1;
loop() switch(WaitEvent())
{
case evButton:
id=GetButtonID();
IF (id==1) || (id==10)
{
active_about=0;
cmd_free = 2;
ExitProcess();
}
IF (id==11) RunProgram(BROWSER_PATH, BROWSER_LINK);
break;
case evKey:
IF (GetKey()==27)
{
active_about=0;
cmd_free = 2;
ExitProcess();
}
break;
case evReDraw:
DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,440,200+GetSkinHeight(),0x34,system.color.work,0);
GetProcessInfo(#about_form, SelfInfo);
if (about_form.status_window>2) break;
_PutImage(10, 23, 86, 86, #logo);
WriteTextB(112,16,0x82,0xD49CD2,ABOUT_TITLE);
WriteTextB(110,14,0x82,0xBF40BF,ABOUT_TITLE);
WriteTextLines(110,53,10010000b,0,DEVELOPERS_TEXT,21);
#ifdef LANG_RUS
DrawFlatButton(about_form.cwidth-310,about_form.cheight-38,180,26,11,"ˆáâ®à¨ï ࠧࠡ®âª¨");
#endif
DrawFlatButton(about_form.cwidth-110,about_form.cheight-38, 90,26,10,CLOSE_BUTTON_TEXT);
}
}