Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
2568 | leency | 1 | //Leency - 2012 |
2 | |||
3 | #include "imgs\logo.txt" |
||
4 | |||
5 | #define BROWSER_PATH "/sys/htmlv" |
||
2662 | leency | 6 | #define BROWSER_LINK "http://kolibri-os.narod.ru" |
2568 | leency | 7 | |
8 | |||
2662 | leency | 9 | void about_dialog() |
2568 | leency | 10 | { |
11 | byte p; |
||
12 | mouse mm; |
||
13 | byte id, letitclose=0; |
||
14 | SetEventMask(100111b); |
||
15 | loop() switch(WaitEvent()) |
||
16 | { |
||
17 | case evMouse: |
||
18 | mm.get(); |
||
19 | //кульно |
||
20 | IF (mm.x>85) && (mm.x<155) && (mm.y>190) && (mm.y<190+22) |
||
21 | IF (mm.lkm) {DrawRegion_3D(86,191,68,20,0xC7C7C7,0xFFFFFF); letitclose=1;} |
||
22 | ELSE {IF (letitclose) {DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7); Pause(7); ExitProcess();}} |
||
23 | ELSE IF (letitclose) {letitclose=0; DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7);} |
||
24 | break; |
||
25 | |||
26 | case evButton: |
||
27 | id=GetButtonID(); |
||
28 | IF (id==1) ExitProcess(); |
||
29 | IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK); |
||
30 | break; |
||
31 | |||
32 | case evKey: |
||
33 | IF (GetKey()==27) ExitProcess(); |
||
34 | break; |
||
35 | |||
36 | case evReDraw: |
||
37 | DefineAndDrawWindow(600,150,181,256,0x34,0x10EFEBEF,0,0,"About Eolite"); |
||
38 | DrawBar(0,0,172,50,0x8494C4); //голубое сзади |
||
39 | PutPaletteImage(#logo,85,85,43,7,#logo_pal); |
||
2833 | leency | 40 | WriteText(46,100,0x90,0xBF40BF,"Eolite v1.28",0); |
2695 | leency | 41 | $add ebx, 1<<16 |
42 | $int 0x40 |
||
2568 | leency | 43 | WriteText(55,120,0x80,0,"Developers:",0); |
44 | WriteText(39,130,0x80,0,"Leency & Veliant",0); |
||
2591 | leency | 45 | WriteText(45,140,0x80,0,"KolibriOS Team",0); |
2662 | leency | 46 | WriteText(61,150,0x80,0,"2008-2012",0); |
2568 | leency | 47 | WriteText(12,170,0x80,0,"Visit",0); |
48 | DrawLink(48,170,23, "kolibri-os.narod.ru"); //ссылкa |
||
49 | DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close"); |
||
2814 | leency | 50 | |
51 | //PutPaletteImage(3*16*15+#ficons,16,15,40,195,#ficons_pal); |
||
2568 | leency | 52 | } |
53 | } |
||
54 | |||
55 | void DrawLink(dword x,y,btn_id, inscription) |
||
56 | { |
||
57 | WriteText(x,y,0x80,0x4E00E7,inscription,0); |
||
58 | DrawBar(x,y+8,strlen(inscription)*6,1,0x4E00E7); //подчеркнуть ссылку |
||
59 | DefineButton(x-1,y-1,strlen(inscription)*6,10,btn_id+BT_HIDE,0); |
||
60 | }16 |