purebasic.info

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

 
OpenWindow(0,0,0,100,100,"")
StickyWindow(0,1)
EditorGadget(366,0,0,0,0)
old_txtcolor.s="Синий"
Procedure u(i)
  Select i
        Case $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$F,$A,$B,$C,$D,$E,$5,$6,$7,$8,$9,$4,$3,$2,$3C,$2C,$2D
          txtcolor.s="Синий" 
         Debug("1")
Default
 
  txtcolor.s="Другой"
    EndSelect 
EndProcedure
 Event = WindowEvent()
        Color366 = GetPixelColor(30,205)
  k=366
   a=color366
  SetGadgetText(k,(Hex(PeekA(@a+0))))
str$=GetGadgetText(k)
  If str$
     If Mid(str$,1,1)<>"$"
        str$="$"+str$
     EndIf 
     x366= Val(str$)
  EndIf
  u(x366) 
  If txtcolor.s=old_txtcolor.s
  Key = #VK_A
keybd_event_(Key, 0, 0, 0)
Delay(1)
keybd_event_(Key, 0, #KEYEVENTF_KEYUP, 0) 
EndIf 
 

1

Global txtcolor.s