FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Doble monitor
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Doble monitor
Posted: Thu Dec 26, 2013 03:26 AM

Amigos,
Se requiere que en un monitor se ejecute una aplicaci贸n, la misma que es controlada por u operador, pero al mismo tiempo en un segundo monitor aparezca informaci贸n qu es maneja por la aplicaci贸n en el primer monitor,,, es para mostrar a los clientes las acciones de una venta...
Como hacer???
Salu2

Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Re: Doble monitor
Posted: Thu Dec 26, 2013 11:31 AM
Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos
Posts: 166
Joined: Mon Dec 12, 2005 09:56 AM
Re: Doble monitor
Posted: Fri Jan 03, 2014 09:39 AM

Hola Willy, yo lo tengo hecho de una forma simple en la aplicaci贸n que utilizamos en la tienda:

Declaras el primer dialogo y en el INIT de este llamas a la funci贸n que crea el dialogo del cliente, en este segundo dialogo en el INIT le pones oDlgCliente:Move(1,1281,,,.t.). Mi monitor principal es de 1280x1024, luego el segundo dialogo sale en el monitor de la derecha.

Saludos

Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Doble monitor
Posted: Fri Jan 03, 2014 01:55 PM

Gracias por el Tip,,, pero a mi se me complica, por que yo uso un DIALOG incrustado en una Window MDI +- asi: y aun no veo como "asignar" un 2do DIALOG.

...
ACTIVATE DIALOG oDlg CENTER NOWAIT ;
ON INIT (oMTick:Hide(),oSerieNumero[4]:Hide(), EVAL(eVaciaDet), ; //
IF(oApp:lValesConsumo, oValeCon:Show(), oValeCon:Hide()), ;
CargaFont(oMySQL , oTiEmp, "t1"), ;
ReAsignaBoton(oMySQL, oBMetro), ;
IF(lTicket,(oMTick:Show(),oSerieNumero[4]:Show(),oTDocum:Hide(), oTxTotal:Show(), oTxRecibi:Show(), oTxVUelto:Show(), oTotall:Show(), oRecii:Show(),oVueltoo:Show()),(oTxTotal:Hide(), oTxRecibi:Hide(), oTxVUelto:Hide(), oTotall:Hide(), oRecii:Hide(), oVueltoo:Hide(), oTDocum:Show())), ;
If(nNumWin = 1, aDetVen := BackTemporal(aDetVen, 1), ), oLbx:SetArray(aDetVen), oLbx:Refresh(), ;
If(!lTicket,oTicket:Hide(),), ;
nNumWin++, ;
oDlg:Move( 0, 0 ) ) ;
VALID (oWnd3:End(), If(lSalir,tFacBolGui:End(),), lSalir )
oWnd3:bGotFocus = { || oDlg:SetFocus() }
ACTIVATE WINDOW oWnd3 ;
ON INIT (oWnd3:Move(0,0), oWnd3:SetSize( oDlg:nWidth, oDlg:nHeight ) ) ; // MAXIMIZED ;
ON RESIZE (oWnd3:SetSize( oDlg:nWidth, oDlg:nHeight ) ) ;
VALID (oApp:aVentana[4] := .f., lSalir )

Continue the discussion