Palitra (Palette) 0.75: RMB set additional color, reduced redraw when picker used

git-svn-id: svn://kolibrios.org@3904 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/media/palitra/trunk/palitra.asm

@@ -32,6 +32,8 @@
 ;;       - „®¡ ¢«¥­ ०¨¬ H (hidden) ¯à®¨§¢®¤¨â § ¬¥­ã ä®­  à ¡®ç¥£® á⮫  £à ¤¨¥­â­®© § «¨¢ª®©.     |
 ;;       - <20>®«ìè ï ¤¥®¯â¨¬¨§ æ¨ï.                                                                    |
 ;; 0.7.0 - „®¡ ¢«¥­  ¯¨¯¥âª  - ¢ë¡®à ­  á।­îî ª­®¯ªã ¬ëè¨                                          |
+;; 0.7.5 - <20> ¦ â¨¥ ¯à ¢®© ª« ¢¨è¥© ¬ëè¨ ­  ï祩ªã á 梥⮬ ãáâ ­ ¢«¨¢ ¥â ­¥ ®á­®¢®©,   ¤®¯®«­. æ¢¥â  |
+;;       - “¬¥­ì襭® ¬¥àæ ­¨¥ ¯à¨ à ¡®â¥ ¯¨¯¥âª¨                                                     |
 ;.....................................................................................................
 ;; All rights reserved.                                                                              |
 ;;                                                                                                   |
@@ -112,16 +114,29 @@ key:                                      ;
 ;end_key
 
 mouse:
-    mov     eax,[renmode]
-    cmp     eax,2
-    jnz     still
+    cmp     [renmode],2
+    jne     left
     call    cyrcle_draw
+    jmp     center
+  left:
+    mcall   37,2
+    cmp     al,1b
+    jne     right
+    mov     [mouse_f],1
+    jmp     still
+  right:
+    cmp     al,10b
+    jne     still
+    mov     [mouse_f],2
+    jmp     still
+  center:
     mcall   37,2
     cmp     al,100b
     jne     still
+    mov     [mouse_f],3
     mov     [color],edx
     call    draw_result
-    jmp     still                         ; ¢¥à­ãâìáï ª ­ ç «ã 横« 
+    jmp     still			  ; ¢¥à­ãâìáï ª ­ ç «ã 横« 
 ;end_mouse
 
 button:
@@ -497,9 +512,17 @@ mouse_get:
       cmp     esi,0                       ; ŠŽ‘’›‹œ: ‘à ¢­¨¢ ¥¬ á ­ã«¥¬
     jz        mouse_exit                  ; ŠŽ‘’›‹œ: …᫨ ­®«ì ⮠ᤥ« «¨ ¢áñ çâ® ¬®£«¨
     jmp    re_mouse_loop                  ; ŠŽ‘’›‹œ: …᫨ ­¥ ­®«ì â® ¯®¯à®¡ã¥¬ ¢§ïâì á®á¥«­¨© ¯¨ªá¥«ì
-    mouse_set:
-    mov     [color],eax                   ; ˆ­ ç¥ § ¯®¬¨­ ¥¬ ­®¢ë© 梥â
-    call    draw_result                   ; ‚뢮¤¨¬ १ã«ìâ â
+    mouse_set:                            ; ˆ­ ç¥ § ¯®¬¨­ ¥¬ ­®¢ë© 梥â
+      cmp     [mouse_f],1
+      jne     was_right
+      mov     [color],eax
+      call    draw_result
+      jmp     mouse_exit
+    was_right:
+      cmp     [mouse_f],2
+      jne     mouse_exit
+      mov     [color2],eax
+      call    draw_result                   ; ‚뢮¤¨¬ १ã«ìâ â
     mouse_exit:
     ret                                   ; ‚®§¢à é ¥¬ ã¯à ¢«¥­¨¥
 ;end_mouse_get----------------------------------------------------------------------------------------
@@ -544,11 +567,6 @@ draw_palitra:
     ;mov     esi,21                        ; ¢ë¢®¤¨âì esi ᨬ¢®«®¢
     ;mcall
 
-    mov     eax,13
-    mov     edx,0x666666
-    mov     ebx,111*65536+145
-    mov     ecx,  9*65536+145
-    mcall
     ;mov     edx,[color]
     ;mov     ebx,109*65536+150
     ;mov     ecx, 10*65536+150
@@ -562,6 +580,7 @@ draw_palitra:
     jle     end_cyrcle_draw
 
     cyrcle_draw_2:
+	mcall   5,10
     call    desktop_get
     call    mouse_global
 
@@ -604,7 +623,13 @@ draw_palitra:
     mov     ebx,178*65536+11
     mov     ecx, 77*65536+11
     mcall
+    ret
     end_cyrcle_draw:
+    mov     eax,13
+    mov     edx,0x666666
+    mov     ebx,111*65536+145
+    mov     ecx,  9*65536+145
+    mcall
     ret
 
     circle_pixel_read:
@@ -1214,7 +1239,7 @@ circle:
     desctop_w   dd 0                      ; åà ­¨â è¨à¨­ã íªà ­ 
     desctop_h   dd 0                      ; åà ­¨â ¢ëá®âã íªà ­ 
     sc          system_colors             ; åà ­¨â áâàãªâãàã á¨á⥬­ëå 梥⮢ ᪨­ 
-    title       db 'Palitra v0.7',0       ; åà ­¨â ¨¬ï ¯à®£à ¬¬ë
+    title       db 'Palitra v0.75',0       ; åà ­¨â ¨¬ï ¯à®£à ¬¬ë
     hidden      db 'Hidden',0
     hex         db '#',0                  ; ¤«ï ¢ë¢®¤  à¥èñ⪨ ª ª ⥪áâ 
     cname       db 'RGBAx'                ; åà ­¨â à §àï¤ë 梥⮢ (red,green,blue) x-¬¥âª  ª®­æ