TImage colors incorrect

[Jonny]

drop a TBCButton for example and change the color of normal state In the object inspector..

Using Lazarus to test BGRAControls/TBCButton (I usually code in a text editor), I see that colours are inverted in the object inspector.

Please see the attachment screenshot.

Now I am really, really confused. Any ideas at all? Why would everything else on my system be fine except for Lazarus and and executables created with it - both GTK2 and QT5? Should I be looking at dependencies - if so then which ones?

[jamie]

Hmm looks like a confusion between big and little endian

[dsiders]

Hmm looks like a confusion between big and little endian

I'd be interested in the results when the metadarkstyle hacks are installed.

[Edit]
I meant: not installed.

[wp]

Did you try to switch to another desktop theme?

[Jonny]

Did you try to switch to another desktop theme?

Yes, changed theme, new user account, reset xfce4, updated graphics driver. Next step, reinstall OS, but not for a few days at least, so still open to suggestions.

[Khrys]

Would you mind uploading  .bmp  bitmaps of both images (the old version without  TBGRABitmap)?

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

1. aImage.Picture.Bitmap.SaveToFile('timage.bmp');
2. aBitmap.SaveToFile('tbitmap.bmp');

I can't speak for Linux-based graphics stacks, but at least on Windows the bitmap (or rather DIB - device independent bitmap, as they call it) should contain all the information the OS needs to properly render it (as far as I know). Thus it should be possible to check whether the issue lies with Lazarus or the OS - if it's a Lazarus problem, the bitmap data itself will be inconsistent (e.g. pixel format in header doesn't match pixel data).

[Marc]

If your lazarus show also the swapped colors, then there is something wrong with the internal (in lazarus) detection of the RGB components (as you can see in the rawimage description. Since both QT and GTK suffer from this, are you running Wayland or Xorg as display server ?

Using Lazarus to test BGRAControls/TBCButton (I usually code in a text editor), I see that colours are inverted in the object inspector.

Please see the attachment screenshot.

Now I am really, really confused. Any ideas at all? Why would everything else on my system be fine except for Lazarus and and executables created with it - both GTK2 and QT5? Should I be looking at dependencies - if so then which ones?

[Thaddy]

Why not mention that BGRAControls already implies reverse order from RGBA?

[Jonny]

Would you mind uploading  .bmp  bitmaps of both images (the old version without  TBGRABitmap)?

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

1. var
2.   aImage: TImage;
3. procedure TfrmMain.btnDrawClick(Sender: TObject);
4. var
5.    aBitmap: TBitmap;
6. begin
7.   aImage := TImage.Create(frmMain);
8.   aImage.Parent := frmMain;
9.   aImage.Width := 500;
10.   aImage.Height := 500;
11.   aBitmap := TBitmap.Create;
12.   aBitmap.PixelFormat := pf32bit;
13.   aBitmap.Width := 500;
14.   aBitmap.Height := 500;
15.   aBitmap.Canvas.Brush.Color := clRed;
16.   aBitmap.Canvas.FillRect(0,0,500,500);
17.   aBitmap.Canvas.Brush.Color := clBlue;
18.   aBitmap.Canvas.FillRect(150,150,350,350);
19.   aImage.Picture.Bitmap.Assign(aBitmap);
20.   aImage.Picture.Bitmap.SaveToFile('/tmp/timage.bmp');
21.   aBitmap.SaveToFile('/tmp/tbitmap.bmp');
22. end;
23.  

Drawn to screen = incorrect, export to bitmaps = correct.

Attached as zip archive due to attachment files size limits.

[Jonny]

are you running Wayland or Xorg as display server ?

Code: [Select]

$ echo $XDG_SESSION_TYPE
x11


[lainz]

Why not mention that BGRAControls already implies reverse order from RGBA?

It's just the name. It follows the OS specific way of handling rgba or bgra.

But that bug is in another level.

Edit : for example the order of the pixels should be reversed in some OS when using the webp.dll (I know because I coded the dll usage, then it was improved by circular).

[Mr.Madguy]

Are you sure other colors in your system are correct? I had such problems with Android-x86 and VESA driver. Colors were wrong, if 32bit video mode wasn't chosen explicitly via vga= kernel parameter. But it had taken some time for me to notice, that I had wrong colors. Orange instead of blue for example.

[Jonny]

Are you sure other colors in your system are correct?

Yes. See screenshot. Shows colour bars image in firefox web browser, colour boxes in lazpaint and my compiled app. In lazpaint you can see that the colour picker has selected red correctly.

[wp]

What happens when you draw on the form's Canvas directly, using its OnPaint event?

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

1. procedure TForm1.FormPaint(Sender: TObject);
2. begin
3.   Canvas.Brush.Color := clRed;
4.   Canvas.FillRect(0,0,500,500);
5.   Canvas.Brush.Color := clBlue;
6.   Canvas.FillRect(150,150,350,350);
7. end;

     

[Jonny]

What happens when you draw on the form's Canvas directly, using its OnPaint event?

Still no change...