Subversion Repositories Kolibri OS

Rev

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

Rev 7389 Rev 7395
Line 1... Line 1...
1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 
; Hot Angles Config ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 2 
; Hot Angles Config ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 3 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 
; Compile with FASM
 4 
; Compile with FASM
5 
; Version 0.1: Sep 18, 2018
 5 
; Version 0.2: Sep 19, 2018
Line 6... Line 6...
6 
 
 6 
 
7 
; Copyright (c) 2018, Efremenkov Sergey aka TheOnlyMirage
 7 
; Copyright (c) 2018, Efremenkov Sergey aka TheOnlyMirage
8 
; All rights reserved.
 8 
; All rights reserved.
9 
; Redistribution and use in source and binary forms, with or without modification,
 9 
; Redistribution and use in source and binary forms, with or without modification,
Line 38... Line 38...
38 
dd MEM
 38 
dd MEM
39 
dd STACKTOP
 39 
dd STACKTOP
40 
dd 0, 0
 40 
dd 0, 0
Line 41... Line 41...
41 
 
 41 
 
- 
 
 42 
; Íà÷àëî îáëàñòè êîäà
42 
; Íà÷àëî îáëàñòè êîäà
 43 
include 'lang.inc'       ;ïîääåðæêà ÿçûêîâ ïðè êîìïèëÿöèè
43 
include '../../macros.inc'
 44 
include '../../macros.inc'
44 
include 'editbox.inc'
 45 
include 'editbox.inc'
45 
use_edit_box
 46 
use_edit_box
46 
include 'check.inc'      ;âêëþ÷èòü ôàéë check.inc
 47 
include 'check.inc'      ;âêëþ÷èòü ôàéë check.inc
Line 549... Line 550...
549 
        mov ecx, 160*65536 + 20   ;êîîðäèíàòà Y, âûñîòà êíîïêè
 550 
        mov ecx, 160*65536 + 20   ;êîîðäèíàòà Y, âûñîòà êíîïêè
550 
        mov edx, 0x00000002 ;2    ;íîìåð êíîïêè
 551 
        mov edx, 0x00000002 ;2    ;íîìåð êíîïêè
551 
        mov esi, 0x00AABBCC       ;öâåò êíîïêè
 552 
        mov esi, 0x00AABBCC       ;öâåò êíîïêè
552 
        mcall 8
 553 
        mcall 8
553 
        ;ðèñóåì òåêñò êíîïêè
 554 
        ;ðèñóåì òåêñò êíîïêè
554 
        mov     ebx, (WindowsWidth-80-Otstup+25) * 65536 + 166    ;êîîðäèíàòû òåêñòà (x, y)
 555 
        mov     ebx, (WindowsWidth-80-Otstup+25-buttonTextXoffset) * 65536 + 166    ;êîîðäèíàòû òåêñòà (x, y)
555 
        mov     ecx, 0xFFFFFF     ;áåëûé öâåò òåêñòà
 556 
        mov     ecx, 0xFFFFFF     ;áåëûé öâåò òåêñòà
556 
        mov     edx, buttonText
 557 
        mov     edx, buttonText
557 
        mov     esi, 5            ;ðàçìåð òåêñòà â ñèìâîëàõ
 558 
        mov     esi, buttonTextSize ;5            ;ðàçìåð òåêñòà â ñèìâîëàõ
558 
                mcall 4
 559 
        mcall 4
Line 559... Line 560...
559 
 
 560 
 
Line 560... Line 561...
560 
        call draw_super_text
 561 
        call draw_super_text
Line 578... Line 579...
578 
        mcall
 579 
        mcall
Line 579... Line 580...
579 
 
 580 
 
Line 580... Line -...
580 
        ret
 - 
 
581 
 
 - 
 
582 
 
 - 
 
583 
text    db  "This is a Hot Angles Configurator.                            "
 581 
        ret
584 
        db  "Set the parameters bellow for yourself or disable this option."
 - 
 
585 
        db  "                                                              ", 0
 - 
 
Line 586... Line 582...
586 
 hed:
 582 
 
587 
title   db  "Hot Angles Configurator", 0
 583 
 
588 
buttonText db "Apply", 0
 584 
 
589 
 
 585 
 
Line 595... Line 591...
595 
;ñîñòîÿíèå ðàáîòû óòèëèòû: àêòèâíà/íåò
 591 
;ñîñòîÿíèå ðàáîòû óòèëèòû: àêòèâíà/íåò
596 
check_boxes:
 592 
check_boxes:
597 
   ch1 check_box1 30,160,ch_text.1,ch_text.e1-ch_text.1,ch_flag_en
 593 
   ch1 check_box1 30,160,ch_text.1,ch_text.e1-ch_text.1,ch_flag_en
598 
check_boxes_end:
 594 
check_boxes_end:
Line -... Line 595...
- 
 
 595 
 
- 
 
 596 
 
- 
 
 597 
if lang eq ru  ;åñëè ÿçûê ñáîðêè ðóññêèé
- 
 
 598 
 
- 
 
 599 
text    db  "Š®­ä¨£ãà â®à Hot Angles ®â¢¥ç ¥â §  ­ áâனªã  ªâ¨¢­ëå 㣫®¢. "
- 
 
 600 
        db  " áâன⥠¯ à ¬¥âàë ¯®¤ á¥¡ï ¨«¨ ®âª«îç¨â¥ íâã ®¯æ¨î.         "
- 
 
 601 
        db  "                                                              ", 0
- 
 
 602 
 hed:
- 
 
 603 
title   db  "Š®­ä¨£ãà â®à ã⨫¨âë Hot Angles", 0
- 
 
 604 
buttonText db "à¨¬¥­¨âì", 0
- 
 
 605 
buttonTextSize = 9
- 
 
 606 
buttonTextXoffset = 12
- 
 
 607 
 
- 
 
 608 
ch_text:        ;ñîïðîâîæäàþùèé òåêñò äëÿ ÷åê áîêñîâ
- 
 
 609 
.1 db '‚ª«îç¨âì/ ªâ¨¢¨à®¢ âì "Hot Angles"'
- 
 
 610 
.e1:
- 
 
 611 
 
- 
 
 612 
superText:
- 
 
 613 
  .lu db 'Š®¬ ­¤  «¥¢®£® ¢¥àå­¥£® 㣫 : ', 0
- 
 
 614 
  .ld db 'Š®¬ ­¤  «¥¢®£® ­¨¦­¥£® 㣫 :  ', 0
- 
 
 615 
  .ru db 'Š®¬ ­¤  ¯à ¢®£® ¢¥àå­¥£® 㣫 :', 0
- 
 
 616 
  .rd db 'Š®¬ ­¤  ¯à ¢®£® ­¨¦­¥£® 㣫 : ', 0
- 
 
 617 
superTextSize = 30
- 
 
 618 
 
- 
 
 619 
else  ;èíà÷å àíãëèéñêèé òåêñò
- 
 
 620 
 
- 
 
 621 
text    db  "This is a Hot Angles Configurator.                            "
- 
 
 622 
        db  "Set the parameters bellow for yourself or disable this option."
- 
 
 623 
        db  "                                                              ", 0
- 
 
 624 
 hed:
- 
 
 625 
title   db  "Hot Angles Configurator", 0
- 
 
 626 
buttonText db "Apply", 0
- 
 
 627 
buttonTextSize = 5
- 
 
 628 
buttonTextXoffset = 0
599 
 
 629 
 
600 
ch_text:        ;ñîïðîâîæäàþùèé òåêñò äëÿ ÷åê áîêñîâ
 630 
ch_text:        ;ñîïðîâîæäàþùèé òåêñò äëÿ ÷åê áîêñîâ
601 
.1 db 'Activate "Hot Angles"'
 631 
.1 db 'Activate "Hot Angles"'
Line 602... Line 632...
602 
.e1:
 632 
.e1:
603 
 
 633 
 
604 
superText:
 634 
superText:
605 
  .lu db 'Left up angle command:', 0
 635 
  .lu db 'Left up angle command:   ', 0
606 
  .ld db 'Left down angle command:', 0
 636 
  .ld db 'Left down angle command: ', 0
- 
 
 637 
  .ru db 'Right up angle command:  ', 0
- 
 
 638 
  .rd db 'Right down angle command:', 0
- 
 
 639 
superTextSize = 25
- 
 
 640 
 
Line 607... Line 641...
607 
  .ru db "Right up angle command:", 0
 641 
end if
608 
  .rd db 'Right down angle command:', 0
 642 
 
609 
 
 643 
 
610 
draw_super_text:
 644 
draw_super_text:
611 
   push eax ebx ecx edx edi esi
 645 
   push eax ebx ecx edx edi esi
612 
   mov     ebx, Otstup * 65536 + 74    ; draw info text with function 4 (x, y)
 646 
   mov     ebx, Otstup * 65536 + 74    ; draw info text with function 4 (x, y)
613 
   mov     ecx, 0x224466
 647 
   mov     ecx, 0x224466
614 
   mov eax, superText.lu
 648 
   mov eax, superText.lu
Line 615... Line 649...
615 
   mov     edx, eax
 649 
   mov     edx, eax
616 
   mov     esi, 22
 650 
   mov     esi, superTextSize ;22
617 
   mcall 4
 651 
   mcall 4
618 
 
 652 
 
Line 619... Line 653...
619 
   mov     ebx, Otstup * 65536 + 109
 653 
   mov     ebx, Otstup * 65536 + 109
620 
   mov     edx, superText.ld
 654 
   mov     edx, superText.ld
621 
   mov     esi, 24
 655 
   mov     esi, superTextSize ;24
622 
   mcall 4
 656 
   mcall 4
Line 623... Line 657...
623 
 
 657 
 
624 
   mov     ebx, 240 * 65536 + 74
 658 
   mov     ebx, 240 * 65536 + 74
625 
   mov     edx, superText.ru
 659 
   mov     edx, superText.ru
626 
   mov     esi, 23
 660 
   mov     esi, superTextSize ;23
Line 627... Line 661...
627 
   mcall 4
 661 
   mcall 4
628 
 
 662