Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: Durchschnittsfarbe eines Bitmap "schnell" ermitteln

    Delphi
    by TiGü, 11. Mai 2021
  Bei einem einfarbigen Hintergrund gibt es aber kein Bitmap-Wallpaper, da wird ein RGB-Wert aus der Registry gelesen.
  Wer macht sich denn einen 8K Hintergrund als einfarbiges (!) Bitmap?
  
  Wer wirklich sicher gehen will, der ändert sich den Code halt. Kirchen -> Dörfer!
• Forum: Multimedia

  AW: Durchschnittsfarbe eines Bitmap "schnell" ermitteln

    Delphi
    by TiGü, 11. Mai 2021
  Bitte alle Kirchen im Dorf lassen, er verwendetet das für Desktophintergründe.
• Forum: Multimedia

  AW: Durchschnittsfarbe eines Bitmap "schnell" ermitteln

    Delphi
    by TiGü, 10. Mai 2021
  Jo, gerne!
  Was dem einen sein Problem, ist mein tägliches Code Kata. :wink:
  
  Man kann das bestimmt noch weiter optimieren.
  Bei der Addition der drei 32-Bit-Zahlen (oder 64-Bit, wenn man in keinen Überlauf will) gibt es bestimmt irgendeine kluge x64-Assemblerfunktion.
  Oder man schreibt die Schleifen um, so das nur jedes zweite oder vierte Pixel angeguckt wird.
  Je nachdem, wie genau man den...
• Forum: Multimedia

  AW: Durchschnittsfarbe eines Bitmap "schnell" ermitteln

    Delphi
    by TiGü, 10. Mai 2021
  Du kannst dir noch ein paar Millisekunden sparen, wenn du nicht den "Umweg" über TBitmap machst:
  
  
  uses
  Winapi.Wincodec;
  
  type
  TWICImageHelper = class helper for TWICImage
  function GetAverageColor: TColor;
  end;
• Forum: Multimedia

  AW: Durchschnittsfarbe eines Bitmap "schnell" ermitteln

    Delphi
    by TiGü, 10. Mai 2021
  function TForm3.GetAvgBmpColor: TColor;
  type
  TRgbTriple = packed record
  // do not change the order of the fields, do not add any fields
  Blue: Byte;
  Green: Byte;
  Red: Byte;
  end;
  TRgbTripleArray = packed array of TRgbTriple;
  PRgbTripleArray = ^TRgbTripleArray;