Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

печать графики   Найти похожие ветки 

 
Yasha   (2002-12-19 18:04) [0]

подскажите пожалуйста как вывести на принтер TImage


 
__Alx__   (2002-12-19 21:26) [1]

CopyRect

с имейджа на канву принтера


 
Mihey   (2002-12-19 23:36) [2]

Угу, используя TPrinter.


 
LongIsland ©   (2002-12-20 10:16) [3]

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;


Дело в том, что распечатка больших рисунков, а также вывод на принтер, к которому кривоватые драйвера может привести к тому, что рисунок вообще не вылезет. Поэтому часто приходится выкручиваться. Такой способ меня пока не подводил.

Джентельмены...



Страницы: 1 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
3-87882
Al11
2003-03-11 13:37
2003.03.27
Как сделать так,CalcFields считались сразу для всех записей Query


3-87799
Atamali Mamedov
2003-03-06 15:18
2003.03.27
ORA-00600


1-87956
GIMLI
2003-03-16 14:19
2003.03.27
Старые открытые файлы


1-88004
Sergei
2003-03-14 09:21
2003.03.27
Вопрос по TLabel


14-88174
Evgeny_n
2003-03-08 08:36
2003.03.27
Програмирование портов