Discussion :

[cincap]

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:

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;

Même en utilisant l'Api avec OldBkMode := SetBkMode(Handle, TRANSPARENT);

Si quelqu'un avait une idée.

Merci d'avance,

@+,

Cincap

[ShaiLeTroll]

As-tu essayé de modifier les TextFlags du Canvas en retirant ETO_OPAQUE

Code :

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

1
2
if TextFlags and ETO_OPAQUE = ETO_OPAQUE then
  TextFlags := TextFlags - ETO_OPAQUE;

[cincap]

Bonsoir,

@ ShaiLeTroll, merci d'avoir répondu, si j'ai bien compris et si j'ai bien placé ton code dans mon code, cela ne fonctionne toujours pas, le fond du texte reste en solide sur l'image.

Peut être que c'est le format du bitmap ?

@+,

Cincap

[Archimède]

je pige pas, tu n'as pas fait avant ton textout un canvas.brush.style:=bsclear; ?
C'est ça ton problème ?

[cincap]

@ Archimède, j'avais aussi essayé ceci :

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 TForm1.Button3Click(Sender: TObject);
var
  OldBkMode: integer;
begin
  with Image1.Picture.Bitmap do
  begin
 
    Canvas.Brush.Style :=bsclear;
    Canvas.Brush.color:= clblack;
 
    OldBkMode         := SetBkMode(Canvas.Handle, Ord(TRANSPARENT));
 
    Canvas.Font.Size  := 8;
    Canvas.Font.Color := clyellow;
    Canvas.TextOut(5, 10, 'Transparent Text!!');
   SetBkMode(Canvas.Handle, OldBkMode);
  end;
 
 
end;

Avec ce code, mon fond noir est disparu ou fortement transparent.

J'aurai aimé d'avoir le fond de couleur noire qui laisse entrevoir le bitmap.

@+,

Cincap

[ShaiLeTroll]

Avec un BitMap temporaire et un BitBlt ou MaskBlt, tu dois pouvoir le faire ... pour le masque, il suffit de transmettre la même image que le texte à dessiner (en inverse peut-être ... je ne sais plus)