Het is erg simpel om styles te gebruiken bij een VCL programma. Begin een nieuw project en zet wat componenten op een form.
Afbeelding 1: Form in design view.
Ga vervolgens naar de projectoptions (Project -> Options...) en kies daar Appearance:
Afbeelding 2: Project Options Dialoog.
Zet een vinkje bij bijvoorbeeld Iceberg Classico om als default style te fungeren. Druk op Save en run het programma voor het resultaat.
Afbeelding 3: Gestylde form.
Open Project->Options... opnieuw. Zet vinkjes bij een aantal andere styles. En druk weer op Save.
Afbeelding 4: Project Options Dialoog met meerdere styles gekozen.
Voeg onder Private in het interface gedeelte in, zodat de form class er als volgt uitziet:
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
CheckBox1: TCheckBox;
RadioButton1: TRadioButton;
Button1: TButton;
ListBox1: TListBox;
Button2: TButton;
BitBtn1: TBitBtn;
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure StylesListRefresh;
public
{ Public declarations }
end;
en druk op Ctrl+Shift+c om het geraamte van de procedure te maken.Ga vervolgens naar de OnCreate van de form en vul die als volgt in en maak de procedure StylesListRefresh af:
procedure TForm1.FormCreate(Sender: TObject);
begin
StylesListRefresh;
end;
procedure TForm1.StylesListRefresh;
var
stylename: string;
begin
ListBox1.Clear;
// retrieve all the styles linked in the executable
for stylename in TStyleManager.StyleNames do
begin
ListBox1.Items.Add(stylename);
end;
end;
Klik op Button2 en verander in de Oject Inspector de Caption in Kies style en de Name in btnKies. Klik dubbel op de knop om het click event te maken en vul het als volgt in:
procedure TForm1.btnKiesClick(Sender: TObject);
begin
TStyleManager.SetStyle(ListBox1.Items[ListBox1.ItemIndex]);
end;
Run het programma voor het resultaat:
Afbeelding 5: Form met Wedgewood Light als style gekozen.
Afbeelding 6: Aqua Graphite gekozen.
Zo eenvoudig werken styles bij VCL programma's. Source onder Downloads beschikbaar: VCLStylesDemo.zip
Artikel geschreven aan de hand van eerste hoofdstuk uit het boek Delphi Cookbook van Packt publishing.
©2022 Don Wilbrink.
E-mail: d.wilbrink@freedom.nl
