Function FFilePaste

wdriver.cpp:2704–2750

// Implements the Paste menu command.

flag FFilePaste(void)
{
  HFILE hfile;
  LONG lSize;
  HGLOBAL hglobal;
  byte *hpb;
  flag fText;

  // Check for a bitmap or text on the Windows clipboard, the two formats
  // that Astrolog knows how to paste.
  if (!OpenClipboard(wi.hwnd))
    return fFalse;
  if (IsClipboardFormatAvailable(CF_DIB))
    fText = fFalse;
  else if (IsClipboardFormatAvailable(CF_TEXT))
    fText = fTrue;
  else {
    PrintWarning("There is nothing on the clipboard to paste.");
    return fFalse;
  }

  // Get a memory buffer containing the Windows clipboard.
  hglobal = GetClipboardData(fText ? CF_TEXT : CF_DIB);
  if (hglobal == (HGLOBAL)NULL)
    return fFalse;

  // Create a temporary file.
  hfile = _lcreat(szFileTemp, 0);
  if (hfile == HFILE_ERROR)
    return fFalse;

  // Save the contents of the memory buffer to that temporary file.
  hpb = (byte *)GlobalLock(hglobal);
  lSize = (LONG)GlobalSize(hglobal);
  _hwrite(hfile, (char *)hpb, lSize);
  _lclose(hfile);
  GlobalUnlock(hglobal);

  // Load the file's contents into the program.
  if (fText)
    FInputData(szFileTemp);
  else
    FLoadBmp(szFileTemp, &gi.bmpBack, fTrue);
  _unlink(szFileTemp);
  CloseClipboard();
  return fTrue;
}


// This important routine is the bottleneck to redraw the window and call into