Discussion :

[jfrTchaux]

Bonjour à tous,

Je souhaite utilisé le composant TShape pour faire divers projets.
J'ai cherché des informations sur ce composant sur Internet, hélas je n'ai pas trouvé grand chose. Je simplement trouvé des exemples non explicatif.

Est-ce qu'il existe un document expliquant le fonctionne et l'utilisation de ce composant ?

Parceque j'aimerais plus précisément, déssinez dans un TShape l'image correspondant à un TImage. Auriez-vous un piste ?

Je vous remercie d'avance pour vos réponse.

Salutations !

[Andnotor]

TShape est un composant utilisé pour dessiner des formes prédéfinies. Pour dessiner toi-même, utilise un TPaintBox.

[jfrTchaux]

Ok, très bien ... Merci pour l'info !

Maintenant, avec ce composant je pourrai faire ce que je souhaite ? C'est-à-dir, dessiner mon Timage dans mon TpaintBox ?

[jfrTchaux]

J'ai réaliser ce code.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.PaintBox1Paint (Sender: TObject);
var
  bit: TBitmap;
begin
  bit := TBitmap.Create();
  bit.LoadFromFile('C:\image1.bmp');
  PaintBox1.Canvas.Draw(0,0,bit);
  FreeAndNil(bit);
end;

Hélas il ne fonctionne pas comme il faut. Avez-vous une idée ?

[Andnotor]

Hélas il ne fonctionne pas comme il faut.

C'est à dire ?

[jfrTchaux]

Il affiche rien.

Mais j'ai trouvé mon erreur, ca fonctionne maintenant. J'ai un peu honte

Le code ci-dessus, fonctionne très bien. Il suffit de ne pas oublier de l'asigner à l'événement "OnPaint" du PaintBox.

Je sais ... Je sors ...




Merci beaucoup pour les infos Andnotor.