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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Убрать выделение ячейки из StrinGrid 
:(
    Опции темы
Instal
Дата 14.7.2008, 05:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Подскажите плиз как убрать выделение ячейки из StrinGrid.
Т.е. у меня самая верхняя левая ячейка выделяется синим. 
Точно также как выделяется весь ряд ячеек если в свойствах поставить значение goRowSelect = True.
Мне нужно, чтобы ни одна ячейка не была выделена .
PM MAIL   Вверх
Instal
Дата 14.7.2008, 16:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Плз кто-нибудь  smile 
PM MAIL   Вверх
deswars
Дата 15.7.2008, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Насколько я заю, одна из ячеек должна быть выделена, но можна сделать с помощю усановки фоеуса выделение штриховкой
PM MAIL   Вверх
Instal
Дата 15.7.2008, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо, сделаю штриховкой хотя бы  smile 
PM MAIL   Вверх
VICTAR
Дата 15.7.2008, 17:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 37
Всего: 80
Как вариант, заменить TStringGrid на TDrawGrid и юзать OnDrawCell 
PM MAIL   Вверх
deswars
Дата 16.7.2008, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Это вариант. Не думаю, что надо будет долго сидеть.
PM MAIL   Вверх
Instal
Дата 18.7.2008, 05:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Премного благодарен уважаемые форумчане за ответы!
В результате поиска по OnDrawCell наткнулся на старый топик http://forum.vingrad.ru/forum/topic-31653/unread-1.html
где г-н p0s0l даёт готовый рабочий код решения проблемы  smile 

Цитата

Ан нет, поспешил я smile - там его дорабатывать надо...
Можно так попробовать:
Код

procedure MyProc(S : TStringGrid);
var gr : TGridRect;
begin
  FillChar (gr, SizeOf(gr), -1);
  S.Selection := gr;
end;

procedure TForm1.StringGrid1Exit(Sender: TObject);
begin
  MyProc (Sender as TStringGrid);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyProc (StringGrid1);
  MyProc (StringGrid2);
...
end;
Т.е. вешаем на OnExit обработчик (единый для всех гридов) и в OnCreate формы убираем выделение...

Чуть не забыл:
goRangeSelect = False, 
goDrawFocusSlected = False,
goRowSelect = False
PM MAIL   Вверх
sabbatazh
Дата 18.7.2008, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Попробуй так:

Код

var 
    hGridRect: TGridRect;
.....

  hGridRect.Top := -1;
  hGridRect.Left := -1;
  hGridRect.Right := -1;
  hGridRect.Bottom := -1;
  StringGrid1.Selection := hGridRect;



Даный код снимает выделение с ячеек...

можешь вкинуть в криат ивсе увидишь.... ну а там пользуй де хочешь....

Это сообщение отредактировал(а) sabbatazh - 18.7.2008, 12:43
PM MAIL   Вверх
Instal
Дата 18.7.2008, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибочки!
Еще одно красивое решение  smile 
PM MAIL   Вверх
sabbatazh
Дата 19.7.2008, 01:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
нема за шо....
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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