Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Bitmap einfärben

    Delphi
    by Khabarakh, 8. Mär 2006
  Dein Code ist vollkommen richtig, du solltest nur die Bereichsprüfung ausschalten (am besten nur lokal per Compilerswitch).
  Aber dein zweiter Code ist ziemlich ineffektiv, diesen solltest du als erstes verbessern, bevor du Pixel durch Bits ersetzt.
  for i := 0 to Width * Height - 1 do
  begin
  B := (Bits and $FF + $FF) shr 1;
  Bits := Bits and $FFFFFF00 or B;
  end;