WebSVN – Kolibri OS – Diff – /programs/system/icon_new/@icon.asm

 START:          ; start of execution
         mcall   68,11
         stdcall dll.Load,IMPORTS
         test    eax,eax
         jnz     ErrLoadLibs
-;-------------------------------------------------------------------------------
 ; unpack deflate
         mov     eax,[unpack_DeflateUnpack2]
         mov     [deflate_unpack],eax
         inc     al
      @@:
         and     eax,0FFh
         mov     [sbIcons.max_area],eax
+  ;    int3
+;        mov     eax,1
+;        mov     eax,[IconsOffs+eax*4]
-        stdcall [OpenDialog_Init],OpenDialog_data
+;        stdcall [ini_del_section],IconIni,eax
 ;    ret
         jmp     MSGRedrawIcons
 messages:
         stdcall RestoreBackgrnd,eax
         jmp     messages
 ;-------------------------------------------------------------------------------
-MovingIcon:
-;int3
+MovingIcon:
         stdcall GetNumIcon,[MouseX],[MouseY],-1
         mov     [SelIcon],eax
         stdcall RestoreBackgrnd,[SelIcon]
 ; Sleep 40
 ;qweqwe:
         mov    [MovingActiv],1
-        mcall   51,1,MovingWnd,stack_move        ;CreateThread MovingWnd,stack_dlg
+        mcall   51,1,MovingWnd,stack_dlg        ;CreateThread MovingWnd,stack_dlg
    .WaitLB:
-        mcall   37,2            ;GetMouseKey
+        mcall   37,2    ;GetMouseKey
         jz      @f
         mcall   5,1     ;Yield
         jmp     @b
      @@:
-        mcall   51,1,RButtonWin,stack_rb       ;CreateThread RButtonWin,stack_dlg
+        mcall   51,1,RButtonWin,stack_dlg       ;CreateThread RButtonWin,stack_dlg
 LButtonActiv    dd 0
 RButtonActiv    dd 0
 MovingActiv     dd 0
 DlgAddActiv     dd 0
-slotDlgAdd      dd 0
 IconIni         db '/rd/1/icon.ini',0
 ;keyName         db 'name',0
 keyPath         db 'path',0
 keyParams       db 'param',0
+keyIco          db 'ico',0
-keyIco          db 'ico',0
+keyX            db 'x',0
-keyX            db 'x',0
+keyY            db 'y',0
-keyY            db 'y',0
+keyMenuColor    db 'menucolor',0
 ;-------------------------------------------------------------------------------
 ;----- RButton.inc -------------------------------------------------------------
 ;-------------------------------------------------------------------------------
-secRButt        db 'rbmenu',0
-keyMenuColor    db 'menucolor',0
+secRButt        db 'rbmenu',0
 if lang eq ru
  RMenuRedrawFon db '¥à¥à¨á®¢ âì',0
  RMenuAlign     db 'ëà®¢ïâì ¯® á¥âª¥',0
  RMenuAdd       db '®¡ ¢¨âì',0
  RMenuDel       db '¤ «¨âì',0
  RMenuProp      db '¢®©áâ¢ ',0
- RMenuOffMoving db ' ªà¥¯¨âì ¨ª®ª¨',0
- RMenuOnMoving  db 'âªà¥¯¨âì ¨ª®ª¨',0
-else if lang eq et
- RMenuRedrawFon db 'Värskenda',0
- RMenuAlign     db 'Tõmme võrgule',0
- RMenuAdd       db 'Lisa',0
- RMenuDel       db 'Kustuta',0
- RMenuProp      db 'Omadused',0
+ RMenuOffMoving db ' ªà¥¯¨âì ¨ª®ª¨',0
- RMenuOffMoving db 'Paranda ikoonid',0
+ RMenuOnMoving  db 'âªà¥¯¨âì ¨ª®ª¨',0
  RMenuOnMoving  db 'Ära paranda ikoone',0
 else
 if lang eq ru
  ErrRunProg     db 'è¨¡ª  § ¯ãáª  ¯à®£à ¬¬ë',0
  WarningSave    db '¥ § ¡ã¤ìâ¥ á®åà ¨âì ¨§¬¥¥¨ï, § ¯ãáâ¨âì RDSave',0
- ErrNotFoundIni db '¥  ©¤¥ icon.ini',0
-else if lang eq et
- ErrRunProg     db 'Programmi käivitamise viga',0
- WarningSave    db 'Ära unusta muudatusi salvestada, käivita RDSave',0
+ ErrNotFoundIni db '¥  ©¤¥ icon.ini',0
  ErrNotFoundIni db 'icon.ini ei leitud',0
 else
  ErrRunProg     db 'Error runing program',0
 ;-------------------------------------------------------------------------------
 ;------- AddDlg.inc ---------------------------------------------------------------
 ;-------------------------------------------------------------------------------
 if lang eq ru
+DTitleAdd       db '®¡ ¢¨âì ¨ª®ªã',0
-DTitle          db '®¡ ¢¨âì ¨ª®ªã',0
+DTitleProp      db '§¬¥¨âì ¨ª®ªã',0
 DCaptName       db '¬ï',0
 DCaptPath       db 'ãâì',0
+DCaptParams     db ' à ¬¥âàë',0
-DCaptParams     db ' à ¬¥âàë',0
+DCaptIcon       db 'ª®ª ',0
-DCaptIcon       db 'ª®ª ',0
+;DCaptChange     db '.',0
 DCaptCreate     db '®§¤ âì',0
-DCaptProperties db '§¬¥¨âì',0
-DCaptCancel     db 'â¬¥¨âì',0
-else if lang eq et
-DTitle          db 'Lisa ikoon',0
-DCaptName       db 'Nimi',0
-DCaptPath       db 'Asukoht',0
-DCaptParams     db 'Parameetrid',0
-DCaptIcon       db 'Ikoon',0
-;DCaptChange     db '.',0
-DCaptCreate     db 'Loo',0
-DCaptProperties db 'Muuda',0
+DCaptProperties db '§¬¥¨âì',0
-DCaptCancel     db 'Katkesta',0
+DCaptCancel     db 'â¬¥¨âì',0
 else
-else
+DTitleAdd       db 'Add icon',0
-DTitle          db 'Add icon',0
+DTitleProp      db 'Change icon',0
+DCaptName       db 'Name',0
-DCaptName       db 'Name',0
+DCaptPath       db 'Path',0
-DCaptPath       db 'Path',0
+DCaptParams     db 'Parameters',0
-DCaptParams     db 'Parameters',0
+DCaptIcon       db 'Icon',0
-DCaptIcon       db 'Icon',0
+;DCaptChange     db '.',0
 AddX            rd 1
 AddY            rd 1
 SelIcon         rd 1
+DlgSelIcon      rd 1
-DlgSelIcon      rd 1
+slotDlgAdd      rd 1
 sc              system_colors
 align 4
+bufStdIco       rb 40
-bufStdIco       rb 40
+IconsOffs       rd 100
-IconsOffs       rd 100
+PIcoDB          rd 1
 PIcoDB          rd 1
 RMenuW          rw 1
 RMenuH          rw 1
 RMenuHsb        rw 1
-MaxPage         rd 1
+MaxPage         rd 1
 RBMenuColor     rd 1
 mouse_dd        rd 1
 DAreaName       rb NAME_LENGTH+1
 DAreaPath       rb 256+1
 DAreaParams     rb 256+1
 DAreaIcon       rb 256+1
-align 4
-RBProcInfo      rb 1024
-RBMenuColor     rd 1
+align 4
 RBProcInfo      rb 1024
 align 4
-; OpenDialog
-temp_dir_pach   rb 1024
-fname_Info      rb 1024
-;-------------------------------------------------------------------------------
+; OpenDialog
-                rb 256
+temp_dir_pach   rb 1024
-stack_move:
+fname_Info      rb 1024
-stack_rb:
+;-------------------------------------------------------------------------------
                 rb 1024

Subversion Repositories Kolibri OS

(root)/programs/system/icon_new/@icon.asm – Rev 3927 → 3962