18bit Bilder erstellen??

[neolithos]

Bitte ergänzen bzw. änderen.

Delphi-Quellcode:

//
// Wandelt das 18 Bit Bild in ein 24 Bit Bild um.
//
//  data    - Daten des 18 bit Bildes
//  iWidth  - Breite des Bildes 
//  iHeight - Höhe des Bildes
//  Result  - Ein neu erzeugtes TBitmap-Object mit den 24 Bit Bild
//
function Bmp18ToBmp24(const data; iWidth, iHeight: Integer): TBitmap;

var -> const getauscht, schreib ja eh nicht in die daten

Delphi-Quellcode:

//
// Wandelt ein 24 Bit Bild in ein 18 Bit Bild um.
//
//  bmp    - Bitmap, welches umgewandelt wird. Diese Bild wird nicht geändert
//           sondern intern in ein neues Bitmap kopiert.
//  pDest  - Rückgabe des via GetMem erzeugten Speicherbereiches der die Daten
//           des 18 Bit Bitmaps enthält.
//  Result - Größe des zurückgegebenen Speicherbereiches
//
function Bmp24ToBmp18(bmp : TBitmap; out pDest : Pointer) : Cardinal;

var -> out, da ich nur etwas zurückgebe

Fix:

  Result := 0; Füge mal bitte diese Zeile ein nach dem Begin von Bmp24ToBmp18. Das sollte lästige Warnungen vermeiden.