SetPixel - schnellere Variante

[CReber]

Also ich suche jetzt schon seid Stunden nach einer Lösung und dachte eigentlich das es hiermit funktionieren müsste, aber nix da Brauche Hilfe!

Delphi-Quellcode:

  LFontColor := Font.Color;
  BitBlt(LTmpPic.Canvas.Handle,  // Vom Bitmap
         0,
         0,
         LTmpPic.Width,
         LTmpPic.Height,
         Canvas.Handle,          // Auf das Control (TSmootLabel)
         0,
         0,
         SRCCOPY);

  {for LCountY := 0 to Height - 1 do begin
    for LCountX := 0 to Width - 1 do begin
      LColor := GetBlendColor(LFontColor, GetPixel(Canvas.Handle, LCountX, LCountY), GetRValue(GetPixel(LTmpPic.Canvas.Handle, LCountX, LCountY)));
      SetPixel(Canvas.Handle, LCountX, LCountY, LColor);
    end;
  end;}
  LTmpPic.Free;