Zeichenroutine optimieren...

[Green]

Zitat von inherited:

Benutz die Forensuche!

Hab ich getan und die suche und ein wenig nachdenken brachte mir folgendes ergebnis:

Delphi-Quellcode:

procedure assign;
var
  i, j, iy, ix: integer;
  lPixel: PRGBQuad;
begin
  Image.canvas.brush.color:=clBlack;
  Image.canvas.rectangle(0,0,AufloesungX,AufloesungY);
  Image.Picture.Bitmap.PixelFormat := pf32bit;
  Image.Canvas.MoveTo(0,0);
  for iy := 0 to AufloesungY - 1 do
  begin
    lPixel := Image.Picture.Bitmap.Scanline[iy];
    for  ix := 0 to AufloesungX - 1 do
    begin
      if not (CountArray[ix,iy] = Form3.TrackBar1.Position + 1) then begin
        lPixel^.rgbRed := GetRValue(Image10.Canvas.Pixels[1,CountArray[ix,iy]]);
        lPixel^.rgbGreen := GetGValue(Image10.Canvas.Pixels[1,CountArray[ix,iy]]);
        lPixel^.rgbBlue := GetBValue(Image10.Canvas.Pixels[1,CountArray[ix,iy]]);
        lPixel^.rgbReserved := 0;
      end;
      Inc(lPixel);
    end;
    PB.Position := PB.Position + 1;
  end;
  PB.Position := 0;
end;

Doch zufriedenstellend war es nicht gerade: ungefähr 2-3 mal so lang...
was mach ich falsch?