Unter Windows wird ein 24Bit bitmap erzeugt, auch mit den Zeilen PixelFormat und Clear.
Gibt es eine Möglichkeit, das auch unter Windows ein 32Bit Bitmap erzeugt wird ?
Code: Alles auswählen
function CreateBitmap: TBitmap;
begin
Result := TBitmap.Create;
with
Result do
begin
PixelFormat := pf32bit;
Clear;
Width := 16;
Height := 16;
with Canvas do
begin
Pen.Color := clWhite;
Brush.Color := clWhite;
Rectangle(0, 0, Result.Width, Result.Height);
Pen.Color := clBlack;
Line(0, 0, Result.Width, Result.Height);
end;
end;
end;
Der umgekehrte Weg, ein 24Bit Bitmap unter Linux zu erzwingen geht auch nicht.