Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

Как отправить StringGrid на печать целиком? 


Delirium   (2002-01-23 14:55) [1]

Как тебе такой вариант :)

procedure TForm1.Button1Click(Sender: TObject);
var BMP:TBitMap;
begin
BMP:=TBitMap.Create;
BMP.Height:= StringGrid1.Height;
BMP.Width := StringGrid1.Width;
BitBlt(BMP.Canvas.Handle,0,0,StringGrid1.Width,StringGrid1.Height,GetDC(StringGrid1.Handle),0,0,SRCCOPY);
Printer.BeginDoc;
Printer.Canvas.Draw(10,10,BMP);
Printer.EndDoc;
BMP.Free;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
3-18755           Rub                   2002-01-11 10:30  2002.02.07  
Как добавить к TDBCtrlGrid-у горизонтальный ScrollBar?


1-18827           Philip                2002-01-25 00:50  2002.02.07  
Не работает Debugger в делфи


3-18766           Gonza                 2002-01-12 14:49  2002.02.07  
IBM DB2, Обновление данных после Post?


3-18769           Serhy                 2002-01-12 02:30  2002.02.07  
Index is out of date


3-18778           Alex Ignatenko        2002-01-14 13:55  2002.02.07  
MS SQL Server 2000 и каскадное удаление