Форум: "Начинающим";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];
ВнизВопрос про масштабирование 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.091 c