| 113,7 → 113,9 |
|---|
| call draw_window |
| |
| still: |
| mcall 10 ; Wait here for event |
| push 10 ; Wait here for event |
| pop eax |
| mcall |
| cmp al,6 |
| je call_mouse |
| dec eax |
| 121,7 → 123,8 |
|---|
| dec eax |
| jne button ; Button in buffer |
| key: ; Key |
| mcall 2 ; Read it and ignore |
| mov al,2 ; Read it and ignore |
| mcall |
| |
| push dword edit1 |
| call [edit_box_key] |
| 136,7 → 139,9 |
|---|
| jmp still |
| ;--------------------------------------------------------------------- |
| button: ; Button in Window |
| mcall 17 |
| mov al,17 |
| mcall |
| |
| cmp ah,1 |
| jne noclose |
| or eax,-1 |
| 185,12 → 190,13 |
|---|
| pusha |
| mcall 12,1 ; Start of draw |
| ;get_sys_colors 1,0 |
| |
| xor eax,eax |
| mov ebx,100*65536+280 |
| mov ecx,90*65536+260 |
| mov edx,[sc.work] |
| or edx,0x33000000 |
| xor eax,eax |
| xor esi,esi |
| mcall ,<100,280>,<90,260>,,,title ; Draw Window Label Text |
| mov edi,fullpath_open ;title ; Draw Window Label Text |
| mcall |
| |
| mcall 9,PROCESSINFO,-1 |
| |
| 223,7 → 229,11 |
|---|
| |
| mpack ebx,6,0 ; Draw Window Text |
| add ebx,1+ 14/2-3 |
| mcall 4,,[sc.work_text],text,text.line_size ;InFile |
| mov ecx,[sc.work_text] |
| mov edx,text |
| mov esi,text.line_size |
| mov eax,4 |
| mcall ;InFile |
| |
| add ebx, 16 ;14 |
| add edx,text.line_size |
| 353,6 → 363,7 |
|---|
| ret |
| ;--------------------------------------------------------------------- |
| draw_messages: |
| mov eax,13 ; clear work area |
| mpack ebx,7-2,[pinfo.box.width] |
| sub ebx,5*2+7*2-1-2*2 |
| mpack ecx,0,[pinfo.box.height] |
| 361,7 → 372,8 |
|---|
| mov word[bottom_right],cx |
| msub [bottom_right],7,11 |
| add [bottom_right],7 shl 16 + 53 |
| mcall 13,,,[sc.work] ; clear work area |
| mov edx,[sc.work] |
| mcall |
| _cy = 0 |
| _sy = 2 |
| _cx = 4 |