Afficher du texte en transparent sur une Timage

procedure TForm1.Button1Click(Sender: TObject);
var
OldBkMode : integer;
begin
With Image1.Picture.Bitmap do
begin
Canvas.Font.Color := clBlue;
OldBkMode := SetBkMode(Canvas.Handle,Ord(TRANSPARENT));
Canvas.Font.Size := 13;
Canvas.TextOut(10, 10, 'Transparent Text!!');
SetBkMode(Canvas.Handle,OldBkMode);
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour24/01/2002
VisualisationVu 2731 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Graphisme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur