moseover avec un contraste

data "mouse"    , "alpha"  , "edit"      , "memo"  , "button"
data "container", "option"  , "check"      , "combo"  , "list"
data "scrollbar", "trackbar", "progressbar", "picture", "open"
data "save"    , "timer"  , "menu"      , "scene2d", "scene3d"

label service,button_click

dim AppPath$:AppPath$ = dir_current$ + ""
dim ImgPath$:ImgPath$ = AppPath$    + "img"
dim frmMain% : ' 0 default

dim names$(19),file$,i%,buttons%(19),id%,oid%,tmr%
oid%=-1

for i%=0 to 19
  buttons%(i%)=number_objects+1
  picture buttons%(i%)
  top    buttons%(i%),0
  left    buttons%(i%),i%*28
  width  buttons%(i%),28
  height  buttons%(i%),28
  read    names$(i%)
  hint    buttons%(i%),names$(i%)
  file$ = ImgPath$ + names$(i%) +"_normal_button.bmp"
  file_load buttons%(i%),file$
  on_click  buttons%(i%),button_click
  inactive  buttons%(i%)
next i%

tmr%=number_objects+1:timer tmr%
timer_interval tmr%,100
on_timer tmr%,service

end
terminate

service:
  id% = mouse_y_position(0)
  if id%<28
    id% = int(mouse_x_position(0)/28)
    if id%>19 then id%=-1
  else
    id%=-1
  end_if
  ' if id%=-1 then return
 
  if oid%<>id%
    if oid%>-1
      inactive buttons%(oid%)
      file$  = ImgPath$ + names$(oid%) +"_normal_button.bmp"
      file_load buttons%(oid%),file$
    end_if
    if id% >-1
      contrast buttons%(id% ),  16
      active buttons%(id%)
    end_if
    oid%=id%
  end_if
  return

button_click:
  caption 0,"buttons%(" + str$(id%) + ") clicked"
  return