Schwarz = Schwarz oder doch nur 80% Schwarz?

[Alex_ITA01]

ok, nochmals Danke.
Werde es gleich testen und sagen ob's geht

MFG Alex

[Alex_ITA01]

ich habe es jetzt so gemacht:

Delphi-Quellcode:

tmpDouble := (100 - StrToInt(edtIntensitaet.Text)) / 100;  //<--- Hier wird in % die intensität für "gültiges" schwarz eingegeben

lPixel := Bmp.ScanLine[i];    // Zeiger auf die Zeile holen
for j := 0 to Bmp.Width - 1 do
begin
  try
    Helligkeit := Intensity(lPixel.rgbRed, lPixel.rgbGreen, lPixel.rgbBlue);
    if Helligkeit < (tmpDouble * 255) then
    begin
      //schwarz gültig
      ConvertArray[Zeile-1, j] := 1;
    end
    else
    begin
      //schwarz ungültig (= weiß)
      ConvertArray[Zeile-1, j] := 0;
    end;              
    Inc(lPixel);                // auf zum nächsten Pixel
  except
    ShowMessage(IntToStr(j));
  end;
end;

Habe es an einem Beispiel getestet.
Ich wollte mindestens 90 % Schwarz haben und es scheint geklappt zu haben.

Danke.
MFG Alex