Вниз
Скачать: CL | DM;

Как преобразовать TField.DisplayWidth в ListView.Column[x].Width?   Найти похожие ветки 

← →
Rav   (2007-12-07 12:16) [0]

Подскажите, как пересчитать ширину поля набора данных в физицеску ширину столбца в пикселях, к примеру для TListView: TField.DisplayWidth -> ListView.Column[x].Width?

Есть ли какая формула, дабы потом не было косяков с размерами символов и т.д. Ведь TDbGrid как-то пересчитывает, но как? - я не уловил принципа.


← →
{RASkov} ©   (2007-12-07 13:38) [1]

> [0] Rav   (07.12.07 12:16)

Читал-читал.... читал-читал.... не понял суть :(

либо
:=
либо
Canvas.TextWidth
?


← →
Rav   (2007-12-07 14:10) [2]

Нет, совсем не то.
Нужно создать в ListView несколько столбой таблицы (выборочно)
При этом нужно расчитать ширину столбца в пикселях, оновываясь на ширине поля в символах.


       if Assigned(ListField) then
       begin
         with ListView.Columns.Add do
         begin
           Data := ListField;
           Caption := ListField.DisplayName;
           Width := ListField.DisplayWidth ???????????????;
         end;
       end;


← →
{RASkov} ©   (2007-12-07 14:23) [3]

> [2] Rav   (07.12.07 14:10)

Тебе столбец шириной как текст в заголовке колонки, или шириной самой "широкой" ячейки?
В прочем и там и там [1] т.е. Canvas.TextWidth

Width := ListView.Canvas.TextWidth(ListField.DisplayName);
Вот что-то так....
...но это ширина "по заголовку", а как по самой широкой ячейке, сам подумай..... т.е. тут и думать-то уже не нужно...


← →
atruhin ©   (2007-12-07 16:52) [4]

> TField.DisplayWidth -> ListView.Column[x].Width

Обычно в компонентих используется Canvas.TextWidth("a");
Т.е. символ средней ширины.


← →
Правильный_Вася   (2007-12-07 18:25) [5]

интересно поглядеть на лисвиев, у которого ширина колонок по 10000 знаков


← →
Rav   (2007-12-07 18:38) [6]


> Width := ListView.Canvas.TextWidth(ListField.DisplayName);

Спасибо, вот именно то что нужно... дальше я уже сам :-)



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

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



Память: 0.46 MB
Время: 0.015 c
15-1214894149
интелллигент
2008-07-01 10:35
2008.08.24
"что написать на дельфи" - that is question


2-1216301860
Mops
2008-07-17 17:37
2008.08.24
свой пункт меню


15-1215076413
Tonich
2008-07-03 13:13
2008.08.24
Халтурка


2-1216477996
YaroslavSh
2008-07-19 18:33
2008.08.24
Помогите с отчётом в QuickReport


15-1214918754
iZEN
2008-07-01 17:25
2008.08.24
С сегодняшнего дня прекращены продажи Windows XP




   Наверх