Tengo una duda como solucionar este problema tengo con una ventana principal como detallo mas abajo cuando abro otra ventana MDICHILD y al cerrarla la parte ocupada se pierda lo que estaba, si minimizo y maximizo se repinta nuevamente. Que solucion se puede aplicar . Gracias
DEFINE CURSOR oCursor HAND
DEFINE BRUSH oBrush FILE op:bmp+"paper.bmp"
DEFINE WINDOW oWind MDI TITLE op:ctitulo ;
ICON oIco MENU omenu BRUSH oBrush
BuildRibbonBar()
@130, 10 GROUP TO 250, 150 OF oWind PIXEL
@150, 40 SAY "VENTAS" FONT oFontSmall COLOR CLR_BLUE, CLR_WHITE SIZE 75, 35 OF oWind TRANSPARENT PIXEL
@180, 40 SAY oSayMando[1] PROMPT cSayMando[1] FONT oFontmed COLOR CLR_BLUE, CLR_WHITE SIZE 70, 35 OF oWind TRANSPARENT PIXEL
@130,160 GROUP TO 250, 300 OF oWind PIXEL
@150,190 SAY "COMPRAS" FONT oFontSmall COLOR CLR_BLUE, CLR_WHITE SIZE 85, 35 OF oWind TRANSPARENT PIXEL
@180,190 SAY oSayMando[2] PROMPT cSayMando[2] FONT oFontmed COLOR CLR_BLUE, CLR_WHITE SIZE 70, 35 OF oWind TRANSPARENT PIXEL
@130,310 GROUP TO 250, 450 OF oWind PIXEL
@150,340 SAY "GUIAS DE CARGA" FONT oFontPeque COLOR CLR_BLUE, CLR_WHITE SIZE 75, 35 OF oWind TRANSPARENT PIXEL
@180,340 SAY oSayMando[3] PROMPT cSayMando[3] FONT oFontmed COLOR CLR_BLUE, CLR_WHITE SIZE 70, 35 OF oWind TRANSPARENT PIXEL
@130,460 GROUP TO 250, 600 OF oWind PIXEL
@150,490 SAY "STOCK LOCAL " FONT oFontPeque COLOR CLR_BLUE, CLR_WHITE SIZE 75, 35 OF oWind TRANSPARENT PIXEL
@180,490 SAY oSayMando[4] PROMPT cSayMando[4] FONT oFontmed COLOR CLR_BLUE, CLR_WHITE SIZE 70, 35 OF oWind TRANSPARENT PIXEL
// Lista de Productos Stock
cMsg := "SELECT codigo,detalle,stock FROM mercaderia WHERE sucursal ="+ClipValue2Sql(op:empresa)
oQryStock := oServer:Query( cMsg )
// Lista de Stock
@250,10 XBROWSE oBrwStock OF oWind PIXEL ;
OBJECT oQryStock ;
FIELDS oQryStock:codigo,oQryStock:detalle,oQryStock:stock ;
HEADERS "Codigo","Descripcion","Stock" ;
SIZES {50,275,70}
For a:=1 To 3
oBrwStock:aCols[a]:nHeadStrAlign:= AL_CENTER
Next
WITH OBJECT oBrwStock
:l2007 := .F.
:lTransparent := .T.
:lDesign := .f.
:lRecordSelector := .F.
:lVScroll := .f.
:lHScroll := .f.
:lColChangeNotify := .t.
:lAllowColReGroup := .t.
:lColDividerComplete := .t.
:SetGroupHeader( 'STOCK DEL LOCAL', 1, 3, oFontx )
:oFont := oFont
:nBottom := 550
:nRight := 400
:nDataLines := 1
:nStretchCol := 1
:nRowHeight := 25 // * 1.5
:bClrStd := { || { CLR_BLACK, CLR_HGRAY }}
:bClrSelFocus := { || { CLR_WHITE, METRO_OLIVE } }
SetColor( CLR_WHITE, RGB( 0x33, 0x66, 0xCC ) )
:SetDolphin( oQryStock, .F. )
:aCols[1]:nWidth := 60
:aCols[1]:lAllowSizing := .f.
:nColDividerStyle := LINESTYLE_NOLINES
:nRowDividerStyle := LINESTYLE_LIGHTGRAY
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:bClrSel := { || { CLR_BLACK, CLR_HGRAY } }
:CreateFromCode()
END
REPINTAR UNA WINDOW
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: REPINTAR UNA WINDOW
Carlos,
En un entorno MDI no está permitido crear controles hijos de la ventana principal.
Tienes que usar la ventana "fantasma" oWnd:oWndClient, así que en vez de hacer:
@130, 10 GROUP TO 250, 150 OF oWind PIXEL
tienes que hacer:
@130, 10 GROUP TO 250, 150 OF oWind:oWndClient PIXEL
El segundo problema que se presenta es que un entorno MDI "controla" a sus ventanas hijas, por lo que cuando
reorganices las ventanas del MDI comprobarás que esos controles hijos (que son ventanas también) se reorganizan, etc
y esto es algo que no deseas.
Aquí tienes un ejemplo de cómo tienes que hacer para que puedan coexistir controles y ventanas hijas MDI:
http://forums.fivetechsupport.com/viewt ... 08#p208508
En un entorno MDI no está permitido crear controles hijos de la ventana principal.
Tienes que usar la ventana "fantasma" oWnd:oWndClient, así que en vez de hacer:
@130, 10 GROUP TO 250, 150 OF oWind PIXEL
tienes que hacer:
@130, 10 GROUP TO 250, 150 OF oWind:oWndClient PIXEL
El segundo problema que se presenta es que un entorno MDI "controla" a sus ventanas hijas, por lo que cuando
reorganices las ventanas del MDI comprobarás que esos controles hijos (que son ventanas también) se reorganizan, etc
y esto es algo que no deseas.
Aquí tienes un ejemplo de cómo tienes que hacer para que puedan coexistir controles y ventanas hijas MDI:
http://forums.fivetechsupport.com/viewt ... 08#p208508
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: REPINTAR UNA WINDOW
Muestra aquí una imagen de cómo se ve tu aplicación y te indicamos como programarla correctamente