Скачать: CL | DM;

Масштабирование StringGrid a перед распечаткой   Найти похожие ветки 

← →
Malik ©   (2007-03-20 21:45) [0]

Уважемые мастре укажите что сдесь не так:
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 20:28) [1]

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

---

← →
Virgo_Style ©   (2007-03-21 21:11) [2]

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

---

← →
Malik ©   (2007-03-21 21:26) [3]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.038 c