c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
56 lines
1.1 KiB
Text
56 lines
1.1 KiB
Text
' Gambas class file
|
|
|
|
Public Sub Form_Open()
|
|
|
|
Dim sDelay As String
|
|
|
|
Me.Width = Desktop.Width
|
|
Me.Height = Desktop.Height
|
|
panControl.Y = Me.Height - 55
|
|
panControl.Width = Me.Width
|
|
sDelay = Settings["SlideShow/Delay"]
|
|
If sDelay = "" Then sDelay = "5"
|
|
spinDelay.Value = sDelay
|
|
FMain.GetDelay(sDelay)
|
|
btnStop.SetFocus
|
|
|
|
End
|
|
|
|
Public Function PictureLoad(sPath As String, iOri As String) As Boolean
|
|
|
|
Dim hPic As Image
|
|
Dim iFormat As Single
|
|
|
|
hPic = Image.Load(sPath)
|
|
If iOri = 6 Then
|
|
hPic = hPic.Rotate(Rad(-90))
|
|
Else If iOri = 8 Then
|
|
hPic = hPic.Rotate(Rad(90))
|
|
Endif
|
|
PicBox1.Picture = hPic.Picture
|
|
Wait
|
|
|
|
iFormat = PicBox1.Picture.Width / PicBox1.Picture.Height
|
|
PicBox1.Y = 0
|
|
PicBox1.Height = Me.Height - 35
|
|
PicBox1.Width = Me.Height * iFormat
|
|
If PicBox1.Width > Me.Width Then
|
|
PicBox1.Width = Me.Width
|
|
PicBox1.Height = Me.Width / iFormat
|
|
Endif
|
|
PicBox1.X = (Me.Width - PicBox1.Width) / 2
|
|
PicBox1.Visible = True
|
|
|
|
End
|
|
|
|
Public Sub spinDelay_Change()
|
|
|
|
FMain.GetDelay(spinDelay.Value)
|
|
|
|
End
|
|
|
|
Public Sub btnStop_Click()
|
|
|
|
Me.Close
|
|
|
|
End
|