добавить для 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. ... .
|