Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Bitmap mit Milchglas-Effekt versehen?

    Delphi
    by Wormid, 10. Okt 2003
  Die Bilder mit denen ich jetzt getestet habe waren 320 * 240 Pixel groß... als Bitmap so um die 230kb. Bei der ersten Version war eine kurze Verzögerung beim Aufbau des Bildes zu spüren (~ 1 Sekunde auf nem AMD XP2600), bei der zweiten Version erscheint das Bild scheinbar sofort.
  
  Gruß
  
  Wormid
• Forum: Multimedia

  Re: Bitmap mit Milchglas-Effekt versehen?

    Delphi
    by Wormid, 10. Okt 2003
  Tja... die Sache mit den Pixelformaten war mir irgendwie noch neu... :oops: Thx für den Tip.
  
  Raus kam dabei jetzt folgendes:
  
  // Einen TColor-Wert in die einzelnen RGB-Anteile umrechnen
  procedure SplitColorToRGB(const Color: TColor; var r, g, b: Byte);
  begin
  r := ColorToRGB(Color) and $0000FF;
  g := (ColorToRGB(Color) and $00FF00) shr 8;
  b := (ColorToRGB(Color) and $FF0000) shr...
• Forum: Multimedia

  Re: Bitmap mit Milchglas-Effekt versehen?

    Delphi
    by Wormid, 9. Okt 2003
  :roll: Pöh, wenn man hier nicht alles selber macht... :zwinker:
  
  Die "heavy inspiration" habe ich mir hier geholt...
  
  // Alphablending... Heavily inspired by janjan & DerKrasseHans @ DP(rulez)
  // Source => Farbe des Quellpunktes
  // Back => Farbe des Hintergrundes
  // Alpha => Transparentheitsgrad in Werten zwischen 0..255
  function CalcBlendingColor(const Source, Back:...
• Forum: Multimedia

  Bitmap mit Milchglas-Effekt versehen?

    Delphi
    by Wormid, 9. Okt 2003
  Moin,
  
  ich versuche gerade mir eine Funktion zu erstellen, die mir einen Ausschnitt eines Bitmaps quasi mit einer Milchglasscheibe überdeckt. Also im Grunde möchte ich einfach eine Weiße Fläche halbtransparent auf ein Bitmap legen. Nur so recht komme ich da nicht weiter.
  
  Das habe ich bisher:
  
  function DrawFrostedGlass(const Bitmap: TBitmap; GlassRect: TRect; Milk: TColor): TBitmap;
  var...