Forum: Multimedia
by Schwedenbitter,
9. Dez 2010
Leider kann ich hier nicht direkt auf den 2. Eintrag verlinken. Aber dieser hat mich auf die Lösung gebracht. Wenn GreyScale geht, dann muss es auch mit black/white gehen und siehe da, dieser Code macht was ich brauche:Procedure CleanBlackWhite(Bitmap: TBitmap);
Type
TMinPalette = Packed Record // statt TMaxLogPalette - wir wollen Speicher sparen
palVersion : Word;
...
Forum: Multimedia
by Schwedenbitter,
9. Dez 2010
Ich habe mal ein bisschen weiter geforscht und dabei unter anderem das hier gefunden. Danach habe ich folgenden Code probiert, der aber leider nicht funktioniert. Ich bekomme entweder ein komplett schwarzes oder ein komplett weißes Bitmap, während ich maximal ein Negativ (also Schwarz = Weiß und Weiß = Schwarz) erwartet hätte:procedure TForm1.Button1Click(Sender: TObject);
Var
BWPalette :...
Forum: Multimedia
by Schwedenbitter,
8. Dez 2010
Es sind keine Graustufen, sondern wirklich nur 2 Farben aber eben nicht schwarz/weiss, sondern schwarz/rot bzw. weiss/rot.
Mit einer Bildbearbeitungssoftware wird mir eine Palette bestehend aus 2 Einträgen angezeigt. Wenn ich mit dieser Software das Rot durch Weiß ersetze, klappt das auch. Ich möchte/muss aber dasselbe mit meinem Programm hinbekommen. Wenn ich mit GetPaletteEntries(Palette, 0,...
Forum: Multimedia
by Schwedenbitter,
8. Dez 2010
Hallo,
ich verwende in einem Programm monochrome Bitmaps. Diese werden als png-Dateien gespeichert und das wiederum scheint Probleme mit der Palette mit sich zu bringen. Grundsätzlich sind die Farben schwarz und weiß. Manchmal aber wird eine Farbe zu rot (128, 0, 0). Ich habe keine Ahnung warum.
Meine Idee ist nun, die Palette mit den 2 Einträgen zu laden. Ich prüfe, ob Eintrag null schwarz...