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

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

← →
Malik ©   (2007-03-20 12:22) [0]

Уважемые мастре укажите что сдесь не так:
SWidth:=0;
var Swidth:integer;
    Scale:Double;
...
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-20 12:24) [1]

Опечатка не большая:
Swidth:=0; разумеется после троеточия

---

← →
Ega23 ©   (2007-03-20 12:40) [2]

> if Swidth*scale>Printer.PageWidth-10*scale then begin


Скобочки расставь.

---

← →
Malik ©   (2007-03-20 12:43) [3]

Не вних дело...

---

← →
Ega23 ©   (2007-03-20 12:47) [4]

> Не вних дело...


А я не конкретно по этой ошибке. Я вообще.
Кстати, в чём проблема-то?

---

← →
Malik ©   (2007-03-20 20:24) [5]

Проблема в том, что он не правильно масштабирует: таблица после масштабирования так и не влезает в старицу(((

---

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

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



Память: 0.46 MB
Время: 0.043 c