Как сделать "Принтскрин" формы, которая не помещается на экране.

[igorium]

Всем привет.
Задача сохранить все, что видно на форме в графический файл.
Грубо говоря сделать принтскрин формы, но проблема усугубляется тем, что форма не помещается на экране, а для её просмотра нужно использовать скрулеры.

Я делаю так:

procedure TTreeForm.bbClick(Sender: TObject);
var Bit : TBitmap;
begin
Bit := TBitmap.Create;
Bit.Width := TreeForm.ClientWidth;
Bit.Height := TreeForm.ClientHeight;
Bit.Canvas.CopyRect(Rect(0, 0, TreeForm.ClientWidth, TreeForm.ClientHeight), TreeForm.Canvas, Rect(0, 0, TreeForm.ClientWidth, TreeForm.ClientHeight));
Bit.SaveToFile('d:\screen.bmp');
end;

Но сохраняется только видимая на экране часть формы.
А у меня форма занимает несколько экранов и нужно, чтобы ВСЯ форма сохранилась в файл.

Нашел еще один вариант:

Bit := GetFormImage;
Bit.SaveToFile(ExtractFilePath(ParamStr(0)) + 'screen.bmp');

Но результат точно такой же.
Я прям в отчаянии

[Аватар]

А так

  keybd_event(VK_SNAPSHOT, 1, 0, 0);
  if Clipboard.HasFormat(CF_BITMAP) then begin
    BitMap:=TBitMap.Create;
    BitMap.Assign(Clipboard);
    BitMap.SaveToFile('E:\Otladka.bmp');
    BitMap.Free;
  end;

[igorium]

Не работает
Сохраняет или панель Delphi (если под Дельфи) или панель FAR'a, если запускаю экзешник из под Фара...

[Аватар]

Да что ты говоришь? Пускаю под Д7 хоть из по дельфей, хоть из exe нет проблем. Сделай так

procedure TForm1.SpeedButton1Click(Sender: TObject);мк
var BitMap: TBitMap;
begin
  keybd_event(VK_SNAPSHOT, 1, 0, 0);
  if clipboard.HasFormat(CF_BITMAP) then begin
    BitMap:=TBitMap.Create;
    BitMap.Assign(Clipboard);
    BitMap.SaveToFile('E:\Otladka.bmp');
    BitMap.Free;
  end;
end;

[igorium]

Да вроде теперь нормально сохраняет, только ОПЯТЬ НЕ ТО.
Сохраняется опять ТОЛЬКО видимая часть экрана.
Вот результат сохранения программы -

[grafgrial]

может мы саму ошибку тут исправим, чем мучиться с принскрином?

[igorium]

Не понял какую ошибку надо исправлять?
Пока есть задача и нет решения

[Аватар]

но проблема усугубляется тем, что форма не помещается на экране,

Так у вас наверно не форма не помещается на экран, а визуальные объекты не умещаются на форме? ИМХО наврядли вы найдете решение этой задачи.

[raxp]

cудя по скрину так и есть.

[igorium]

Принскрин я привел для примера - создал пустую форму и кинул туда пару кнопок.
Я уже раз 10 создал тестовые формы, чтобы проверить разные варианты для решения этой задачи.
В моей РЕАЛЬНОЙ задачи у меня форма растянута на весь экран, но огромное количество панелей (~ 50-100 штук) не помещается на экран и большая их часть расположены за пределами экрана на форме.