![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как изменить высоту Items ов в TTreeView?
Эдуард © (2003-12-26 15:21:00)
Господа, собственно subj...
Вариант с присвоением пустого Images нужных размеров не предлагать, нужно просто поменять высоту.
ps.: Наверняка надо послать ему сообщение, только какое?
Mantic0re (2004-01-09 12:02:00) [1]
Просто эти сообщения не включены в хелп дельфи по win32 api, но
в новом MSDN они есть.
Сообщения поддерживают оси, начиная, с win95 + ie4 (std ie3.1 not support).
Эдуард (2004-01-09 11:12:00) [2]
Спасибо! Помогло!
Вери мач!
Это хитрое сообщение не документировано - вот в чём досада, так бы я его нашёл!
Ещё раз спасибо!
Игорь Шевченко (2003-12-27 23:11:00) [3]
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TfMain = class(TForm)
TreeView: TTreeView;
emHeight: TEdit;
SetButton: TButton;
procedure FormCreate(Sender: TObject);
procedure SetButtonClick(Sender: TObject);
end;
var
fMain: TfMain;
implementation
uses
CommCtrl;
{$R *.dfm}
procedure TfMain.FormCreate(Sender: TObject);
begin
emHeight.Text :=
IntToStr(SendMessage(TreeView.Handle, TVM_GETITEMHEIGHT, 0, 0));
end;
procedure TfMain.SetButtonClick(Sender: TObject);
begin
SendMessage(TreeView.Handle, TVM_SETITEMHEIGHT, StrToInt(emHeight.Text), 0);
end;
end.
Эдуард (2003-12-26 22:00:00) [4]
имхо досадно...
шрифт - немного не то, его менять нельзя.
Бином Ньютоныч (2003-12-26 19:50:00) [5]
>YuRock © (26.12.03 16:01) [1]
>> Вариант с присвоением пустого Images нужных размеров не предлагать, нужно просто поменять высоту.
>
>Даже и это не поможет...
ЭТО - поможет.
>Эдуард (26.12.03 15:21)
Высота шрифта тож не подходит? Тады имхо никак
YuRock (2003-12-26 16:01:00) [6]
> Вариант с присвоением пустого Images нужных размеров не предлагать, нужно просто поменять высоту.
Даже и это не поможет... Хотя я не знаю, может и можно как-то. Сам посмотрю