/
main.go
36 lines (27 loc) · 829 Bytes
/
main.go
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
36
package main
import (
"runtime"
"github.com/ying32/govcl/vcl"
"github.com/ying32/govcl/vcl/rtl"
"github.com/ying32/govcl/vcl/types"
)
func main() {
vcl.Application.SetIconResId(3)
vcl.Application.Initialize()
vcl.Application.SetMainFormOnTaskBar(true)
mainForm := vcl.Application.CreateForm()
mainForm.SetCaption("GIF动画")
mainForm.SetPosition(types.PoScreenCenter)
mainForm.EnabledMaximize(false)
mainForm.SetWidth(300)
mainForm.SetHeight(200)
img := vcl.NewImage(mainForm)
img.SetParent(mainForm)
img.SetBounds(20, 20, 60, 60)
img.Picture().LoadFromFile(rtl.ExtractFilePath(vcl.Application.ExeName()) + "test.gif")
// 动画只支持Windows下的libvcl
if runtime.GOOS == "windows" && !rtl.LcLLoaded() {
vcl.GIFImageFromObj(img.Picture().Graphic()).SetAnimate(true)
}
vcl.Application.Run()
}