W Delphi można przeprowadzić taką operację w bardzo prosty sposób. Dostajemy bowiem razem z pakietem sporo zdefiniowanych styli wizualnych oraz edytor styli (raczej dla mających dużo czasu
). Tutaj jednak skupimy się na użyciu styli jakie były dostarczone razem z kompilatorem.Aby w naszej aplikacji możliwe było użycie zdefiniowanych styli należy kompilatorowi na początku je wskazać.
Po utworzeniu nowej aplikacji (Windows VCL Application) wchodzimy do menu Project -> Options
We wskazanej opcji zaznaczamy style jakie mają być dostępne dla naszej aplikacji.
Na samym dole ustawiamy styl domyślny.
A teraz spróbujmy użyć tych stylów w naszej aplikacji.
Do testów potrzebujemy domyślnej formatki okienka i jednego obiektu ComboBox.
Pozostałe obiekty dodałem dla testów wizualnych i nie są do niczego wykorzystywane.
Pozostaje nam dopisać trochę kodu do dwóch zdarzeń.
1. Na Form1 zdarzenie OnCreate
[syntax=delphi]procedure TForm1.FormCreate(Sender: TObject);
var
StyleName: string;
begin
{ pobieramy dostępne style i wypełniamy listę w ComboBox }
for StyleName in TStyleManager.StyleNames do
ComboBox1.Items.Add(StyleName);
{ ustawiamy na liście styl wybrany jako domyślny }
ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(TStyleManager.ActiveStyle.Name);
end;[/syntax]
2. Na obiekcie ComboBox ustawiamy zdarzenie OnChange
[syntax=delphi]procedure TForm1.ComboBox1Change(Sender: TObject);
begin
{ ustawiamy styl wybrany z listy }
TStyleManager.SetStyle(ComboBox1.Text);
end;[/syntax]
A tak powinien wyglądać cały kod modułu
Proszę zwrócić uwagę na linię 30.
[syntax=delphi]unit Test1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Button1: TButton;
RadioButton1: TRadioButton;
Edit1: TEdit;
procedure ComboBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ UWAGA: Poniższe dwie linie trzeba dopisać ręcznie }
uses
Vcl.Themes;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
TStyleManager.SetStyle(ComboBox1.Text);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
StyleName: string;
begin
for StyleName in TStyleManager.StyleNames do
ComboBox1.Items.Add(StyleName);
ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(TStyleManager.ActiveStyle.Name);
end;
end.[/syntax]
Teoretycznie powinno wszystko działać. Program się kompiluje i nie działa prawidłowo.
I tu na chwilę się zatrzymałem...
Okazało się że trzeba zrobić jeszcze jedną rzecz. Wchodzimy w Project -> View Source
I dopisujemy jedną linijkę - linia 5 - dołączamy moduły "Vcl.Themes, Vcl.Styles,".
[syntax=delphi]program Test1Proj;
uses
Vcl.Forms,
Vcl.Themes, Vcl.Styles,
Test1 in 'Test1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.[/syntax]
W przykładzie pominąłem ładowanie stylów z pliku, zapamiętywanie ustawień aplikacji, itp.
Chciałem tylko pokazać jak można w prosty sposób zmienić sobie wizualny wygląd aplikacji przy wykorzystaniu dostarczonych z kompilatorem stylów.
A poniżej kilka przykładów z działania.
Wszystkie zrzuty ekranu pochodzą z komputera z Windows 7.
Styl domyślny aplikacji.
I wybrane inne style..
Do kodowania wykorzystano Delphi 10.3 Community Edition
Statystyki: Napisane przez Jarcio — 6 cze 2020, o 09:09
]]>