| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Listview

zibert ©   (2013-09-20 13:53:00) 

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

---

Inovet   (2013-09-25 12:57:00) [1]

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

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

---

robt5   (2013-09-25 12:21:00) [2]

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

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

---

zibert   (2013-09-25 11:31:00) [3]

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

---

^/\^   (2013-09-24 17:11:00) [4]

Рецепт по поджарке 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;


---

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

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

---

zibert   (2013-09-22 12:36:00) [6]

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

---

robt5   (2013-09-21 21:50:00) [7]

и я про то же

---

zibert   (2013-09-21 14:27:00) [8]

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

---

robt5   (2013-09-20 18:14:00) [9]

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

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

---

Наверх