Discussion :

[Pocus]

Bonjour,

J'ai suivi de prés un des exemples de base de l'aide Firemonkey, mais je n'ai aucun affichage d'image dans mon cas. Quelqu'un a une idée?

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
17
18
19
20
21
22
procedure TForm2.Button1Click(Sender: TObject);
var SrcRect, DstRect : TRectF;
begin
  SrcRect := TRectF.Create(0, 0, Bitmap.Width, Bitmap.Height);
  DstRect := TRectF.Create(0, 0, Bitmap.Width div 2, Bitmap.Height div 2);
  Image1.Bitmap.Canvas.DrawBitmap(Bitmap, SrcRect, DstRect, 150);
  Image1.Bitmap.BitmapChanged;
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  Image1.Bitmap.Create(400, 400);
  Image1.Bitmap.Clear(clawhite);
 
  Bitmap := TBitmap.Create(250, 250);
  Bitmap.LoadFromFile('candle.png');
end;
 
procedure TForm2.FormDestroy(Sender: TObject);
begin
  Bitmap.Free;
end;

[tourlourou]

juste un souvenir : ça ne serait pas plutôt ce style de code ?

Code :

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

Image1.Picture.Graphic:=TBitmap.Create

[Pocus]

Pas dans ce cas, c'est spécifique à Firemonkey. Image1 est un compo déjà créé sur la fiche, je n'ai fais que reprendre le code exemple:

http://docwiki.embarcadero.com/CodeE...s_%28Delphi%29

[Paul TOTH]

le Image1.Bitmap.Create(100,100) est ok, c'est juste un appel au constructor d'un objet créé pour le réinitialiser

Par contre je ne sais pas où sont définis les clXXX, ceux de Vcl.Graphics ne sont pas bon, le canal alpha est à 0 et le résultat est transparent

utilise $FF0000FF pour bleu par exemple

EDIT:
oups je n'avais pas vu que tu utilisais claWhite

[Pocus]

ce n'est pas le soucis, vu que sans initialiser en blanc, je n'ai toujours pas d'affichage.

L'équivalent des cl etc. de la VCL mais en firemonkey commence par cla etc.

D'ailleurs, petite note pas trés rassurante, l'exemple officiel d'Embarcadero (que je donne en lien) ne peut compiler, car justement il est fait mention de clwhite dans l'exemple, alors qu'il faut utiliser clawhite (a = alpha bien sur!), ca ne fait pas trés sérieux...

Ce qui ne fait pas trés sérieux est également le fait de la disette en information sur Firemonkey... Embarcardero sort un nouveau Delphi, avec en gros feature Firemonkey, mais l'aide en ligne est trés incomplète (avec des phrases 'il n'y a pas d'infos supps sur ce sujet) quand vous regardez les fonctions et membres des compo Firemonkey! Cette indigence est d'ailleurs je trouve assez incompréhensible sur la version trial... ca ne donne pas une bonne image du produit, et puis... les ptits gars qui ont passés des milliers d'heures à créer Firemonkey, ils ne pouvaient pas en mettre 50 de plus pour un manuel super complet?

[Thierry Laborde]

Bonjour,

Voila le code qui fonctionne :

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
17
18
19
20
21
22
23
24
procedure TForm2.Button1Click(Sender: TObject);
var SrcRect, DstRect : TRectF;
begin
  SrcRect := TRectF.Create(0, 0, Bitmap.Width, Bitmap.Height);
  DstRect := TRectF.Create(0, 0, Bitmap.Width div 2, Bitmap.Height div 2);
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.DrawBitmap(Bitmap, SrcRect, DstRect, 150);
  Image1.Bitmap.Canvas.EndScene;
  Image1.Bitmap.BitmapChanged;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Image1.Bitmap.Create(400, 400);
  Image1.Bitmap.Clear(clawhite);

  Bitmap := TBitmap.Create(250, 250);
  Bitmap.LoadFromFile('candle.png');
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  Bitmap.Free;
end;

[Pocus]

Oui en effet, cela tourne ainsi, grand merci!

Le code exemple fourni ici
http://docwiki.embarcadero.com/CodeE...s_%28Delphi%29

est il exact du coup?

Avez vous connaissance d'un manuel détailé autre que

http://docwiki.embarcadero.com/RADSt...ation_Platform

(qui n'est pas assez détaillé à mon gout)

pour développer en FireMonkey?

[Thierry Laborde]

Le code exemple fourni ici
http://docwiki.embarcadero.com/CodeE...s_%28Delphi%29

est il exact du coup?

En effet il n'est pas correct. Car il est basé sur une version de Firemonkey qui n'est plus d'actualité. Cela avait été précisé mais la page n'a pas dut être mise à jour.

Avez vous connaissance d'un manuel détailé autre que

http://docwiki.embarcadero.com/RADSt...ation_Platform

(qui n'est pas assez détaillé à mon gout)

pour développer en FireMonkey?

Différents documents sont en cours d'écriture. J'espère que cela ne va pas trop tarder.