红鱼儿 - 博客园

Delphi 11.1 在FMX Image上画图遇到坑

摘要：上图是运行后的结果，正常左右两图应该是一样的结果，都在图上画出一个红框。下图是实现的代码： unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Varian 阅读全文

posted @ 2022-03-30 20:48 红鱼儿阅读(887) 评论(0) 推荐(0) 编辑

Unknown picture file extension (.jpg)

摘要： VCL下的TImage，加载一个Jpg文件时，出这个提示，无法加载： Image1.Picture.LoadFromFile(fn1); 不认识这个文件格式，如果在设计期是可以调入对应的图片的。查了半天代码，原来，如果使用jpg文件，我们要引用Vcl.Imaging.jpeg。在uses部分引用V 阅读全文

posted @ 2022-03-24 17:55 红鱼儿阅读(587) 评论(0) 推荐(0) 编辑

用原生TBase64Encoding实现文件与Base64串互相转换

摘要：将一个文件转换成Base64编码串： function FileToBase64(fn: string): string; var msSource: TMemoryStream; msTarget: TStringStream; str: string; base64: TBase64Encodi 阅读全文

posted @ 2022-03-24 16:12 红鱼儿阅读(1142) 评论(1) 推荐(1) 编辑

Delphi 11.1 解决高分屏下设计期窗口显示太小的问题

摘要：升级到Delphi 11.1了，遇到个问题，当打开旧的VCL项目，显示的太小了，如下图一样：第一步，用代码取得窗口在运行期的PixelsPerInch值。代码如下： procedure TMainForm.FormCreate(Sender: TObject); begin ShowMessage 阅读全文

posted @ 2022-03-21 18:01 红鱼儿阅读(1805) 评论(1) 推荐(0) 编辑

Delphi 11 ListView实现删除一行

摘要：实现下图的界面，用ListView显示一个数据集的内容：点Delete删除所在行，下面是实现的代码： procedure TForm3.FormCreate(Sender: TObject); var I: Integer; begin //prepare dataset for I := 1 t 阅读全文

posted @ 2022-03-21 10:30 红鱼儿阅读(680) 评论(0) 推荐(0) 编辑

Delphi 11 定制欢迎界面

摘要：定制欢迎界面，如上图。真是方便易用。下图是定制后的显示：快升级到D11.1吧！阅读全文

posted @ 2022-03-18 23:04 红鱼儿阅读(997) 评论(1) 推荐(0) 编辑

手工为Delphi设置Android SDK.

摘要： 1.把下载的文件解压到这个目录： C:\Users\Public\Documents\Embarcadero\Studio\22.0\CatalogRepository\ 2.重新设置sdk目录：阅读全文

posted @ 2022-03-18 14:37 红鱼儿阅读(799) 评论(0) 推荐(0) 编辑

Delphi 11.1 发布

摘要： RAD Studio, Delphi, C++Builder 11.1 ISO https://altd.embarcadero.com/download/radstudio/11.0/RADStudio_11_1_esd_10_8973a.iso https://blogs.embarcadero 阅读全文

posted @ 2022-03-16 07:58 红鱼儿阅读(6289) 评论(6) 推荐(0) 编辑

使用TMonitor在线程中加解锁

摘要：今天学习Delphi System.Rtti的源代码，进一步学习到了如何在线程中使用锁。参考官方的代码整理出来分享： var _GlobalContextTokenLock: TObject; 定义一个全局的实例，供TMonitor使用。再写一个方法，返回_GlobalContextTokenLo 阅读全文

posted @ 2022-02-27 12:50 红鱼儿阅读(426) 评论(0) 推荐(0) 编辑

修改uniGUIServer的标题

摘要： procedure ResStr(rs: PResStringRec; newStr: PChar); var oldprotect: DWORD; begin // 修改资源词条，uses windows, VirtualProtect(rs, SizeOf(rs^), PAGE_EXECUTE_ 阅读全文

posted @ 2022-01-18 08:57 红鱼儿阅读(597) 评论(0) 推荐(0) 编辑

公告