Discussion :

[fatdarron]

Bonjour à tous,

Comme le titre ne l'indique pas, je me casse la tête sur un petit problème. Je sais mettre une image dans une cellule de stringgrid, je sais écrire du texte dans la cellule (à droite, gauche, haut... de l'image) mais je n'arrive pas à afficher correctement le texte sur l'image (il y à moyen mais dans ce cas la le texte perd sa transparence et le résultat pique les yeux).

Si quelqu'un a résolu le problème ou à quelques infos à me passer (et 3 minutes à perdre) je prends !

Merci

[ShaiLeTroll]

Essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        with Bitmap.Canvas do // Bitmap un TBitmap
        begin
          Brush.Style = bsClear; // Tout est là !
          Font.Color = clRed;
          Font.Size = 20;
          Font.Name = 'Comic Sans MS';
          Font.Style = [fsBold, fsUnderline];
          TextOut(100, 100, 'Texte Normal');
 
          SetTextCharacterExtra(Handle, 10);
          TextOut(100, 125, 'Texte Espacé');
        end;

Ecrire un texte sur un bitmap avec fond transparent

[fatdarron]

Merci pour ta réponse,

Le fait que ca se passe dans l'évent drawCell m'a perturbé

Voila le code utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With Sender As TStringGrid Do With Canvas Do
begin
Brush.Style := bsClear;
Imagelist1.draw(StringGrid1.Canvas, rect.left-1, rect.top +1, 0);
DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, Rect, DT_LEFT);
end;

Bonne continuation