Trouble in mirroring a bitmap

[CSGM]

Hi everyone, I'm a new user of Lazarus and FPC, and I'm have some trouble when I try to mirror a bitmap along the y axe.

I'm working in window7, professional edition.

I have the same code in Delphi and it works fine. But the similar code (below) in Lazarus doesnt work.

I thank a lot for any help or tip.

I have implemented the following code in Lazarus:

also follow the original bitmap and output using the sent code.

Thanks

csgm

{-----------------------------------------------------------------}

type
    TRGBArray = array[0..3] of TRGBTriple;
    pRGBArray = ^TRGBArray;

procedure MirrorVertical(Bitmap: TBitmap);
var i, j, w: Integer;
    In: pRGBArray;
    Out: pRGBArray;
begin
     w := bitmap.width * sizeof(TRGBTriple);
     GetMem(In, w);

     auxLBMP:=bitmap.CreateIntfImage;

     for j := 0 to Bitmap.Height - 1
     do begin
             move(auxLBMP.GetDataLineStart(j)^, In^, w);
             Out := auxLBMP.GetDataLineStart(j);
             for i := 0 to Bitmap.Width - 1
             do Out := In[Bitmap.Width - 1 - i];
        end;

     bitmap.LoadFromIntfImage(auxLBMP);
     auxLBMP.Free;
     FreeMem(In);
end;
{-----------------------------------------------------------------}

[Marc]

Not the most efficient code.
A few things:
- What the use of an array [0..3] of RGB triple ?
- You assume the line data is stored as 24bit RGB and not as RGBA
- you don't increase the Out pointer, so you overwrite the first pixel of every line
- For now try avoiding LoadFromIntfImage, since it loads through the BitmapHandle and MaskHandle, which converts the image to a devicedepth (and possibly destroying alpha)

Try following

Code: Pascal  [Select][+][-]

1. type
2.   PRGBTriple = ^TRGBTriple;
3.  
4. procedure MirrorVertical(Bitmap: TBitmap);
5. var
6.   i, j, half: Integer;
7.   Pixel: TRGBTriple;
8.   In: PRGBTriple;
9.   Out: PRGBTriple;
10. begin
11.    auxLBMP := bitmap.CreateIntfImage;
12.    half := Bitmap.Width div 2 - 1;
13.    for j := 0 to Bitmap.Height - 1 do
14.    begin
15.       In := auxLBMP.GetDataLineStart(j);
16.       Out := In;
17.       Inc(In, Bitmap.Width - 1);
18.       for i := 0 to half do
19.       begin
20.          Pixel := Out^;
21.          Out^ := In^;
22.          In^ := Pixel;
23.          Inc(Out);
24.          Dec(In);
25.       end;
26.    end;
27.    bitmap.LoadFromIntfImage(auxLBMP);
28.    auxLBMP.Free;
29. end;
30.  

[CSGM]

Hi Marc, thank you very much for answer my doubt. The code has worked very fine.

I'm going to check the rest of my code.

Can you indicate some material to study about graphic manipulation?

Once, Thank you very much.