[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.
А у мня форма на экран не помещается

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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');