在Gox语言中用LCL库进行GUI图形界面编程-GX9

运维

  老资格的Delphi程序员都知道,用VCL库编写图形界面是非常方便的,而LCL库就是受VCL库启发而来形成的免费版本的图形界面开发库。感谢Github上的ying32提供的Govcl库,使得我们现在可以使用Gox语言(Goxlang)结合LCL库进行GUI图形界面的编程,下面我们就来看一个具体的实例。

  在Gox语言简介一文中,我们已经介绍过使用基于OpenGL技术的GUI图形界面库Giu来开发图形界面的方式,而使用LCL库开发则更贴近传统程序员的图形界面构建思路,我们来看用LCL库实现与之前的例子功能一致的小型计算器的程序代码。

  lcl = import("lcl")errT = lcl.InitLCL()if errT != nil {plerr(errT)exit()}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)mainForm.SetOnDestroy(&func(ser) {println("Form Destroyed.")})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")edit1 = lcl.NewEdit(mainForm)edit1.SetParent(mainForm)edit1.SetBounds(10, 48, 200, 32)edit1.Font().SetSize(11)onClick1 = func (objA) {rs = eval(edit1.Text())edit1.SetText(toString(rs))}onClick2 = func(ser) {application.Terminate()}button1 = lcl.NewButton(mainForm)button1.SetParent(mainForm)button1.SetLeft(20)button1.SetTop(90)button1.SetCaption("Go")button1.SetOnClick(&onClick1)button2 = lcl.NewButton(mainForm)button2.SetParent(mainForm)button2.SetLeft(110)button2.SetTop(90)button2.SetCaption("Close")button2.SetOnClick(&onClick2)application.Run()可以看到,代码非常简单,连空行加起来一共不超过70行代码,就实现了一个图形界面的计算器。下面我们看看执行之后的效果。

  可以看到,很简单地,一个图形界面的小计算器已经成功运行了。我们可以尝试输入一个算式让它计算。

  点击“Go”按钮后,就会得到计算结果。

  可以看到,计算结果已经出来了,最后的小数点是有名的计算机上的浮点数误差,属于计算机的正常行为。

  而这个70行代码实现的计算器就这么简单吗?当然不是了,请看看下面的例子:

  先输入:

  点击“Go”按钮计算后,

  这是我们把一个数字存进变量a中,然后再次存储一个数字到变量b(名字可以任意起)中,

  可以是算式噢,还是要点击“Go”按钮进行计算和保存,

  下面一步可以用a与b进行新的计算了。

  复杂吗?点击“Go”按钮计算后可以得到,

  可以验算一下是否正确。这居然是一个可编程的计算器!

  另外,点击“Close”按钮是关闭该计算器,点击窗口右上方的关闭按钮也是同样的效果。

  由此可见,短短几十行代码,实现了一个麻雀虽小、五脏俱全的图形界面小程序,非常不容易。

  下面我们来解说一下具体代码,我们还是用代码中的注释来说明吧。

  lcl = import("lcl") // 首先需要导入lcl库,注意要放入一个变量中,一般用同名的变量好一些errT = lcl.InitLCL() // 然后切记调用lcl.InitLCL函数进行GUI的初始化// 下面是判断LCL库是否正确加载,如果没能成功加载,则提示错误信息并中止程序继续执行if errT != nil {plerr(errT)exit()}// 下面两句是进行GUI图形界面程序的初始化,依样执行就是了application = lcl.GetApplication()application.Initialize()application.SetTitle("Calculator with LCL") // 设置程序的名称,就是显示在Windows任务条里面的名称application.SetMainFormOnTaskBar(true) // 设置该程序在任务条中出现mainForm = application.CreateForm() // 创建一个主窗口mainForm.SetWidth(400) // 设置主窗口宽度mainForm.SetHeight(200) // 设置主窗口高度mainForm.SetCaption("Calculator with LCL") // 设置主窗口标题mainForm.SetPosition(lcl.PoScreenCenter) // 设置主窗口位置,lcl.PoScreenCenter是指显示在屏幕正中间mainForm.Font().SetSize(11) // 设置主窗口字体大小为11// 设置主窗口退出时执行的函数mainForm.SetOnDestroy(&func(ser) {println("Form Destroyed.")})// 创建一个label(即标签,用于显示静态文字)label1 = lcl.NewLabel(mainForm)label1.SetParent(mainForm) // 设置该label的父级对象为主窗口,这一步也必须要做label1.SetLeft(10) // 设置该label的左坐标label1.SetTop(10) // 设置该label的上坐标label1.Font().SetName("Arial") // 设置该label的字体label1.Font().SetSize(18) // 设置该label的字号为18label1.SetCaption("Enter an expression") // 设置该label的文字// 创建一个单行文本输入框,用于输入算式edit1 = lcl.NewEdit(mainForm)edit1.SetParent(mainForm)edit1.SetBounds(10, 48, 200, 32) // SetBounds函数可以方便地直接设定界面控件的x、y坐标和宽度与高度,大多数控件都可以如此设置edit1.Font().SetSize(11)// 设定两个回调函数,用于点按两个按钮时分别调用onClick1 = func (objA) {rs = eval(edit1.Text()) // 计算文本框中的算式,得到结果edit1.SetText(toString(rs)) // 将计算结果再显示回文本框中}onClick2 = func(ser) {application.Terminate() // 中止图形界面程序的执行}// 创建“Go”按钮button1 = lcl.NewButton(mainForm)button1.SetParent(mainForm)button1.SetLeft(20)button1.SetTop(90)button1.SetCaption("Go")button1.SetOnClick(&onClick1) // 设置点按该按钮时候调用onClick1函数,注意要加取地址符“&”// 创建“Close”按钮,用于关闭图形界面窗口button2 = lcl.NewButton(mainForm)button2.SetParent(mainForm)button2.SetLeft(110)button2.SetTop(90)button2.SetCaption("Close")button2.SetOnClick(&onClick2) // 设置点按该按钮时候调用onClick2函数,注意要加取地址符“&”// 最后,要让图形界面程序真正运行,必须调用application.Run函数application.Run()代码中通过注释的方式已经解释得很详细,另外需要注意:

  调用lcl.InitLCL函数进行GUI的初始化时,如果当前系统中没有LCL库(liblcl.dll),则会进行自动下载,保存在gox主程序的相同路径下。如果希望不要有这一步,建议直接去Gox语言的官网自行下载liblcl.dll库文件,然后可以放在Windows目录下,也可以放在Gox语言主程序可执行文件的相同目录下。

  比较以下的话,在Gox语言中使用LCL库编程,更贴近传统程序员的编程思维,也能更精细地控制界面元素的展现和行为方式,相比OpenGL库来说,稍微复杂一些但功能更丰富,唯一需要依赖的是要有运行库,但也就仅需要下载一个dll库文件,还算可以接受。并且,这种方式也是跨平台的,在Mac和Linux只需要下载对应版本的库文件即可。

  总的来说,Gox语言作为一个解释执行的脚本语言,能够提供两种风格的图形界面库,并且还是内置的,无需安装附加包,相比大多数其他脚本语言来说是非常方便的。

标签: 运维