А возможно ли такое в VFP9, на форме грид, показывается таблица....я делаю таблице Pack или Zap, естественно всё пропадает..а нельзя ли, чтоб не перерисовывать грид, где-нибудь, как-нибудь запомнить его свойства методы сделать PAck ZAP, и затем восстановить этот грид...

Анатолий Широков,

Анатолий Широков,

Не, создавать программу(класс) грида(типа Contole Sourse ="" и т.д.), я могу и после выполнения команды ZAP, и до выполнения в каком нибудь новом методе формы (_Grid), а вот чтоб именно в массив загнать куда-нибудь свойства и методы...но я понял, просто не получится, а сложности, ну их на фиг....

проходящий.,

Даже ведущие соглашаются что у Locate тоже есть плюсы(когда таблица маленькая) перед Seek, хотя и рекомендуют для быстроты Seek, так и в этом случае Pack(Zap)<=>delete on, есть что-то в них такое, что привлекает неведующий(блин, или неведущий) народ

Спасибо всем за замечания, рекомендации и подсказки...

Анатолий Широков,

Я создал форму, записал как класс, открыл её Class Browser, скопировал код, открыл форму и в метод Load скопировал код, но он выдаёт почему то ошибку :-(

DEFINE CLASS class_name AS grid
ColumnCount = 1
Height = 121
Left = 72
RecordSource = "x"
Top = 48
Width = 277
Name = "Grid1"
Column1.ControlSource = "x.kod"
Column1.Width = 75
Column1.Name = "Column1"


ADD OBJECT class_name.column1.header1 AS header WITH ; <- Вот в этой строке ошибка....
Caption = "Kod", ;
Name = "Header1"


ADD OBJECT class_name.column1.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ENDDEFINE

Или этот код надо было сбросить в отдельный prg-файл, а как в методе load(или Init) указать, чтоб он за grid обращался к этому prg-шнику..

q1w1e1Анатолий Широков,

DEFINE CLASS class_name AS grid
ColumnCount = 1
Height = 121
Left = 72
RecordSource = "x"
Top = 48
Width = 277
Name = "Grid1"
Column1.ControlSource = "x.kod"
Column1.Width = 75
Column1.Name = "Column1"


ADD OBJECT class_name.column1.header1 AS header WITH ; <- Вот в этой строке ошибка....
Caption = "Kod", ;
Name = "Header1"


ADD OBJECT class_name.column1.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ENDDEFINE

Вот этот код я поместил в c_lass.prg (ну не импонирует мне, когда код хранится в dbf файле с расшир. scx,vcx,dbc, у них часто заголовки слетают) фиг с ними с классами адаптируем классы под модульное программирование...так вот в методе Load формы, я пишу следушие..

PUBLIC myclass
SET PROCEDURE TO c_lass && Это то что сверху
thisform.AddObject("MyGrid", "class_name")
и выходит ошибка....как узнать, это ошибка формы или процедуры на которую указывает команда(SET PROCEDURE TO c_lass) , сразу не определишь(если бы была подпрограмма, то сразу бы встало на ту строку, где ошибка), иду в c_lass.prg компилирую и выходит опять же в той строке ошибка....вот собственно и вопрос почему в той указанной строке в файле c_lass.prg выходит ошибка....

ADD OBJECT class_name.column1.header1 AS header WITH ; <- Вот в этой строке ошибка....
Caption = "Kod", ;
Name = "Header1"

Class Disigner, я ж писал, что скопировал оттуда код и вставил в файл c_lass.prg...

переписал...
ADD OBJECT column1.header1 AS HEADER WITH ;
Теперь ошибка при компиляции этого файла...
"Must be variable or array"

я даже не представляю..., представление формируется и базируется на известных представлениях и аналогиях...а тут так всё ново и непредсказуемо...чё там надо дописать и хде...

у вас простой объект, поэтому точки нет, а Column, это контейнер...наверное надо переформулировать тогда вопрос, как правильно перенести код из Class Designer...если это контейнер, а не простая кнопка...

внутренности контейнера ни как не влияют на добавление самого контейнера куда-то еще,
в данном случае контейнер не отличается от кнопки
В хелпе нет никаких указаний на разницу вставки контейнера от вставки любого другого класса :-((

>Открой сетку в дизайнере, посмотри названия методов которыми добавляют объекты туда.

Какой дизайнер (Form, Class и т.д.), я и так скопировал код с ClassDisigner, просто я понял, что всё равно ничего из наводящих вопросов не пойму правила синтаксиса описания (сложного или составного, не знаю, но не простого) класса грида, что вопросы больше запутывают, решил не продолжать...хотя по моему мнению, как раз на гриде и можно было показать преимущества классного подхода перед модульным(я думаю построение грида с помощью процедур определения headr, вряд ли кто будет писАть :-)) )...

Да, прочитал, суммировал, проанализировал и резюмировал..."Жизнь коротка, чтоб тратить на изучение классов"...:-)))

Для этого VFP и предназначен в мелко-среднем и мелком бизнесе..., т.е. всё "возращается на круги своя"...т.е. Dbase III+, для чего и был создан...как там пословица "со своими методами, классами .... да в калашный ряд " :-))