Subversion Repositories Kolibri OS

Rev

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

Rev 3962 Rev 4003
Line 138... Line 138...
138 
        m2m     [sbIcons.line_col],[sc.work_graph]
 138 
        m2m     [sbIcons.line_col],[sc.work_graph]
Line 139... Line 139...
139 
 
 139 
 
140 
        edit_boxes_set_sys_color edtName,edtExePath,sc
 140 
        edit_boxes_set_sys_color edtName,edtExePath,sc
141 
        edit_boxes_set_sys_color edtExePath,edtParams,sc
 141 
        edit_boxes_set_sys_color edtExePath,edtParams,sc
142 
        edit_boxes_set_sys_color edtParams,edtIcon,sc
 142 
        edit_boxes_set_sys_color edtParams,edtIcon,sc
Line 143... Line 143...
143 
        edit_boxes_set_sys_color edtIcon,endEdits,sc
 143 
        ;edit_boxes_set_sys_color edtIcon,endEdits,sc
Line 144... Line 144...
144 
 
 144 
 
145 
        call    DRedraw
 145 
        call    DRedraw
Line 167... Line 167...
167 
        cmp     ah,9  ;Tab
 167 
        cmp     ah,9  ;Tab
168 
        je      DNextEdit
 168 
        je      DNextEdit
169 
        stdcall [edit_box_key],edtName
 169 
        stdcall [edit_box_key],edtName
170 
        stdcall [edit_box_key],edtExePath
 170 
        stdcall [edit_box_key],edtExePath
171 
        stdcall [edit_box_key],edtParams
 171 
        stdcall [edit_box_key],edtParams
172 
        stdcall [edit_box_key],edtIcon
 172 
        ;stdcall [edit_box_key],edtIcon
Line 173... Line 173...
173 
 
 173 
 
Line 174... Line 174...
174 
        jmp     DMessages
 174 
        jmp     DMessages
Line 179... Line 179...
179 
        jne      .DNE1
 179 
        jne      .DNE1
180 
        test    [edtExePath.flags],ed_focus
 180 
        test    [edtExePath.flags],ed_focus
181 
        jne      .DNE2
 181 
        jne      .DNE2
182 
        test    [edtParams.flags],ed_focus
 182 
        test    [edtParams.flags],ed_focus
183 
        jne      .DNE3
 183 
        jne      .DNE3
184 
        test    [edtIcon.flags],ed_focus
 184 
        ;test    [edtIcon.flags],ed_focus
185 
        jne      .DNE4
 185 
        ;jne      .DNE4
186 
        jmp     DMessages
 186 
        jmp     DMessages
Line 187... Line 187...
187 
 
 187 
 
188 
    .DNE1:
 188 
    .DNE1:
189 
        and     [edtName.flags],not ed_focus
 189 
        and     [edtName.flags],not ed_focus
Line 204... Line 204...
204 
        or      [edtIcon.flags],ed_focus
 204 
        or      [edtIcon.flags],ed_focus
205 
        stdcall [edit_box_draw],edtParams
 205 
        stdcall [edit_box_draw],edtParams
206 
        stdcall [edit_box_draw],edtIcon
 206 
        stdcall [edit_box_draw],edtIcon
207 
        jmp     DMessages
 207 
        jmp     DMessages
Line 208... Line 208...
208 
 
 208 
 
209 
    .DNE4:
 209 
    ;.DNE4:
210 
        and     [edtIcon.flags],not ed_focus
 210 
    ;    and     [edtIcon.flags],not ed_focus
211 
        or      [edtName.flags],ed_focus
 211 
    ;    or      [edtName.flags],ed_focus
212 
        stdcall [edit_box_draw],edtName
 212 
    ;    stdcall [edit_box_draw],edtName
213 
        stdcall [edit_box_draw],edtIcon
 213 
    ;    stdcall [edit_box_draw],edtIcon
214 
        jmp     DMessages
 214 
    ;    jmp     DMessages
215 
;---------------------------------------------------------------------
 215 
;---------------------------------------------------------------------
216 
DButton:
 216 
DButton:
217 
        mcall   17              ;GetButtonPressed
 217 
        mcall   17              ;GetButtonPressed
218 
        cmp     ah, idbCancel
 218 
        cmp     ah, idbCancel
Line 226... Line 226...
226 
;-------------------------------------------------------------------------------
 226 
;-------------------------------------------------------------------------------
227 
DMouse:
 227 
DMouse:
228 
        stdcall [edit_box_mouse],edtName
 228 
        stdcall [edit_box_mouse],edtName
229 
        stdcall [edit_box_mouse],edtExePath
 229 
        stdcall [edit_box_mouse],edtExePath
230 
        stdcall [edit_box_mouse],edtParams
 230 
        stdcall [edit_box_mouse],edtParams
231 
        stdcall [edit_box_mouse],edtIcon
 231 
;        stdcall [edit_box_mouse],edtIcon
Line 232... Line 232...
232 
 
 232 
 
233 
        push    [sbIcons.position]
 233 
        push    [sbIcons.position]
234 
        stdcall [scrollbar_h_mouse],sbIcons
 234 
        stdcall [scrollbar_h_mouse],sbIcons
235 
        pop     eax
 235 
        pop     eax
Line 310... Line 310...
310 
        mov     dword[edtIcon.size],1
 310 
        mov     dword[edtIcon.size],1
311 
        jmp     .RedrawNum
 311 
        jmp     .RedrawNum
312 
    .RedrawNum:
 312 
    .RedrawNum:
Line 313... Line 313...
313 
 
 313 
 
Line 314... Line 314...
314 
 
 314 
 
315 
        stdcall [edit_box_draw],edtIcon
 315 
;        stdcall [edit_box_draw],edtIcon
316 
 
 316 
 
Line 329... Line 329...
329 
        mov     dword[edtExePath+12*4],edi
 329 
        mov     dword[edtExePath+12*4],edi
Line 330... Line 330...
330 
 
 330 
 
Line 331... Line 331...
331 
        jmp     DMessages;DReDraw;
 331 
        jmp     DMessages;DReDraw;
- 
 
 332 
 
- 
 
 333 
DSaveIcon:
- 
 
 334 
        mov     edi,DAreaName
- 
 
 335 
        mov     esi,secRButt
- 
 
 336 
    @@: lodsb
- 
 
 337 
        scasb
- 
 
 338 
        jne     @f
- 
 
 339 
        test    al,al
- 
 
 340 
        jnz     @b
- 
 
 341 
 
- 
 
 342 
        mov     dword[fiRunProg+8],ErrName
- 
 
 343 
        mov     dword[fiRunProg+21],pthNotify
- 
 
 344 
        mcall   70,fiRunProg
- 
 
 345 
 
332 
 
 346 
        jmp     DMessages
333 
DSaveIcon:
 347 
    @@:
334 
        mov     dword[fiRunProg+8],WarningSave
 348 
        mov     dword[fiRunProg+8],WarningSave
Line 364... Line 378...
364 
 
 378 
 
365 
;##################################################################
 379 
;##################################################################
366 
proc DRedraw
 380 
proc DRedraw
367 
        mcall   12,1            ;RedrawWinBeg
 381 
        mcall   12,1            ;RedrawWinBeg
368 
        mov     edx,[sc.work]
 382 
        mov     edx,[sc.work]
369 
        or      edx,33000000h
 383 
        or      edx,34000000h
370 
        cmp     [DlgSelIcon],-1
 384 
        cmp     [DlgSelIcon],-1
371 
        jne      @f
 385 
        jne      @f
372 
        mov     edi,DTitleAdd
 386 
        mov     edi,DTitleAdd
373 
        jmp     .l1
 387 
        jmp     .l1
374 
      @@:
 388 
      @@:
375 
        mov     edi,DTitleProp
 389 
        mov     edi,DTitleProp
376 
      .l1:
 390 
      .l1:
Line 377... Line 391...
377 
        mcall   0,<100,400>,<100,(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH+185>,,,
 391 
        mcall   0,<100,400>,<100,(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH+165>,,,
378 
 
 392 
 
379 
        stdcall [edit_box_draw],edtName
 393 
        stdcall [edit_box_draw],edtName
380 
        stdcall [edit_box_draw],edtExePath
 394 
        stdcall [edit_box_draw],edtExePath
Line 381... Line 395...
381 
        stdcall [edit_box_draw],edtParams
 395 
        stdcall [edit_box_draw],edtParams
Line 382... Line 396...
382 
        stdcall [edit_box_draw],edtIcon
 396 
;        stdcall [edit_box_draw],edtIcon
Line 408... Line 422...
408 
        mov     ecx,[sc.work_text]
 422 
        mov     ecx,[sc.work_text]
409 
        or      ecx,80000000h
 423 
        or      ecx,80000000h
410 
        mcall   4,<30+IMG_SIZE,10>,,DCaptName
 424 
        mcall   4,<30+IMG_SIZE,10>,,DCaptName
411 
        mcall    ,<30+IMG_SIZE,30>,,DCaptPath
 425 
        mcall    ,<30+IMG_SIZE,30>,,DCaptPath
412 
        mcall    ,<30+IMG_SIZE,50>,,DCaptParams
 426 
        mcall    ,<30+IMG_SIZE,50>,,DCaptParams
413 
        mcall    ,<30+IMG_SIZE,70>,,DCaptIcon
 427 
        ;mcall    ,<30+IMG_SIZE,70>,,DCaptIcon
Line 414... Line 428...
414 
 
 428 
 
415 
if lang eq ru
 429 
if lang eq ru
416 
        mov     ecx,[sc.work_button_text]
 430 
        mov     ecx,[sc.work_button_text]
417 
        or      ecx,80000000h
 431 
        or      ecx,80000000h
Line 638... Line 652...
638 
        loop    .DrawPix
 652 
        loop    .DrawPix
Line 639... Line 653...
639 
 
 653 
 
640 
        dec     edx
 654 
        dec     edx
Line 641... Line 655...
641 
        jnz     .DrawLine
 655 
        jnz     .DrawLine
Line 642... Line 656...
642 
 
 656 
 
643 
        mcall   7,IconArea,,<15,25>
 657 
        mcall   7,IconArea,,<15,15>
644 
 
 658