Eolite: fix scroll

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

View File

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

View File

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