Český portál Delphi

VCL styly v Delphi XE2

Popis novinek v XE2 začneme něčím atraktivním. Styly.

Jednou z hlavních změn ve VCL (tedy kromě toho, že je i pro 64bitů) je podpora stylů. Hned na začátek je nutno poznamenat, že styly VCL a FireMonkey nejsou kompatibilní (u druhého je všechno vektorové).

Součástí instalace je i samostatný designer a tester stylů na uživatelské úrovni, takže je možno styly vytvářet i neprogramátory.

Volba stylu se dá jednoduše přes Option (nebo klasicky z kódu). Jednotlivé styly jsou uloženy v binárních souborech vsf upravovatelných pomocí designeru.

Výběrem stylu se DPR soubor lehce změní:

program Project4;

uses
  Vcl.Forms,
  Unit4 in 'Unit4.pas' {Form4},
  Vcl.Themes,
  Vcl.Styles;

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Emerald Light Slate');
  Application.CreateForm(TForm4, Form4);
  Application.Run;
end.

Nebo např.

procedure TForm2.FormCreate(Sender: TObject);
begin
  TStyleManager.SetStyle(TStyleManager.LoadFromFile('water.vsf'));
end;

Samozřejmě můžete používat styl ve Vašich komponentách (pokud to nebude uděláno VCL) - jednotky Vcl.Styles a hlavně Vcl.Themes.

Designer

Designer ("c:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\VclStyleDesigner.exe") je, jak už bylo řečeno, samostatná aplikace.

Výběrem elementu vlevo můžete vpravo upravovat jeho vlastnosti.

Např. po kliknutí na volbu "bitmap" lze specifikovat bitmapu. MOC se mi líbí, že vše může být (ale nemusí) v jedné bitmapě a jen se vybírají její části - viz. čárkovaný výběr.

Dodávané styly

Aqua Graphite

Aqua Light Slate

Emerald Light Slate

Golden Graphite

Ruby Graphite

Taky Vám to přijde jednoduché jako žebřík?

Pozn: různé rozšíření a opravy chyb jsou na theroadtodelphi.com/

Datum: 2011-09-01 21:12:00 Tagy: VCL, DelphiXE2

Novinky v Delphi