Bonjour à toutes et à tous,
Depuis un moment, j'essaye d'écrire un texte sur un bitmap avec le fond transparent, sans succès.
Voici mon code qui fonctionne avec le fond solide:
Même en utilisant l'Api avec OldBkMode := SetBkMode(Handle, TRANSPARENT);
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 procedure TDiaporama.Affiche(Ligne: Integer); var H,W:integer; begin with Image1.Picture.Bitmap do begin W:=Width; H:=Height; end; with Image1.Picture.Bitmap.Canvas do begin Brush.Style := bsSolid; Brush.Color := clBlack; Font.Size := 8; Rectangle(0, H-Ligne, W, H); Font.Color := cllime + $010000; // Ecriture opaque Font.Size := 8; TextOut(10, H-Ligne+2, ' Diaporama '); end;
Si quelqu'un avait une idée.
Merci d'avance,
@+,
Cincap
Partager