由于Gox 1.56a版本之后已经不支持Govcl库,因此本文档仅用作留存参考
老资格的Delphi程序员都知道,用VCL库编写图形界面是非常方便的,而LCL库就是受VCL库启发而来形成的免费版本的图形界面开发库。感谢Github上的ying32提供的Govcl库,使得我们现在可以使用Gox语言(Goxlang)结合LCL库进行GUI图形界面的编程,下面我们就来看一个具体的实例。
在Gox语言简介一文中,我们已经介绍过使用基于OpenGL技术的GUI图形界面库Giu来开发图形界面的方式,而使用LCL库开发则更贴近传统程序员的图形界面构建思路,我们来看用LCL库实现与之前的例子功能一致的小型计算器的程序代码。
errT = lcl.InitLCL()
if errT != nil {
tk.Plerr(errT)
return
}
application = lcl.GetApplication()
application.Initialize()
application.SetTitle("Calculator with LCL")
application.SetMainFormOnTaskBar(true)
mainForm = application.CreateForm()
mainForm.SetWidth(400)
mainForm.SetHeight(200)
mainForm.SetCaption("Calculator with LCL")
mainForm.SetPosition(lcl.PoScreenCenter)
mainForm.Font().SetSize(11)
onFromDestory = fn(sender) {
println("Form Destroyed.")
}
mainForm.SetOnDestroy(lcl.NewTNotifyEvent(onFromDestory))
label1 = lcl.NewLabel(mainForm)
label1.SetParent(mainForm)
label1.SetLeft(10)
label1.SetTop(10)
label1.Font().SetName("Arial")
label1.Font().SetSize(18)
label1.SetCaption("Enter an expression")
onEdit1KeyUp = fn(sender, key, shift) {
println("onEdit1KeyUp:", sender, *key, shift)
}
edit1 = lcl.NewEdit(mainForm)
edit1.SetParent(mainForm)
edit1.SetBounds(10, 48, 200, 32)
edit1.Font().SetSize(11)
edit1.SetOnKeyUp(lcl.NewTKeyEvent(onEdit1KeyUp))
onClick1 = fn(objA) {
rs = edit1.Text()
edit1.SetText(eval(rs))
}
f1 = lcl.NewTNotifyEvent(onClick1)
button1 = lcl.NewButton(mainForm)
button1.SetParent(mainForm)
button1.SetLeft(20)
button1.SetTop(90)
button1.SetCaption("Go")
button1.SetOnClick(f1)
onClick2 = fn(sender) {
application.Terminate()
}
button2 = lcl.NewButton(mainForm)
button2.SetParent(mainForm)
button2.SetLeft(110)
button2.SetTop(90)
button2.SetCaption("Close")
button2.SetOnClick(lcl.NewTNotifyEvent(onClick2))
application.Run()
可以看到,代码非常简单,连空行加起来一共不超过80行代码,就实现了一个图形界面的计算器。下面我们看看执行之后的效果。
可以看到,很简单地,一个图形界面的小计算器已经成功运行了。我们可以尝试输入一个算式让它计算。
点击“Go”按钮后,就会得到计算结果。
可以看到,计算结果已经出来了,最后的小数点是有名的计算机上的浮点数误差,属于计算机的正常行为。
另外,点击“Close”按钮是关闭该计算器,点击窗口右上方的关闭按钮也是同样的效果。
由此可见,短短几十行代码,实现了一个麻雀虽小、五脏俱全的图形界面小程序,非常不容易。
下面我们来解说一下具体代码,我们还是用代码中的注释来说明吧。
errT = lcl.InitLCL() // 先要初始化LCL库,LCL库也是直接引用lcl即可,不需要写多级路径
if errT != nil {
tk.Plerr(errT)
return
}
// 获取LCL的默认应用
application = lcl.GetApplication()
application.Initialize() // 必须进行初始化
application.SetTitle("Calculator with LCL") // 设置应用标题,显示在任务条上的
application.SetMainFormOnTaskBar(true) // 设置在任务条上显示
mainForm = application.CreateForm() // 创建一个主窗口
mainForm.SetWidth(400) // 设置主窗口的宽度
mainForm.SetHeight(200) // 设置主窗口的高度
mainForm.SetCaption("Calculator with LCL") // 设置主窗口的标题
mainForm.SetPosition(lcl.PoScreenCenter) // 设置主窗口的默认位置,PoScreenCenter表示在屏幕中间
mainForm.Font().SetSize(11) // 设置主窗口字体大小
// 用于主窗口销毁时的回调函数
onFromDestory = fn(sender) {
println("Form Destroyed.")
}
// 设置主窗口销毁时的回调函数
// 这里比较特殊,需要调用NewTNotifyEvent函数将onFromDestory转换为回调函数所需的类型
// 不同的LCL回调函数需要有不同的类型,具体用何事件可以参考[这里](https://z-kit.cc/doc.html)
mainForm.SetOnDestroy(lcl.NewTNotifyEvent(onFromDestory))
// 新建一个label,即显示文字的标签
label1 = lcl.NewLabel(mainForm) // 参数一定是所属的窗口
label1.SetParent(mainForm) // 设置父级对象为主窗口
// 设置左上角坐标
label1.SetLeft(10)
label1.SetTop(10)
// 设置标签字体
label1.Font().SetName("Arial")
label1.Font().SetSize(18)
// 设置标签文字
label1.SetCaption("Enter an expression")
// 用于文本输入框按键抬起时的回调函数(测试用)
onEdit1KeyUp = fn(sender, key, shift) {
println("onEdit1KeyUp:", sender, *key, shift)
}
// 创建一个文本输入框
edit1 = lcl.NewEdit(mainForm)
edit1.SetParent(mainForm)
edit1.SetBounds(10, 48, 200, 32) // 设置左上角坐标和宽度、高度
edit1.Font().SetSize(11)
edit1.SetOnKeyUp(lcl.NewTKeyEvent(onEdit1KeyUp)) // 设置按键抬起的回调函数,注意这里是用NewTKeyEvent函数将Gox的函数转换为TKeyEvent类型的回调函数
// 用于按钮1点击后的回调函数
// 对文本输入框中的内容进行eval并将结果填回文本输入框中
onClick1 = fn(objA) {
rs = edit1.Text()
edit1.SetText(eval(rs))
}
f1 = lcl.NewTNotifyEvent(onClick1)
// 创建一个按钮用于点击后进行计算
button1 = lcl.NewButton(mainForm)
button1.SetParent(mainForm)
button1.SetLeft(20)
button1.SetTop(90)
button1.SetCaption("Go")
button1.SetOnClick(f1)
// 创建第二个按钮,点击后将退出程序
onClick2 = fn(sender) {
application.Terminate() // 其实是退出图形界面,仍可以执行Run后面的代码
}
button2 = lcl.NewButton(mainForm)
button2.SetParent(mainForm)
button2.SetLeft(110)
button2.SetTop(90)
button2.SetCaption("Close")
button2.SetOnClick(lcl.NewTNotifyEvent(onClick2))
application.Run()
代码中通过注释的方式已经解释得很详细,另外需要注意:
调用lcl.InitLCL函数进行GUI的初始化时,如果当前系统中没有LCL库(liblcl.dll),则会进行自动下载,保存在gox主程序的相同路径下。如果希望不要有这一步,建议直接去Gox语言的官网自行下载liblcl.dll库文件,然后可以放在Windows目录下,也可以放在Gox语言主程序可执行文件的相同目录下。
特别需要注意的事,所有回调函数需要进行转换,转换方法参考上面代码中的button1和edit1的回调函数,LCL支持的事件则可以参考这里或Govcl的Github页面。
最后,注意图形界面编程的统一禁忌是:只能在一个线程中操作图形界面。
比较一下的话,在Gox语言中使用LCL库编程,更贴近传统程序员的编程思维,也能更精细地控制界面元素的展现和行为方式,相比OpenGL库来说,稍微复杂一些但功能更丰富,唯一需要依赖的是要有运行库,但也就仅需要下载一个dll库文件,还算可以接受。并且,这种方式也是跨平台的,在Mac和Linux只需要下载对应版本的库文件即可。
总的来说,Gox语言作为一个解释执行的脚本语言,能够提供两种风格的图形界面库,并且还是内置的,无需安装附加包,相比大多数其他脚本语言来说是非常方便的。