Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 5838 → Rev 5837

/programs/develop/tinypad/trunk/tp-editor.asm
29,7 → 29,7
cmp eax,3
jae @f
mov eax,3
@@: imul eax,[charWidth]
@@: imul eax,6
add eax,8
.lp1: mov [cur_editor.Gutter.Width],eax
mov [left_ofs],eax
40,7 → 40,7
sub eax,SCRLW+LCHGW+4
js .exit
cdq
mov ebx,[charWidth]
mov ebx,6
div ebx
mov [columns.scr],eax
 
50,7 → 50,7
sub eax,SCRLW+3
js .exit
cdq
mov ebx,[lineHeight]
mov ebx,LINEH
div ebx
mov [lines.scr],eax
 
106,16 → 106,11
mov esi,edi
pop edi edx eax
sub esi,edx
mov eax,esi
imul eax,[charWidth]
shl eax,16
imul eax,esi,6*65536
sub ebx,eax
mov cl, [scale]
shl ecx,24
or ecx,edi
mcall 4
mcall 4,,edi
popad
add ebx,[lineHeight]
add ebx,LINEH
inc ecx
cmp ecx,[cur_editor.Lines.Count]
jg @f
358,7 → 353,7
@@: push eax
mov eax,[cur_editor.Bounds.Bottom]
sub eax,[cur_editor.Bounds.Top]
cmp eax,[lineHeight]
cmp eax,LINEH
pop eax
jge @f
ret
409,7 → 404,7
mov ebx,[top_ofs]
add ebx,[left_ofs-2]
sub eax,[cur_editor.TopLeft.Y]
imul eax,[lineHeight]
imul eax,LINEH
add ebx,eax
 
imul ebp,[cur_editor.TopLeft.X],6*65536
430,7 → 425,7
ret
@@: mov eax,[cur_editor.Bounds.Bottom]
sub eax,[cur_editor.Bounds.Top]
cmp eax,[lineHeight]
cmp eax,LINEH
jge @f
ret
@@:
471,7 → 466,7
 
mov ecx,ebx
shl ecx,16
mov cl,byte[lineHeight]
mov cl,LINEH
mov ebx,[cur_editor.Bounds.Right]
add ebx,-SCRLW
add ebx,[left_ofs-2]
497,7 → 492,7
jle .lp6.2
cmp eax,[columns.scr]
jge .lp6
imul eax,[charWidth]
imul eax,6
pushad
sub bx,ax
rol ebx,16
519,7 → 514,7
jle .lp6
cmp eax,[columns.scr]
jg .lp6.2
imul eax,[charWidth]
imul eax,6
pushad
sub bx,ax
rol ebx,16
544,11 → 539,11
cmp eax,[sel.end.x]
je .lp6
sub eax,[cur_editor.TopLeft.X]
imul eax,[charWidth]
imul eax,6
pushad
mov ebx,[sel.end.x]
sub ebx,[sel.begin.x]
imul ebx,[charWidth]
imul ebx,6
sal ebx,16
dec eax
add eax,[left_ofs]
612,9 → 607,7
pop ebx
 
push ecx
mov cl, [scale]
shl ecx,24
or ecx,eax
mov ecx,eax
 
push esi ebx
mov eax,ebx
631,8 → 624,7
xor eax,eax
jmp .qqq2
.qqq:
imul eax,[charWidth]
shl eax,16
imul eax,6*65536
.qqq2:
and ebx,0x0000FFFF
add eax,[left_ofs-2]
671,14 → 663,12
sub [esp+4],ecx
@@: sub eax,esi
add edx,esi
imul esi,[charWidth]
imul esi,6
rol ebx,16
add bx,si
rol ebx,16
mov esi,eax
mov cl, [scale]
shl ecx,24
or ecx,[color_tbl.text.sel]
mov ecx,[color_tbl.text.sel]
mcall 4
popad
jmp .draw_t
703,15 → 693,12
pop ebx
pushad
mov esi,eax
mov cl, [scale]
shl ecx,24
or ecx,[color_tbl.text.sel]
mov ecx,[color_tbl.text.sel]
mcall 4
popad
sub esi,eax
add edx,eax
imul eax,[charWidth]
shl eax,16
imul eax,6*65536
add ebx,eax
jmp .draw_t
;----------------------------------------------)-
739,20 → 726,16
sub eax,esi
pushad
add edx,esi
imul esi,[charWidth]
shl esi,16
imul esi,6*65536
add ebx,esi
mov esi,[sel.end.x]
sub esi,[sel.begin.x]
mov cl, [scale]
shl ecx,24
or ecx,[color_tbl.text.sel]
mov ecx,[color_tbl.text.sel]
sub eax,esi
push eax
mcall 4
add edx,esi
imul esi,[charWidth]
shl esi,16
imul esi,6*65536
add ebx,esi
pop esi
mov ecx,[esp+4*6]
765,9 → 748,7
cmp eax,[sel.end.x]
jge .ya2
;---[ block inside selection ]-----------------(-
.ya4: mov cl, [scale]
shl ecx,24
or ecx,[color_tbl.text.sel]
.ya4: mov ecx,[color_tbl.text.sel]
;----------------------------------------------)-
 
.draw_t:
774,7 → 755,7
mcall 4
.skip_t:
pop eax eax ; ebx esi
imul eax,[charWidth]
imul eax,6
add [esp+4*2+2],ax
pop ecx esi
cmp ecx,[cur_line_len]
783,7 → 764,7
pop ebx ecx
and ebx,0x0000FFFF
add ebx,[left_ofs-2]
add ebx,[lineHeight]
add ebx,LINEH
add esi,[cur_line_len]
inc dword[esp]
dec ecx
804,13 → 785,12
mov edx,[color_tbl.back]
mov eax,13
mov ecx,[esp-8]
add ecx,[lineHeight]
add ecx,LINEH
shl ecx,16
mov cx,word[cur_editor.Bounds.Bottom]
sub cx,[esp-8]
sub cx,word[lineHeight]
sub cx,SCRLW
js @f
add cx,-SCRLW-LINEH
jle @f
mcall
@@: mov ecx,[cur_editor.Bounds.Top-2]
mov cx,2
958,7 → 938,7
js @f
cmp ebx,[columns.scr]
ja @f
imul ebx,[charWidth]
imul ebx,6
add ebx,[left_ofs]
dec ebx
push bx
969,12 → 949,11
js @f
cmp eax,[lines.scr]
jge @f
imul eax,[lineHeight]
imul eax,LINEH
add eax,[top_ofs]
mov esi,eax
shl esi,16
add eax,[lineHeight]
sub eax,2
add eax,LINEH-2
mov si,ax
mov ecx,2
cmp [ins_mode],0