Discussion :

[Jipété]

Bonsoir,

Y avait longtemps...

J'ai cru devenir fou cet aprème : une petite fonction qui mixe deux fichiers bitmap en un seul, qui fonctionne très bien en test et qui se vautre complètement une fois copiée/collée dans un gros projet, sans lui changer une virgule !
Des heures que je suis dessus...

• En test j'ouvre deux fichiers bitmap avec LoadFromFile, et je les passe à la fonction, le résultat est impec, il n'y a vraiment rien à dire.
• En prod je remplis mes deux bitmaps par code (voir + bas), l'un avec une couleur unie, l'autre avec du texte et je me retrouve avec les traits verticaux caractéristiques des problèmes de scanline (oui, la fonction l'utilise pour combiner les deux bitmaps).

Ça c'est parfait :

Code :

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

1
2
3
4
5
6
  Bmp4Text.LoadFromFile(PChar(ExtractFilePath(Application.ExeName)) + 'Text.bmp');
  Bmp4Fond.LoadFromFile(PChar(ExtractFilePath(Application.ExeName)) + 'Fond.bmp');
  //WriteTextOnBitmap; // travaille avec Bmp4Text
  //DrawColorOnBitmap; // travaille avec Bmp4Fond -- fond bleu au lancement
  MixBmp := CombineBitmaps(Bmp4Text, Bmp4Fond);
  img4Affichage.Canvas.Draw(0, 0, MixBmp);

Et ça c'est la cata :

Code :

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

1
2
3
4
5
6
  //Bmp4Text.LoadFromFile(PChar(ExtractFilePath(Application.ExeName)) + 'Text.bmp');
  //Bmp4Fond.LoadFromFile(PChar(ExtractFilePath(Application.ExeName)) + 'Fond.bmp');
  WriteTextOnBitmap; // travaille avec Bmp4Text
  DrawColorOnBitmap; // travaille avec Bmp4Fond -- fond bleu au lancement
  MixBmp := CombineBitmaps(Bmp4Text, Bmp4Fond);
  img4Affichage.Canvas.Draw(0, 0, MixBmp);

Résultats (image réduite de moitié) :


Je précise à tout hasard que la création des 2 bitmaps inclut la séquence PixelFormat := pf24bit;, et que Width et Height sont forcés aux valeurs du TImage d'affichage.

Le remplissage des bitmaps :
pour la couleur unie :

Code :

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

1
2
3
4
  with Bmp4Fond.Canvas do begin
    Brush.Color := DirectColor; // un truc à moi, qui peut varier
    FillRect(ClipRect);
  end;

C'est tout ! Et pour le texte :

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
  Bmp4Text.Height := Bmp4Fond.Height;
  Bmp4Text.Width  := Bmp4Fond.Width;
  with Bmp4Text.Canvas do begin
    Brush.Color := clWhite; // fond blanc
    FillRect(ClipRect);
    with Font do begin
      Name   := FontName;
      Size   := FontSize;
      Style  := FontStyle;
      Color  := AlternColor; // un truc à moi, qui peut varier
    end;
  end;
  with Bmp4Text.Canvas do TextOut(
    10, // pas complètement collé à gauche
    (Bmp4Fond.Height - Bmp4Text.Canvas.TextHeight('Hp')) div 2, // au milieu
    ledSaisieTexte4Contrast.Text);

Comment me sortir de ce pétrin à part en enregistrant WriteText et DrawColor pour ensuite les recharger ?

[supersnail]

Bonjour,

Serait-il possible de voir le code de CombineBitmaps ?

[tourlourou]

Que donne l'affichage dans des TImage de ces Bitmaps ainsi produits ?

[Jipété]

Bonjour,

Serait-il possible de voir le code de CombineBitmaps ?

Mais bien sûr :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
function TfrmContrast.CombineBitmaps(aTextBmp, aFondBmp: TBitmap): TBitmap;
const
  Seuil = 96; // au plus on va vers zéro au plus le texte est pur
  // mais ne pas descendre trop bas non plus, car ça devient moche -- 96 ça a l'air bien
var
  CT    : pRGBTripleArray;  // Couleur pixel Texte
  CF    : pRGBTripleArray;  // Couleur pixel Fond
  x, y  : integer;
  MaxX, MaxY : integer;
begin
  //Force les images en 24 bits // vient de Delphi
  // pas sûr qu'en Lazarus/Gtk2 il n'y ait pas des blagues...
  aTextBmp.PixelFormat := pf24bit;
  aFondBmp.PixelFormat := pf24bit;
 
  Result := TBitmap.Create; //Crée l'image résultante
  Result.Assign(aFondBmp); //Assigne l'image de fond à l'image résultante
 
  //Boucle maximum sur les plus petites Largeur/Hauteur
  MaxX := Min(aTextBmp.Width,  aFondBmp.Width);
  MaxY := Min(aTextBmp.Height, aFondBmp.Height);
 
  aTextBmp.BeginUpdate();
  Result.BeginUpdate();
  for y := 0 to MaxY-1 do begin // parcourir les lignes une par une
    CT := pRGBTripleArray(aTextBmp.RawImage.GetLineStart(y));
    CF := pRGBTripleArray(Result.RawImage.GetLineStart(y));
    for x := 0 to MaxX-1 do begin // parcourir les pixels de la ligne en cours, un par un
      // si pixel différent de blanc, remplace fond par texte
      //if ((CT[x].rgbtRed < 255) and (CT[x].rgbtGreen < 255) and (CT[x].rgbtBlue < 255)) then begin
      // ligne dessus ne fonctionne pas bien, celle dessous avec les "or" fonctionne bien, bizarre
      if ((CT[x].rgbtRed   < Seuil)
      or  (CT[x].rgbtGreen < Seuil)
      or  (CT[x].rgbtBlue  < Seuil)) then
      begin
        CF[x].rgbtRed   := CT[x].rgbtRed;
        CF[x].rgbtGreen := CT[x].rgbtGreen;
        CF[x].rgbtBlue  := CT[x].rgbtBlue;
      end;
    end;
  end;
  aTextBmp.EndUpdate();
  Result.EndUpdate();
end;

Ce truc vient de cette discussion, un peu adapté : http://www.developpez.net/forums/d66...t-bmp-jpg-png/

Que donne l'affichage dans des TImage de ces Bitmaps ainsi produits ?

Que du bon : je ne te donne que le bmp4Text (parce qu'il y a du texte, même s'il est jaune sur blanc donc pas très lisible), le bmp4Fond est un bête rectangle bleu Navy :


EDIT :

Bon, pour que ça fonctionne, je fais ainsi, avec 2 TMemoryStream :

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
var
  MixBmp: TBitmap;
  msF, msT: TMemoryStream;
begin
  msF:= TMemoryStream.Create;
  msT:= TMemoryStream.Create;
  WriteTextOnBitmap; // travaille avec Bmp4Text
  DrawColorOnBitmap; // travaille avec Bmp4Fond -- fond bleu au lancement
  Bmp4Text.SaveToStream(msT);
  Bmp4Fond.SaveToStream(msF);
  msT.Position:=0; msF.Position:=0;
  Bmp4Text.LoadFromStream(msT, msT.Size);
  Bmp4Fond.LoadFromStream(msF, msF.Size);
  MixBmp := CombineBitmaps(Bmp4Text, Bmp4Fond);
  img4Contrast.Canvas.Draw(0, 0, MixBmp);

Pourquoi faire simple quand on peut faire compliqué, hein, c'est bien connu

[BeanzMaster]

Salut, bizarre ton truc on dirait que ton bitmap de sortie est à pixelformat := pf32bits Cela pourrai expliquer ton soucis. Essayes de le forcer à 24bits.
ou sinon je pensais au padding de fin de ligne des Bitmaps passé en entrés (mais c'est pas ça à mon avis).

//if ((CT[x].rgbtRed < 255) and (CT[x].rgbtGreen < 255) and (CT[x].rgbtBlue < 255)) then begin
// ligne dessus ne fonctionne pas bien, celle dessous avec les "or" fonctionne bien, bizarre

C'est normal avec le Or que cela fonctionne mieux (Example Bleu = R:0, G:0, B:255) avec "And" la condition n'est pas rempli B=255. Avec And il faut que toutes les composantes soient inférieur à 255.
Avec le Or seulement si une des composante est inferieure à 255.

BeginUpdate(); EndUpdate; tu peux les virer servent à rien avec scanline ; c'est surtout à utiliser, pour englober les appels aux fonctions de Canvas, si mes souvenirs sont bons

Essayes ça pour voir. Plus bonus une tchite fonction de mix

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
function ClampByte(const Value: Integer): Byte;
begin
 if Value > 255 then
   Result := 255
 else
 if Value < 0 then
   Result := 0
 else
   Result := Value;
end;
 
function ColorMix(AColor,BColor:TRGBTriple;const Percent : single):TRGBTriple;
var
  pct:single;
begin
     pct:=100-Percent;
//     result.alpha := AColor.alpha;
     result.rgbtRed  := ClampByte(round( ((AColor.rgbtRed/100)  *pct) + ((BColor.rgbtRed/100)  *Percent) ));
     result.rgbtGreen := ClampByte(round( ((AColor.rgbtGreen/100)*pct) + ((BColor.rgbtGreen/100)*Percent) ));
     result.rgbtblue  := ClampByte(round( ((AColor.rgbtblue/100) *pct) + ((BColor.rgbtBlue/100) *Percent) ));
end;
 
function TfrmContrast.CombineBitmaps(aTextBmp, aFondBmp: TBitmap): TBitmap;
const
 SeuilR := 255;
 SeuilG := 255;
 SeuilB := 255;
var
  CT    : pRGBTripleArray;  // Couleur pixel Texte
  CF, CR    : pRGBTripleArray;  // Couleur pixel Fond
  x, y  : integer;
  MaxX, MaxY : integer;
  TmpBmp : TBitmap;
begin
 
  aTextBmp.PixelFormat := pf24bit;
  aFondBmp.PixelFormat := pf24bit;
 
  //Boucle maximum sur les plus petites Largeur/Hauteur
  MaxX := Min(aTextBmp.Width,  aFondBmp.Width);
  MaxY := Min(aTextBmp.Height, aFondBmp.Height);
 
  TmpBmp:= TBitmap.Create; //Crée l'image résultante
  TmpBmp.SetSize(MaxX, MaxY);
  tmpBmp.PixelFormat := pf24bits;
 
  for y := 0 to MaxY-1 do begin // parcourir les lignes une par une
    CT := pRGBTripleArray(aTextBmp.RawImage.GetLineStart(y));
    CF := pRGBTripleArray(aFondBmp.RawImage.GetLineStart(y));
    CR := pRGBTripleArray(TmpBmp.RawImage.GetLineStart(y));
    for x := 0 to MaxX-1 do 
    begin      
      if ((CT[x].rgbtRed   = SeuilR)
      and  (CT[x].rgbtGreen = SeuilG)
      and  (CT[x].rgbtBlue  = SeuilB)) then
        CR[X] := CF[X]
     else     
        CR[x] := ColorMix(CF[X], CT[X],100);
    end;
  end;
  Result:= TmpBmp;
end;

EDIT : Sinon a la place de
if ((CT[x].rgbtRed = SeuilR) and (CT[x].rgbtGreen = SeuilG) and (CT[x].rgbtBlue = SeuilB)) then tu pourrais calculer l'intensité moyenne if ((CT[x].rgbtRed+CT[x].rgbtGreen+CT[x].rgbtBlue) div 3) < Seuil then

[Jipété]

Salut, bizarre ton truc on dirait que ton bitmap de sortie est à pixelformat := pf32bits Cela pourrait expliquer ton souci. Essaye de le forcer à 24bits.

C'est bien ce que je me suis dit aussi. C'est forcé à 24, je l'ai écrit dans le 1^er post.

C'est normal avec le Or que cela fonctionne mieux (Example Bleu = R:0, G:0, B:255) avec "And" la condition n'est pas rempli B=255. Avec And il faut que toutes les composantes soient inférieur à 255.
Avec le Or seulement si une des composante est inferieure à 255.

Rien compris et pas d'accord ! Je veux virer le blanc autour du texte pour ne recopier que le texte depuis le bitmap "texte" vers le bitmap destination, donc tout ce qui est à 255 ET 255 ET 255 ne doit pas être copié. Et si je le fais avec des and ça fonctionne mal, j'y comprends rien, mais c'est pas grave, il y a plein d'autres choses qui fonctionnent mal sans bonnes raisons...

BeginUpdate(); EndUpdate; tu peux les virer servent à rien avec scanline ; c'est surtout à utiliser, pour englober les appels aux fonctions de Canvas, si mes souvenirs sont bons

Flemme de faire le test ce soir mais il me semble bien qu'il les faut, c'est une des premières choses que j'ai apprises quand j'ai commencé à jouer avec Scanline.

Bon, allez, pour ce soir j'en ai marre.