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

Listview   Найти похожие ветки 

← →
zibert   (2013-09-20 13:53) [0]

Как центрировать текст в заголовке колонки listview (в режиме report) не трогая текст колонки? Нужно чтобы заголовки колонок были в центре, а текст в колонках - согласно свойствам колонок alig...

---

← →
robt5   (2013-09-20 18:14) [1]

> Нужно чтобы заголовки колонок были в центре

что это изменит?

---

← →
zibert   (2013-09-21 14:27) [2]

глупый вопрос

---

← →
robt5   (2013-09-21 21:50) [3]

и я про то же

---

← →
zibert   (2013-09-22 12:36) [4]

если незнаешь зачем писать ответ?

---

← →
robt5   (2013-09-22 15:18) [5]

может это Иисус послал меня указать что ты сбился с пути

---

← →
^/\^   (2013-09-24 17:11) [6]

Рецепт по поджарке Self на сковороде:

var
lc :TCollectionItem;
Sz :TSize;
n  :Integer;
begin
 with TListView.Create(Lv.Owner) do begin
   Top         := Lv.Top + 2;
   Left        := Lv.Left + 2;
   Width       := Lv.Width - 4;
   Height      := Lv.Items[0].Top - 2;
   Parent      := Lv.Parent;
   Columns     := Lv.Columns;    
   ViewStyle   := Lv.ViewStyle;
   BorderStyle := bsNone;  
   with Columns[0] do begin
     GetTextExtentPoint32(Canvas.Handle,Caption,Length(Caption),Sz);
     n := Sz.cx + (Width - Sz.cx) div 2 - 8;            
     while Sz.cx < n do begin
       Caption := " " + Caption;
       GetTextExtentPoint32(Canvas.Handle,Caption,Length(Caption),Sz);                      
     end;
   end;  
   for lc in Columns do
     TListColumn(lc).Alignment := taCenter;
   Show;
 end;


---

← →
zibert   (2013-09-25 11:31) [7]

спасибо.
к сожалению эта штука не работает при применении стилей оформления (например TStyleManager.TrySetStyle("Sapphire Kamri"); в dpr) и при том что если колумнов много (заходят за правую часть формы и лв с нижней полосой прокрутки - все те что скрыты на момент применения останутся старого стиля + появляется какойто хитрый значок на последнем видимом колуме в заголовке)

---

← →
robt5   (2013-09-25 12:21) [8]

> к сожалению эта штука не работает при применении стилей оформления

видишь я был прав :)

---

← →
Inovet ©   (2013-09-25 12:57) [9]

> [8] robt5   (25.09.13 12:21)
> видишь я был прав :)

Ну а что, тоже метод - пусть сам ткнётся носом в собственное... желание странного, чем долго и нудно объяснять в 199500 раз, что не стоит пихать без явной необходимости свои хотелки в поведение и внешний вид  стандартных елементов интерфейса, настроек и т.п..

---

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

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



Память: 0.47 MB
Время: 0.002 c