lazarus自定义QT5样式

最近在测试Qt5样式的使用方法。
用QApplication_setStyleSheet设置想要的样式（我也只会简单的）

procedure TForm1.Button2Click(Sender: TObject);
var
  s:PWideString;
begin
  new(s);
  s^:='QPushButton { background-color: blue; color: white; } '+
      'QProgressBar::chunk {background-color: qlineargradient(x1:0, y1:0, x2:1, y2:0, stop:0 #FF0000, stop:1 #00FF00); }'+
      'QLineEdit  { background: gray; color: white; } '+
      'QMainWindow  { background-color: gray; color: white; } ';
  QApplication_setStyleSheet(QApplicationH(self),s);
  Dispose(s);
end;

LCL控件与Qt5名称对比表：

LCL 控件	Qt5 控件类型 (QSS 选择器)	说明/示例样式
TButton	QPushButton	标准按钮
TCheckBox	QCheckBox	复选框
TRadioButton	QRadioButton	单选按钮
TEdit	QLineEdit	单行文本框
TMemo	QTextEdit	多行文本框
TComboBox	QComboBox	下拉框
TListBox	QListWidget	列表框
TTreeView	QTreeView	树形视图
TProgressBar	QProgressBar	进度条
TTrackBar	QSlider	滑块控件
TScrollBar	QScrollBar	滚动条
TLabel	QLabel	标签文本
TPanel	QFrame	面板容器
TGroupBox	QGroupBox	分组框
TTabControl	QTabWidget	标签页控件
TPageControl	QTabWidget	分页控件
TStatusBar	QStatusBar	状态栏
TToolBar	QToolBar	工具栏
TMenu	QMenu	菜单
TMainMenu	QMenuBar	主菜单栏

 使用自定义样式：