Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: SetPixel - schnellere Variante

    Delphi
    by CReber, 2. Feb 2005
  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!
  
  LFontColor := Font.Color;
  BitBlt(LTmpPic.Canvas.Handle, // Vom Bitmap
  0,
  0,
  LTmpPic.Width,
  LTmpPic.Height,
  Canvas.Handle, // Auf das Control (TSmootLabel)
  0,
• Forum: Multimedia

  SetPixel - schnellere Variante

    Delphi
    by CReber, 2. Feb 2005
  procedure TSmoothlabel.Paint;
  var LTmpPic : TBitmap;
  LCountX, LCountY : Integer;
  LColor, LFontColor : TColor;
  begin
  LTmpPic := TBitmap.Create;
  LTmpPic.PixelFormat := pf8bit;
  LTmpPic.Width := Width * fSmoothFactor;
  LTmpPic.Height := Height * fSmoothFactor;
  LTmpPic.Canvas.Font.Assign(Font);