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)

[cincap]

Bonjour,

@ ShaiLeTroll, d'après les recherches, cela est possible d'écrire du texte avec un fond de couleur transparent sur uniquement un bitmap.

De plus, la couleur "clblack" n'est pas un bon choix à préférer "clblue" pour le fond.

Malgré cela avec tous les essais, je reste au point de départ.

Je persiste.

@+,

Cincap

[ShaiLeTroll]

Tu devrais etudier le code d'un TLabel, il supporte la transparence très simplement ... dans Paint, si il est transparent, il ne fait pas de FillRect, essaye DrawText de l'API au lieu du TextOut ... sinon, la couleur de transparence, c'est souvent clFushia, c'est tellement flashy que cela ne peut servir qu'à ça (lol dans Dune 2000, les quelques ressources corrigées en BMP était de fond Fuschia)

[cincap]

En effet le résultat que j'aimerai obtenir est sur une image, inscrire un texte (date ect...) avec un fond bleu et qu'a travers le fond bleu on aperçoit toujours l'image un peu comme sur les logiciel de détection webcam ou l'heure et la date sont inscrites sur la capture.

Je ne vais pas trop me casser la tête.

@+,

Cincap

[cincap]

Bonjour à toutes et à tous,

En utilisant cette procédure, serait t'il possible de remplacer le textout par le caption d'un Tlabel qui gère la transparence de la couleur de son fond.

Si oui y a t'il quelqu'un pour m'aider.

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
22
23
 
procedure TDiaporama.AfficheHeure(Camera:integer;Ligne: Integer);
var H,W:integer;
begin
    Image1.Picture.Bitmap:=ScanBitmap[Camera];
   with Image1.Picture.Bitmap do
    begin
      W:=Width;
      H:=Height;
    end;
    with Image1.Picture.Bitmap.Canvas do
    begin
      Brush.Style := bsSolid;
      Brush.Color := clBlue;
      Font.Size := 8;
      Rectangle(0, H-Ligne, W, H);
      Font.Color := clYellow + $010000;   // Ecriture opaque
      Font.Size := 8;
 
TextOut(10, H-Ligne+2, ' Détection '+inttostr(Camera)+' à '+(FormatDateTime('hh',now))+'H' + (FormatDateTime('nn',now)) + '  le  ' + Jour[DayOfWeek(Now)] +' '+ DateToStr(Date)+ ' ');
 
  end;
end;

En vous remerciant d'avance,

Cincap

[ShaiLeTroll]

Tient, j'ai retrouvé mon code pour Horodaté une image (je l'ai fait aussi ) ...

Code :

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

1
2
ImageWithDate.Picture.Bitmap.Canvas.Brush.Style := bsClear;
ImageWithDate.Picture.Bitmap.Canvas.TextRect(Rect(10, 10, ImageWithDate.Width, ImageWithDate.Height), 10, 10, FormatDateTime('dd/mm/yyyy hh:nn', Now()));

Je t'ai conseiller d'étudier le code du TLabel, pour que tu utilise directement DrawText ou

Code :

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

1
2
3
4
ImageWithDate.Picture.Bitmap.Canvas.Brush.Style := bsClear;
     Text := FormatDateTime('dd/mm/yyyy hh:nn', Now());
     ARect := Rect(10, 10, ImageWithDate.Width, ImageWithDate.Height);
     DrawText(ImageWithDate.Picture.Bitmap.Canvas.Handle, PChar(Text), Length(Text), ARect, 0);

ou

Code :

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

1
2
3
4
ImageWithDate.Picture.Bitmap.Canvas.Brush.Style := bsClear;
     Text := FormatDateTime('dd/mm/yyyy hh:nn', Now());
     ARect := Rect(10, 10, ImageWithDate.Width, ImageWithDate.Height);
     Windows.ExtTextOut(ImageWithDate.Picture.Bitmap.Canvas.Handle, 10, 10, 0, @Rect, PChar(Text), Length(Text), nil);

mais sinon, un truc bizarre, c'est simplement qu'avec ceci c'est transparent ...

Code :

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

1
2
3
4
5
6
7
8
with Image1.Picture.Bitmap.Canvas do
begin
      Brush.Style := bsClear; // C'est ça ce qu'il faut !
      Font.Size := 8;
      Font.Color := clYellow;         
      TextOut(10, H-Ligne+2, ' Détection '+inttostr(Camera)+' à '+(FormatDateTime('hh',now))+'H' + (FormatDateTime('nn',now)) + '  le  ' + Jour[DayOfWeek(Now)] +' '+ DateToStr(Date)+ ' ');
 
end;

Rectangle, je l'avais pas vu celui-là, mais c'est lui qui efface et met du bleu partout non ?

[cincap]

Bonjour,

@ ShaiLeTroll, merci de ta réponse, mais je me suis peut être mal exprimé, en fait ton exemple empêche le fond de couleur du texte de s'afficher, ors ce fond de couleur doit s'afficher mais en translucide par exemple 60% que l'on voit toujours la photo derrière.

J'aurai du employer le terme Translucide plutôt que transparent.

Il y a des logiciels de surveillance qui affiche l'heure et la date sur la photo prise, le fond du texte est translucide.

Je ne pense pas que cela soit faisable sinon modifier une unité d'un Tlabel avec la propriété translucide.

Mais je suis débutant alors je cale.

@+,

Cincap

[sovitec]

Salut,

Pour faire des dessins translucide (on parle généralement de canal alpha) tu peux utiliser une bibliothèque graphique qui le gère, comme GDI+, GR32 ou AGGPAS.

[cincap]

Merci Sovitec, je vais me contenter d'un fond de couleur solide ou utiliser l'unité d'un Tlabel qui gère la propriété translucide.

Merci à tous,

Cincap

[ShaiLeTroll]

Translucide c'est facile à faire !

Tu copie le rectangle de l'image concerné dans un Bitmap temporaire, tu lit pixel par pixel (ou scanline), et tu applique au point ceci

Code :

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

1
2
3
4
5
6
type
  TByteColor = record
    case integer of
      1: (cR, cV, cB, cS: Byte;);
      2: (Color: TColor;);
  end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  ImgBC: TByteColor;
  BackBC: TByteColor;
begin
  ...
      ImgBC.Color := Canvas.Pixels[X, Y];
      BackBC.Color := clBlue; 
 
      ImgBC.cR := ImgBC.cR * 0.4 + BackBC.cR * 0.6 ;
      ImgBC.cV := ImgBC.cV * 0.4 + BackBC.cV  * 0.6 ;
      ImgBC.cB := ImgBC.cB * 0.4 + BackBC.cB * 0.6 ;
 
      Canvas.Pixels[X, Y] := ImgBC.Color;

Bon, c'est un calcul bidon, mais tu devrais trouver le bon sur le net

Donc, tu obtiens un carré avec un image bleuie, tu dessine ton texte transparent dessus ... et tu remets le tout sur l'image originale ...

[cincap]

Hello ShaiLeTroll, n'oublies pas que je suis le débutant, de plus l'adapter au code de mon premier topic, c'est une autre affaire.

Enfin merci encore de ton temps à aider les autres, ce message est pour tous les membres bien entendu.

Je pense que je n'y arriverai pas.

@+,

Cincap

[LadyWasky]

Et elle marche pas cette FAQ ? (comme j'ai pas mon Delphi sous la main, je ne peux pas tester...)
http://delphi.developpez.com/faq/?pa...ilignewordwrap

Celle là aussi peut t'aider :
http://delphi.developpez.com/faq/?pa...scontourstexte


bon dev

[ShaiLeTroll]

En fait, ce n'est pas de la transparence qu'il souhaite mais un effet translucide genre les barres de titres de Vista ...

[LadyWasky]

Une sorte de Look "Aero" donc... du semi transparent en somme...

Oui, hé bien je ferais comme ShaillLeTroll
y'a pas plus simple que ce qu'il a exposé là...
(je compatis )

[cincap]

Bonsoir à toutes et à tous,

@ Waskol, en fait c'est appliquer en couleur translucide la date et l'heure sur un bitmap comme prévu sur des projets de détection par webcam et d'adapter ce code sur le code de mon 1er topic.

J'ai beau essayer, je n'y arrive pas sauf à avoir un fond de couleur plein.

Par contre, j'ai une procédure pour un Tlabel qui permet l'opacité de 0 à 100% mais il faudrait adapter "label1.caption" à la place de "textout()" au code de mon 1er topic et la aussi je cale.

Je vais donc cloturer ce topic,

Merci à tous,

Cincap