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

← →
Godness (2006-03-02 13:48) [0]

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

← →
Thaddy (2006-03-02 14:03) [1]

1: Margin property? But I may not understand.
2:
property LVItemHeight: Integer read fLVItemHeight write Set_LVItemHeight;

← →
ECM © (2006-03-02 14:09) [2]

2)

> Thaddy (02.03.06 14:03) [1]

> property LVItemHeight: Integer read fLVItemHeight write
> Set_LVItemHeight;

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

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

← →
Godness (2006-03-02 14:58) [3]

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

← →
Vladimir Kladov (2006-03-02 15:18) [4]

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

← →
ECM © (2006-03-02 16:33) [5]

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

К сожалению - именно этого (размер кнопок) нет...:(
но это легко сделать при помощи 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;

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

← →
Godness (2006-03-02 21:54) [7]

Спасибо! :)

← →
thaddy (2006-04-08 15:40) [8]

TabSz:TSmallPoint; ;)

Увеличить размер язычка вкладки Найти похожие ветки