TBGRASwapRedBlueScanner

[abtaylr]

I have had to get lazarus going in Windows, so on my Kubuntu 16.04 64 bit machine, I loaded VM with Windows 10, then installed lazarus.  When adding BGRABitmapPack, Version 9.1, the compile function choked on the following:

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

1. [b]procedure TBGLCustomBitmap.SwapRedBlueWithoutInvalidate(ARect: TRect);
2. var y: NativeInt;
3.     p: PBGRAPixel;
4. begin
5.   if not CheckClippedRectBounds(ARect.Left,ARect.Top,ARect.Right,ARect.Bottom) then exit;
6.   for y := ARect.Top to ARect.Bottom-1 do
7.   begin
8.     p := GetScanlineFast(y)+ARect.Left;
9.     TBGRASwapRedBlueScanner.ComputeFilterAt(p,p, ARect.Right-ARect.Left, False);  <-----------
10.   end;
11. end; [/b]
12.  

I looked through every BGRABitmap file and can't seem to find TBGRASwapRedBlueScanner.

abt

[abtaylr]

I just noticed something!  On my Linux version this same file has the following code:

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

1. procedure TBGLCustomBitmap.SwapRedBlueWithoutInvalidate(ARect: TRect);
2. var y: NativeInt;
3.     p: PBGRAPixel;
4. begin
5.   if not CheckClippedRectBounds(ARect.Left,ARect.Top,ARect.Right,ARect.Bottom) then exit;
6.   for y := ARect.Top to ARect.Bottom-1 do
7.   begin
8.     p := GetScanlineFast(y)+ARect.Left;
9.     TBGRAFilterScannerSwapRedBlue.ComputeFilterAt(p,p, ARect.Right-ARect.Left, False); <------------
10.   end;
11. end;
12.  

On the windows version that same line is:

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

1.  TBGRASwapRedBlueScanner.ComputeFilterAt(p,p, ARect.Right-ARect.Left, False);
2.  

[abtaylr]

Problem solved.  I copied from Linux to Windows and Voila!, it works!

Never mind . . .

Oh, someone should fix the problem with version 9.1. I download from Github.

abt

[circular]

Oh I see what your saying. Ok it's fixed on Git.