// HalbeGroesse_r.txt
// 
// verringert die Bildgroesse auf 50%
// Alle Bilder oberhalb und einschlielich des aktuellen Bildspeichers werden umgewandelt.
// Daten in dem auf den aktuellen Bildspeicher folgenden Bildspeicher werden dabei berschrieben - auch bei aktiviertem Schreibschutz.


int nBuf;
int endBuf;
int maxBuf;
int DestBuf;
LPSTR imagename;
BOOL Protected;


endBuf = opGetDisplay();
maxBuf = opGetImageCount();

if (endBuf + 1 <= maxBuf)
  {
    DestBuf = endBuf+1;
    opSetDisplay(DestBuf);
    ProtectImage(FALSE);
    for (nBuf = 1; nBuf <= endBuf ;nBuf++)
      {
        Protected = imgGetProtection(nBuf);
        if (!Protected)
          {
            opSetSource(nBuf);
            opSetDest(DestBuf);
            imagename = Image[nBuf].Name;
            GreAnpassen(FaktorX:=0.5, FaktorY:=0.5, XYRatio:=TRUE, Interpolieren:=2);
            imgMove(DestBuf,nBuf);
            Image[nBuf].Name = imagename;
          }
        else
          {
            dlgOutput("Bild %d nicht umgewandelt, da schreibgeschtzt!", "Warnung", MB_OK, nBuf);
          }
        opSetDisplay(nBuf);
        ProtectImage(TRUE);
      };
  }
else
  {
    dlgOutput("Zu wenig verfgbare Bildspeicher !", MB_OK);
  }
