Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > virtual tree

Автор: van74 24.11.2011, 06:14

Здравствуйте !
Подскажите пожалуйста, делаю первую колонку в виде CheckBox

Код


with Header do
begin
  Columns.Clear;
  Columns.Add;
  Columns[0].Width:=20;
  Columns[0].Text:='V';
  Columns.Items[0].CheckBox:=True;
  Columns[0].Options:=Header.Columns[0].Options + [coFixed];
  Options:=Header.Options +[hoVisible{, hoOwnerDraw}];
  Style:=hsXPStyle;

но он как будто имеет пробелы слева(рисунок приложил)
http://s1.ipicture.ru/uploads/20111124/PJRx34HR.jpg

Можно их как то убрать ?

Автор: superVad 24.11.2011, 14:03

van74, я не спец, но может дело не в пробелах а в выравнивании?

Автор: Dik0n 24.11.2011, 16:53

Цитата(van74 @ 24.11.2011, 06:14

)

Можно их как то убрать ?

Юзай своиства
Margin
TextMargin
Indent

Автор: van74 25.11.2011, 07:26

пробовал вот так :
Columns[0].Alignment:=taLeftJustify;
Не помогает

Добавлено через 10 минут и 56 секунд
Header.Columns[0].Margin:=0 - не помогает, или может я не так использую
остальных свойств у Header.Columns[0]
TextMargin
Indent
Нет :-(

Автор: Dik0n 25.11.2011, 17:22

Цитата(van74 @ 25.11.2011, 07:26

)

остальных свойств у Header.Columns[0] нет

Не у колонки, а просто у компонента. Эти своиства влияют на все колонки сразу.
И еще вот TreeOptions->PaintOptions->toShowRoot := False;

Автор: van74 28.11.2011, 08:08

Yes !!
TreeOptions->PaintOptions->toShowRoot := False; - помогло !!!
СПАСИБО !!