WebSVN – Kolibri OS – Diff – /programs/other/ha/HACONFIG.ASM

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Hot Angles Config ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Compile with FASM
-; Version 0.3.2: Sep 24, 2018
+; Version 0.3.5: Oct 5, 2018
 ; Copyright (c) 2018, Efremenkov Sergey aka TheOnlyMirage
 ; All rights reserved.
 ; Redistribution and use in source and binary forms, with or without modification,
 include 'lang.inc'       ;ïîääåðæêà ÿçûêîâ ïðè êîìïèëÿöèè
 include '../../macros.inc'
 include '../../proc32.inc'
 include '../../dll.inc'
 include '../../develop/libraries/box_lib/trunk/box_lib.mac' ;êîìïîíåíòû checkBox è editBox
+;![
+include '../../develop/libraries/box_lib/load_lib.mac' ;ìàêðîñ äëÿ çàãðóçêè áèáëèîòåê
+@use_library
+;@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
+;!]
 Otstup = 30
 START:
     call copyKill        ;ïðîñòåéøàÿ çàùèòà îò çàïóñêà âòîðîé êîïèè ïðèëîæåíèÿ
+    mcall  68, 11        ;èíèöèàëèçàöèÿ êó÷è
     mcall  68, 11        ;èíèöèàëèçàöèÿ êó÷è
     ;mcall 48,3,sc,sizeof.system_colors ;ïîëó÷èòü ñèñòåìíûå öâåòà
     mov  eax,48          ;ïîëó÷èòü ñèñòåìíûå öâåòà
     mov  ebx,3
     mov  ecx, sc
-    mov  edx, sizeof.system_colors
-    mcall
+    mov  edx, sizeof.system_colors
     mcall
     stdcall dll.Load, @IMPORT
     or      eax, eax
     jnz     exit
+    invoke  init_checkbox, ch1
+    mov  eax,40          ;óñòàíîâèòü ìàñêó äëÿ îæèäàåìûõ ñîáûòèé
+    mov  ebx,0x27        ;ñèñòåìà áóäåò ðåàãèðîâàòü òîëüêî íà ñîîáùåíèå î ïåðåðèñîâêå, íàæàòà êíîïêà, îïðåäåë¸ííàÿ ðàíåå, ñîáûòèå îò ìûøè (÷òî-òî ñëó÷èëîñü - íàæàòèå íà êíîïêó ìûøè èëè ïåðåìåùåíèå; ñáðàñûâàåòñÿ ïðè ïðî÷òåíèè)
-    invoke  init_checkbox, ch1
+    mcall
-    mov  eax,40          ;óñòàíîâèòü ìàñêó äëÿ îæèäàåìûõ ñîáûòèé
+    load_libraries l_libs_start,load_lib_end ;çàãðóçêà áèáëèîòåê(è)
-    mov  ebx,0x27        ;ñèñòåìà áóäåò ðåàãèðîâàòü òîëüêî íà ñîîáùåíèå î ïåðåðèñîâêå, íàæàòà êíîïêà, îïðåäåë¸ííàÿ ðàíåå, ñîáûòèå îò ìûøè (÷òî-òî ñëó÷èëîñü - íàæàòèå íà êíîïêó ìûøè èëè ïåðåìåùåíèå; ñáðàñûâàåòñÿ ïðè ïðî÷òåíèè)
+    ;mcall 48,3,sc,sizeof.system_colors ;ïîëó÷èòü ñèñòåìíûå öâåòà
 exit:
     mov     eax,-1                  ; Function -1 : close this program
     mcall
 noclose:
     cmp  ah, 2         ;êíîïêà "Ïðèìåíèòü"
-    jne  butend
+    jne  @f ;butend
     call applyButton   ;âûçîâ íàøåãî îáðàáîò÷èêà íàæàòèÿ êíîïêè
+    jmp event_wait
+@@:
+    cmp ah, 4
+    jne @f
+    mov byte[editID], 4
+    call but_open_dlg
+    jmp  event_wait
+@@:
+    cmp ah, 5
+    jne @f
+    mov byte[editID], 5
+    call but_open_dlg
+    jmp  event_wait
+@@:
+    cmp ah, 6
+    jne @f
+    mov byte[editID], 6
+    call but_open_dlg
+    jmp  event_wait
+@@:
+    cmp ah, 7
+    jne @f
+    mov byte[editID], 7
+    call but_open_dlg
+    jmp  event_wait
+@@:
 butend:
     jmp  event_wait    ;this is for ignored events, useful at development
         mov dword[createFile.size], ecx ;ïîëîæèì ðàçìåð áàéò â ñòðóêòóðó ñîçäàíèÿ/ïåðåçàïèñè ôàéëà
         mcall 68, 12, ecx ;âûäåëÿåì áëîê ïàìÿòè ïîä áóôåð ñîäåðæèìîãî
         mov dword[createFile.data_adr], eax ;ñîõðàíÿåì àäðåñ áóôåðà â ñòðóêòóðó
+        ;çàïîëíèì áóôåð ñîäåðæèìîãî:
+        ;cmp byte[mode], 0
+        ;jne @f
+        ;@@:
-        ;çàïîëíèì áóôåð ñîäåðæèìîãî:
+        ;
-        mov byte[eax], 110; 'n' ;ïî óìîë÷àíèþ ôëàã ñíÿò
+        mov byte[eax], 48;'0' ;110; 'n' ;ïî óìîë÷àíèþ ôëàã ñíÿò
         cmp word[ch1.flags], 110b ;ch_flag_en and ch_flag_middle ;âûñòàâëåí checkBox èëè íåò?
         jne applyButton.no
-        mov byte[eax], 121 ;èíà÷å êëàä¸ì 'y'
+        mov byte[eax], 49;'1' ;121 ;èíà÷å êëàä¸ì 'y'
 .no:
         inc eax
         call addPerenos
    je loadConfig.default
 .start:
    add edx, eax             ;êëàä¸ì â edx - àäðåñ êîíöà êîíôèã.äàííûõ
 .chStart:
-   cmp byte[eax], 121 ;'y'  ;âûñòàâëÿåì checkBox - ïàðàìåòð àêòèâíîñòè ïðèëîæåíèÿ
+   cmp byte[eax], 49;'1' ;121 ;'y'  ;âûñòàâëÿåì checkBox - ïàðàìåòð àêòèâíîñòè ïðèëîæåíèÿ
-   jne loadConfig.no
+   jne @f ;loadConfig.no
 .yes:
    mov word[ch1.flags], 110b ;ch_flag_en and ch_flag_middle
+   jmp loadConfig.chEnd
+@@:
+   cmp byte[eax], 50;'2' ;âòîðîé ðåæèì àêòèâèðîâàí
-   jmp loadConfig.chEnd
+   je loadConfig.yes
 .no:
    mov word[ch1.flags], 100b ;ch_flag_middle
 .chEnd:
 draw_window:
         ;óäàëÿåì êíîïêó, åñëè åñòü
         mov edx, 0x80000002
         mcall 8
+        ;óäàëÿåì åù¸ 4 êíîïêè åñëè îíè åñòü
+        mov edx, 0x80000004
+        mcall 8
+        mov edx, 0x80000005
+        mcall 8
+        mov edx, 0x80000006
+        mcall 8
+        mov edx, 0x80000007
+        mcall 8
         mov     eax, 12                 ; function 12: tell os about windowdraw
         mov     ebx, 1                  ; 1, start of draw
         mcall
         mov     ecx, 0xFFFFFF     ;áåëûé öâåò òåêñòà
         mov     edx, buttonText
         mov     esi, buttonTextSize ;5            ;ðàçìåð òåêñòà â ñèìâîëàõ
         mcall 4
+        ;ðèñóåì åù¸ 4 êíîïêè äëÿ äèàëîãîâîãî îêíà âûáîðà ôàéëà
+        ;íîìåðà 4,5,6 è 7
+        buttonH = 14 ;20
+        buttonW = 30
+        ;ëåâûé âåðõíèé óãîë
+        mov ebx, Otstup*65536 + buttonW ;êîîðäèíàòà X, øèðèíà êíîïêè
+        mov ecx, 85*65536 + buttonH   ;êîîðäèíàòà Y, âûñîòà êíîïêè
+        mov edx, 0x00000004       ;íîìåð êíîïêè
+        mov esi, 0x00AABBCC       ;öâåò êíîïêè
+        mcall 8
+        ;ëåâûé íèæíèé óãîë
+        mov ebx, Otstup*65536 + buttonW ;êîîðäèíàòà X, øèðèíà êíîïêè
+        mov ecx, 120*65536 + buttonH   ;êîîðäèíàòà Y, âûñîòà êíîïêè
+        mov edx, 0x00000005       ;íîìåð êíîïêè
+        mov esi, 0x00AABBCC       ;öâåò êíîïêè
+        mcall 8
+        ;ïðàâûé âåðõíèé óãîë
+        mov ebx, (WindowsWidth-Otstup-buttonW)*65536 + buttonW ;êîîðäèíàòà X, øèðèíà êíîïêè
+        mov ecx, 85*65536 + buttonH   ;êîîðäèíàòà Y, âûñîòà êíîïêè
+        mov edx, 0x00000006       ;íîìåð êíîïêè
+        mov esi, 0x00AABBCC       ;öâåò êíîïêè
+        mcall 8
+        ;ïðàâûé íèæíèé óãîë
+        mov ebx, (WindowsWidth-Otstup-buttonW)*65536 + buttonW ;êîîðäèíàòà X, øèðèíà êíîïêè
+        mov ecx, 120*65536 + buttonH   ;êîîðäèíàòà Y, âûñîòà êíîïêè
+        mov edx, 0x00000007       ;íîìåð êíîïêè
+        mov esi, 0x00AABBCC       ;öâåò êíîïêè
+        mcall 8
+        ;ðèñóåì òåêñòû äëÿ ýòèõ 4 êíîïîê
+        mov     ecx, 0xFFFFFF              ;áåëûé öâåò òåêñòà
+        mov     edx, commonButtonText      ;ñòðîêà òåêñòà
+        mov     esi, commonButtonTextSize  ;ðàçìåð òåêñòà â ñèìâîëàõ
+        ;êîîðäèíàòû òåêñòà (x, y)
+        deltaCommonTextX = 7
+        deltaCommonTextY = 2
+        mov     ebx, (Otstup+deltaCommonTextX) * 65536 + (85 + deltaCommonTextY)
+        mcall 4
+        mov     ebx, (Otstup+deltaCommonTextX) * 65536 + (120 + deltaCommonTextY)
+        mcall 4
+        mov     ebx, (WindowsWidth-Otstup-buttonW+deltaCommonTextX) * 65536 + (85 + deltaCommonTextY)
+        mcall 4
+        mov     ebx, (WindowsWidth-Otstup-buttonW+deltaCommonTextX) * 65536 + (120 + deltaCommonTextY)
+        mcall 4
         call draw_super_text
         LineLength = 62
 ;DATA äàííûå check_box èñïîëüçóåò ñèñòåìíûå öâåòà
 ;êîîðäèíàòû (x,y) = (30, 160) ðàçìåð ÷åêáîêñà 12, öâåò òåêñòà 0x224466
+ch1     check_box2 30 shl 16 + 12, 160 shl 16 + 12, 6, 0xFFFFFFFF, 0xAABBCC, 0x224466, ch_text, 110b ; ch_flag_en and ch_flag_middle
-ch1     check_box2 30 shl 16 + 12, 160 shl 16 + 12, 6, 0xFFFFFFFF, 0xAABBCC, 0x224466, ch_text, 110b ; ch_flag_en and ch_flag_middle
+commonButtonText db '...', 0  ;òåêñò äëÿ êíîïîê âûçîâà OpenDial
 commonButtonTextSize = 3
    mcall 4
    pop esi edi edx ecx ebx eax
+   ret
+;![
+editID db 0
+initEBX:
+   cmp byte[editID], 4
+   jne @f
+   mov ebx, dataBuffer.1
+   ret
+@@:
+   cmp byte[editID], 5
+   jne @f
+   mov ebx, dataBuffer.2
+   ret
+@@:
+   cmp byte[editID], 6
+   jne @f
+   mov ebx, dataBuffer.3
+   ret
+@@:
+   cmp byte[editID], 7
+   jne @f
+   mov ebx, dataBuffer.4
+   ret
+@@:
+   ret
+setRESULT:
+   cmp byte[editID], 4
+   jne @f
+   mov dword[dataBuffer.size1], ecx
+   mov dword[editLU.size], ecx
+   mov dword[editLU.pos], ecx
+   ret
+@@:
+   cmp byte[editID], 5
+   jne @f
+   mov dword[dataBuffer.size2], ecx
+   mov dword[editLD.size], ecx
+   mov dword[editLD.pos], ecx
+   ret
+@@:
+   cmp byte[editID], 6
+   jne @f
+   mov dword[dataBuffer.size3], ecx
+   mov dword[editRU.size], ecx
+   mov dword[editRU.pos], ecx
+   ret
+@@:
+   cmp byte[editID], 7
+   jne @f
+   mov dword[dataBuffer.size4], ecx
+   mov dword[editRD.size], ecx
+   mov dword[editRD.pos], ecx
+   ret
+@@:
+   ret
+copyPath:
+   push eax ebx ecx edx ;copy file name path
+        mov eax, openfile_path ;dword[OpenDialog_data.openfile_path]
+        call initEBX ;mov ebx, dataBuffer.1 ;.data
+        mov ecx, 0
+      @@:
+        mov dl, byte[eax]
+        cmp dl, 0 ;byte[eax], 0
+        je @f
+        mov byte[ebx], dl
+        inc eax
+        inc ebx
+        inc ecx
+        jmp @b
+      @@:
+        mov byte[ebx], 0
+        call setRESULT
+   pop edx ecx ebx eax
+   ret
+align 4
+but_open_dlg:
+        pushad
+        copy_path open_dialog_name,communication_area_default_path,file_name,0
+        mov [OpenDialog_data.type],0
+        stdcall[OpenDialog_Start], OpenDialog_data
+        cmp [OpenDialog_data.status],2
+        je @f
+        cmp [OpenDialog_data.status],0 ;ïîëüçîâàòåëü íàæàë Cancel?
+        je .end_open
+                ;êîä ïðè óäà÷íîì îòêðûòèè äèàëîãà
+                call copyPath
+                jmp .end_open
+        @@:
+                ;êîä ïðè íå óäà÷íîì îòêðûòèè äèàëîãà
+                ;...
+        .end_open:
+        popad
+        ret
+;äûííûå äëÿ äèàëîãà îòêðûòèÿ ôàéëîâ
+align 4
+OpenDialog_data:
+.type                   dd 0 ;0 - îòêðûòü, 1 - ñîõðàíèòü, 2 - âûáðàòü äèðåêòîðèþ
+.procinfo               dd procinfo
+.com_area_name          dd communication_area_name ;+8
+.com_area               dd 0 ;+12
+.opendir_path           dd plugin_path ;+16
+.dir_default_path       dd default_dir ;+20
+.start_path             dd file_name ;+24 ïóòü ê äèàëîãó îòêðûòèÿ ôàéëîâ
+.draw_window            dd draw_window ;+28
+.status                 dd 0 ;+32
+.openfile_path          dd openfile_path ;+36 ïóòü ê îòêðûâàåìîìó ôàéëó
+.filename_area          dd filename_area ;+40
+.filter_area            dd Filter
+.x:
+.x_size                 dw 420 ;+48 ; Window X size
+.x_start                dw 10 ;+50 ; Window X position
+.y:
+.y_size                 dw 320 ;+52 ; Window y size
+.y_start                dw 10 ;+54 ; Window Y position
+default_dir db '/rd/1',0 ;äèðåêòîðèÿ ïî óìîë÷àíèþ
+communication_area_name: db 'FFFFFFFF_open_dialog',0
+open_dialog_name:  db 'opendial',0
+communication_area_default_path: db '/rd/1/File managers/',0
+Filter:
+dd Filter.end - Filter.1
+.1:
+;db 'ASM',0
+;db 'KEX',0
+;db 'TXT',0
+.end:
+db 0
+align 4
+proclib_import: ;îïèñàíèå ýêñïîðòèðóåìûõ ôóíêöèé
+        OpenDialog_Init dd aOpenDialog_Init
+        OpenDialog_Start dd aOpenDialog_Start
+dd 0,0
+        aOpenDialog_Init db 'OpenDialog_init',0
+        aOpenDialog_Start db 'OpenDialog_start',0
+head_f_i:
+        head_f_l  db 'Ñèñòåìíàÿ îøèáêà',0
+        err_message_found_lib0 db 'Íå íàéäåíà áèáëèîòåêà ',39,'proc_lib.obj',39,0
+        err_message_import0 db 'Îøèáêà ïðè èìïîðòå áèáëèîòåêè ',39,'proc_lib.obj',39,0
+system_dir0 db '/sys/lib/'
+lib0_name db 'proc_lib.obj',0
+;library structures
+l_libs_start:
+        lib0 l_libs lib0_name, sys_path, file_name, system_dir0, err_message_found_lib0, head_f_l, proclib_import,err_message_import0, head_f_i
+load_lib_end:
+;txt_open db 'Îòêðûòü',0
+sys_path:      rb 4096
+file_name:     rb 4096
+plugin_path:   rb 4096
+openfile_path: rb 4096
+filename_area: rb 256
+rb 1024
+procinfo process_information
+;!]
    ret
 edMaxSize = 510 ;òåïåðü ñ íîâûì êîìïîíåíòîì ìîæíî è 511 óêàçàòü
 edMax = 0 ;max, size, pos
 align 4
+editLU   edit_box 180-buttonW,Otstup+buttonW,85, 0xffffff, 0x6a9480, 0, 0xAABBCC, 0, edMaxSize, dataBuffer.1, mouse_dd, 0, edMax, edMax  ;ed_focus
+editLD   edit_box 180-buttonW,Otstup+buttonW,120, 0xffffff, 0x6a9480, 0, 0xAABBCC, 0, edMaxSize, dataBuffer.2, mouse_dd, 0, edMax, edMax
+editRU   edit_box 180-buttonW,240,85, 0xffffff, 0x6a9480, 0, 0xAABBCC, 0, edMaxSize, dataBuffer.3, mouse_dd, 0, edMax, edMax
-editLU   edit_box 180,Otstup,85, 0xffffff, 0x6a9480, 0, 0xAABBCC, 0, edMaxSize, dataBuffer.1, mouse_dd, 0, edMax, edMax  ;ed_focus
+editRD   edit_box 180-buttonW,240,120, 0xffffff, 0x6a9480, 0, 0xAABBCC, 0, edMaxSize, dataBuffer.4, mouse_dd, 0, edMax, edMax
 editLD   edit_box 180,Otstup,120, 0xffffff, 0x6a9480, 0, 0xAABBCC, 0, edMaxSize, dataBuffer.2, mouse_dd, 0, edMax, edMax
-editRU   edit_box 180,240,85, 0xffffff, 0x6a9480, 0, 0xAABBCC, 0, edMaxSize, dataBuffer.3, mouse_dd, 0, edMax, edMax
+mouse_dd  dd ?
-editRD   edit_box 180,240,120, 0xffffff, 0x6a9480, 0, 0xAABBCC, 0, edMaxSize, dataBuffer.4, mouse_dd, 0, edMax, edMax
+sc  system_colors
 .size4: rd 1
 ;255+255+2
 ;äâà çàïàñíûõ áàéòà íåîáõîäèìû äëÿ òîãî ÷òî áû íå ïåïåðåïèñàòü ñëåäóþùèåé áàéòû, â êîíöå áóôåðà 0
 dataBufferEnd:
-mouse_dd  dd ?
 sc  system_colors
 I_END:
         rb 4096

Subversion Repositories Kolibri OS

(root)/programs/other/ha/HACONFIG.ASM – Rev 7412 → 7436