FoxClub Forums > Архив конференции по VFP до 2005 года

:: Архив конференции по VFP до 2005 года

• Войти

Grid Insert and Delphi Style
serEJa Автор Сообщений: 9 Дата регистрации: 31.01.2005	serEJa 17.03.05 21:37:40 1) Проблема такая пользователи задолбали с grid Надо чтобы при первом нажатии на ячейку выделялось все содержимое,при след нажатии становилось на позицию, итд Короче что-то типа стиля grid Delphi Нашел решение такое, все замечательно NODEFAULT TextBox::GotFocus THIS.SelStart = 0 THIS.SelLength = LEN(ALLTRIM(THIS.Value)) НО у меня таблица динамическая и событие GotFocus я прописываю BINDEVENT а вот как-там вызвать род. метод TextBox::GotFocus не знаю обработчик то user-метод самой формы PLEASE HELP! 2)И еще при INSERT в курсор который отображается в grid происходит такой глюк если записей в grid нет то первый раз все получается замечательно а во второй и ... скроллбар дергается а запись не появляется, заранее оговорюсь что использую SET FILTER на курсоре я по форуму пошарил но что-то все не то...

serEJa
Автор

Сообщений: 9
Дата регистрации: 31.01.2005

serEJa

17.03.05 21:37:40

1) Проблема такая пользователи задолбали с grid
Надо чтобы при первом нажатии на ячейку выделялось все содержимое,при след нажатии становилось на позицию, итд
Короче что-то типа стиля grid Delphi

Нашел решение такое, все замечательно
NODEFAULT
TextBox::GotFocus
THIS.SelStart = 0
THIS.SelLength = LEN(ALLTRIM(THIS.Value))

НО у меня таблица динамическая и событие GotFocus я прописываю BINDEVENT
а вот как-там вызвать род. метод TextBox::GotFocus не знаю обработчик то user-метод самой формы
PLEASE HELP!

2)И еще при INSERT в курсор который отображается в grid происходит такой глюк
если записей в grid нет то первый раз все получается замечательно а во второй и ... скроллбар дергается а запись
не появляется, заранее оговорюсь что использую SET FILTER на курсоре

я по форуму пошарил но что-то все не то...

Re: Grid Insert and Delphi Style
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 18.03.05 00:47:10 Hi serEJa! 1) Не надо тебе BINDEVENTS - сделай класс текстбокса, и просто каждый раз при перестройке грида проводи замену "штатных" объектов (обычно называются Text1) на объекты производные от твоего класса - а там уже (в классе) и прописывай свой хитрый код. Я не уверен что из делегата можно хоть как-то вызвать код обработчика родительского класса объекта-источника. Тем более если это вообще объект базового класса! 2) Чтобы SET FILTER действовал, нужно передёрнуть указатель записи. И вообще ты уверен что вновь добавленная запись попадает под условия фильтра? P.S. SET FILTER с гридом это зло - если есть возможность, то лучше использовать другие методы (Local View например). ------------------ WBR, Igor

Re: Grid Insert and Delphi Style

Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

18.03.05 00:47:10

Hi serEJa!

1) Не надо тебе BINDEVENTS - сделай класс текстбокса, и просто каждый раз при перестройке грида проводи замену "штатных" объектов (обычно называются Text1) на объекты производные от твоего класса - а там уже (в классе) и прописывай свой хитрый код. Я не уверен что из делегата можно хоть как-то вызвать код обработчика родительского класса объекта-источника. Тем более если это вообще объект базового класса!

2) Чтобы SET FILTER действовал, нужно передёрнуть указатель записи. И вообще ты уверен что вновь добавленная запись попадает под условия фильтра?

P.S. SET FILTER с гридом это зло - если есть возможность, то лучше использовать другие методы (Local View например).

------------------
WBR, Igor

Re: Grid Insert and Delphi Style
serEJa Автор Сообщений: 9 Дата регистрации: 31.01.2005	serEJa 18.03.05 05:24:18 по 2 вопросу SET FILTER там так получается когда первый раз insert то только скроолбар дергается а когда insert вторую запись то в гриде вываливается сразу две записи (первого и второго инсерта)

Re: Grid Insert and Delphi Style
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 18.03.05 05:27:29 Попробуй сделай LockScreen=.T. для формы перед вставкой записи - тогда ScrollBar вроде как не будет дергаться ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Grid Insert and Delphi Style
serEJa Автор Сообщений: 9 Дата регистрации: 31.01.2005	serEJa 18.03.05 06:46:46 Проблема не в том что скроллбар дергается, а в том что после insert в гриде запись не показывается а после вставки второй записи показывается первая и вторая Извините за косноязычие

Re: Grid Insert and Delphi Style
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 18.03.05 06:55:24 И Griid.Refresh() не помогает ? ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Grid Insert and Delphi Style
serEJa Автор Сообщений: 9 Дата регистрации: 31.01.2005	serEJa 18.03.05 07:44:02 Grid.Refresh Grid.SetFocus,Grid.DoScrool(2) все бестолку

Re: Grid Insert and Delphi Style
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 18.03.05 07:50:11 и Select Табла Go Recno() Может у тебя вьюха ? тогла еще requery ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Grid Insert and Delphi Style
serEJa Автор Сообщений: 9 Дата регистрации: 31.01.2005	serEJa 18.03.05 07:54:50 Ничего не получается Отредактировано (18.03.05 12:56) ------------------

Re: Grid Insert and Delphi Style
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 20.03.05 20:35:14 Hi serEJa! Ещё раз - для того чтобы сработал фильтр нужно передёрнуть указатель записи (если меняется условие, или меняются поля участвующие в условии). Для того чтобы обновился грид - нужно сделать ему Grid.Refresh() PUBLIC o1 o1 = CREATEOBJECT("frm1") o1.Show() DEFINE CLASS frm1 AS Form Height = 360 Width = 300 ADD OBJECT grd AS Grid WITH ; RecordSource = "csr1", Height = 300, Width = 300 ADD OBJECT cmdAdd AS CommandButton WITH ; Top = 320, Width = 100, Left = 100, Height = 25, ; Caption = "Добавить запись" PROCEDURE Load CREATE CURSOR csr1 (nID I, cName C(10) DEFAULT "новая") INSERT INTO csr1 (nID, cName) VALUES ; (11, "11 11") INSERT INTO csr1 (nID, cName) VALUES ; (12, "12 12") SET FILTER TO nID < 10 ENDPROC PROCEDURE cmdAdd.Click APPEND BLANK IN csr1 ThisForm.grd.Refresh() ENDPROC ENDDEFINE И что это тоже не работает? ------------------ WBR, Igor

Re: Grid Insert and Delphi Style

Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

20.03.05 20:35:14

Hi serEJa!

Ещё раз - для того чтобы сработал фильтр нужно передёрнуть указатель записи (если меняется условие, или меняются поля участвующие в условии). Для того чтобы обновился грид - нужно сделать ему Grid.Refresh()


PUBLIC o1
o1 = CREATEOBJECT("frm1")
o1.Show()
DEFINE CLASS frm1 AS Form
Height = 360
Width = 300
ADD OBJECT grd AS Grid WITH ;
 RecordSource = "csr1", Height = 300, Width = 300
ADD OBJECT cmdAdd AS CommandButton WITH ;
 Top = 320, Width = 100, Left = 100, Height = 25, ;
 Caption = "Добавить запись"
PROCEDURE Load
 CREATE CURSOR csr1 (nID I, cName C(10) DEFAULT "новая")
 INSERT INTO csr1 (nID, cName) VALUES ;
   (11, "11 11")
 INSERT INTO csr1 (nID, cName) VALUES ;
   (12, "12 12")
 SET FILTER TO nID < 10
ENDPROC
PROCEDURE cmdAdd.Click
 APPEND BLANK IN csr1
 ThisForm.grd.Refresh()
ENDPROC
ENDDEFINE

И что это тоже не работает?

------------------
WBR, Igor

:: Список Форумов•Список тем•Поиск•Войти

Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 5 (Гостей: 5)