FiveTech Software tech support forums

Marcelo,

OK, now I see the issue.

As I mentioned in a previous post, you should clone the global font before assigning it to a dialog.

Local oFont:= oClone( AppFont() )

This way when the dialog ends the font, it doesn't have any effect on the global font or the global font counter.

James

... then you are ending it. Then next time you are trying to use the same font that you just ended. Try creating a clone of the app font oFont:= oClone( oApp():oFont ) Then ending the clone when you are done with it. James

... actually returns the same object with its internal counter :nCount incremented. Actually, the internal method :Modify() achieves the same effect. oClone := Clone_Font( oArial ) // your method is exactly same as oClone := oArial:Modify() // inbuilt method without parameters. Example: DEFINE FONT ...

Has probado a realizar un oClone del objeto en lugar de una asignacion directa?
Es una idea, por si lo elimina por referencia al destruir el dialogo

Hi! I start getting err 667 in Clipper 5.2 application (there is no FW only objects library), Causeway linker.

OCLONE (0) Unrecoverable error 667: Eval stack fault

please help

oNew := oClone( oObject )

Salu2

... function clientes(olbx,lnuevo,oMae,oMemos,oDomcli,oClitrans,oHasedro) LOCAL oBrw oData:=oClone(oMae) oHasedro:setfilter() oHasedro:setfilter({ || (oHasedro:cAlias)->ncli == oMae:ncli }) oHasedro:gotop() IF lNuevo iif(!empty(oLbx), orden(2,olbx,oMae),oMae:setorder(1)) ...

... Algo pasa con los tags <code clipper> y <code> . No está formateando cuando hay código en los ejemplos. Cambiaron estos tags ? Oclone() OemToAnsi() OpenClipboard() OpenComm() ORead() OSend() OutportByte() OutportWord() OutputDebugString() oWndFromhWnd() PageBegin() PalBmpDraw() ...

James, Otto,

Please be aware that oClone() should not be used with Windows handles as those can't be "cloned"

Otto,

No, you are just creating an alias for the same font object.

To create a copy of an object:

oNew := oClone( oObject )

James

... 500, 510 pixel oBrw1:CreateFromCode() activate dialog oDlg1 on init InitBrowse( oBrw1, oBrw ... Static Function InitBrowse( oBrw1, oBrw ) oBrw1 := oClone( oBrw ) oBrw1:delcol(2) oBrw1:nTop := 0 oBrw1:nLeft := 0 oBrw1:nRight := 10 oBrw1:nBottom := 50 Return Nil Isto não funcionou. vc va a utilizar ...

... Rossine. Hola Rossine, Seja mais especifico: Em @say... ou Editor de Recursos? Se a Browse inicial esta no mesmo modulo, podes usar o comando oClone(). Para Clonar o o Objeto da Browse inicial para a Proxima Browse . oDbLbx:= oClone( oDbfClientes ) Tens a mesma LISTBOX em qualquer ...

... ) // 2 línias sustituyen 2 anteriores. CG oClon:aTField := aclone( oDb:aTField ) oClon:aTIndex := aclone( oDb:aTIndex ) #else //oClon:aTField := oClone( oDb:aTField ) //oClon:aTIndex := oClone( oDb:aTIndex ) // 2 línias sustituyen 2 anteriores. CG oClon:aTField := aclone( oDb:aTField ) oClon:aTIndex ...

... me explico. Este método realiza: oClon:aTField := __objClone( oDb:aTField ) oClon:aTIndex := __objClone( oDb:aTIndex ) #else oClon:aTField := oClone( oDb:aTField ) oClon:aTIndex := oClone( oDb:aTIndex ) clonando en realidad unas ARRAYs de objetos. Por tanto debería realizarse un Aclone() y ...