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

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

 
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;


 
ECM ©   (2006-03-02 16:45) [6]

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


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

Спасибо! :)


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

TabSz:TSmallPoint; ;)



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

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



Память: 0.46 MB
Время: 0.042 c
3-1162528991
fester
2006-11-03 07:43
2007.01.21
подключение к oracle


15-1167395653
NeyroSpace
2006-12-29 15:34
2007.01.21
Хочу пожелать в новом году успехов проекту www.reactos.org!


3-1162386352
FBuilder
2006-11-01 16:05
2007.01.21
MySQL + Delphi через DBExpress


15-1167303090
Орион
2006-12-28 13:51
2007.01.21
Интересная тема реферата :)


15-1167619282
Petr V. Abramov
2007-01-01 05:41
2007.01.21
просьба никому 10 мин не постиь ниче!




   Наверх