[Lazarus] TBitMap et Scanline [Résolu]

[Jon Shannow]

Bonjour,

Je transcris en Lazarus un composant Delphi que j'utilise sans problème et que je n'ai pas écrit, je l'avoue !

Dans le code du composant Delphi, il y a ces lignes...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
for y:=0 to d.Height-1 do
  begin
  l:=c.ScanLine[y];
  t:=d.ScanLine[y];
  for x:=0 to d.Width-1 do
    if not ((l^[x*3+2]=255) and (l^[x*3+1]=0) and (l^[x*3]=0) and
           (t^[x*3+2]=0) and (t^[x*3+1]=0) and (t^[x*3]=255)) then
      begin
      if Result=0 then
        Result:=CreateRectRgn(x,y,x+1,y+1)
      else
        begin
        r:=CreateRectRgn(x,y,x+1,y+1);
        CombineRgn(Result,Result,r,RGN_OR);
        DeleteObject(r);
        end;
      end;
  end;

c et d sont des TBitMap
l et t sont des PBtyteArray;

Hélas, je viens de découvrir que ScanLine n'existe pas dans Lazarus !

Comme je suis une bille de première en graphisme, j'ai beau chercher, je ne vois pas comment traduire ces quelques lignes !

Est-ce que quelqu'un peut m'aider ?

Merci d'avance

JS

[Paul TOTH]

TBitmap.RawImage.Data^

[Jon Shannow]

Dois-je en conclure que RawData remplace ScanLine ? Et que je peux remplacer

Code :

l:=d.ScanLine[ y];

par

Code :

l := d.RawImage.Data^[y]

?

[Paul TOTH]

pas exactement, j'avais vu ça il y a longtemps

RawImage.Data est un pointeur vers le tableaux de tous les pixels.

sans avoir testé je pense qu'il faut faire ceci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  LineWidth: Intege;
  ScanLine: PByte;
begin
  LineWidth := Bitmap.Description.BytesPerLine;
  ScanLine := Bitmap.RawImage.Data; // première ligne
  for i := 0 to Bitmap.Height - 1 do
  begin
    ...traitement du scanline...
    Inc(ScanLine, LineWidth); // ligne suivante
  end;
end;

mais il est possible que l'ordre des lignes soit inversé, je ne sais pas dans quel sens le RawBitmap est stocké, ni si cet ordre est dépendant de l'OS (les Bitmap Windows ont la tête en bas)

[Jon Shannow]

Merci, je m'en suis sorti !