Doble monitor

Doble monitor

Postby Willi Quintana » Thu Dec 26, 2013 3: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
User avatar
Willi Quintana
 
Posts: 1019
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú

Re: Doble monitor

Postby fgondi » Thu Dec 26, 2013 11:31 am

Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
User avatar
fgondi
 
Posts: 694
Joined: Fri Oct 07, 2005 6:58 am
Location: Palencia, España

Re: Doble monitor

Postby Sebastián Almirón » Fri Jan 03, 2014 9: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
User avatar
Sebastián Almirón
 
Posts: 157
Joined: Mon Dec 12, 2005 9:56 am
Location: Moralzarzal - Spain

Re: Doble monitor

Postby Willi Quintana » Fri Jan 03, 2014 1: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 )
User avatar
Willi Quintana
 
Posts: 1019
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 85 guests