>

런타임에 Tline Shape를 만들고 성공하지 않고 그라디언트를 할당하려고합니다. 원이나 사각형과 같은 다른 모양을 만들 때 아무런 문제가 없습니다.

참고 : 디자인 타임에 Tline 모양은 그라데이션을 수행합니다. 도쿄 버전 10.2를 사용하고 있습니다

unit Unit1;
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
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.FormCreate (Sender: TObject);
var
  DLine     : TLine;
begin
  DLine := Tline.Create (nil);
  DLine.Position.x := 100;
  DLine.Position.y := 100;
  DLine.Height := 300;
  DLine.LineType := TLineType.Left;
  DLine.Stroke.Thickness := 3;
  DLine.Fill.Gradient.Color :=   $FF0000FF; // Blue
  DLine.Fill.Gradient.Color1 :=  $FFFF7F50; // Coral
  DLine.Fill.Kind := TBrushKind.Gradient;
  DLine.Fill.Gradient.Style := TGradientStyle.Linear;
  DLine.Parent := Form1;
end;
end.

  • 답변 # 1

    DLine.Fill 대신 DLine.Stroke를 사용하십시오

     ...   
      DLine.Stroke.Thickness := 3;
      DLine.Stroke.Gradient.Color :=   $FF0000FF; // Blue
      DLine.Stroke.Gradient.Color1 :=  $FFFF7F50; // Coral
      DLine.Stroke.Kind := TBrushKind.Gradient;
      DLine.Stroke.Gradient.Style := TGradientStyle.Linear;
      ...  
    
    

  • 이전 reactjs - 기본 부정확 한 장치 너비 나누기 질문에 대응
  • 다음 serialization - 예외를 발생시키는 JSON을 C # 객체로 직렬화 해제