Discussion :

[Invité]

Bonjour,

je cherche à porter ce code qui normalement est compatible FMX

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
 sl: TStringList;
 pic: TBitmap;
begin
 pic := TBitmap.Create;
 pic.LoadFromFile(‘billgates.jpg’);
 sl := TStringList.Create;
 sl.AddObject(‘Photo=’,pic);
 sl.Add(‘Name=Bill Gates’);
 sl.Add(‘Street=Microsoft Way 1’);
 sl.Add(‘City=Redmond’);
 sl.Add(‘Country=USA’);
 TMSFMXRichEditor1.Merge(sl);
 sl.Free;
 pic.Free;
end;

Alors la création du TBitmap se passe mal. Par quelle astuce TMS peut-il écrire le code ci-dessus sans provoquer d'erreur ?

J'en suis là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
var
var
 sl: TStringList;
 pic: FMX.Graphics.TBitmap;
 aFileName : string;
begin
  afilename := 'xx.jpg';
  pic := FMX.Graphics.TBitmap.CreateFromFile(afilename);
end;

C'est nettement plus verbeux Je m'y prends mal ?

Enfin ceci dit, je veux placer mon image xx.jpg dans un conteneur quelconque de ma Form (TImage ?) et l'assigner à ce pic.
Cela devrait être simple... et je n'y arrive pas.

Quelqu'un peut-il m'aider ?
Merci.