2021年3月25日星期四

调整Delphi IDE代码的行间距 - 红鱼儿

朋友告诉我的，一试还真行：如果能随意调节就完美了！

【教程】对 TEvent 的一处增强

对于 TEvent 来说，如果是调用 WaitFor 等待超时时，如果程序退出时，事件仍在等待状态，就需要等待超时才能退出，造成程序退出时等待很长时间。要改进这一点，我们需要新版的 QWorker，它实现了一个 TAbortableEvent 的记录类型，然后支持取消操作。 TAbortableEven...

2021年3月23日星期二

一图说明RAD Studio快捷键 - 红鱼儿

红鱼儿| 博客园_红鱼儿 |13:53:00

Deployment Manager now Open Source - 红鱼儿

红鱼儿| 博客园_红鱼儿 |08:10:00

如果你用Delphi开发app，这篇文章是你必须看并且要学会使用这个发布工具。学会用Deployment Manager，你才会真正感觉到下图的境界！这张更爽！现在，DeployMan开源了！Deployment Manager now Open?Source 作者开源了这款软件，你也可以参与开

2021年3月22日星期一

Delphi 10.4.2 Android 64位发布格式之App Bundle格式aab - 红鱼儿

红鱼儿| 博客园_红鱼儿 |20:53:00

1、Android 64位新规则详看官方文档：https://developer.android.com/guide/app-bundle 1、当包大于150M； 2、当引入过多SDK造成包过大时；发布出来的结果，是aab（App Bundle格式，一种新的发布格式），而非apk?2、D10.4.

为Delphi 10.4.2实现android拍照填坑 - 红鱼儿

红鱼儿| 博客园_红鱼儿 |12:46:00

最新的Delphi版本发展到10.4.2，完美支持Andriod 11，但由于Android本身的变化，在开发Android app拍照功能功能时，还是会遇到问题，但这不是Delphi本身的问题，而是你不知如何在Delphi中处理的问题。为什么会这样呢？一句话，Android本身不断变化造成的。今

CnWizards_1.2.0.1026_Unstable.exe

Cnpack| Cnpack.org |10:39:00

* [代码输入助手] LSP 模式下支持类型图标。

2021年3月21日星期日

图文解说 ChinaCock 华为扫描 - 红鱼儿

红鱼儿| 博客园_红鱼儿 |16:48:00

随着Delphi 10.4.2发布，ChinaCock作者也紧随其后，发布了支持10.4.2的版本:ChinaCock10.4.2百年建党童心向党版.从名字看作者是一个爱国主义者，让人敬佩！不仅如此，为了支持华为，作者在此版本中集成了华为扫描。接下来，我们通过组件包带的例子，看看如何在app中?..

2021年3月20日星期六

CnWizards_1.2.0.1025_Unstable.exe

Cnpack| Cnpack.org |13:39:00

* [MSDN 专家] 10.4.2 下禁用 MSDN 工具栏以避免出错。_x000D_ * [编辑器扩展] 10.4 下禁用光标不超出行尾以避免出错。

2021年3月18日星期四

[教程]如果在 Delphi /C++ Builder 中调试单元初始化时的错误

swish| QDAC官方网站 |13:42:07

有时候，我们程序在进入 Main 函数入口前，就开始报错，比如 Acesss volation at XXX read at yyyy 一类的错误。这类错误一般是由于单元之间的引用关系和初始化顺序不一致造成的。比如单元 A 的初始化代码调用了单元 B 的函数，但单元 B 此时尚未初始化，所以其使用?..

2021年3月17日星期三

CnWizards_1.2.0.1024_Unstable.exe

Cnpack| Cnpack.org |14:22:00

* [打开文件] 修正 10.4.2 下打开文件时 IDE 莫名调到后台的问题。

Delphi Event Bus进阶（二）GlobalEventBus是怎么来的？ - 红鱼儿

红鱼儿| 博客园_红鱼儿 |13:01:00

无论是发布消息，注册订阅方法等，都用到GlobalEventBus这个全局接口对象。接下来我们看看他是怎么来的？ function GlobalEventBus: IEventBus; begin Result := TEventBusFactory.GlobalEventBus; end; 原来，

小心SecondsBetween有坑 - 红鱼儿

红鱼儿| 博客园_红鱼儿 |10:32:00

看下面的代码，求两个时间间隔的秒数： procedure TForm2.FormCreate(Sender: TObject); begin d1:=Now; end; procedure TForm2.Timer1Timer(Sender: TObject); var i:Integer; s:s