| | | | | |

2023年6月25日

摘要： procedure TUniServerModule.UniGUIServerModuleBeforeInit(Sender: TObject); begin Form3:= TForm3.create(self); Form3.ShowModal; Form3.Free; end; 阅读全文

posted @ 2023-06-25 16:22 涂磊阅读(199) 评论(0) 推荐(0) 编辑

2023年6月16日

(05)UniGUI何输出FastReport的pdf

摘要：可以参考unigui+fastReport实现web打印方案(77) 拖一个frxPDFExport1和frxReport1到界面上 rocedure TMainForm.UniButton2Click(Sender: TObject); begin with frxPDFExport1 do b 阅读全文

posted @ 2023-06-16 15:33 涂磊阅读(188) 评论(0) 推荐(0) 编辑

2023年6月15日

VCL下ListBox自画,Lazarus也一样

摘要：很简单的ListBox自画最终效果图：Ｌazarus也一样 ListBox的两个设置：自画事件：ListBox1DrawItem procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect 阅读全文

posted @ 2023-06-15 16:17 涂磊阅读(73) 评论(0) 推荐(0) 编辑

2023年6月9日

UniGUi学习UniHTMLFrame1例子_JS现html导出为PDF文件(63)

摘要： https://blog.csdn.net/weixin_39166851/article/details/121678381 导入两个JS 链接：https://pan.baidu.com/s/1QO2obUYNDkZ0Om9zaLddoA 提取码：majx <button id="btn">导出阅读全文

posted @ 2023-06-09 11:18 涂磊阅读(354) 评论(0) 推荐(0) 编辑

Sqlite硬分页(第一页，最后1页)(08)

摘要：第一页，前10项 select * from atb where id <((select min(id) from atb)+10) 最后1页,10项 select * from atb where id >((select max(id) from atb)-10) 阅读全文

posted @ 2023-06-09 10:13 涂磊阅读(19) 评论(0) 推荐(0) 编辑