powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите новичку разобраться
4 сообщений из 4, страница 1 из 1
Помогите новичку разобраться
    #32258449
StasL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вопрос может быть глупый, но не могу понять. VFP занялся недавно.

Количество колонок в Gride задается на этапе выполнения. Т.е.
kolcol = 3 && например
THIS.grdData.ColumnCount = kolcol
Куда и как мне теперь вставить код что бы он выполнялся в методе
THIS.grdData.Column3.Header1.Click()

Подскажите, пожалуйста, если возможно с небольшим примером.
Заранее большое спасибо.
...
Рейтинг: 0 / 0
Помогите новичку разобраться
    #32258461
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Например так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
thisform.grd1.Column1.RemoveObject('Header1')
thisform.grd1.Column1.AddObject('Header1','MyHeader')

&& в отдельном prg
define class MyHeader as Header

proc Click 
  wait wind 'ok'

enddefine
...
Рейтинг: 0 / 0
Помогите новичку разобраться
    #32258467
Dushes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В данном случае тебе придется описать свой базовый класс хидера типа такого:
DEFINE CLASS MYHEADER AS HEADER

PROCEDURE CLICK
// СВОЕ ОПИСАЛОВО
ENDPROC
ENDDEFINE

Затем, когда ты описал количество колонок, делаешь:
FOR I=1 TO GRID1.COLUMNCOUNT
GRID1.COLUMN .ADDOBJECT("MYHEADER")
ENDFOR

Но это так вкратце......типа суть ;)
...
Рейтинг: 0 / 0
Помогите новичку разобраться
    #32259316
StasL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Принцип понял. В тонкостях разберусь сам. Всем большое спасибо.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите новичку разобраться
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]