Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как напечатать форму, не открывая её полностью? [D7, XP]

Страницы: < 1 2
allucard © (2007-04-26 15:17:00)
Доброго всем дня.

Использую метод Form2.Print, но он выводит на печать только видимую часть формы.
Форма большая (А4) и на экран не влазит по вертикали.
Как напечатать форму целиком, не открывая её на весь экран?

Спасибо.

allucard (2007-04-26 16:29:00) [21]

> код, значит, возьми оттуда

там не одна функция.

> clickmaker © (26.04.07 16:25) [7]

а всётаки, как откомпилировать Forms.pas?

clickmaker (2007-04-26 16:25:00) [22]

> [6] allucard (26.04.07 16:17)

ну не помню я, какие там методы виртуальные, какие нет...
код, значит, возьми оттуда

allucard (2007-04-26 16:17:00) [23]

> clickmaker © (26.04.07 15:56) [3]

> Или наследника от TForm напиши с перекрытой

Перекрыть Static method?
А как?

allucard (2007-04-26 16:08:00) [24]

> Самоделкин, блин)

от вас пока ответа дождёшься, так проще и велосипед придумать,
хоть и с квадратными колёсами, но велосипед)

allucard (2007-04-26 16:06:00) [25]

> зачем генофонд-то трогать?

ради интереса и познания непознаваемого)

> Возьми лучше код функции, подправь и используй отдельно.

ты думаешь там одна функция за печать отвечает?)

> Или наследника от TForm напиши с перекрытой

функцией GetFormImage?

clickmaker (2007-04-26 15:56:00) [26]

> [1] allucard (26.04.07 15:49)

зачем генофонд-то трогать? А если в следующий раз понадобится именно ClientWidth?
Возьми лучше код функции, подправь и используй отдельно. Или наследника от TForm напиши с перекрытой

Сергей М. (2007-04-26 15:55:00) [27]

> allucard (26.04.07 15:49) [1]

> Добрался

> изменил

>
> Может файл Forms.pas нужно откомпилировать?

Самоделкин, блин)

allucard (2007-04-26 15:49:00) [28]
Добрался до function TCustomForm.GetFormImage: TBitmap;

изменил

Result.Width := ClientWidth;
Result.Height := ClientHeight;

на

Result.Width := Width;
Result.Height := Height;

не помогло.

Может файл Forms.pas нужно откомпилировать?
Если да, то как?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »