[bananan]

Проблема.
Как запихнуть в Stream или BMP отпечаток всей формы. Форма на экран без скролов не помещается. Все что нашел - это как сохранить экран в BMP.
А у мня форма на экран не помещается

[Phedor]

Сообщение от bananan

Проблема.
Как запихнуть в Stream или BMP отпечаток всей формы. Форма на экран без скролов не помещается. Все что нашел - это как сохранить экран в BMP.
А у мня форма на экран не помещается

Нельзя для этих целей использовать Form1.Canvas ?

[AlexSku]

Форма - это прямоугольник. Если вместо всех скролов сделать максимальные панели, то как они будут сопрягаться? Это будет уже не исходная форма.

[Phedor]

Сообщение от AlexSku

Форма - это прямоугольник. Если вместо всех скролов сделать максимальные панели, то как они будут сопрягаться? Это будет уже не исходная форма.

Если все в панели запихнуть, то как пользователь увидит что находится в скрытой части?
Вообще, если форма не помещается на экран при разрешении 800х600 это говорит о плохом юзабилити, нельзя форму сделать с закладками?

[bananan]

к сожалению нет (
да, возможно это плохая визуализация. но я не могу ее переделать, т.к. делал ее не я и не имею права менять (( мне надо токо распечатать содержимое формы. Но без word и excel. На форме находятся только комбобоксы и таблицы.

[Phedor]

Сообщение от bananan

к сожалению нет (
да, возможно это плохая визуализация. но я не могу ее переделать, т.к. делал ее не я и не имею права менять (( мне надо токо распечатать содержимое формы. Но без word и excel. На форме находятся только комбобоксы и таблицы.

Не совсем понятно почему нелья все-таки использовать канву самой формы и ее печатать?

[Casper-Hacker]

Сообщение от bananan

Проблема.
Как запихнуть в Stream или BMP отпечаток всей формы. Форма на экран без скролов не помещается. Все что нашел - это как сохранить экран в BMP.
А у мня форма на экран не помещается

Код:

var
  BMP1: Graphics.TBitmap;
  DC1: HDC;
  Image1: TImage;
begin
   BMP1:=Graphics.TBitmap.Create;
   BMP1.Height:=Screen.Height;
   BMP1.Width:=Screen.Width;
   DC1:=GetDC(Form1.Handle);
   BitBlt(BMP1.Canvas.Handle, 0, 0, Screen.Width,
   Screen.Height, DC1, 0, 0, SRCCOPY);
   Image1:= TImage.Create(nil);
   BMP1.IgnorePalette:=true;
   Image1.Picture.Assign(BMP1);
   BMP1.SaveToFile('c:\cs.bmp');