Dessin dans TImage sans LoadFromFile ? Résolu

Question

Bonjour à tous

J'ai 2 petites questions concernant le composant TImage

1/ Peut-on dessiner dans un composant TImage sans faire un LoadFromFile avec une image valide avant ?

2/ Comment savoir si l'état du TImage permet de dessiner sans provoquer d'erreur ?

D'avance merci pour vos réponses

PS: je travaille en c++ builder mais votre forum est une véritable "manne", car ces 2 environnements sont trés proches et j'y trouve souvent des codes facilement transposables

Cirec · Accepted Answer

si elle est très facile 
mais ici c'est pas le service public ... pas de service minimum 

pour ton problème voici un exemple qui devrait t'éclairer:

Procedure Tfrm_Main.FormCreate(Sender: 
TObject); 
Var aBMP: TBitmap; 
Begin 
  {on crée un 
Bitmap}
  aBMP :=   TBitmap.Create; 
  Try 
    {on lui donne la 
taille du TImage}
    aBMP.Width := Image1.Width; 

    aBMP.Height := Image1.Height; 
    {et on 
l'assigne au TImage} 
    Image1.Picture.Assign(aBMP); 
  Finally 
    {et on le 
libère de suite}
    aBMP.Free; 
   End ; 

End; 

Procedure 
Tfrm_Main.btn_DrawClick(Sender: TObject); 
Begin 
  {on teste si on 
peut dessiner dans le TImage}
  If 
(Image1.Picture.Graphic Is TBitmap) 
Then 
  Begin 
     {et on dessine} 
    Image1.Canvas.Brush.Color :  = 
clBlue; 
    Image1.Canvas.FillRect(Rect(0,0,200,200)); 
  End; 

End; 

 
@+
Cirec

<hr siz="" />

steph12358 · Answer

Et bien !

moi qui pensais poser une question facile

steph12358 · Answer

Salut Cirec

Génial ! Avec ça je suis sorti d'affaire. Si tu savais depuis le temps que je cherche cette solution...

Merci encore et bon week-end !

Dessin dans TImage sans LoadFromFile ?

3 réponses

Votre réponse

Discussions similaires