salut tout le monde , la question est dans la titre comment fair pour dessiner sur un Tbutton vu que le Tbutton ne dispose pas de canvas ?
salut tout le monde , la question est dans la titre comment fair pour dessiner sur un Tbutton vu que le Tbutton ne dispose pas de canvas ?
Exemple avec un TBouton :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 var canvas: TCanvas; DC: HDC; begin canvas:= TCanvas.Create; DC:= GetDC(Button1.Handle); canvas.Handle:= DC; canvas.Pen.Color:= clNavy; canvas.Brush.Color:= clBlue; canvas.Rectangle(5, 5, 18, 18); canvas.Free; ReleaseDC(Button1.Handle, DC); end;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager