BGR- statt RGB-Ausgabe bei Verwendung von TLazIntfImage

[br_klaus]

Hallo, kann es sein, daß da in Lazarus ein kleiner Bug ist?
Wenn ich die Pixel in der TLazIntfImage färbe (mittels GetDataLineStart() ),
dann bekomme ich immer die umgekehrte Reihenfolge der Farbwerte.
Ich muß erst die Reihenfolge umkehren, dann erhalte ich den gewünschten Farbton.
Änderung der Eigenschaft ByteOrder in der RawImage bringt da keine Änderung.

Oder gibt es da noch eine Eigenschaft, die man dazu aktivieren muß?
 
Herzlichen Dank!
P. Nikolaus
 
 
Hier mein kleines Programm dazu (Image1 ist fast so groß wie die Form selber):

Code: Alles auswählen

unit Unit3;
{$mode objfpc}{$H+}
interface
uses
  Classes, LResources, Forms, Controls, Graphics,   ExtCtrls,  LCLIntf, IntfGraphics, GraphType;
type
  TForm3 = class(TForm)
    Image1: TImage;
    procedure FormChangeBounds(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  end; 
 
var Form3: TForm3;  intf: TLazIntfImage;
 
implementation
 
function UmkehrFarbe(col:TColor):TColor; // RGB --> BGR
  begin result:= col and $FF00 + col shr 16 + (col and $ff) shl 16; end;
 
procedure FarbRect(r:TRect; col:TColor);    // färbt das Rechteck mit col
    var i,j:integer; c:TColor;
  begin
    with intf,r do
    begin c:=UmkehrFarbe(col);
          for j:=top to bottom-1 do for i:=left to right-1 do
                PColor(GetDataLineStart(j)+3*i)^:= c;
    end;
  end;
 
procedure TForm3.FormChangeBounds(Sender: TObject);
  var raw:TRawImageDescription;
      col:TColor;   r:TRect;  w,h:integer;
begin
   intf:=TlazIntfImage.create(0,0);
  with image1 do begin w:=width; h:=height;  r:= Bounds(0,0,w,h); end;
 
    raw.Init_BPP24_B8G8R8_BIO_TTB(w,h);   // 24 bpp
//    with raw do
//       ByteOrder:= TrawImageByteOrder(1-byte(ByteOrder)); // ändert nichts!
 
    intf.DataDescription:=raw;
 
    col:=clblue;
         FarbRect(r, col);          // benutzt UmkehrFarbe(col) !
         Farbrect(Rect(10,10,100,100), clskyblue);
    image1.Picture.Bitmap.LoadFromIntfImage(intf);
  intf.Free;
end;
 
procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if key = 27 then halt;  // Escape-Taste
end;
 
initialization
  {$I unit3.lrs}
end.

Und die Projekt-Datei:

Code: Alles auswählen

program project3;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Unit3, LResources
  { you can add units after this };
 
{$IFDEF WINDOWS}{$R project3.rc}{$ENDIF}
 
begin
  {$I project3.lrs}
  Application.Initialize;
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.