Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выделение в TreeView, Выделение в TreeView 
:(
    Опции темы
anmos
Дата 3.4.2014, 15:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.4.2014

Репутация: нет
Всего: нет
Добрый день! Помогите кодом нужно убрать (сетку из точек) выделения в TreeView. 

Вот эта сетка!  smile 
user posted image
PM MAIL   Вверх
PointerToNil
Дата 3.4.2014, 17:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата



*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 17.6.2013

Репутация: 2
Всего: 6
Код

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
begin
  if (Stage = cdPostPaint) and (cdsFocused in State) then
    Sender.Canvas.FrameRect(Node.DisplayRect(True)); // цвет остался от заливки
    // или - как вариант - DrawFocusRect инвертирует точки, так что второй раз по первому - и всё как было
    // DrawFocusRect(Sender.Canvas.Handle, Node.DisplayRect(True)); // Sender.Canvas.DrawFocusRect почему-то не пашет
end;
PM MAIL   Вверх
anmos
Дата 3.4.2014, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.4.2014

Репутация: нет
Всего: нет
Цитата(PointerToNil @ 3.4.2014,  17:11)
Код

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
begin
  if (Stage = cdPostPaint) and (cdsFocused in State) then
    Sender.Canvas.FrameRect(Node.DisplayRect(True)); // цвет остался от заливки
    // или - как вариант - DrawFocusRect инвертирует точки, так что второй раз по первому - и всё как было
    // DrawFocusRect(Sender.Canvas.Handle, Node.DisplayRect(True)); // Sender.Canvas.DrawFocusRect почему-то не пашет
end;

Не лучший способ, имеются глюки с отрисовкой smile 

Добрый человек помог строчкой, работает на ура:
Perform(WM_CHANGEUISTATE,MAKEWPARAM(UIS_INITIALIZE,UISF_HIDEACCEL or UISF_HIDEFOCUS),0);
Но к сожалению не прокомментировал ее ( Может кто подскажет, как она работает, что бы понять ее смысл. 
PM MAIL   Вверх
anmos
Дата 3.4.2014, 20:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.4.2014

Репутация: нет
Всего: нет
О_о такой метод убрал выделение во всей системе, есть другие способы? 
PM MAIL   Вверх
PointerToNil
Дата 3.4.2014, 23:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата



*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 17.6.2013

Репутация: 2
Всего: 6
какие именно глюки?
вариант с DrawFocusRect пробовали? (строку с FrameRect убрать/закомментировать)
PM MAIL   Вверх
anmos
Дата 4.4.2014, 09:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.4.2014

Репутация: нет
Всего: нет
Цитата(PointerToNil @ 3.4.2014,  23:54)
какие именно глюки?
вариант с DrawFocusRect пробовали? (строку с FrameRect убрать/закомментировать)

Вот что получается ((

user posted image
PM MAIL   Вверх
Fomoco
Дата 8.4.2014, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 4.8.2009

Репутация: нет
Всего: нет
Код

procedure TForm2.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
begin
  if cdsSelected in State then
  with Sender.Canvas do
  if Stage = cdPostPaint then // Erase focus rect by painting on top of it
  begin
    FrameRect(Node.DisplayRect(True));
  end;
end;


Turbo Delphi 2006.

Это сообщение отредактировал(а) Fomoco - 8.4.2014, 20:42
PM MAIL WWW   Вверх
-Сергей-
Дата 23.4.2014, 04:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 224
Регистрация: 2.8.2003
Где: Россия

Репутация: нет
Всего: 1
Это все применимо к классическому оконному стилю. Необходимо определять, какой текущий стиль установлен и от этого исходить. На неклассических стилях могут быть непредсказуемые последствия.
--------------------
Для утвердительного ответа достаточно лишь одного слова - "да". Все прочие слова придуманы, чтобы сказать "нет".
PM MAIL WWW ICQ MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0435 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.