FiveTech Software tech support forums

Hi Mr. Antonio,

What I would like to do is paste a dialog on oWndMdi:oWndClient which does not overlapped with MDICHild... Or, a panel floating behind MdiChilds.

Byron I presume this happens randomly ... I would put a few well placed oWndMdi:Refresh() and perhaps accompanied by a SysReFresh() after coming out of some of your large ( add\edit ) modules .. after you close your tables ... especially if you are closing ADO ...

... [code] DEFINE ICON oICO RESOURCE "SCANNER" DEFINE WINDOW oUser ; FROM 2,2 to 25,65 ; of oWndMDI ; TITLE "USERINFO Administrative Browse" ; MENU BuildMenu(oRsUser) ; ICON oICO ; NOMINIMIZE ; NOZOOM ; MDICHILD @ 0, 0 xBROWSE oBrow ...

Hola Amigos del foro: Aca las respuestas.. csincuir mi codigo es largo y rebuscado, pero es algo como esto: - oBrw es un xBrowse dentro de oWndMDI (MDI) - oGraph lo creo dentro de oWndGrf (TGroup) - y separo oBrw de oWndGrf con oSplit oBrw:nWidth := oBrw:nWidth/4oWndGrf:=TGroup():New( ...

Hello gkuhnert

Your problem not is xbrowse is window creating

what is the MDI Windows of oWin2 (MDICHILD) ?
you do need put it
OF window MDI
example
DEFINE WINDOW oWin2 MDICHILD TITLE "XBrowse Test" OF oWndMDI

... reference to this function ?? I am using the code each time I send an e-mail .. should WSAStartup() only be initialized once in a session ?? Rick oWndMdi:SetMsg( "Sending Project ADD noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting ...

... the first one fails .. something is just not trapping the code or closing the socket .. Really at a loss here if anyone can help. Here is my code oWndMdi:SetMsg( "Sending Project ADD noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting ...

Rick,

Just after:

oOutMail:bDone = { || oWndMdi:SetMsg( "Message sent successfully" ) }

... ) oRsSpon:MoveNext() ENDDO Then pass this array to the SMTP Class : oWndMdi:SetMsg( "Sending Reporting noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting ...

... ) cSAY := "Opening Initial PROJECT Data Recordset" @ 1,13 SAY oSay var cSAY of oDLG COLOR "N/W" oDLG:bStart := { | | lOK1 := _OpenUm(oDlg, cSQL, oWNDMDI, lFROMLINK, xPROJECTEID ) } ACTIVATE DIALOG oDLG CENTERED IF lOK1 = .F. SysReFresh() RETURN(NIL) ENDIF SysReFresh() _PBrow(oWndMdi, cSQL, lFROMLINK, ...

... SAYING += "Error "+STR(FERROR())+CHR(10) MsgInfo( SAYING ) ENDIF FWRITE( nHANDLE, cTEXT ) // write out the file FCLOSE( nHANDLE ) SysReFresh() oWndMdi:SetMsg( "Sending Project ADD noticication to "+cTO ) WSAStartup() oOutMail := TSmtp():New( cIP := GetHostByName( cHOST ) ) oOutMail:bConnecting ...

... NOWAIT RETURN nil //------------------------------------------------------------------------------------------// STATIC FUNCTION NuevaVent() LOCAL oWndMDI nVentana:= nVentana + 1 DEFINE WINDOW oWndMDI MDI TITLE "Soy la Ventana "+ALLTRIM(STR(nVentana)) ACTIVATE WINDOW oWndMDI ON INIT oWndMDI:Move(nXPos:= ...

... xPASSWORD := "pcas" // grpbrow.prg // #INCLUDE "FIVEWIN.CH" STATIC oBROW,oGRP STATIC lOK //---------------------------- FUNCTION _GRPbrow( oWndMDI ) LOCAL SAYING, oRs,oErr, cSQL, cTITLE lOK := .F. IF xSUPER = 'Y' .or. xADMIN = 'Y' ELSE SAYING := "SORRY ... Supervisor or Admin Rights only" ...

... table" ) RETURN(.F.) END TRY oRs:Find("USERID = '"+xLOGIN+"'" ) IF oRs:eof oRs:MoveFirst() ENDIF DEFINE WINDOW oUser ; FROM 2,2 to 25,65 ; of oWndMDI ; TITLE "USERINFO Records Browse" ; MENU BuildMenu(oRs) ; NOMINIMIZE ; NOZOOM ; MDICHILD @ 0, 0 LISTBOX oBrow FIELDS ; oRs:Fields("USERID"):Value, ...

... and put the Window syntax and the browse seems to have problems defining the listbox. Sorry to be such a pest on a holiday !! Rick Lipkin static Owndmdi //-------------------------------------------------------- STATIC FUNCTION _LwmfsBrow( oRs, oWND ) LOCAL oBrw, nRec, oDLG lOK := .F. /* DEFINE ...