Hallo, ich habe ein kleines Problem mit PNG die ich mit Delphi und
GDI+ (GDIPOBJ) zeichnen lassen möchte und zwar zeigt er mir in dem gezeichneten Bild kein weiss an, sondern ändert die Farbe in ein sehr helles grau.
mein simplester Code
Delphi-Quellcode:
procedure TForm27.Button3Click(Sender: TObject);
var
FStream : TMemoryStream;
SA : TStreamAdapter;
FImage : TGPImage;
Graphs : TGPGraphics;
begin
FStream := TMemoryStream.Create;
FStream.LoadFromFile('d:\test.png');
FStream.Position := 0;
SA := TStreamAdapter.Create(FStream, soReference);
FImage := TGPImage.Create(SA, TRUE);
//FImage := TGPImage.Create(SA, FALSE);
PAintBox1.Canvas.Brush.Color := clWhite;
PAintBox1.Canvas.FillREct(REct(0,0,200,200));
Graphs := TGPGraphics.Create(PaintBox1.Canvas.Handle);
Graphs.DrawImage(fImage, 10, 10);
Graphs.Free;
fImage.Free;
fStream.Free;
end;
Ich vermute das er irgendwie irgendwo einen Farbraum definiton oder co hat, aber egal wie ich das PNG abspeichere das graue statt weiss bleibt.
Hat noch wer Tipps was ich da testen kann?