秋·风

RxDBGrid实现高亮显示指定字符

摘要： RxDBGrid实现高亮显示指定字符，效果如下：方法：用OnDrawColumnCell自绘：直接上代码（在“心有阳光”的代码基础完善而来的）： procedure FindAllOccurrences(Text, SearchStr: string; var Positions: TStrin 阅读全文

posted @ 2024-11-05 21:11 秋·风阅读(196) 评论(1) 推荐(0)

讲讲lazarus richmemo跨平台时中文显示的思路

摘要： lazarus richmemo在linux打开GBK内码的rtf不能显示中文，但在linux编辑保存的rtf可以显示中文：在Windows richmemo显示的rtf：打开windows保存的rtf文件，中文使用GBK内码：【中国人】对应的GBK内码： \'d6\'d0\'b9\'fa\ 阅读全文

posted @ 2024-11-01 09:11 秋·风阅读(282) 评论(0) 推荐(0)

lazarus menu组件(2024-11-15增加菜单阴影)

摘要： lazarus的menu控件在银河麒麟显示(GTK2)灰黑色背景，荆通大神通过修改gtk2源码（gtk2proc.inc和gtk2wsmenus.pp）可以修改背景但效果还是不理想。近日在GitHub找到一个LazarusMenu，经试用发现问题很多，其中还使用了bgracontrols控件。我修阅读全文

posted @ 2024-10-30 09:32 秋·风阅读(388) 评论(0) 推荐(0)

【原创】修正fpspreadsheet读某些复杂xlsx文件时出错的Bug

摘要：网友“海”在使用fpspreadsheet时遇到读取复杂的xlsx文件会出错：经跟踪发现运行到fpspreadsheet\source\common\xlsxooxml.pas的procedure TsSpreadOOXMLReader.ReadFromStream的ReadDefinedName 阅读全文

posted @ 2024-10-25 12:50 秋·风阅读(224) 评论(0) 推荐(0)

lazarus debug时使用debugserver的方法

摘要： lazarus最大的缺点我认为是Debug功能，如需要查看View:Width的值，lazarus是无法直接看到的，经试用debugserver+SendDebug可以显示。使用方法：1、首先编译debugserver，打开编译lazarus\tools\debugserver\debugserve 阅读全文

posted @ 2024-10-21 15:19 秋·风阅读(245) 评论(1) 推荐(0)

【原创】修复lazport用lrPDFExport导出pdf中文变为框框的Bug(2024-10-22更新)

摘要：按《lazreport的pdf导出插件lrPDFExport的DoMemoView(View: TfrMemoView)功能缺失》修复后英文显示正常，但中文显示为框框的问题。前几天经网友“安全生产监管”提醒我，使用freepascal自带的fpPDF创建的pdf可以正常显示中文，字体名称不能用中文。阅读全文

posted @ 2024-10-18 14:55 秋·风阅读(268) 评论(0) 推荐(1)

【原创】lazreport的pdf导出插件lrPDFExport的DoMemoView(View: TfrMemoView)功能缺失（2024-10-22更新）

摘要： lazreport的pdf导出插件lrPDFExport缺失MemoView功能，导出的报表如有TfrMemoView，生成的pdf会直接丢弃TfrMemoView的文字，原TfrMemoView的位置出现空白。导出的pdf：修复步骤：打开Lazreport\source\addons\lrF 阅读全文

posted @ 2024-10-18 14:30 秋·风阅读(166) 评论(0) 推荐(0)

【原创】Lazarus 4.0RC1/fpc3.3.1安装ehlib 10时出错

摘要： Lazarus 4.0RC1/fpc3.3.1安装ehlib 10时出现以下出错： EhLibReg.pas(761,27) Error: Incompatible type for arg no. 1: Got "Constant String", expected "LongInt" 原因：la 阅读全文

posted @ 2024-10-16 11:31 秋·风阅读(656) 评论(0) 推荐(0)

判断字符串是否为UTF8（pascal语言）

摘要：之前写过一个类似的，不过没严格按照UTF8编码规则判断。参考网上C代码，重新写一个符合UTF8编码规则的IsStringUTF8函数。调用方法： procedure TForm1.Button1Click(Sender: TObject); begin if IsStringUTF8(edit1.T 阅读全文

posted @ 2024-10-13 16:35 秋·风阅读(178) 评论(0) 推荐(0)

【原创】修复freepascal自带的tdbf组件使用中文字段转换为utf8可能出现文字错的问题

摘要：出现的问题： tdbf不支持utf8，中文字段名称转utf8时可能出现文字错：问题原因： tdbf在处理字段名称使用AnsiUpperCase将字段名称转为大写，使用AnsiUpperCase需要配置，但不知道是怎样配置才可以将中文字段名转为utf8时不会有问题，我这个方法比较粗暴，直接将Ansi 阅读全文

posted @ 2024-10-12 20:27 秋·风阅读(112) 评论(0) 推荐(0)

公告