| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Масштабирование StringGrid'a перед распечаткой [D6, WinXP]

Malik ©   (2007-03-20 21:45:00) 

Уважемые мастре укажите что сдесь не так:
var Swidth:integer;
   Scale:Double;
...
SWidth:=0;
for i:=0 to StringGrid1.ColCount-1 do begin
  Swidth:=Swidth+StringGrid1.ColWidths[i];
  end;
scale:=printer.Canvas.TextWidth('Test')/StringGrid1.Canvas.TextWidth('Test');
if Swidth*scale>Printer.PageWidth-10*scale then begin
  for i:=0 to StringGrid1.ColCount-1 do begin
      StringGrid1.ColWidths[i]:=round(StringGrid1.ColWidths[i]*(Printer.PageWidth-10*scale)/(Swidth*scale));
      end;
  end;Пожалуста помогите плизз!!!!

---

Malik   (2007-03-21 21:26:00) [1]

Для распечатки грида, так чтобы он влезал на страцу по ширине!

---

Virgo_Style   (2007-03-21 21:11:00) [2]

Я теряюсь в догадках, зачем все это могло бы понадобиться

---

Malik   (2007-03-21 20:28:00) [3]

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

---

Наверх