fclock.class

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

' Gambas class file
PRIVATE picHour AS Image
PRIVATE tmpImg AS Image
PRIVATE picMinute AS Image
PRIVATE picSecond AS Image
PRIVATE Clock AS Image
PRIVATE Buffer AS Picture
PRIVATE HE AS Integer
PRIVATE WI AS Integer
PRIVATE BackPicture AS String
PRIVATE $MX AS Integer
PRIVATE $MY AS Integer
PUBLIC SUB DrawTime()

  WI = Clock.Width
  HE = Clock.Height
    
  Draw.Begin(daClock)
    Draw.Image(Clock,WI / 2 - Clock.Width/2,HE / 2 - Clock.Height/2)
    tmpImg = picHour.Rotate(Hour(Now)*360/12)
    Draw.Image(tmpImg,WI / 2 - tmpImg.Width/2,HE / 2 - tmpImg.Height/2)
    tmpImg = picMinute.Rotate(Minute(Now)*360/60)
    Draw.Image(tmpImg,WI / 2 - tmpImg.Width/2,HE / 2 - tmpImg.Height/2)
    tmpImg = picSecond.Rotate(Second(Now)*360/60)
    Draw.Image(tmpImg,WI / 2 - tmpImg.Width/2,HE / 2 - tmpImg.Height/2)
  Draw.end

END

PUBLIC SUB _New()
  
  BackPicture = "img/clock_bg_big3.png"
END 

PUBLIC SUB Form_Open()
Clock = Picture[BackPicture].Image
picMinute = Picture["img/arrow_min.png"].Image
picHour = Picture["img/arrow_hour.png"].Image
picSecond = Picture["img/arrow_sec.png"].Image
  
  daClock.Cached =  FALSE
  daClock.Move(0,0,Clock.Width,Clock.Height)
  daClock.Cached =  TRUE
  daClock.Refresh
  
  ME.Mask = Picture[BackPicture]
Timer1.Enabled = TRUE
DrawTime()

END

PUBLIC SUB Timer1_Timer()

  DrawTime()

END


PUBLIC SUB daClock_MouseUp()

  IF Mouse.Right THEN
    MENU.Popup()
    
  ENDIF

END

PUBLIC SUB mnuClock1_Click()

  BackPicture = "img/clock_bg_big1.png"
  Form_Open()
END

PUBLIC SUB mnuClock2_Click()

  BackPicture = "img/clock_bg_big2.png"
  Form_Open()
END

PUBLIC SUB mnuClock3_Click()

  BackPicture = "img/clock_bg_big3.png"
  Form_Open()
END

PUBLIC SUB mnuClock4_Click()

  BackPicture = "img/clock_bg_big4.png"
  Form_Open()
END


PUBLIC SUB mnuQuit_Click()

  ME.Close
  
END

PUBLIC SUB mnuAbout_Click()

  Message("<center>This exemple was made by Fabien BODARD</center><br><br>For information the 3 rd Clock is Microsoft copyrighted \n and you can find it on the future version of windows")
  
END

PUBLIC SUB daClock_MouseDown()

  $MX = Mouse.ScreenX - ME.X
  $MY = Mouse.ScreenY - ME.Y

END

PUBLIC SUB daClock_MouseMove()

  IF Mouse.Left THEN ME.Move(Mouse.ScreenX - $MX, Mouse.ScreenY - $MY)

END

PUBLIC SUB mnuOntop_Click()
  
  'DIM hMask AS Picture
  
  'hMask = ME.Mask
  'ME.Mask = NULL
  'WAIT 1
  
  IF mnuOntop.Checked THEN
     mnuOnTop.Checked = FALSE
     ME.TopOnly = FALSE
     ME.SkipTaskbar = FALSE
  ELSE
     ME.TopOnly = TRUE
     ME.SkipTaskbar = TRUE
     mnuOnTop.Checked = TRUE
  ENDIF
  
  'ME.Mask = hMask
END