Wie eine Linie in Delphi auf einer FMX Leinwand zeichnen

Question

Dies ist mit Delphi Berlin 10.1 Update 2

Folgenden Werken (erhalte ich eine Linie gezeichnet):

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; 

Die folgenden nicht funktioniert:

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

Warum kann ich nicht die zweite verwenden? Wie kann ich es zum Laufen bringen, oder sollte ich wie im ersten Beispiel einen Strichpinsel erstellen?

Ich habe eine minimale Anwendung enthalten:

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. 

Answer 1

Frühere Versionen von Delphi hatten verschiedene Standardwerte für r Stroke.Kind je nach Plattform.

Seit Delphi 10.1 Berlin scheint der Standardwert None für alle Plattformen zu sein. (Danke @TomBrunberg)

Um die Linie erscheinen, setzen Stroke.Kind := TBrushKind.Solid;

Hinweis: Getestet unter Windows 8,1

---

habe ich eine neue Metropole FMX-Anwendung als auch, wo die Zeichnung gearbeitet ohne die Stroke.Kind einzustellen. Kann das aber nicht erklären.

---

Ein ähnlicher Bericht wurde bei QP, RSP-16313 The Canvas.DrawLine doesn't work at Windows XP (32 bit) forms eingereicht. Hier manifestiert sich das Problem unter Windows-XP, aber nicht unter Windows-7.

Answer 2

ist es sehr seltsam, dass der erste Fall Arbeit ist.

Sie sollten Strichbürste verwenden.

Und Sie sollten BeginScene und Endscene anstelle von BeginUpdate und EndUpdate verwenden. Dieses Fragment funktioniert perfekt:

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;