dessin sur un panel

Question

Bonjour,

Je cherche à écrire du texte ou dessiner sur un panel, 
je remercie d'avance ceux qui auront la gentillesse de m'initier.

à bientôt 
claude

DRJEROME · Answer

var
   Canv: TCanvas;
   Bitmap:TBitmap;
begin
     Canv:=TCanvas.Create;
     Canv.Handle:=GetDC(Panel1.Handle);
     Bitmap:=TBitmap.create;
     Bitmap.loadfromfile('C:\Tonchemin..Ton.bmp');
     Canv.Draw(0,0,bitmap);
     Canv.font.color:=clred;
     Canv.brush.Style:=BsClear;
     Canv.TextOut(20,20,'Un petit message');
     FreeAndNil(Canv); // ou "Canv.Free;" selon les versions de Delphi
end;


c'est un exemple...problème il faudrait le mettre dans l'événement ondraw du panel...Or, il n'y en a pas (il faut le créér)...ou alors écrire dans l'événement onpaint du form (pas terrible)

Sinon, il y a la solution de mettre une TImage sur ton panel et écrire sur son canvas de la même manière que je t'ai montré ci-dessus mais en utilisant directement le canvas du TImage

DrJerome ou JROD  ;)

clodth · Answer

Merci pour ton message,

J'ai en fait rajouter sur le panel un composant TPaint et
j'ai dessiné et écrit dans l'évènement onpaint du composant TPaint.

C'est une solution, elle n'est pas brillante et géniale mais c'est efficace.

Merci, encore (ton logo est très joli...)

Claude

DRJEROME · Answer

Merci, encore (ton logo est très joli...)

Merci, j'essaie de me mettre en valeur sur les photos...n'est-ce pas ? 

DrJerome

Dessin sur un panel

3 réponses

Votre réponse

Discussions similaires