Subversion Repositories Kolibri OS

Rev

Rev 468 | Rev 485 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
468 Lrz 1
;Распространяется по лицензии GPL  SEE YOU File FAQ.txt and HISTORY. Good Like!
234 Lrz 2
;Оптимизированный компонент EditBox (Исходный вариант от Maxxxx32)
3
;Оптимизация команд.
292 Lrz 4
;  - Теплов Алексей  www.lrz.land.ru
234 Lrz 5
;заголовок приложения
461 Lrz 6
use32           ; транслятор, использующий 32 разрядных команды
7
    org 0x0             ; базовый адрес кода, всегда 0x0
8
    db 'MENUET01'       ; идентификатор исполняемого файла (8 байт)
9
    dd 0x1              ; версия формата заголовка исполняемого файла
10
    dd start            ; адрес, на который система передаёт управление
11
                        ; после загрузки приложения в память
12
    dd i_end            ; размер приложения
483 Lrz 13
    dd i_end            ; Объем используемой памяти, для стека отведем 0х100 байт и выровним на грницу 4 байта
14
    dd i_end            ; расположим позицию стека в области памяти, сразу за телом программы. Вершина стека в диапазоне памяти, указанном выше
461 Lrz 15
    dd 0x0,0x0          ; указатель на строку с параметрами.
16
        include 'macros.inc'
17
        include 'editbox.inc'
483 Lrz 18
align 4
19
        use_edit_box procinfo,22,5
234 Lrz 20
;Область кода
461 Lrz 21
start:                          ;Точка входа в программу
22
        mcall   40,0x27         ;установить маску для ожидаемых событий
23
 ;система будет реагировать только на сообщение о перерисовке,нажата кнопка, определённая ранее, событие от мыши (что-то случилось - нажатие на кнопку мыши или перемещение; сбрасывается при прочтении) и нажатие клавиши
234 Lrz 24
red_win:
461 Lrz 25
    call draw_window            ;первоначально необходимо нарисовать окно
483 Lrz 26
align 4
461 Lrz 27
still:                          ;основной обработчик
468 Lrz 28
        mcall   10              ;Ожидать события
461 Lrz 29
        cmp al,0x1    ;если изменилось положение окна
30
        jz red_win
31
        cmp al,0x2    ;если нажата клавиша то перейти
32
        jz key
33
        cmp al,0x3    ;если нажата кнопка то перейти
34
        jz button
35
        mouse_edit_boxes editboxes,editboxes_end
36
        jmp still    ;если ничего из перечисленного то снова в цикл
234 Lrz 37
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
38
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
39
button:
461 Lrz 40
        mcall   17      ;получить идентификатор нажатой клавиши
41
        test ah,ah              ;если в ah 0, то перейти на обработчик событий still
42
        jz  still
43
        mcall   -1
234 Lrz 44
key:
461 Lrz 45
        mcall   2       ;загрузим значение 2 в регистор eax и получим код нажатой клавиши
46
        key_edit_boxes editboxes,editboxes_end
234 Lrz 47
    jmp still
48
 
49
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
483 Lrz 50
align 4
461 Lrz 51
draw_window:            ;рисование окна приложения
52
        mcall   12,1
53
        mcall   0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed
483 Lrz 54
        draw_edit_boxes editboxes,editboxes_end,use_f9,procinfo  ;рисование edit box'ов
461 Lrz 55
        mcall   12,2
234 Lrz 56
    ret
57
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
58
;DATA данные
59
editboxes:
461 Lrz 60
edit1 edit_box 168,5,10,0xffffff,0x6a9480,0,0,0,99,ed_buffer.2,ed_figure_only
61
edit2 edit_box 250,5,30,0xffffff,0x6a9480,0,0xAABBCC,0,308,hed,ed_focus,53,53
62
edit3 edit_box 35,5,50,0xffffff,0x6a9480,0,0,0,9,ed_buffer.3,ed_figure_only
63
edit4 edit_box 16,5,70,0xffffff,0x6a9480,0,0,0,1,ed_buffer.4,ed_figure_only
234 Lrz 64
editboxes_end:
396 Lrz 65
data_of_code dd 0
461 Lrz 66
mouse_flag dd 0x0
483 Lrz 67
hed db   'EDITBOX optimization and retype  date 09.05.2007',0
461 Lrz 68
rb  256
234 Lrz 69
ed_buffer:
404 Lrz 70
;.1: rb 514;256
396 Lrz 71
.2: rb 101
72
.3: rb 11
73
.4: rb 3
74
;два запасных байта необходимы для того что бы не пепереписать следующией байты, в конце буфера 0
234 Lrz 75
buffer_end:
483 Lrz 76
align 16
77
procinfo:
461 Lrz 78
rb 1024 ;1 кб для получения общей структуры
483 Lrz 79
rb 1024 ;Stack
80
i_end: