秋·風(fēng)

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;