krutoff пишет
| цитата: |
| Не смог сам найти место где формируется ::oName |
|
CLASS TCnlData INHERIT TWndData
...
METHOD Def( nIndex, cName, nHandle, nParent, cType, cVar ) INLINE ( ;
::Super:Def( nIndex, cName, nHandle, nParent, cType, cVar ), ;
::Set(), hmg_SetWindowObject( ::nHandle, Self ), ;
Self )
...
METHOD Set() INLINE ( iif( HB_ISOBJECT( ::oWin:oName ), ::oWin:oName:Set( Upper( ::cName ), Self ), ), ;
iif( HB_ISOBJECT( ::oWin:oHand ), ::oWin:oHand:Set( ::nHandle, Self ), ) )
| цитата: |
| GetListType() не подтягивает контролы типа CHECKLABEL |
|
Адрес хранения объетов окон и контролов (HB_FUNC( HMG_SETWINDOWOBJECT )) перекрылись с местом хранения данных контрола CHECKLABEL, к сожалению. Можно, наверно, усложнить CHECKLABEL и хранить объект в _HMG_aControlMiscData1 [k] := { 0, blink, .T.
, тут}, например, но тогда надо усложнять доступ в запросах анализируя тип контола "CHECKLABEL" ... Я не стал этого делать, возможно потому, что не использую его