добавить для window Cargo и _HMG_aFormMiscData1
Названия можно менять.
FUNCTION _WindowCargo( cFormName, xValue )
Local i := GetFormIndex( cFormName )
Local RetVal
If Pcount() == 2; RetVal := _HMG_aFormMiscData2 [ i ]
Else ; _HMG_aFormMiscData2 [ i ] := xValue
Endif
RETURN RetValue
#xtranslate _SetWindowCargo( <cFormName>, <xValue> ) ;
=> ;
_WindowCargo( <cFormName>, <xValue> )
#xtranslate _GetWindowCargo( <cFormName> ) ;
=> ;
_WindowCargo( <cFormName> )
#xtranslate SetWindowCargo( <cFormName>, <xValue> ) ;
=> ;
_WindowCargo( <"cFormName">, <xValue> )
#xtranslate GetWindowCargo( <cFormName> ) ;
=> ;
_WindowCargo( <"cFormName"> )
h_controlmisc.prg
PROCEDURE SetProperty( Arg1 , Arg2 , Arg3 , Arg4 , Arg5 , Arg6 , Arg7 , Arg8 )
line 3607
CASE Arg2 == "CARGO"
_WindowCargo ( Arg1, Arg3 )
FUNCTION GetProperty ( Arg1 , Arg2 , Arg3 , Arg4 , Arg5 , Arg6 , Arg7 )
line 4220
CASE Arg2 == "CARGO"
RetVal := _WindowCargo ( Arg1 )
i_this.ch
line 48
// WINDOWS (THIS)
#xtranslate This . <p:Title,NotifyIcon,NotifyTooltip,FocusedControl,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Topmost,HelpButton,Cargo> => GetProperty ( _HMG_THISFORMNAME , <"p"> )
#xtranslate This . <p:Title,NotifyIcon,NotifyTooltip,Cursor,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Topmost,HelpButton,Cargo> := <arg> => SetProperty ( _HMG_THISFORMNAME , <"p"> , <arg> )
line 111
#xtranslate ThisWindow . <p:Title,NotifyIcon,NotifyTooltip,FocusedControl,BackColor,Name,Handle,Type,Index,Row,Col,Width,Height,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Topmost,Cargo> => GetProperty ( _HMG_THISFORMNAME , <"p"> )
#xtranslate ThisWindow . <p:Title,NotifyIcon,NotifyTooltip,Cursor,BackColor,Row,Col,Width,Height,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Topmost,Cargo> := <arg> => SetProperty ( _HMG_THISFORMNAME , <"p"> , <arg> )
i_windows.ch
line 63
#xtranslate <w> . \<p:Name,Handle,Type,Index,Title,Height,Width,ClientHeight,ClientWidth,Col,Row,NotifyIcon,NotifyToolTip,FocusedControl,BackColor,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Closable,Topmost,HelpButton,Cargo\> => GetProperty ( <"w">, \<"p"\> ) ;;
#xtranslate <w> . \<p:Name,Title,Height,Width,Col,Row,NotifyIcon,NotifyToolTip,FocusedControl,Cursor,BackColor,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Closable,Topmost,HelpButton,Cargo\> := \<n\> => SetProperty ( <"w">, \<"p"\> , \<n\> ) ;;
// Класс для _HMMG_aFormMiscData1.
#include "hbclass.ch"
CLASS HmgWnd
VAR cVar
VAR cName
VAR cType
VAR nIndex
VAR nHandle
VAR nParent
METHOD New( nIndex, cName, nHandle, nParent, cType, cVar ) INLINE ( ;
::nIndex := nIndex, ::cName := cName, ::nHandle := nHandle, ;
::nParent := nParent, ::cType := cType, ::cVar := cVar )
ACCESS Index INLINE ::nIndex
ACCESS Name INLINE ::cName
ACCESS Handle INLINE ::nHandle
ACCESS Parent INLINE ::nParent
ACCESS Type INLINE ::cType
ACCESS VarName INLINE ::cVar
ACCESS Row INLINE GetWindowRow ( ::nHandle )
ACCESS Col INLINE GetWindowCol ( ::nHandle )
ACCESS Width INLINE GetWindowWidth ( ::nHandle )
ACCESS Height INLINE GetWindowHeight( ::nHandle )
ACCESS ClientWidth INLINE _GetClientRect ( ::nHandle )[ 3 ]
ACCESS ClientHeight INLINE _GetClientRect ( ::nHandle )[ 4 ]
ENDCLASS
FUNCTION _GetWindowObj( cFormName )
RETURN _HMG_aFormMiscData1 [ GetFormIndex( cFormName ) ][ 1 ]
номера строк по последней версии.
h_dialog.prg
line 221
было
ELSE
Public &mVar. := Len( _HMG_aFormNames ) + 1
стало
ELSE
k := Len( _HMG_aFormNames ) + 1
Public &mVar. := k
line 277
было
ENDIF
IF Len( _HMG_aDialogTemplate ) > 0
_HMG_aDialogTemplate[1] := &mVar.
ENDIF
стало
ENDIF
_SetThisFormInfo( k )
aAdd( _HMG_aFormMiscData1 [k], HmgWnd():New( k, ;
_HMG_aFormNames [k], ;
_HMG_aFormHandles [k], ;
_HMG_aFormParentHandle [k], ;
_HMG_aFormType [k], ;
&mVar. ) )
IF Len( _HMG_aDialogTemplate ) > 0
_HMG_aDialogTemplate[1] := &mVar.
ENDIF
FUNCTION _EndDialog()
line 395
_PopEventInfo()
RETURN NIL
h_folder.prg
line 241
было
ELSE
Public &mVar. := Len( _HMG_aFormNames ) + 1
стало
ELSE
k := Len( _HMG_aFormNames ) + 1
Public &mVar. := k
line 296
было
ENDIF
IF Len( _HMG_aFolderInfo[_HMG_FldID,FLD_FLT ] ) > 0
_HMG_aFolderInfo[_HMG_FldID,FLD_FLT ,1] := &mVar.
ENDIF
стало
ENDIF
_SetThisFormInfo( k )
aAdd( _HMG_aFormMiscData1 [k], HmgWnd():New( k, ;
_HMG_aFormNames [k], ;
_HMG_aFormHandles [k], ;
_HMG_aFormParentHandle [k], ;
_HMG_aFormType [k], ;
&mVar. ) )
IF Len( _HMG_aFolderInfo[_HMG_FldID,FLD_FLT ] ) > 0
_HMG_aFolderInfo[_HMG_FldID,FLD_FLT ,1] := &mVar.
ENDIF
FUNCTION _EndFolder()
line 390
было
LOCAL Formhandle, k, ModalFolderReturn
_HMG_aFolderInfo[_HMG_FldID,FLD_AFH] := 0
стало
LOCAL Formhandle, k, ModalFolderReturn
_PopEventInfo()
_HMG_aFolderInfo[_HMG_FldID,FLD_AFH] := 0
line 487
было
ELSE
Public &mVar. := Len( _HMG_aFormNames ) + 1
стало
ELSE
k := Len( _HMG_aFormNames ) + 1
Public &mVar. := k
line 542
было
ENDIF
RETURN Nil
стало
ENDIF
_SetThisFormInfo( k )
aAdd( _HMG_aFormMiscData1 [k], HmgWnd():New( k, ;
_HMG_aFormNames [k], ;
_HMG_aFormHandles [k], ;
_HMG_aFormParentHandle [k], ;
_HMG_aFormType [k], ;
&mVar. ) )
RETURN Nil
h_windows.prg
line 418
было
ENDIF
_SetThisFormInfo( k )
aAdd( _HMG_aFormMiscData1 [k], HmgWnd():New( k, ;
_HMG_aFormNames [k], ;
_HMG_aFormHandles [k], ;
_HMG_aFormParentHandle [k], ;
_HMG_aFormType [k], ;
&mVar. ) )
IF !mdi // JP MDI
стало
ENDIF
_SetThisFormInfo( k )
IF !mdi // JP MDI
line 682
было
ENDIF
_SetThisFormInfo( k )
InitDummy( FormHandle )
стало
ENDIF
_SetThisFormInfo( k )
aAdd( _HMG_aFormMiscData1 [k], HmgWnd():New( k, ;
_HMG_aFormNames [k], ;
_HMG_aFormHandles [k], ;
_HMG_aFormParentHandle [k], ;
_HMG_aFormType [k], ;
&mVar. ) )
InitDummy( FormHandle )
line 918
было
ENDIF
_HMG_ActiveSplitChildIndex := k
_SetThisFormInfo( k )
InitDummy( FormHandle )
стало
ENDIF
_HMG_ActiveSplitChildIndex := k
_SetThisFormInfo( k )
aAdd( _HMG_aFormMiscData1 [k], HmgWnd():New( k, ;
_HMG_aFormNames [k], ;
_HMG_aFormHandles [k], ;
_HMG_aFormParentHandle [k], ;
_HMG_aFormType [k], ;
&mVar. ) )
InitDummy( FormHandle )
h_windowsMDI.prg
line 487
было
ENDIF
_SetThisFormInfo( k )
RETURN ( FormHandle )
стало
ENDIF
_SetThisFormInfo( k )
aAdd( _HMG_aFormMiscData1 [k], HmgWnd():New( k, ;
_HMG_aFormNames [k], ;
_HMG_aFormHandles [k], ;
_HMG_aFormParentHandle [k], ;
_HMG_aFormType [k], ;
&mVar. ) )
RETURN ( FormHandle )
h_PropSheet.prg
line 380
было
ELSE
Public &mVar. := Len( _HMG_aFormNames ) + 1
стало
ELSE
k := Len( _HMG_aFormNames ) + 1
Public &mVar. := k
line 432
было
ENDIF
IF Len( _HMG_aPropSheetTemplate ) > 0
_HMG_aPropSheetTemplate[ 1 ] := &mVar.
ENDIF
стало
ENDIF
_SetThisFormInfo( k ) // ?????
aAdd( _HMG_aFormMiscData1 [k], HmgWnd():New( k, ;
_HMG_aFormNames [k], ;
_HMG_aFormHandles [k], ;
_HMG_aFormParentHandle [k], ;
_HMG_aFormType [k], ;
&mVar. ) )
IF Len( _HMG_aPropSheetTemplate ) > 0
_HMG_aPropSheetTemplate[ 1 ] := &mVar.
ENDIF
line 614
было
ELSE
Public &mVar. := Len( _HMG_aFormNames ) + 1
стало
ELSE
k := Len( _HMG_aFormNames ) + 1
Public &mVar. := k
line 666
было
ENDIF
RETURN NIL
стало
ENDIF
_SetThisFormInfo( k ) // ?????
aAdd( _HMG_aFormMiscData1 [k], HmgWnd():New( k, ;
_HMG_aFormNames [k], ;
_HMG_aFormHandles [k], ;
_HMG_aFormParentHandle [k], ;
_HMG_aFormType [k], ;
&mVar. ) )
RETURN NIL
// ????? это:
Что то пропустил или не понял с h_PropSheet.prg и _SetThisFormInfo( k )
Если ставим _SetThisFormInfo( k ), то где снимать надо _PopEventInfo() ?
Или убрать и не ставить _SetThisFormInfo( k ) ?
Т.е. работать без команд This. ... .
|
). 
- участник сейчас на форуме
- участник вне форума