Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.07;
Скачать: CL | DM;

Вниз

Печать таблицы   Найти похожие ветки 

 
Анатолий   (2002-02-17 23:24) [0]

Мастера помогите. Как вывести на печать содержимое таблицы StringGrid, так чтобы любой символ занимал одинаковое количество пиксель? У меня при выводе на печать ширина таблицы зависит от количества запятых, пробелов и цифр и поэтому не соответствует заголовку таблицы. Мой код:
WriteLn(Stroka," V1(куб.м) "," P1(МПа) "," T1(K) "," V2(куб.м) "," P2(МПа) "," T2(K) "," V3(куб.м) "," P3(МПа) "," T3(K) ");
For cellnumb:=1 to 9 do
begin
write (Stroka,StringOfChar(c,Trunc((11-Length(StringGrid1.Cells[cellnumb-1,0]))/2)),StringGrid1.cells[cellnumb-1,0],StringOfChar(c,11-Trunc((11-Length(StringGrid1.Cells[cellnumb-1,0]))/2)-Length(StringGrid1.cells[cellnumb-1,0])));
end;
При выводе содержимого таблицы непосредственно в текстовый файл каждый символ занимает одинаковое “место“ по ширине и в таблице ячейки располагаются строго одна под другой. Подскажите, как такого добиться при выводе на лист бумаги.


 
Anatoly Podgoretsky ©   (2002-02-17 23:30) [1]

Используй моноширинные шрифты.


 
Song ©   (2002-02-18 18:14) [2]

Этот вопрос уже обсуждался десяток раз. Сделай поиск, найдёшь



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

Текущий архив: 2002.03.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
3-19088
Димка777
2002-02-06 00:03
2002.03.07
Как сделать НЕразрываемой связку DetailHeader+DetailData+DetailFooter в FastReport


14-19350
Blackweber
2002-01-20 14:52
2002.03.07
Я нашел Д.Кнута в эл. варианте. Только не знаю как прочитать ТеХ формат в котором они сделаны. Подскажите если кто сталкивался!


14-19348
Сержик
2002-01-24 15:59
2002.03.07
А чё, правда, что Delphi6 на русском языке бывает?


1-19178
macinsoft
2002-02-18 09:24
2002.03.07
Как скопировать объект?


3-19104
tovSuhov
2002-02-11 11:40
2002.03.07
Набор команд SQL