Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
28. Apr 2024, 19:38
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:
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TMemoryStream;
Image: TPngImage;
begin
Stream := TMemoryStream.Create;
try
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
28. Apr 2024, 17:55
Deine angehängte Datei ist ein .jpg.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
28. Apr 2024, 17:11
Aha, und wie überprüfe ich das?
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
28. Apr 2024, 17:09
Er ist ja eben nicht transparent :(.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
28. Apr 2024, 15:43
Das wird alles immer verwirrender hier :roteyes:
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
28. Apr 2024, 14:52
Ich werde es um 17:00 Uhr mal versuchen und mich dann melden.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
28. Apr 2024, 14:45
Wieso ist bei mir dann immer noch alles rot?
Ich habe mal meinen Projektordner hier hochgeladen, falls es hilft (Relevant im Projekt ist das Image oben Rechts im Hauptformular und die Methode Image1Click in UMain):
(Verwendet Delphi 11.3)
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
28. Apr 2024, 12:15
Hat leider nicht funktioniert.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
28. Apr 2024, 12:10
Hallo Michael, danke schonmal für deine Mühe! Ich habe noch Hoffnung auf den Ansatz, der hier die ganze Zeit besprochen wird (vor allem, weil es bei Uwe Raabe zu funktionieren scheint), aber wenn ich das aufgebe, dann werde ich mir deine Lösung mal genauer anschauen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
28. Apr 2024, 12:07
Tut mir Leid für die Verwirrung. Inzwischen hatte ich bereits das Bild ohne die schwarzen und weißen Pixel verwendet, aber vergessen, dass oben noch das Original verlinkt war. Ich habe das richtige Bild jetzt oben verlinkt.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
28. Apr 2024, 12:02
Danke erstmal für die vielen Antworten!
Mit diesem Code kommt zumindest auch "toll" bei mir, allerdings ist das Bild immer noch nicht transparent :(.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
27. Apr 2024, 19:24
Der graue Rand ist nur vom Screenshot. Das Quellbild ist ganz oben in meiner Frage verlinkt.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
27. Apr 2024, 18:07
Ich war unter der Auffassung. Auf jeden Fall funktioniert es ja nicht. Nicht mit $FE5334 und nicht mit $5334FE, was auch immer richtig ist. Obwohl es ja zu 100% diese Farbe ist. Vorher hat es ja auch funktioniert, ich habe nichts geändert. Jetzt nicht mehr.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
27. Apr 2024, 16:42
Jetzt bin ich endgültig verwirrt. Ich habe Delphi neu gestartet und jetzt funktioniert es nicht mehr. Ausgabe:
(zumindest sieht man den König diesmal)
Es hatte doch grad noch funktioniert :/
Ich hab den Code zum Testen etwas abgeändert. Siehe:
procedure TForm1.Image1Click(Sender: TObject);
var b : TBitmap;
pxc: TColor;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
27. Apr 2024, 13:27
Vielen Dank! Jetzt funktioniert es :)
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
27. Apr 2024, 12:52
Ich habe den Code-Teil abgeändert.
b.TransparentColor := $005334FE;
Leider bleibt das Ergebnis unverändert.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Kevinpptx,
27. Apr 2024, 11:12
Hallo, ich versuche in Delphi dieses (ich konnte es hier nicht hochladen, weil es zu groß war) Bitmap-Bild als Bild eines TImage einzufügen. Damit die Farbe rot transparent wird, war mein Ansatz so:
procedure TForm1.Image1Click(Sender: TObject);
var b : TBitmap;
begin
b := TBitmap.Create();
b.LoadFromFile('Koenig_weiss.bmp');
b.Transparent := true;
b.TransparentColor := clRed;