q1w1e1>просто я понял, что всё равно ничего из наводящих вопросов не пойму правила синтаксиса описания (сложного или составного, не знаю, но не простого) класса грида, что вопросы больше запутывают
Ну так что мешает узнать-то? Хелпа нет?
А наводящие вопросы задаются для того, что бы ты сам додумался, так лучше запоминается.
Когда ты добавляешь один объект в другой, то о с какой стати у него будет составное имя? Его еще нет, его еще только собираешься создать.
Короче, вот образец для исследования:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
**
Define Class MyHeader As Header
Caption = ''
FontName = 'Tahoma'
FontSize = 8
Alignment = 2
**
Procedure Click
If Pemstatus(This.Parent, 'SortColumn', 5 )
This.Parent.soRtcolumn()
Endif
DoDefault()
Endproc
**
Enddefine
**
Define Class myColumn As Column
FontName = 'Tahoma'
FontSize = 8
HeaderClassLibrary = 'classes.prg'
HeaderClass = 'myHeader'
Movable = .F.
ReadOnly = .T.
CanSort = .T.
DblClickToGrid = .T.
lAccess = .F.
**
Procedure SetAccess
This.ReadOnly = Not This.lAccess
Endproc
**
Procedure soRtcolumn
If This.CanSort
If Pemstatus(This.Parent, 'Sort', 5 )
This.Parent.Sort(This.Name)
Endif
Endif
Endproc
**
Enddefine
**
Define Class myPage As Page
lAccess = .T.
**
Procedure SetAccess
This.Enabled = This.lAccess
Endproc
**
Enddefine
**
