FMX.Controls.TStyleCollectionItem.LoadFromStream
Delphi
procedure LoadFromStream(const Stream: TStream);
C++
void __fastcall LoadFromStream(System::Classes::TStream* const Stream);
Propriétés
Type | Visibilité | Source | Unité | Parent |
---|---|---|---|---|
procedure function |
public | FMX.Controls.pas FMX.Controls.hpp |
FMX.Controls | TStyleCollectionItem |
Description
Méthode permettant de charger un style dans un élément de la collection, depuis un flux.
Pour charger le style depuis un fichier, utilisez la méthode LoadFromFile.
Sélectionnez le chemin d'accès complet au fichier ou le nom du fichier quand celui-ci est situé dans le dossier projet.
procedure TForm1.FormCreate(Sender: TObject);
var
S: TFileStream;
begin
S:= TFileStream.Create('Air.Style',fmOpenRead);
StyleBook1.Styles.Add.DefaultItem; //Adds an item to the collection.
StyleBook1.Styles.Add.Platform := 'Windows'; //Adds an item as a Windows platform.
Stylebook1.Styles.Items[1].LoadFromStream(S); //Loads the style to the item from the stream var.
if Stylebook1.Styles.Items[1].IsEmpty then
ShowMessage('The style 1 is emprty')
else
Stylebook1.CurrentItemIndex := 1; //Sets item 1 as current value.
Form2.StyleBook := Stylebook1; //Applies the style from the item 1 to the form.
ShowMessage('The style 1 is not empty');
ShowMessage('Style loaded for platform:' + Stylebook1.Styles.Items[1].platform);
end;
Tous les noms de plates-formes existent dans le tableau PlatformNames.