Latest version of micro(A)

[Zlatko Vidlanovic]

Hello
date : 10.3.2021
I just tested latest update of micro(A) in which i add Windows message processing.
Testing is used by WM_MOUSEMOVE win message like this :

'windows messages test
var r,g,b
var mx , my
ptr wmMouseMove 
r = 250 : g = 200 : B = 150
wcolor r,g,b

fcolor 40,80,100
print 100,140,"testing WM_MOUSEMOVE in micro(A)"
print 6,10,"mx"
print 6,40,"my"

WinMsg wmMOUSEMOVE

   mousex mx
   mousey my

   fcolor 0,0,0 :rect 24,5,68,24   
   fcolor 100,160,220 : print 30,10,mx 
   fcolor 0,0,0 :rect 24,35,68,24   
   fcolor 100,160,220 : print 30,40,my

Endwm

[Zlatko Vidlanovic]

Little bit improved version using keyboard vkLEFT and vkRIGHT to move letter A left and right

'windows messages test
var r,g,b
var mx , my, wp
ptr wmMouseMove ,wmKeyDown
r = 255 : g = 255 : B = 255
wcolor r,g,b : fcolor 40,80,100
print 100,10,"testing WM_MOUSEMOVE and WM_KEYDOWN in micro(A)"
print 6,10,"mx"
print 6,40,"my"

WinMsg wmMOUSEMOVE

   mousex mx
   mousey my

   fcolor 0,0,0 :rect 24,5,68,24   
   fcolor 100,160,220 : print 30,10,mx 
   fcolor 0,0,0 :rect 24,35,68,24   
   fcolor 100,160,220 : print 30,40,my

   fcolor 30,170,100 : pset mx,my

EndWm

WinMsg wmKEYDOWN

hWparam wp
'vkLEFT ?
if wp = 37
   fcolor 100,100,230 : rect mx,my,16,16
endif

'vkRIGHT ?
if wp = 39
   fcolor 100,160,130 : circle mx,my,16
endif
EndWm

[Zlatko Vidlanovic]

In attacment is updated source code of micro(A)
require password!

[Zlatko Vidlanovic]

micro(A) updated and all examples TESTED
in attachment is latest source code :

[Zlatko Vidlanovic]

micro(A) source updated mouse events