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

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

Увеличить размер язычка вкладки

Godness ©   (2006-03-02 13:48:00) 

Народ привет!
Подскажите пожалуйста, как увеличить размер язычка вкладки TabControl'a и как увеличить размер записи в ListView, т.е всмысле высоту строчки если я ListView использую как сетку.

---

thaddy   (2006-04-08 15:40:00) [1]

TabSz:TSmallPoint; ;)

---

Godness   (2006-03-02 21:54:00) [2]

Спасибо! :)

---

ECM   (2006-03-02 16:45:00) [3]

З.Ы. это работает только (?) для TabControl.Options.tcoFixedWidth = true

---

ECM   (2006-03-02 16:33:00) [4]

> там что-то есть

К сожалению - именно этого (размер кнопок) нет...:(
но это легко сделать при помощи WinAPI:

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var
 i: Integer;
 R: TRect;
 TabSz: packed Record
   cy: Word;
   cx: Word;
 end;
begin
 TabSz.cy := 64; // Ширина
 TabSz.cx := 32; // Высота
 TabControl1.Perform(TCM_SETITEMSIZE,0,Integer(TabSz));
 R := TabControl1.TC_DisplayRect;
 for i:= 0 to TabControl1.Count-1 do
   TabControl1.TC_Pages[i].BoundsRect := R;
end;

---

Vladimir Kladov   (2006-03-02 15:18:00) [5]

Свойства TC_ смотрите. Я буквально на днях про него в книжку писал, там что-то есть.

---

Godness   (2006-03-02 14:58:00) [6]

Пасиба - по поводу ListView я так и догадывался про прорисовку.
Но вот про TabControl, по идее должна быть не прорисовка, а чето готовое.

---

ECM   (2006-03-02 14:09:00) [7]

2)

> Thaddy   (02.03.06 14:03) [1]


> property LVItemHeight: Integer read fLVItemHeight write
> Set_LVItemHeight;

Уточнение - это работает только для lvoOwnerDrawFixed = true
так что тут придется потрудится с собственной отрисовкой

По поводу 1) сказать что-либо  по стандартному Tab-контролу затрудняюсь
но недавно на kolnmck.ru появился доп. компонент RTabs - там это кажется реализовано

---

Thaddy   (2006-03-02 14:03:00) [8]

1: Margin property? But I may not understand.
2:

   property LVItemHeight: Integer read fLVItemHeight write Set_LVItemHeight;


---

Наверх