Форум: "Основная";
Поиск по всему сайту: 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.019 c
1-18916           jenbond               2002-01-24 10:08  2002.02.07  
Запуск word


14-18985          Дима                  2001-12-19 17:31  2002.02.07  
Материнка


7-18998           Jorchick              2001-10-30 08:50  2002.02.07  
Скорость вращения вентиляторов


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


3-18783           Val                   2002-01-14 11:17  2002.02.07  
Коннект к базе