3

これは、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;

2枚目はなんで使えないの？どうすれば動作させることができますか、または最初の例のようにストローク ブラシの作成に固執する必要がありますか?

最小限のアプリケーションを含めました：

main.pas

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.
4

2 に答える 2

6

以前のバージョンの Delphi では、プラットフォームに応じてStroke.Kindのデフォルト値が異なっていました。

Delphi 10.1 Berlin 以降、デフォルト値はNoneすべてのプラットフォーム向けのようです。（ありがとう@TomBrunberg）

線を表示するには、設定しますStroke.Kind := TBrushKind.Solid;

注: Windows 8.1 でテスト済み

新しい Metropolis FMX アプリケーションも作成しましたStroke.Kind。それを説明することはできませんが。

同様のレポートが QP に提出されました。RSP-16313 The Canvas.DrawLine does not work at Windows XP (32 bit) forms . ここで問題は Windows-XP で発生しますが、Windows-7 では発生しません。

于 2016-11-18T20:59:52.810 に答える
2

最初のケースが仕事であることは非常に奇妙です。

ストローク ブラシを使用する必要があります。

また、BeginUpdate と EndUpdate の代わりに BeginScene と EndScene を使用する必要があります。このフラグメントは完璧に機能します:

  Brush := TStrokeBrush.Create(TBrushKind.Solid, TAlphaColors.Black);
  Brush.Thickness := 2;
  with Canvas do
  begin
    BeginScene();
    DrawLine(PointF(10, 10), PointF(100, 10), 1, Brush);
    EndScene;
  end;
于 2016-11-20T17:55:13.813 に答える