FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9239
Вход
GRID. Выделение активной строки

Выделение любым цветом активной строки в Grid


 
Прислал: A.Пинигин   Категория: Интерфейс


GRID. Выделение активной строки

* В Grid вставляется в событие INIT
SELECT xxxxxxxxxx
THISFORM.nRecno = 1
IF RECNO()#0
THIS.SetAll("dynamicbackcolor", "IIF(RECNO() = THISFORM.nRecno, RGB(255,255,0), RGB(255,255,255))", "COLUMN")
ENDIF
* В событие AfterRowColChange

THISFORM.nRecno = RECNO()
THIS.Refresh

* В форму добавить новое Property nRecno и сделать его численным =1

A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок. HELP "PRIBAMBASI for VFP on materials of conferences, literature and own development
 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.959)
Дополнения пользователей
GRID. Выделение активной строки
[+][?]
Владимир
17.10.01 22:12:41

Все бы ничего только после This.Refresh Grid аж подпрыгивает (ну если таблица не хилая) , а на
слабых машинах я вообще молчу.
Наиболее шустро работает   

Grid.Init
This.SetAll("DynamicBackColor","iif(rt,rgb(255,255,255),This.BackColor)","Column")


Grid.AfterRowColChange
repl rt with .t.

Grid.AfterRowColChange
repl rt with .f.

Но !!! rt это поле в таблице и к сожалению оно должно быть


Aries
24.12.02 15:00:05

И так, я уже написал что то подобное и оно работает (На счет подобного почти одно и тоже что
представлено здесь). Но вот в возник вопрос с которым я немогу справится. И так когда я обьект
грид помещаю на форму а в INIT прописываю подключение таблицы к гриду. Все бы ничего только вот
выше изложеный код не хочет работать. Что бы это обойти я не помещаю обект а добавляю его в ходе
выполнения программы т.е
в INIT пишу
THIS.AddObject("oGrib")
* далее выставляю все нужные размеры и заголовки подключаю таблицу и только тогда код работает, но
это неудобно потомц что теряется визуяльное представление, не видно что получится :)
Подскажите как вот это обойти 
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика