Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Gedimmten Hintergrund im Canvas schneller

   
    by Nic2012, 11. Jun 2013
  Jo, mit Scanline geht das viel schneller, selbst im Designmodus kein Flackern mehr, Voraussetzung fürs Scanlinen ein temp. Bitmap:
  procedure TExtShape.Paint;
  const
  Delta = 0.80;
  function ColorDimmed(Color: TColor): TColor;
  begin
  Color := ColorToRGB(Color);
  Result := RGB(Round(GetRValue(Color) * Delta),
  Round(GetGValue(Color) * Delta),
  ...
• Forum: Programmieren allgemein

  Gedimmten Hintergrund im Canvas schneller

   
    by Nic2012, 11. Jun 2013
  Hallo,
  habe das TShape für eine eigene Komponente abgeleitet, deren Hintergrund zwar transparent aber gedimmt sein soll. Im Paint rufe ich dazu:
  procedure TExtShape.Paint;
  function Shadow(Color: TColor): TColor;
  const
  Delta = 0.7;
  begin
  Color := ColorToRGB(Color);
  Result := RGB(Round(GetRValue(Color) * Delta),
  Round(GetGValue(Color) * Delta),