delphi - 在运行时在一条线上可视化渐变
问题描述
我试图在运行时创建一个 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.
解决方案
推荐阅读
- git - 排除 gitignore 中的某些子文件夹以外的所有内容无法正常工作
- vb.net - 如何向从我的应用程序启动的正在运行的 cmd 应用程序发送命令?
- c# - Unity NullReferenceException -> 不明白为什么
- php - symfony 3 以编辑形式上传文件
- r - dplyr,汇总分类变量
- python - python图像序列文件模式正则表达式
- javascript - 试图测试输入更改方法,但它似乎不起作用
- android - 布局背景弄乱了边距
- sql - 使用变量作为 column%TYPE (ORACLE)
- android - Android Studio 错误无法解析“setJavaScriptEnabled”