Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Problem beim laden einer LCD Animation als Bitmap

    Delphi
    by scp, 11. Apr 2006
  Habs doch noch gefunden :-) :
  
  procedure LoadLCDAniFromStream(Stream: TStream; index: integer; Bmp: TBitmap);
  var
  LCDAHeader: TLCDAHeader;
  buf: packed array Of Byte;
  pix: Word;
  x,y: integer;
  begin
  If (Stream.Size >= SizeOf(LCDAHeader)+index*LCD_BUFFER_SIZE) then
• Forum: Multimedia

  Problem beim laden einer LCD Animation als Bitmap

    Delphi
    by scp, 10. Apr 2006
  Habe mal versucht ein Dateiformat einzulesen und auf die Pixels eines Bitmaps zu übertragen.
  Das geht in diesem Fall recht einfach, da die Datei ähnlich wie ein monochromes Bitmap aufgebaut ist.
  Die Datei hat einen Header von 16 Byte:
  
  type
  ani_header = packed record
  Magic: DWORD; // Immer "LCDA" = $4144434C
  Format: Word; // Zurzeit einfach 0000
  Width: Word; // Breite...