| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
печать графики [D5, Win95/98]
Yasha © (2002-12-19 18:04:00)подскажите пожалуйста как вывести на принтер TImage
LongIsland (2002-12-20 10:16:00) [1]
procedure TfmMain.mmPrintClick(Sender: TObject);
var
Info: PBitmapInfo;
InfoSize, ImageSize: DWord;
Image: Pointer;
begin
if not dgPrint.Execute then Exit;
Printer.BeginDoc;
GetDIBSizes(imMain.Picture.Bitmap.Handle, InfoSize, ImageSize);
Info:=AllocMem(InfoSize);
try
Image:=AllocMem(ImageSize);
try
GetDIB(imMain.Picture.Bitmap.Handle, 0, Info^, Image^);
StretchDIBits(Printer.Canvas.Handle,
0, 0, Printer.PageWidth, Printer.PageHeight,
0, 0, imMain.Width, imMain.Height,
Image, Info^, DIB_RGB_COLORS, SRCCOPY);
finally
FreeMem(Image, ImageSize);
end;
finally
FreeMem(Info, InfoSize);
end;
Printer.EndDoc;
end;
Дело в том, что распечатка больших рисунков, а также вывод на принтер, к которому кривоватые драйвера может привести к тому, что рисунок вообще не вылезет. Поэтому часто приходится выкручиваться. Такой способ меня пока не подводил.
Джентельмены...
Mihey (2002-12-19 23:36:00) [2]Угу, используя TPrinter.
__Alx__ (2002-12-19 21:26:00) [3]CopyRect
с имейджа на канву принтера
| |
