Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Вниз

Печать таблицы 


Анатолий   (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]

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
3-19050           Dreamer               2002-02-07 19:01  2002.03.07  
Написал кодик через SQL но уж лчень медленно, как его под Table переделать не могу понять :)


1-19124           kaif                  2002-02-20 13:22  2002.03.07  
Знатокам ООП вопрос


1-19188           Egor111               2002-02-18 17:04  2002.03.07  
Преобразование типов данных


6-19272           ilg                   2001-12-20 12:00  2002.03.07  
Windows socket error: (10049), on API connect - что это значит!!!


3-19108           HDD                   2002-02-11 13:10  2002.03.07  
Помогите люди добрые!