Transparenz-Farbe von TImage ändern

[TomyN]

Könnte es sein, dass die Bitmap 32 Bit ARGB ist, d.h. noch ein Alphawert von $FF000000 hat, und daher Transparentcolor etc. 'ins Leere läuft'?
Manche Graphikprogramme neigen auch dazu, selbständig Ränder und Übergänge zu 'verschönern'.

[Kevinpptx]

Zitat von Michael II:

Zitat von Kevinpptx:

Das wird alles immer verwirrender hier

Hast du an der roten Farbe "rumgeschraubt" . Ich behaupte nun, dass der König nicht weiss sein muss - du hast diesen ja 233,233,233 definiert - also alles OK (falls er dann bei dir auch transparent...).

Er ist ja eben nicht transparent .

[Kevinpptx]

Zitat von TomyN:

Könnte es sein, dass die Bitmap 32 Bit ARGB ist, d.h. noch ein Alphawert von $FF000000 hat, und daher Transparentcolor etc. 'ins Leere läuft'?
Manche Graphikprogramme neigen auch dazu, selbständig Ränder und Übergänge zu 'verschönern'.

Aha, und wie überprüfe ich das?

[Michael II]

Ich habe dir den König noch in eine .png umgewandelt. (Attached)
Benötigt 300 Mal weniger Platz und lässt sich einfach laden:

Delphi-Quellcode:

try
  Image1.Picture.LoadFromFile('C:\Users\micha\Desktop\kw.png');
except
  on E: Exception do
    ShowMessage('Fehler beim Laden des Bildes: ' + E.Message);
end;

[Kevinpptx]

Zitat von Michael II:

Ich habe dir den König noch in eine .png umgewandelt. (Attached)
Benötigt 300 Mal weniger Platz und lässt sich einfach laden:

Delphi-Quellcode:

try
  Image1.Picture.LoadFromFile('C:\Users\micha\Desktop\kw.png');
except
  on E: Exception do
    ShowMessage('Fehler beim Laden des Bildes: ' + E.Message);
end;

Deine angehängte Datei ist ein .jpg.

[Michael II]

Keine Ahnung, weshalb eine JPG draus wurde - eventuell bin ich zu doof fürs Attachen. Bei mir war's noch eine png.

Ich packe die Datei mal in eine ZIP und hoffe, dass die Forensoftware gnädig zu mir ist. Leider weiss ich nicht, wie ich Attachments abändern kann (kann man das?). Ja man kann - zu spät...

[Kevinpptx]

Vielen Dank an alle für die vielen Antworten! Ich habe mich schlussendlich doch den PNGs ergeben und dieser Code hat mein Problem dann endgültig beseitigt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    Stream: TMemoryStream;
    Image: TPngImage;
begin
  Stream := TMemoryStream.Create;
  try
    // PNG-Bild erhalten, aus Datei oder anderem laden...
    // Beispiel: Stream.LoadFromFile('c:\\file.png');
    Stream.LoadFromFile('kw.png');
    Stream.Position := 0;

    Image := TPngImage.Create;
    try
      Image.LoadFromStream(Stream);
      Image1.Picture.Graphic := Image;
      Image1.BringToFront();
    finally
      Image.Free;
    end;
  finally
    Stream.Free;
  end;
end;

Danke nochmal, ohne euch wäre ich aufgeschmissen

[Michael II]

Zitat von Kevinpptx:

Stream: TMemoryStream;

Wie erwähnt: Du kannst das Bild auch direkt in dein image1 laden (also ohne Umweg über Streams oder TPNGImages):

Image1.Picture.LoadFromFile('kw.png'); Der Code in #19 erzeugt dir für jede Schachfigur ein PNG-File.

[Kevinpptx]

Zitat von Michael II:

Zitat von Kevinpptx:

Stream: TMemoryStream;

Wie erwähnt: Du kannst das Bild auch direkt in dein image1 laden (also ohne Umweg über Streams oder TPNGImages):

Image1.Picture.LoadFromFile('kw.png'); Der Code in #19 erzeugt dir für jede Schachfigur ein PNG-File.

Hast Recht, danke.