Subversion Repositories Kolibri OS

Rev

Rev 2805 | Rev 3013 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2805 Rev 2813
Line 11... Line 11...
11
LMARGIN equ 15
11
LMARGIN equ 15
12
CHARW equ 6
12
CHARW equ 6
13
CHARH equ 11
13
CHARH equ 11
14
WINW  equ 600
14
WINW  equ 600
15
WINH  equ 450
15
WINH  equ 450
16
WIN_COLOR equ 0x33f0f0f0;0x3f0f0f0
16
WIN_COLOR equ 0x73f0f0f0
17
DEFCOLOR equ 0x303030
17
DEFCOLOR equ 0x303030
18
;RENDER equ PIX
18
;RENDER equ PIX
19
;RENDER equ BGI
19
;RENDER equ BGI
20
RENDER equ FREE
20
RENDER equ FREE
Line 40... Line 40...
40
BENCH  equ 0;1
40
BENCH  equ 0;1
41
syms equ 12
41
syms equ 12
Line 42... Line 42...
42
 
42
 
Line 43... Line 43...
43
;-------------------------------
43
;-------------------------------
44
 
44
 
Line 45... Line 45...
45
scroll_width_size       equ     15
45
SCROLL_WIDTH_SIZE       equ     15
Line 46... Line 46...
46
AR_OFFSET               equ     10
46
AR_OFFSET               equ     10
Line 527... Line 527...
527
 
527
 
528
    mcall 12, 1
528
    mcall 12, 1
529
;    mcall 0, <10,WINW>, <100,WINH>, WIN_COLOR,0x805080D0, 0x005080D0
529
;    mcall 0, <10,WINW>, <100,WINH>, WIN_COLOR,0x805080D0, 0x005080D0
530
;    mcall 4, <8,8>, 0x10DDEEFF, title, titlesize-title
530
;    mcall 4, <8,8>, 0x10DDEEFF, title, titlesize-title
-
 
531
    mcall 0, <10,WINW>, <100,WINH>, WIN_COLOR,0x80000000, window_title
-
 
532
 
-
 
533
;---------------------------------------------
-
 
534
    mcall 9, procinfo2, -1
-
 
535
 
-
 
536
	mcall 48,4
-
 
537
	mov [skin_height], eax
-
 
538
 
-
 
539
	mov  ebx,0*65536-9
-
 
540
    add  ebx, [procinfo2.box.width]
-
 
541
 
-
 
542
	cmp  [is_scroll_bar_needed], 0
-
 
543
	je  @f
-
 
544
	  sub ebx, SCROLL_WIDTH_SIZE
-
 
545
	  dec ebx
-
 
546
	@@:
-
 
547
	
-
 
548
	mov  ecx, 19*65536-23
-
 
549
    add  ecx, [procinfo2.box.height]
-
 
550
	sub  ecx, [skin_height]
-
 
551
	
-
 
552
	mov  eax, 13
-
 
553
	mov  edx, 0xf0f0f0
531
    mcall 0, <10,WINW>, <100,WINH>, WIN_COLOR,0x80000000, window_title
554
	int 0x40
532
;---------------------------------------------
555
;---------------------------------------------
533
    cmp  [is_scroll_bar_needed],    0
556
    cmp  [is_scroll_bar_needed],    0
534
     je  @f
557
     je  @f
535
    call Set_scroll_position
558
    call Set_scroll_position
Line 542... Line 565...
542
; reset all_redraw flag 
565
; reset all_redraw flag 
543
        xor     eax,eax
566
        xor     eax,eax
544
        mov     [scroll_bar_data_vertical.all_redraw],eax
567
        mov     [scroll_bar_data_vertical.all_redraw],eax
545
  @@:
568
  @@:
546
;---------------------------------------------
569
;---------------------------------------------
-
 
570
	;po-moumu eto govno mamonta
-
 
571
	
547
    mcall 47,0x30000,isymImplemented,<114,8>, 0x10DDEEFF
572
    ;mcall 47,0x30000,isymImplemented,<114,8>, 0x10DDEEFF
548
    add  edx,36 shl 16
573
    ;add  edx,36 shl 16
549
    mcall ,,isymMax
574
    ;mcall ,,isymMax
550
    add  edx,40 shl 16
575
    add  edx,40 shl 16
551
    mov  esi,0x104e00e7;0x10f27840
576
    mov  esi,0x104e00e7;0x10f27840
552
    cmp  dword[fileinfo.name],N_A
577
    cmp  dword[fileinfo.name],N_A
553
    jne  .noNA
578
    jne  .noNA
554
    mov  esi,0x10ff0000
579
    mov  esi,0x10ff0000
555
  .noNA:
580
  .noNA:
556
;    mcall 4,edx,esi,fileinfo.name,[fname_size]
581
;    mcall 4,edx,esi,fileinfo.name,[fname_size]
557
    mov  edi,prcinfo
-
 
558
    mcall 9,edi,-1
582
    mcall 9,prcinfo,-1
559
    and  [mode],not RTF_TOEOF
583
    and  [mode],not RTF_TOEOF
560
    mov  ebx,[edi+42]
584
    mov  ebx,[edi+42]
561
    cmp  ebx,[wSave]
585
    cmp  ebx,[wSave]
562
    je   .nochg
586
    je   .nochg
563
  .chg:
587
  .chg:
Line 569... Line 593...
569
  .nochg:
593
  .nochg:
Line 570... Line 594...
570
 
594
 
571
;---------------------------------------------
595
;---------------------------------------------
Line -... Line 596...
-
 
596
    call  Set_scroll_position
572
    call  Set_scroll_position
597
 
573
 
598
;---------------------------------------------
574
    mov ebx, dword[prcinfo+0x3E]
599
    mov ebx, dword[prcinfo+0x3E]
575
    mcall     38, , 65536*18+18, 0x8b8b89
600
    mcall     38, , 65536*18+18, 0x8b8b89
576
    inc ebx
601
    inc ebx
Line 585... Line 610...
585
; draw for Menu 3
610
; draw for Menu 3
586
        push    dword menu_data_3
611
        push    dword menu_data_3
587
        call    [menu_bar_draw]         
612
        call    [menu_bar_draw]         
588
;---------------------------------------------
613
;---------------------------------------------
Line 589... Line 614...
589
 
614
 
590
    sub  dword[prcinfo+42],2*LMARGIN+scroll_width_size
615
    sub  dword[prcinfo+42],2*LMARGIN+SCROLL_WIDTH_SIZE
Line 591... Line 616...
591
    sub  dword[prcinfo+46],CHARH+25
616
    sub  dword[prcinfo+46],CHARH+25
592
    
617
    
593
 if GUTTER eq 1
618
 if GUTTER eq 1
Line 720... Line 745...
720
    ret
745
    ret
721
;---------------------------------------------------------------------
746
;---------------------------------------------------------------------
722
Set_scroll_position:
747
Set_scroll_position:
723
    mcall 9, procinfo2, -1
748
    mcall 9, procinfo2, -1
724
    mov eax, dword[procinfo2+0x3E]
749
    mov eax, dword[procinfo2+0x3E]
725
    sub eax, scroll_width_size
750
    sub eax, SCROLL_WIDTH_SIZE
726
    mov word[scroll_bar_data_vertical.start_x], ax
751
    mov word[scroll_bar_data_vertical.start_x], ax
Line 727... Line 752...
727
 
752
 
728
    mov eax, dword[procinfo2+0x42]
753
    mov eax, dword[procinfo2+0x42]
729
    sub eax, 17
754
    sub eax, 17
Line 740... Line 765...
740
;---------------------------------------------------------------------
765
;---------------------------------------------------------------------
Line 741... Line 766...
741
 
766
 
742
; ¨­â¥àä¥©á ¯à®£à ¬¬ë ¬­®£®ï§ëç­ë©
767
; ¨­â¥àä¥©á ¯à®£à ¬¬ë ¬­®£®ï§ëç­ë©
Line 743... Line 768...
743
;  ‚ë ¬®¦¥â¥ § ¤ âì ï§ëª ¢ MACROS.INC (lang fix ï§ëª)
768
;  ‚ë ¬®¦¥â¥ § ¤ âì ï§ëª ¢ MACROS.INC (lang fix ï§ëª)
744
 
769
 
745
window_title:           db      'RtfRead v1.034',0
770
window_title:           db      'RtfRead v1.4',0
746
is_scroll_bar_needed    dd      0x0
771
is_scroll_bar_needed    dd      0x0
-
 
772
window_width            dd      0x0
747
window_width            dd      0x0
773
window_height           dd      0x0
748
window_height           dd      0x0
774
skin_height             dd      0x0
Line 749... Line 775...
749
;---------------------------------------------------------------------
775
;---------------------------------------------------------------------
750
l_libs_start:
776
l_libs_start:
Line 1011... Line 1037...
1011
        db 0
1037
        db 0
1012
;---------------------------------------------------------------------
1038
;---------------------------------------------------------------------
1013
align   4
1039
align   4
1014
scroll_bar_data_vertical:
1040
scroll_bar_data_vertical:
1015
.x:
1041
.x:
1016
.size_x         dw scroll_width_size;+0
1042
.size_x         dw SCROLL_WIDTH_SIZE;+0
1017
.start_x        dw WINW-25  ;+2
1043
.start_x        dw WINW-25  ;+2
1018
.y:
1044
.y:
1019
.size_y         dw WINH-45  ;+4
1045
.size_y         dw WINH-45  ;+4
1020
.start_y        dw 19   ;+6
1046
.start_y        dw 19   ;+6
1021
.btn_high       dd scroll_width_size    ;+8
1047
.btn_high       dd SCROLL_WIDTH_SIZE    ;+8
1022
.type           dd 1    ;+12
1048
.type           dd 0    ;+12
1023
.max_area       dd 300       ;+16
1049
.max_area       dd 300       ;+16
1024
.cur_area       dd 50   ;+20
1050
.cur_area       dd 50   ;+20
1025
.position       dd 0    ;+24
1051
.position       dd 0    ;+24
1026
.bckg_col       dd 0xAAAAAA     ;+28
1052
.bckg_col       dd 0xAAAAAA     ;+28
1027
.frnt_col       dd 0xCCCCCC     ;+32
1053
.frnt_col       dd 0xCCCCCC     ;+32