Forum: Multimedia
Delphi
by Alex_ITA01,
14. Aug 2007
ich habe es jetzt so gemacht:
tmpDouble := (100 - StrToInt(edtIntensitaet.Text)) / 100; //<--- Hier wird in % die intensität für "gültiges" schwarz eingegeben
lPixel := Bmp.ScanLine; // Zeiger auf die Zeile holen
for j := 0 to Bmp.Width - 1 do
begin
try
Helligkeit := Intensity(lPixel.rgbRed, lPixel.rgbGreen, lPixel.rgbBlue);
Forum: Multimedia
Delphi
by Alex_ITA01,
14. Aug 2007
ok, nochmals Danke.
Werde es gleich testen und sagen ob's geht :-)
MFG Alex
Forum: Multimedia
Delphi
by Alex_ITA01,
14. Aug 2007
danke schön. werde es gleich testen
Alex
Forum: Multimedia
Delphi
by Alex_ITA01,
14. Aug 2007
Achso, ich habe auch kein TColor den ich übergeben kann.
Ich habe ja nur 3 Bytes die für rot, grün und blau stehen (PRBGQuad).
Wie wandel ich dann deine Funktion um?
MFg Alex
Forum: Multimedia
Delphi
by Alex_ITA01,
14. Aug 2007
Das bedeutet, nach deiner Funktion (shmia), dass wenn die Intensität größer als 0,6 * 255 ist, dass es sich um 40 % Schwarz handelt?
MFG Alex
Forum: Multimedia
Delphi
by Alex_ITA01,
14. Aug 2007
Hallo zusammen,
ich habe mal wieder ein kleines Problem.
Wenn ich mit Scanline eine Zeile in einem Bitmap analysiere bekomme ich ein Zeiger auf PRGBQuad zurück. Dieser sagt mir, wieviel grün, blau und rot in dem Pixel ist.
Ich würde jetzt gerne eine Funktion schreiben, der ich ein Toleranzwert geben kann.
Das heißt ich sage der Funktion 80% Schwarz.
Dann soll mir die Funktion ein Pixel...