教程 – 第2页 – QDAC官方网站

[FMX] FMX 动画类的一个辅助增强

2018-01-132018-01-13 • C++ Builder、Delphi、教程、杂谈 • 暂无评论 • swish •浏览 1,569 次

本增强的目的是解决动画对象只支持 published 的有效的几种属性的问题，确切的说，这是一个适配器，通过匿名函数建立与非 published 属性的适配。我在 [FMX] Delphi 中 TAnimation 设计的几点值得商榷的地方一文中讨论了 FMX 动画支持类的一些值得商榷的地方和改动，而这个增强从另一个

[教程]为 TDateTimePicker 增加日期时间类型支持（来自LakeView）

2018-01-11 • 教程 • 暂无评论 • swish •浏览 1,017 次

1、找到 VCL.ComCtrls.pas 单元 2、修改 TDateTimeKind 类型，增加 dtkDateTime，以便支持日期时间类型。 TDateTimeKind = (dtkDate, dtkTime, dtkDateTime); 3、找到 TDateTimePicker.CNNotify 函数，在 D

[教程]以管理员身份运行程序的一种方法

2018-01-01 • Delphi、教程 • 暂无评论 • swish •浏览 1,389 次

以管理员运行程序的方法有很多种，包含在 manifest 文件中请求权限，兼容性设置及下面说的 runas。 runas 算是一种比较另类的方法，它是通过重新启动程序以管理员方式运行的方式来让新的进程以管理员方式运行，然后退出当前进程，以达到以管理员身份运行的目的。要执行这个操作实际上很简单，用众所周知的 Shell

[非官方补丁]RSP-19552 10.2.2 的 Android 程序在退出时出错的问题非官方补丁

2017-12-172017-12-17 • 教程 • 暂无评论 • swish •浏览 1,394 次

访问官方QC地址问题原因：该问题是由于程序退出时，FSharedContext 被释放，而 DoFinalizeShader 调用 Valid 没有做相应的处理，结果在检查到 FSharedContext 为空时，又重新创建了 FSharedContext 造成的。解决办法：在 Valid ->Activat

[FMX] FMX 拖放支持的一处小问题修正

2017-12-03 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 960 次

FMX 的拖放支持实际上要比 VCL 方便一些，控件的 OnDragOver 事件的 Operation 代替了 VCL 中只能简单的 Accept。但就 10.2 版本而言，其拖放操作在 Windows 下对 DragDrop 的调用存在问题，没有调用 TControl.DragDrop 函数，造成拖放后，目标的 I

[QSecurity]QSecurity 使用入门指南

2017-10-20 • C++ Builder、Delphi、QDAC、QPlugin、教程 • 暂无评论 • swish •浏览 1,608 次

QSecurity 是 QPlugins 的安全相关插件接口及其实现， qplugins_security.pas 定义了安全相关的接口，我们在插件中使用时，只需要引用这个接口文件就可以了。而服务的实现单元并不包含在免费开源的范围内，如果您不想自己实现，或者想参考实现，需要付费购买，价格为人民币 99.00 元。无论

[教程]解析 Web 颜色（VCL）

2017-10-202017-10-20 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 903 次

这段代码支持的Web颜色格式为 #RRGGBB/#RGB 以及以Web标准名称命名的颜色（需要引用单元：qstring,graphutil）：

function ParseWebColor(S: String;ADefColor:TColor=clBlack): TColor;
var
  p: PChar;
  c: array [0 .. 3] of Byte absolute Result;
  i: Integer;
begin
  Result := 0;
  p := PChar(S);
  i := 0;
  if p^ in ['a' .. 'z', 'A' .. 'Z'] then
  begin
    if IdentToColor('cl' + S, i) then
      Result := i
    else
    begin
      S := 'clWeb' + S;
      for I := 0 to High(WebNamedColors) do
      begin
        if CompareText(WebNamedColors[I].Name, S) = 0 then
        begin
          Result := WebNamedColors[I].Value;
          Exit;
        end;
      end;
      Result := ADefColor;
    end;
    Exit;
  end
  else if p^ = '#' then
  begin
    Inc(p);
    if Length(S) = 4 then // #RGB
    begin
      while p^ <> #0 do
      begin
        if IsHexChar(p^) then
        begin
          c[i] := (HexValue(p^) * 255) div 15;
          Inc(i);
          Inc(p);
        end
        else
          break;
      end;
    end
    else if Length(S) = 7 then
    begin
      while p^ <> #0 do
      begin
        if IsHexChar(p^) then
        begin
          c[i] := HexValue(p^);
          Inc(p);
          if p^ <> #0 then
          begin
            c[i] := (c[i] shl 4) + HexValue(p^);
            Inc(p);
          end;
          Inc(i);
        end
        else
          break;
      end;
    end;
  end;
  if i <> 3 then
    Result := ADefColor;
end;

function ParseWebColor(S: String;ADefColor:TColor=clBlack): TColor;

var

p: PChar;

c: array [0 .. 3] of Byte absolute Result;

i: Integer;

begin

Result := 0;

p := PChar(S);

i := 0;

if p^ in ['a' .. 'z', 'A' .. 'Z'] then

begin

if IdentToColor('cl' + S, i) then

Result := i

else

begin

S := 'clWeb' + S;

for I := 0 to High(WebNamedColors) do

begin

if CompareText(WebNamedColors[I].Name, S) = 0 then

begin

Result := WebNamedColors[I].Value;

Exit;

end;

Result := ADefColor;

end;

Exit;

end

else if p^ = '#' then

begin

Inc(p);

if Length(S) = 4 then // #RGB

begin

while p^ <> #0 do

begin

if IsHexChar(p^) then

begin

c[i] := (HexValue(p^) * 255) div 15;

Inc(i);

Inc(p);

end

else

break;

end;

end

else if Length(S) = 7 then

begin

while p^ <> #0 do

begin

if IsHexChar(p^) then

begin

c[i] := HexValue(p^);

Inc(p);

if p^ <> #0 then

begin

c[i] := (c[i] shl 4) + HexValue(p^);

Inc(p);

end;

Inc(i);

end

else

break;

end;

if i <> 3 then

Result := ADefColor;

end;

比如#FF0000 和 #F00 都被解释为红色。

[FMX]在 FMX 程序中绘制单像素宽度的直线

2017-10-09 • Android、Delphi、教程 • 暂无评论 • swish •浏览 1,432 次

在前面的一篇文章中，我介绍了一种绘制低品质直线的方法，但是这么做，效率上肯定要打折扣的。在和群里的朋友们一顿交流折腾后，对于绘制水平或垂直的直线，现在有两种更简单的办法来解决这一问题：办法一：使用 FillRect 来代替 DrawLine 绘制，矩形区域的大小注意要在相应的方向上加 0.5 个像素。 [crayon

[FMX]在程序中使用已有的样式做自己需要的渲染

2017-09-272017-09-27 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 1,196 次

今天我们来做一件坏事，我们都是坏孩子…… 我们知道，FMX 是有 StyleBook，每个控件有自己的样式,但有时候，我们要绘制自绘一些状态，难道非要用户重新定义一堆样式吗？为啥不能利用现成的样式呢，比如，我就只是要自绘一个CheckBox，但我还不想放置一个TCheckBox组件，那么怎么来做呢？第一：我们需要知道

【教程】在你的程序中使用自定义字体

2017-09-222017-09-25 • Android、Delphi、QDAC、教程 • 暂无评论 • swish •浏览 1,806 次

【Android】方法一：参考 [译]在 Andriod/IOS 程序中使用自己的字体自己修改系统源码，缺点是每升级一个版本需要修改一次；方法二：使用 QDAC 为此新增 qdac_fmx_fontex_android ，不过区分免费版和赞助版（赞助版为qdac_appfonts，同时支持所有平台），但使用步骤一

[教程]在你的程序中使用 FontAwesome 字体

2017-09-212017-09-23 • Android、C++ Builder、Delphi、iOS、教程 • 暂无评论 • swish •浏览 1,432 次

首先是无论什么平台，要使用 FontAwesome 字体需要两步：第一步：添加字体，考虑到字体如果是专用的话，应该是当前程序能够加载字体的目录（下面都假设这一点，你如果装到操作系统字体目录里的话，就直接使用就可以了）；第二步：设置控件的字体为 FontAwesome，然后调整字体大小和样式为合适的大小；【Wind

[QMacros] 使用迭代器来重复内容

2017-09-18 • C++ Builder、Delphi、QDAC、QMacros、教程 • 暂无评论 • swish •浏览 951 次

QMacros 2017年9月18日提交的版本支持了迭代器，以重复替换某一部分内容。迭代器的声明：

IQMacroIterator = interface
    ['{3DB5D84F-0539-4C10-9476-E6B71D3099DE}']
    // 开始替换
    procedure BeginReplace(AMacro: TQMacroItem);
    // 判断是否还有要处理的数据
    function HasNext: Boolean;
    // 执行一次替换
    function Replace: QStringW;
    // 结束替换
    procedure EndReplace;
    // 获取当前活动的迭代器序号
    function GetItemIndex: Integer;
  end;

IQMacroIterator = interface

['{3DB5D84F-0539-4C10-9476-E6B71D3099DE}']

// 开始替换

procedure BeginReplace(AMacro: TQMacroItem);

// 判断是否还有要处理的数据

function HasNext: Boolean;

// 执行一次替换

function Replace: QStringW;

// 结束替换

procedure EndReplace;

// 获取当前活动的迭代器序号

function GetItemIndex: Integer;

end;

好吧，这是一个接口，这就意味着，我们绑定某个宏到这个迭代器之前，需要先实现一个迭代器。我们可以继承自 TQMacroIterator 实现一个自带的迭代

[教程]通过 PnP 获取显示器信息示例

2017-09-02 • Delphi、教程 • 暂无评论 • swish •浏览 1,041 次

在一些场合，我们需要获取显示器的硬件信息，来便做一些便宜的处理（那当然具体的处理就不需要我说道了），下面的代码提供了一种实现，供有需要的朋友参考：下载：MonitorEDID 效果：当然了，如果你没有想到用它来干啥，说明你根本就用不到它，当然也就不用管它了，全当看了一个笑话。

[教程]导出函数不是动态链接库或共享对象的专利，可执行文件也可以导出，所以两者是可以相互调用的

2017-08-27 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 978 次

这个教程没有更多内容，只是一句提示，懂得自然懂，不懂的慢慢想。

[教程]调用 TBrowseForFolder 的正确姿势

2017-08-22 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 1,083 次

TBrowseForFolder 是 Delphi / C++ Builder 中自带的一个浏览目录的对话框，位于 StdActns 单元（后期为 Vcl.StdActns 单元），不幸的是，这个动作代码天生残疾（从诞生到现在一直没改过这个问题），要让其好用，有两种解决办法：第一种：刮骨疗毒=>修改 StdAc

[教程]Delphi下的移动教程之二：读懂第三方 Java/Objective-C 接口

2017-08-21 • Android、Delphi、iOS、教程 • 暂无评论 • swish •浏览 1,366 次

教程以 Delphi 录制，但由于 Delphi 和 C++ Builder 使用同一 IDE，所以绝大部分内容同样适用于 C++ Builder。【价格】以人民币计价：个人用户：50元企业用户：300元【视频长度】待定【视频语言】中文，普通话【视频编码】格式：H.264 MP4 分辨率:1920×

[FMX]不是所有的高质量绘图都是我们想要的：在 FMX 下使用 Canvas 进行“低质量”绘图

2017-08-21 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 1,708 次

鱼，我所欲也，熊掌，虽我也欲，但我买不起也！FMX 默认的组图模式是 SystemDefault，在 Windows 下，默认是高质量绘图。当然，高质量这个词意味着啥，大家都清楚，使用 TCanvas 的 DrawLine 绘制一条 1 像素的水平直虚线，效果如下：怎么样，感觉是不是有点辣

[教程]Delphi 中三种回调函数形式解析

2017-08-152017-08-15 • Delphi、教程 • 暂无评论 • swish •浏览 1,910 次

Delphi 支持三种形式的回调函数：全局函数这种方式几乎是所有的语言都支持的，类的静态函数也可以归为此类，它保存的只是一个函数的代码起始地址指针（ Pointer ）。在 Delphi 中声明一般为：

TXXX=procedure/function (参数列表);

1	TXXX=procedure/function (参数列表);

类的成员函数类的成员函数作为回调函数，与全局

[FMX]在你的跨平台应用中使用剪贴板进行复制粘贴

2017-08-10 • Android、C++ Builder、Delphi、iOS、教程 • 暂无评论 • swish •浏览 1,676 次

VCL 中如何使用剪贴板咱就不说了，FMX 做为一个新的框架，提供了跨平台的剪贴板支持。FMX 对剪贴板的支持来自两个接口： IFMXClipboardService：位于 FMX.Platform.pas 中

  IFMXClipboardService = interface(IInterface)
    ['{CC9F70B3-E5AE-4E01-A6FB-E3FC54F5C54E}']
    /// <summary>
    ///   Gets current clipboard value
    /// </summary>
    function GetClipboard: TValue;
    /// <summary>
    ///   Sets new clipboard value
    /// </summary>
    procedure SetClipboard(Value: TValue);
  end;

IFMXClipboardService = interface(IInterface)

['{CC9F70B3-E5AE-4E01-A6FB-E3FC54F5C54E}']

/// <summary>

/// Gets current clipboard value

/// </summary>

function GetClipboard: TValue;

/// <summary>

/// Sets new clipboard value

/// </summary>

procedure SetClipboard(Value: TValue);

end;

IFMXExtendedClipboard

[FMX] 在 FMX 中手动控制打印机打印内容

2017-04-13 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 1,569 次

好吧，先说下版本：10.1.2，然后说遇到的两个 Bug：一、字体大小的问题打印机的字体大小错误，比如设置为10.5（五号字的大小，3.7mm），你会发现打印出的字特别小，根本与实际设置不搭别。所以在 10.1.2 时，输出文本时的字体大小需要按以下公式计算下：字体磅数 × DPI/72 然后就没有问题了，比如现

登录