keXa/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

Eolite: fix scroll

Browse Source 
git-svn-id: svn://kolibrios.org@5695 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency) 2015-08-07 15:12:03 +00:00
parent 4bdbccb935
commit 7ba9ba96b4
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
programs/cmm/eolite/Eolite.c
View File

@ -141,6 +141,8 @@ byte
dword eolite_ini_path;
char scroll_used=0;
dword menu_stak,about_stak,properties_stak,settings_stak,copy_stak;
proc_info Form;
@ -176,7 +178,7 @@ byte cmd_free=0;
void main()
{
word key, id;
char can_show, can_select, scroll_used, stats;
char can_show, can_select, stats;
dword selected_offset;
dword IPC_LEN,IPC_ID;
char IPC_BUF[10];
@ -325,8 +327,8 @@ void main()
}
//Scrooll
if (!mouse.lkm) && (scroll_used) { scroll_used=NULL; Scroll(); }
if (mouse.x>=Form.width-26) && (mouse.x<=Form.width-6) && (mouse.y>56) && (mouse.y<Form.height) && (mouse.lkm) && (!scroll_used) {scroll_used=1;Scroll();}
if (!mouse.lkm) && (scroll_used) { scroll_used=false; Scroll(); }
if (mouse.x>=Form.width-26) && (mouse.x<=Form.width-6) && (mouse.y>56) && (mouse.y<Form.height) && (mouse.lkm) && (!scroll_used) {scroll_used=true; Scroll();}
if (scroll_used)
{

2
programs/cmm/eolite/include/gui.h
View File

@ -2,7 +2,7 @@
dword col_palette[14] = {0xD2D3D3,0xD4D4D4,0xD6D5D6,0xD8D7D8,0xDAD8D9,0xDCDADB,
0xDFDCDD,0xE1DDDE,0xE2DEE0,0xE4DFE1,0xE3DFE1,0xE3DFE1,0xE3DFE1,0xE3DFE1,0xE3DFE1};
void Scroll(char scroll_used) {
void Scroll() {
dword i;
word sc_x = Form.cwidth - 18;