FiveTech Software tech support forums

... existe alguma forma de manter o gif animado enquanto se executa as ações? Ex.: bAcao = { || oOBjeto := oTeste:ReQuery() } na rotina DEFINE DIALOG oDialog NOWAIT CENTERED ; ON INIT TGif( oDialog, "meter.gif",0,0,,,,, bAcao) Att., Oliveiros Junior

... de su DLL, pero no me funciona. Os dejo el ejemplo q estoy montando. #include "FiveWin.Ch" function ImportarPedidosProveedor() local oDialog msgalert( SetResources( "Test.Dll" ) ) DEFINE DIALOG oDialog RESOURCE "GETSERIE" REDEFINE BUTTON ; ID IDOK ; OF oDialog ...

Saludos Tuve que hacer algo asi y me funciono, que te expongo en tu ejemplo: [code} FUNCTION build_pages( oFolder ) LOCAL oDialog FOR J := 1 TO LEN( oFolder:aPrompts ) DEFINE DIALOG oDialog OF oFolder STYLE NOR( WS_VISIBLE, WS_DLGFRAME, WS_CHILD) TRANSPARENT FOR I := 1 TO LEN(oBtn) ...

... on init(ConfiguraDialogPrincipal(odlg)) ; VALID MsgYesNo( "Do you want to end ?" ) return nil static procedure ConfiguraDialogPrincipal( oDialog ) oDialog:maximize() oDialog:center() return

... c:\teste\CorrecaoDeNotas.prg(171) Error E0022 Invalid lvalue: ':' linha 171: redefine get hInput['nFilial'] var oRegistroDaNota:CodFil() id 116 of oDialog when .f. alguém já passou por isso? Intenta asi redefine get hInput['nFilial']       var &(oRegistroDaNota:CodFil()) ...

... c:\teste\CorrecaoDeNotas.prg(171) Error E0022 Invalid lvalue: ':' linha 171: redefine get hInput['nFilial'] var oRegistroDaNota:CodFil() id 116 of oDialog when .f. alguém já passou por isso?

tenho um xbrowse transparente com o seguinte código: Redefine xBrowse oBrw3 id 103 of oDialog update obrw3:SetArray(aTeste3) oBrw3:nStretchCol := STRETCHCOL_LAST oBrw3:nRowDividerStyle := LINESTYLE_RAISED oBrw3:nColDividerStyle := LINESTYLE_RAISED oBrw3:nMarqueeStyle ...

Are you using STYLE DS_SYSMODAL to create it ? Yes. I only change: Define dialog oDialog resource "SELECIONADEBCRE" title "Gerenciador TEF -- PAGAMENTO" font oFonte to Define dialog oDialog resource "SELECIONADEBCRE" title "Gerenciador ...

FWH1308 R_3: define dialog oDialog resource 'BROWSEINFOADICIONAIS' redefine xbrowse oBrowse id 4000 of oDialog datasource 'tabiad' ... Application =========== Path and name: C:\BASE\getpdv.exe (32 bits) Size: ********* bytes Compiler version: ...

... modificada a mis necesidades... BlurEffect( oDIALOG, nTimes, lForWard, WinXp) oDialog == objeto a pintar vidrio opaco //dialogo, ventana, boton, foto, etc... nTimes == Veces a ser pintado para ...

Antonio,
if I close a child-dialog from parent-dialog with a button-action oDialog_child:end() this "oDialog_child" are closed but the button fires on some cases double and a error-message appears. (oDialog_child is in the meanwhile NIL and cannot ended)

Also, as controls are kept in oDialog:aControls, it may also be required to swap their order there:

oPrev = oDialog:aControls[ n ]
oNext = oDialog:aControls[ n + 1 ]

oDialog:aControls[ n ] = oNext
oDialog:aControls[ n + 1 ] = oPrev

... to figure out how to draw a line on a graph created with TGraph. I am using the drawLine() method and have tried calling it from oGraph:bInit, oDialog:bInit, and from a button after the graph has been drawn. None of these methods results in a line. Here is an example: @ 0,30 button "Line" ...

... servir para las opciones del GetSysMetrics http://msdn.microsoft.com/en-us/library/windows/desktop/ms724385(v=vs.85).aspx oDialog es la ventana principal y retorno Function BlurEffect( oDialog )  LOCAL hBmp, i  LOCAL hBlur  LOCAL oWnd    ...

... and I just want to know if there is something special about Dialogs that I need to know to make my calculations??? EDITED1: I tested msginfo( oDialog:nwidth ) and It returned the right coordinates in pixels... It seems that the size of the dialog is right, but the size and position of the ...