Subversion Repositories Kolibri OS

;

;    UNIFORM WINDOW COLOURS

;

;    Compile with FASM for Menuet

;

;    < russian edition by Ivan Poddubny >

;

;******************************************************************************

   use32

   org     0

   db      'MENUET01'  ; identifier

   dd      1           ; header version

   dd      START       ; start address

   dd      I_END       ; file size

   dd      20000h      ; memory

   dd      10000h      ; stack pointer (0x10000+ - work area for os)

   dd      0;,0        ; parameters, reserved

  include 'lang.inc'

  include 'macros.inc'

;******************************************************************************

START:                          ; start of execution

    mov  eax,48                 ; get current colors

    mov  ebx,3

    mov  ecx,color_table

    mov  edx,4*10

    int  0x40

    cld

    mov  esi, default_file

    mov  edi, fname

    mov  ecx, default_file.size

    rep  movsb

    mov  [read_info.address],     color_table

    mov  [read_info.workarea],    0x10000

    mov  [read_info.start_block], 0

red:

    call draw_window            ; at first, draw the window

still:

    mov  eax,23                 ; wait here for event

    mov  ebx,5

    int  0x40

    dec  eax                    ; redraw request ?

    jz   red

    dec  eax                    ; key in buffer ?

    jz   key

    dec  eax                    ; button in buffer ?

    jz   button

    call draw_cursor

    jmp  still

  key:                          ; key

    mov  eax,2                  ; just read it and ignore

    int  0x40

    jmp  still

  button:                       ; button

    mov  eax,17                 ; get id

    int  0x40

    cmp  ah,14                  ; set 3d buttons

    jne  no_3d

    mov  eax,48

    mov  ebx,1

    mov  ecx,1

    int  0x40

    mov  eax,48

    mov  ebx,0

    mov  ecx,0

    int  0x40

    jmp  still

   no_3d:

    cmp  ah,15                  ; set flat buttons

    jne  no_flat

    mcall 48, 1, 0

    mcall 48, 0, 0

    jmp  still

  no_flat:

    cmp  ah,51      ; apply

    jne  no_apply

    mov  eax,48

    mov  ebx,2

    mov  ecx,color_table

    mov  edx,10*4

    int  0x40

    mov  eax,48

    mov  ebx,0

    mov  ecx,0

    int  0x40

  no_apply:

    cmp  ah,31

    jb   no_new_colour

    cmp  ah,41

    jg   no_new_colour

    shr  eax,8

    sub  eax,31

    shl  eax,2

    add  eax,color_table

    mov  ebx,[color]

    mov  [eax],ebx

    call draw_colours

    jmp  still

  no_new_colour:

     cmp  ah,1                   ; terminate

     jnz  noid1

    mov  eax,-1

    int  0x40

  noid1:

    cmp  ah,11                  ; read string

    jne  no_string

    call read_string

    jmp  still

  no_string:

    cmp  ah,12                  ; load file

    jne  no_load

    call load_file

    call draw_window

    jmp  still

  no_load:

    cmp  ah,13                  ; save file

    jne  no_save

    call save_file

    jmp  still

  no_save:

    jmp  still

draw_cursor:

    pusha

    mov  eax,37

    mov  ebx,2

    int  0x40

    cmp  eax,0

    jne  dc1

    popa

    ret

 dc1:

    mov  eax,37

    mov  ebx,1

    int  0x40

    mov  ebx,eax

    shr  ebx,16

    mov  ecx,eax

    and  ecx,0xffff

    cmp  ecx,32

    jbe  no_color

    cmp  ebx,32

    jbe  no_color

    cmp  ebx,280           ; CHANGE COLOR

    jb   no_color

    cmp  ebx,280+20*3

    jg   no_color

    cmp  ecx,30+128

    jge  no_color

    cmp  ecx,30

    jb   no_color

    sub  ebx,280

    mov  eax,ebx

    cdq

    mov  ebx,20

    div  ebx

    mov  ebx,2

    sub  ebx,eax

    add  ecx,-30

    not  ecx

    shl  ecx,1

    mov  byte [ebx+color],cl

    call draw_color

    popa

    ret

  no_color:

    popa

    ret

load_file:

    pushad

    mov   [read_info.mode],   0

    mov   [read_info.blocks], 1

    mcall 58, read_info

    call  draw_colours

    popad

ret

save_file:

    pushad

    mov   [write_info.mode],        1

    mov   [write_info.bytes2write], 10*4

    mcall 58, write_info

    popad

ret

read_string:

    pusha

    mov  edi,fname

    mov  al,'_'

    mov  ecx,54

    cld

    rep  stosb

    call print_text

    mov  edi,fname

  f11:

    mov  eax,10

    int  0x40

    cmp  eax,2

    jne  read_done

    mov  eax,2

    int  0x40

    shr  eax,8

    cmp  eax,13

    je   read_done

    cmp  eax,8

    jne  nobsl

    cmp  edi,fname

    je   f11

    dec  edi

    mov  [edi],byte '_'

    call print_text

    jmp  f11

   nobsl:

    mov  [edi],al

    call print_text

    inc  edi

    cmp  edi, fname+54

    jne  f11

  read_done:

    mov  ecx, fname

    add  ecx, 55

    sub  ecx, edi

    mov  eax, 0

    cld

    rep  stosb

    call print_text

    popa

    ret

print_text:

    pushad

    mpack ebx, 16, 6*54+4

    mpack ecx, 234, 10

    mcall 13, , , [w_work]

    mpack ebx, 17, 235

    mcall 4, , [w_work_text], fname, 54

    popad

ret

draw_color:

    pusha

    mov  eax,13

    mov  ebx,280*65536+60

    mov  ecx,170*65536+30

    mov  edx,[color]

    int  0x40

;   mov  eax,13

    mov  ebx,280*65536+60

    mov  ecx,200*65536+10

    mov  edx,[w_work]

    int  0x40

    mov  eax,47

    mov  ebx,0+1*256+8*65536

    mov  ecx,[color]

    mov  edx,280*65536+201

    mov  esi,[w_work_text]

    int  0x40

    popa

    ret

draw_colours:

    pusha

    mov  esi,color_table

    mov  ebx,225*65536+32

    mov  ecx,37*65536+12

  newcol:

    mov  eax,13

    mov  edx,[esi]

    int  0x40

    add  ecx,20*65536

    add  esi,4

    cmp  esi,color_table+4*9

    jbe  newcol

    popa

    ret

;   *********************************************

;   *******  WINDOW DEFINITIONS AND DRAW ********

;   *********************************************

draw_window:

    mov  eax,12                    ; function 12:tell os about windowdraw

    mov  ebx,1                     ; 1, start of draw

    int  0x40

    mov  eax,48

    mov  ebx,3

    mov  ecx,app_colours

    mov  edx,10*4

    int  0x40

    mov  eax,14

    int  0x40

    sub  eax,60*65536

    mov  ebx,eax

    mov  bx,40

                                   ; DRAW WINDOW

    mov  eax,0                     ; function 0 : define and draw window

    mov  ebx,110*65536+360         ; [x start] *65536 + [x size]

    mov  ecx,50*65536+300          ; [y start] *65536 + [y size]

    mov  edx,[w_work]              ; color of work area RRGGBB,8->color

    or   edx,0x02000000

    mov  esi,[w_grab]              ; color of grab bar  RRGGBB,8->color gl

    or   esi,0x80000000

    mov  edi,[w_frame]             ; color of frames    RRGGBB

    int  0x40

                                   ; WINDOW LABEL

    mov  eax,4                     ; function 4 : write text to window

    mov  ebx,8*65536+7 ;8          ; [x start] *65536 + [y start]

    mov  ecx,[w_grab_text]         ; color of text RRGGBB

if lang eq ru

    or   ecx,0x10000000

end if

    mov  edx,labelt                ; pointer to text beginning

    mov  esi,labelt.size           ; text length

    int  0x40

                                   ; CLOSE BUTTON

    mov  eax,8                     ; function 8 : define and draw button

    mov  ebx,(360-19)*65536+12     ; [x start] *65536 + [x size]

    mov  ecx,4*65536+12            ; [y start] *65536 + [y size]

    mov  edx,1                     ; button id

    mov  esi,[w_grab_button]       ; button color RRGGBB

    int  0x40

;   mov  eax,8                    ; FILENAME BUTTON

    mov  ebx,280*65536+60

    mov  ecx,250*65536+14

    mov  edx,11

    mov  esi,[w_work_button]

    int  0x40

;   mov  eax,8                    ; SAVE BUTTON

    mov  ebx,280*65536+29

    mov  ecx,270*65536+14

    mov  edx,12

    int  0x40

;   mov  eax,8                    ; LOAD BUTTON

    add  ebx,30*65536

    inc  edx

    int  0x40

;   mov  eax,8                    ; 3D

    mov  ebx,15*65536+35

    mov  ecx,275*65536+14

    inc  edx

    int  0x40

;   mov  eax,8                    ; FLAT

if lang eq ru

    add  ebx,40*65536+7

else

    add  ebx,40*65536

end if

    inc  edx

    int  0x40

    mov  eax, 4

    mov  ebx, 281*65536+254

    mov  ecx, [w_work_button_text]

    mov  edx, t1

    mov  esi, t1.size

    int  0x40

;   mov  eax, 4

    mov  ebx, 277*65536+274

    mov  edx, t2

    mov  esi, t2.size

    int  0x40

    mov  eax,38                    ; R G B COLOR GLIDES

    mov  ebx,280*65536+300 ;295

    mov  ecx,30*65536+30

    mov  edx,0xff0000

  .newl:

    int  0x40

    pusha

    add  ebx,20*65536+20

    shr  edx,8

    int  0x40

    add  ebx,20*65536+20

    shr  edx,8

    int  0x40

    popa

    sub  edx,0x020000

    add  ecx,0x00010001

    cmp  ecx,158*65536+158

    jnz  .newl

    call draw_color

    mov  edx,31                    ; BUTTON ROW

    mov  ebx,15*65536+200

    mov  ecx,35*65536+14

    mov  esi,[w_work_button]

  newb:

    mov  eax,8

    int  0x40

    add  ecx,20*65536

    inc  edx

    cmp  edx,40

    jbe  newb

;    mov  eax,8                     ; APPLY BUTTON

    add  ecx,20*65536

    mov  edx,51

    int  0x40

    mov  ebx,20*65536+39           ; ROW OF TEXTS

    mov  ecx,[w_work_button_text]

    mov  edx,text

    mov  esi,32

  newline:

    mov  eax,4

    int  0x40

    add  ebx,20

    add  edx,32

    cmp  [edx],byte 'x'

    jne  newline

    call draw_colours

    call print_text

    mov  eax,12                    ; function 12:tell os about windowdraw

    mov  ebx,2                     ; 2, end of draw

    int  0x40

    ret

; DATA AREA

lsz text,\

    ru,  ' ����� ����                     ',\

    ru,  ' ������ ���������               ',\

    ru,  ' ������ �� ������ ���������     ',\

    ru,  ' ����� �� ������ �� ���������   ',\

    ru,  ' ����� ����������               ',\

    ru,  ' ������� �������                ',\

    ru,  ' ������ � ������� �������       ',\

    ru,  ' ����� �� ������                ',\

    ru,  ' ����� � ������� �������        ',\

    ru,  ' ������� � ������� �������      ',\

    ru,  '                                ',\

    ru,  '           ���������            ',\

    ru,  ' 3D    �����                    ',\

    ru,  'x',\

    en,  ' WINDOW FRAME                   ',\

    en,  ' WINDOW GRAB BAR                ',\

    en,  ' WINDOW GRAB BUTTON             ',\

    en,  ' WINDOW GRAB BUTTON TEXT        ',\

    en,  ' WINDOW GRAB TITLE              ',\

    en,  ' WINDOW WORK AREA               ',\

    en,  ' WINDOW WORK AREA BUTTON        ',\

    en,  ' WINDOW WORK AREA BUTTON TEXT   ',\

    en,  ' WINDOW WORK AREA TEXT          ',\

    en,  ' WINDOW WORK AREA GRAPH         ',\

    en,  '                                ',\

    en,  '        APPLY CHANGES           ',\

    en,  ' 3D    FLAT                     ',\

    en,  'x'

lsz t2,\

    ru, ' ���� ���� ',\

    en, ' LOAD SAVE '

lsz t1,\

    ru, '   ����    ',\

    en, ' FILENAME  '

lsz labelt,\

    ru, '��������� ������',\

    en, 'DESKTOP COLOURS - DEFINE COLOR AND CLICK ON TARGET'

sz  default_file, '/RD/1/DEFAULT.DTP'

color dd  0

I_END:

read_info:

  .mode         dd ?            ; read

  .start_block  dd ?            ; first block

  .blocks       dd ?            ; 512 bytes

  .address      dd ?

  .workarea     dd ?

fname rb 256+1            ; filename (+1 - for zero at the end)

virtual at read_info

 write_info:

  .mode         dd ?

  rd 1

  .bytes2write  dd ?

  .address      dd ?

  .workarea     dd ?

end virtual

app_colours:

w_frame              dd ?

w_grab               dd ?

w_grab_button        dd ?

w_grab_button_text   dd ?

w_grab_text          dd ?

w_work               dd ?

w_work_button        dd ?

w_work_button_text   dd ?

w_work_text          dd ?

w_work_graph         dd ?

color_table:

  times 10 dd ?