mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-15 19:33:59 +03:00
2eda7fed5c
eolite: fix crash on put image h<1 cmm: rename colors to the short one "sc" git-svn-id: svn://kolibrios.org@7806 a494cfbc-eb01-0410-851d-a64ba20cac60
53 lines
930 B
C
53 lines
930 B
C
/*
|
|
* Template C-- program.
|
|
*/
|
|
|
|
#define MEMSIZE 4096*15
|
|
|
|
#include "../lib/io.h"
|
|
#include "../lib/gui.h"
|
|
|
|
#define WIN_W 12*10+30
|
|
#define WIN_H 80
|
|
|
|
void main()
|
|
{
|
|
word btn;
|
|
loop() switch(WaitEvent())
|
|
{
|
|
case evButton:
|
|
btn = GetButtonID();
|
|
if (btn == 1) ExitProcess();
|
|
break;
|
|
|
|
case evKey:
|
|
GetKeys();
|
|
if (key_scancode == SCAN_CODE_ESC) ExitProcess();
|
|
break;
|
|
|
|
case evReDraw:
|
|
draw_window();
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
inline GetRevisionNumber()
|
|
{
|
|
char buf[32];
|
|
EAX = 18;
|
|
EBX = 13;
|
|
ECX = #buf;
|
|
return ESDWORD[#buf+5];
|
|
}
|
|
|
|
void draw_window()
|
|
{
|
|
sc.get();
|
|
DefineUnDragableWindow(screen.width-WIN_W-15, GetClientHeight()-WIN_H-15, WIN_W-1, WIN_H-1);
|
|
DrawBar(0,0,WIN_W,WIN_H,0x414155);
|
|
DrawWideRectangle(0,0,WIN_W,WIN_H, 3, 0x5555FF);
|
|
WriteText(15, 20, 0x81, 0xFFFF55, " REV 7321 ");
|
|
WriteText(15, 20+25, 0x81, 0xFFFF55, "17.09.2018");
|
|
}
|