FiveTech Software tech support forums

... oQry := oServer:Query('SELECT p.chave, p.data, c.nome FROM pedidos AS p LEFT JOIN clientes AS c ON(c.codigo=p.codigo)' @ 0,0 XBROWSE oBrowse OF oDialog OBJECT oQry AUTOCOLS AUTOSORT LINES with object oBrowse:oCol(1) :cHeader := 'Chave' :cEditPicture := '@!' :bEditValue := {|| oQry:chave} end ...

... in a dialog, where in ON INIT, i change password=false. Example: (this code worked in the old version of fivewin 16.8 ) define dialog oDialog resource 'TECLADO' //(in .RC password=yes) redefine get oTexto var cTexto id 4020 of oDialog picture '@!k' color when .f. redefine button oBut1 ...

... in a dialog, where in ON INIT, i change password=false. Example: (this code worked in the old version of fivewin 16.8 ) define dialog oDialog resource 'TECLADO' //(in .RC password=yes) redefine get oTexto var cTexto id 4020 of oDialog picture '@!k' color when .f. redefine button oBut1 ...

Dear Ari, With latest FWH 22.10 (also available on FWH 22.06) you can do oWindow:Html() or oDialog:Html() and FWH writes the HTML for you :-) Not all controls are available yet, but you can see the way we are implementing it in FWH. Look for Method Html() in each class. ...

Dear Ari,

With latest FWH 22.10 (also available on FWH 22.06) you can do oWindow:Html() or oDialog:Html() and FWH writes the HTML for you

Not all controls are available yet, but you can see the way we are implementing it in FWH. Look for Method Html() in each class.

... At the moment I'm trying to find an initial way to pick up a window in.RC with all the controls and redraw it on page. By examining the oDialog object I can see all the controls and their properties. And I also see the dialogue in appeal that was drawn in Borland. Is there an example ...

Olá, Static Function Editar_Aluno( lAppend ) Local oDialog, aGet[46], aBtn[4], oTitle, oPanel Local cEscola, nIdade, cFotografia, aAlteracao cFotografia := oSistema():cLocal_Sistema + "temp\F" + cTempFile() + ".jpg" DEFINE DIALOG ...

... aParcelasModalidade[oBrowse:nArrayAt,3] := Calend(aParcelasModalidade[oBrowse:nArrayAt,3], r, c + 150, oDialog),) } oBrowse:aCols[2]:bFooter := {|| 'Total:'} oBrowse:aCols[2]:bEditWhen := {|| !Empty(aParcelasModalidade[oBrowse:nArrayAt,1]) } oBrowse:aCols[2]:lUseBtnWidthEditOfCol ...

... aParcelasModalidade[oBrowse:nArrayAt,3] := Calend(aParcelasModalidade[oBrowse:nArrayAt,3], r, c + 150, oDialog),) } oBrowse:aCols[2]:bFooter := {|| 'Total:'} oBrowse:aCols[2]:bEditWhen := {|| !Empty(aParcelasModalidade[oBrowse:nArrayAt,1]) } oBrowse:aCols[2]:lUseBtnWidthEditOfCol ...

... no funciona la clausula Transparent Este es mi código. METHOD ResourceLink() CLASS ComboSelector ::oUrlLink := TUrlLink():Redefine( ::idLink, ::oDialog, , , , , ::nColorUrlLink, ::nColorUrlLink, ::nColorUrlLink, .t. ) ::oUrlLink:bAction := {|| ::ActionLink() } RETURN ( Self ) Pero el control ...

... dialog with a Cancel button, but the hard part is how is the codeblock going to determine when the button is pressed? Perhaps you can use the oDialog:cargo property to hold a flag which defaults to .T. and when the button is pressed, change the flag to .F. and then the codeblock would see ...

... := ItemNew( "From a Harbour DLL-billy/don" ) local hItem1 local hItem2 local marray := {} local i, OPRINTER local ownd, OWAITDLG , ODIALOG, WORKTEXT, OSAY, MDLL altd(1) altd() hDLL = LoadLibrary( "DLL-DON2.DLL" ) SET RESOURCES TO DEFINE DIALOG owaitdlg FROM 1, 1 TO 222, ...

... a dialog in the calling program( babu.prg ) and added 1 control to it. then, I pass to the .dll ( babudll.prg ) the following. hItem1 := ItemNew( odialog:hwnd ) hItem2 := 'Dialog Handle Passed' HbDLLEntry2( "TEST3", hItem1, hitem2 ) *************** within babudll.prg, the handle is properly ...

... dData_Final } ) Browser // Browse *----------------------------------------------------------------------------* @ 100,260 XBROWSE oBrowse OF oDialog:oDlg SIZE ; oDialog:nRight - 280, oDialog:nBottom - 140 PIXEL; DATASOURCE oOcorrencia NOBORDER WITH OBJECT oBrowse :nTop := 80 :nLeft := 260 ...

... Llamada: Executar_Acao( { || oObejto := oAcao:ReQuery() } ) Función: Utilizando el codblock de la clase TGif Function Executar_Acao( bAcao ) Local oDialog, oGif DEFINE DIALOG oDialog NAME "Executar_Acao" TRANSPARENT COLOR CLR_BLACK, CLR_WHITE WITH OBJECT oDialog :bStart := { || Eval( ...