// Achtbit_c.txt
// 
// Erstellt Kopie einer Liste von 16-Bit-Bildern im 8-Bit-Format.
// Alle Bilder oberhalb und einschlielich des aktuellen Bildspeichers werden kopiert und im Falle von 16-Bit Bildern umgewandelt.
// Die Kopien werden in den dem aktuellen Bildspeicher folgenden Bildspeichern eingefgt.
// Dabei werden In den zum Einfgen vorgesehenen Bildspeichern vorhandene Daten berschrieben - auch bei aktiviertem Schreibschutz.

int nBuf;
int endBuf;
int maxBuf;
int DestBuf;
LPSTR imagename;
WORD BitDepth;
endBuf = opGetDisplay();
maxBuf = opGetImageCount();

if (endBuf*2 <= maxBuf)
  {
    for (DestBuf = endBuf +1; DestBuf <= maxBuf; DestBuf++)
      {
        opSetDisplay(DestBuf);
        ProtectImage(FALSE);
      };
    DestBuf = endBuf+1;
    for (nBuf = 1; nBuf <= endBuf;nBuf++)
      {
        opSetSource(nBuf);
        opSetDest(DestBuf);
        BitDepth = bmpGetDimension(nBuf);
        if (BitDepth == 2)
          {
            BildKonvertieren16BitNach8Bit();
          }
        else
          {
            imgCopy(nBuf, DestBuf);
            dlgOutput("Bild %d nur kopiert und nicht umgewandelt, da kein 16-Bit-Bild!", "Warnung", MB_OK, nBuf);
          }
        Image[DestBuf].Name = Image[nBuf].Name;
        opSetDisplay(DestBuf);
        ProtectImage(TRUE);
        DestBuf++;
      };
  }
else
  {
    dlgOutput("Zu wenig verfgbare Bildspeicher !", MB_OK);
  }
