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/
RSS