如何在FMX画布上的Delphi中画一条线

debugcn 发表于 Dev

伊姆孔

这是与Delphi Berlin 10.1 Update 2一起使用的

以下作品（画一条线）：

brush := TStrokeBrush.Create(TBrushKind.Solid, TAlphaColors.Lightgray);
brush.Thickness := 2;
with Canvas do
begin
    BeginUpdate;
    DrawLine(PointF(10, 10), PointF(100, 10), 1, brush);
    EndUpdate;
end;

以下内容不起作用：

with Canvas do
begin
    BeginUpdate;
    Stroke.Color := TAlphaColors.Black;
    Stroke.Thickness := 2.0;
    DrawLine(PointF(10, 10), PointF(100, 10), 1);
    EndUpdate;
end;

为什么我不能使用第二个？如何使它工作，还是应该像第一个示例一样坚持创建描边画笔？

我提供了一个最小的应用程序：

main.not

unit main;

interface

uses
    System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects;

type
    TMainForm = class(TForm)
        PaintBox: TPaintBox;
        procedure OnPaint(Sender: TObject; Canvas: TCanvas);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

var
    MainForm: TMainForm;

implementation

{$R *.fmx}

procedure TMainForm.OnPaint(Sender: TObject; Canvas: TCanvas);
begin
    with Canvas do
    begin
        BeginUpdate;
        Stroke.Color := TAlphaColors.Black;
        Stroke.Thickness := 2.0;
        DrawLine(PointF(10, 10), PointF(100, 10), 1);
        EndUpdate;
    end;
end;

end.

main.fmx：

object MainForm: TMainForm
    Left = 0
    Top = 0
    Caption = 'Form1'
    ClientHeight = 480
    ClientWidth = 640
    FormFactor.Width = 320
    FormFactor.Height = 480
    FormFactor.Devices = [Desktop]
    DesignerMasterStyle = 0
    object PaintBox: TPaintBox
        Position.X = 16.000000000000000000
        Position.Y = 16.000000000000000000
        Size.Width = 609.000000000000000000
        Size.Height = 449.000000000000000000
        Size.PlatformDefault = False
        OnPaint = OnPaint
    end
end

test.dpr：

program test;

uses
   System.StartUpCopy,
   FMX.Forms,
   main in 'main.pas' {MainForm};

{$R *.res}

begin
    Application.Initialize;
    Application.CreateForm(TMainForm, MainForm);
    Application.Run;
end.

鲁道德

较早版本的Delphi根据平台的不同，Stroke.Kind的默认值也不同。

自从Delphi 10.1 Berlin以来，默认值似乎None适用于所有平台。（感谢@TomBrunberg）

要显示该行，请设置 Stroke.Kind := TBrushKind.Solid;

注意：在Windows 8.1上测试

我还创建了一个新的Metropolis FMX应用程序，该图形无需设置即可工作Stroke.Kind。虽然无法解释。

在QP，RSP-16313上也提交了类似的报告。Canvas.DrawLine在Windows XP（32位）格式下不起作用。在此问题出现在Windows-XP上，但没有出现在Windows-7上。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。