Форум: "Основная";
Поиск по всему сайту: 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.71 MB
Время: 0.024 c
1-18911           kserg@ukr.net         2002-01-23 15:19  2002.02.07  
Вопрос по ActionList


3-18733           ADy                   2002-01-10 22:01  2002.02.07  
SQL, Interbase


1-18842           PEC                   2002-01-22 11:00  2002.02.07  
автозапуск.


3-18700           dymka                 2002-01-09 14:01  2002.02.07  
TQuery в Runtime


3-18760           UnDISCOvery           2002-01-10 13:46  2002.02.07  
Базы данных и графика в них !