New version of BGRABitmap

[lainz]

You can upload your test project? So is easy to test if works in any other context.

[VTwin]

Thanks lainz,

I'm testing again on another system, and then will post it.

Cheers,
VTwin

[VTwin]

I tried running this on a new machine (MacBook Pro with Windows 7 on VirtualBox). I'm having trouble reproducing errors, but am still not able to get this to run. On Windows 7 (64 bit) it is now compiling, but I get a blank form. On Mac 10.11.5 I get a blue rectangle instead of the expected red.

Code: [Select]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls,
  BGRABitmap, BGRABitmapTypes;

type

  { TForm1 }

  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { private declarations }
    fBmp: TBGRABitmap;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  w, h: integer;
  tsp: TBGRAPixel;
begin
  tsp := BGRA($00, $00, $00, $00);
  w := PaintBox1.Width;
  h := PaintBox1.Height;
  fBmp := TBGRABitmap.Create(w, h);
  fBmp.FillRect(0, 0, w-1, h-1, cssWhite, dmSet);
  fBmp.FillRect(0, 0, w-1, h-1, cssRed, dmDrawWithTransparency);
  fBmp.Rectangle(0, 0, w-1, h-1, cssBlack, tsp, dmDrawWithTransparency);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  fBmp.Draw(PaintBox1.Canvas, 1, 1, true);
end;

end.

See attached project.

I appreciate any suggestions.

Cheers,
VTwin

[VTwin]

I commented out in TBRAPixel.inc:

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

1.      
2.       (*** BUG *** {$IFDEF DARWIN}
3.         {$DEFINE BGRABITMAP_RGBAPIXEL}
4.       {$ENDIF} ***)
5.  

as in previous versions. Now on Mac (10.10.5) the expected blue rectangle is cyan with a blue border. 

VTwin

[lainz]

There are some things I see:

1) You can use BGRAPixelTransparent instead of tsp

fBmp.Rectangle(0, 0, w-1, h-1, cssBlack, BGRAPixelTransparent, dmDrawWithTransparency);

2) You must use OnPaint event of PaintBox, not of Form

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  fbmp.Draw(PaintBox1.Canvas, 1, 1, true);
end;

Edit:

3) Also you need only a line to paint black border filled with red:

  //fBmp.FillRect(0, 0, w-1, h-1, cssWhite, dmSet);
  //fBmp.FillRect(0, 0, w-1, h-1, cssRed, dmDrawWithTransparency);
  fBmp.Rectangle(0, 0, w, h, cssBlack, cssRed, dmDrawWithTransparency); //<---

4) You can use w, h, and 0, 0 coordinates to paint to fill the entire rectangle

fBmp.Rectangle(0, 0, w, h,...

fbmp.Draw(PaintBox1.Canvas, 0, 0, true);

[VTwin]

lainz,

Thanks! I had the white background because it was a Form to set the transparency, and the form's background was not white, but yes, I can simplify it. Using (w, h) also makes sense, thanks. Now I have:

EDIT

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

1. procedure TForm1.FormCreate(Sender: TObject);
2. var
3.   w, h: integer;
4. begin
5.   w := PaintBox1.Width;
6.   h := PaintBox1.Height;
7.   fBmp := TBGRABitmap.Create(w, h);
8.   //fBmp.FillRect(0, 0, w, h, cssWhite, dmSet);
9.   //fBmp.FillRect(0, 0, w, h, cssRed, dmDrawWithTransparency);
10.   //fBmp.Rectangle(0, 0, w, h, cssBlack, BGRAPixelTransparent, dmDrawWithTransparency);
11.   fBmp.Rectangle(0, 0, w, h, cssBlack, cssRed, dmDrawWithTransparency);
12. end;
13.  
14. procedure TForm1.PaintBox1Paint(Sender: TObject);
15. begin
16.   fBmp.Draw(PaintBox1.Canvas, 0, 0, true);
17. end;        
18.  

but still get the cyan square with blue border. I'll work on it more tonight.

Cheers,
VTwin

[lainz]

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

1.  w := PaintBox1.Canvas.Width;
2.   h := PaintBox1.Canvas.Height;

That's the wrong code.

You must use PaintBox width and height, not canvas.

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

1. w := PaintBox1.Width;
2.   h := PaintBox1.Height;

Edit: OK, you updated your post with the right code. About the cyan color instead of red, I'm not sure why that happens on Mac.

[circular]

I have removed SVN repository from SourceForge, it only contains LazPaint now.

[circular]

@VTwin:
I suppose the error "There is no method in an ancestor class to be overridden" you're getting is related to the string type. In principle there is {$H+} at the top of both units BGRABitmapTypes and BGRADefaultBitmap so the type "string" is the same.

What if you replace "string" by "ansistring"?

About the strange colors, what is the endianness of your Mac computer?

[VTwin]

lainz,

Thanks. Yes I realized as soon as I posted that I had tried using the width and height of the Canvas. As soon as I switched back, I got the image again. The colors, so far, are a mystery.

circular,

Thanks. I was not able to reproduce the ancestor class error. I switched machines, and also reinstalled Lazarus as I was getting some odd errors. I just checked again and Windows 7 is compiling the test program ok, and giving the expected colors.

I thought perhaps this might be related to the known Mac bug. I use PaintBox often, and did not note a problem until now, so I was trying to isolate it.

As far as I can tell, from internet searches, the current i86 Macs are all little endian. The old Motorola Macs were big endian. I have not checked this myself in code though. If you wish to refresh my memory on a simple test, I can try that.

Cheers,
VTwin

Just to add, I use BGRABitmap extensively on Mac, Windows, and Linux, and normally it works extremely well. This is an unusual case that is puzzling. 

[VTwin]

Just checked on Linux Ubuntu. The test program compiles and runs as expected. Since OS X has Linux underpinnings, I am surprised at the difference.

[circular]

Hi VTwin,

So if I understand well, you were able to compile BGRABitmap on Windows 7.

On MacOS X, yes, I suppose it is little endian. Do you still have the strange colors?

What you described look like the RGBA format was interpreted as BGRA a format and the BGRA format interpreted as ARGB. That's a bit strange. The procedure that creates the bitmap as in procedure TBGRALCLBitmap.RebuildBitmap in bgralclbitmap.pas. Maybe you can try to debug and add a breakpoint there, and see what it does.

[VTwin]

Hi circular,

Thanks. Yes, the program runs as expected now on Windows. The error messages disappeared after I reinstalled Lazarus.

I am nearly certain it is little endian, I checked with a script I found. Yes, the colors are strange. Attached are two forms showing DEFINE BGRAPIXEL_RGBAPIXEL results and UNDEF BGRAPIXEL_RGBAPIXEL results.

I tried adding bgralclbitmap.pas to the project, and added a breakpoint, but it did not seem to call TBGRALCLBitmap.RebuildBitmap.

VTwin

[VTwin]

Here is the updated project if another Mac user would like to confirm.

Cheers,
VTwin

EDIT: It works as expected on Linux.

[Josh]

Hi

Just tested, getting same problem. I think however its a problem with TPainBox; if you create a similar tbitmaps and send the generted image from bgrabitmap it renders correct/similar on cocoa and carbon

I have attached moded project, Maybe you can try sending to bug tracker.

Hope it  helps in some way