VPF::Дельфа не может найти API функцию BitBit

МММ

Дата 23.10.2002, 10:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 354
Регистрация: 18.6.2002

Репутация: нет
Всего: 1

Дельфа не может найти API функцию BitBit. Вроде в Uses прописан Windows.

--------------------

Аренда VPS хостинга в России
x6x.ru

Alex

Дата 23.10.2002, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Функция называется не BitBit, а BitBlt

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

МММ

Дата 23.10.2002, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 354
Регистрация: 18.6.2002

Репутация: нет
Всего: 1

Да уже нашел!!!

Код


var
 bm: TBitmap;
begin
bm:=Tbitmap.Create;
bm.Height:=510;
bm.Width:=510;
BitBlt(bm.Canvas.Handle, 0, 0, autopanel1.Width, autopanel1.Height, form1.Handle, 10, 10, SRCCOPY);

printer.BeginDoc;
printer.Canvas.StretchDraw(Rect(10,10,500,500),bm);
printer.EndDoc;  

bm.Free;

а почему код не работает, пустой лист выдает

--------------------

Аренда VPS хостинга в России
x6x.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »