Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
439 Lrz 1
;  30.03.2007 произведена оптимизация работы конпок DEL и Backspace? уменьшен размер выполняемого кода.
234 Lrz 2
;Эффективное программирование в KOLIBRI
3
;Оптимизированный компонент EditBox (Исходный вариант от Maxxxx32)
4
;Оптимизация команд.
292 Lrz 5
;  - Теплов Алексей  www.lrz.land.ru
234 Lrz 6
;заголовок приложения
461 Lrz 7
use32           ; транслятор, использующий 32 разрядных команды
8
    org 0x0             ; базовый адрес кода, всегда 0x0
9
    db 'MENUET01'       ; идентификатор исполняемого файла (8 байт)
10
    dd 0x1              ; версия формата заголовка исполняемого файла
11
    dd start            ; адрес, на который система передаёт управление
12
                        ; после загрузки приложения в память
13
    dd i_end            ; размер приложения
14
    dd i_end and not 3  ; Объем используемой памяти, для стека отведем 0х100 байт и выровним на грницу 4 байта
15
    dd i_end and not 3  ; расположим позицию стека в области памяти, сразу за телом программы. Вершина стека в диапазоне памяти, указанном выше
16
    dd 0x0,0x0          ; указатель на строку с параметрами.
17
        include 'macros.inc'
18
        include 'editbox.inc'
19
        use_edit_box
234 Lrz 20
;Область кода
461 Lrz 21
start:                          ;Точка входа в программу
22
        mcall   40,0x27         ;установить маску для ожидаемых событий
23
 ;система будет реагировать только на сообщение о перерисовке,нажата кнопка, определённая ранее, событие от мыши (что-то случилось - нажатие на кнопку мыши или перемещение; сбрасывается при прочтении) и нажатие клавиши
234 Lrz 24
red_win:
461 Lrz 25
    call draw_window            ;первоначально необходимо нарисовать окно
26
still:                          ;основной обработчик
27
        mcall   10              ;Ожидать события в течение 2 миллисекунд
234 Lrz 28
 
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
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
461 Lrz 50
draw_window:            ;рисование окна приложения
51
        mcall   12,1
52
        mcall   0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed
53
        draw_edit_boxes editboxes,editboxes_end  ;рисование edit box'ов
54
        mcall   12,2
234 Lrz 55
    ret
56
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
57
;DATA данные
58
editboxes:
461 Lrz 59
edit1 edit_box 168,5,10,0xffffff,0x6a9480,0,0,0,99,ed_buffer.2,ed_figure_only
60
edit2 edit_box 250,5,30,0xffffff,0x6a9480,0,0xAABBCC,0,308,hed,ed_focus,53,53
61
edit3 edit_box 35,5,50,0xffffff,0x6a9480,0,0,0,9,ed_buffer.3,ed_figure_only
62
edit4 edit_box 16,5,70,0xffffff,0x6a9480,0,0,0,1,ed_buffer.4,ed_figure_only
234 Lrz 63
editboxes_end:
396 Lrz 64
data_of_code dd 0
461 Lrz 65
mouse_flag dd 0x0
66
hed db   'EDITBOX optimization and retype  date 13.04.2007',0
67
rb  256
234 Lrz 68
ed_buffer:
404 Lrz 69
;.1: rb 514;256
396 Lrz 70
.2: rb 101
71
.3: rb 11
72
.4: rb 3
73
;два запасных байта необходимы для того что бы не пепереписать следующией байты, в конце буфера 0
234 Lrz 74
buffer_end:
449 Lrz 75
structure_of_potock:
461 Lrz 76
rb 1024 ;1 кб для получения общей структуры
343 Lrz 77
rb 1024
396 Lrz 78
i_end: