FiveTech Software tech support forums

... antes DEFINE WINDOW oWnd FROM 0,0 TO nHeith,nWith PIXEL MDICHILD OF oWind ; TITLE "Mantenimiento de Valorizaciones" ICON oIco NOZOOM NOICONIZE @ 10,10 XBROWSE oBrw OF oWnd ; DATASOURCE oQry ; COLUMNS aCols ; LINES CELL AUTOSORT SIZE -10,-10 PIXEL FONT oFont WITH OBJECT oBrw :bClrRowFocus ...

... SW_MINIMIZE 6 #Define SW_RESTORE 9 /*******************************/ function Main() /* */ define window ownd from 10, 10 to 20, 30 ; nozoom ; noiconize ; nosysmenu ; no caption ; border none title 'Focus Test Application ' @ 3, 5 BUTTON oButton[1] prompt "&Ok" SIZE 40, 20 ACTION ...

... <oMenu> ] ; [ STYLE <nStyle> ] ; [ BORDER [ NONE | SINGLE ] ] ; [ NOSYSMENU | NO SYSMENU ] ; [ NOCAPTION | NO CAPTION | NO TITLE ] ; [ NOICONIZE | NOMINIMIZE ] ; [ NOZOOM | NO ZOOM | NOMAXIMIZE | NO MAXIMIZE ] ; [ VSCROLL | VERTICAL SCROLL ] ; [ HSCROLL | HORIZONTAL SCROLL ]

... LOCAL oBar,oBrw DEFINE WINDOW oWnd2 MDICHILD FROM 0, 0 TO oWnd1:nHeight, oWnd1:nRight-230 PIXEL TITLE "Inventario de Armas" NOSYSMENU NOICONIZE NOCAPTION OF oWnd1 SELE INV_EQ @ 0,0 BROWSE oBrw ALIAS "INV_EQ" OF oWnd2 COLOR nCOLOR2,nCOLOR1 ADD COLUMN TO oBrw DATA FieldWBlock('MODELO',SELECT()) ...

... 1. Adding a MDICHILD like : DEFINE WINDOW oWndBtn MDICHILD OF oWndMain FROM 50, 20 TO 520, 190 PIXEL ; BORDER NONE ; NOSYSMENU ; NOICONIZE ; NOCAPTION 2. capture the Brush-area from the Mainwindow. STATIC FUNCTION CHILDPAINT( hDC, oWnd ) local aPoint aPoint := ClientToScreen( ...

... tengo asi : DEFINE BitMap oBmp RESOURCE "LOGO_EMP" DEFINE WINDOW oWin Title "Sistema Empresarial" Icon "AAsesores" NOICONIZE //Menu MenuG() oWin:bPainted := {|hDC| ABmpTiled(hDC,oWin,oBmp)} FUNCTION ABmpTiled( hDC, oWnd, oBmp ) local nWidth := oWnd:nWidth(), nHeight ...

... DEFINE WINDOW oWndBtn MDICHILD OF oWndMain FROM 50, 20 TO 350, 190 PIXEL ; BORDER NONE ; NOSYSMENU ; NOICONIZE ; NOCAPTION ; BRUSH oBrush4 Best Regards Uwe :lol: Many thanks Uwe ! That was what I need ... Regards !

... DEFINE WINDOW oWndBtn MDICHILD OF oWndMain FROM 50, 20 TO 350, 190 PIXEL ; BORDER NONE ; NOSYSMENU ; NOICONIZE ; NOCAPTION ; BRUSH oBrush4 A project-sample : http://www.pflegeplus.com/pictures/MdiChild1.jpg #include "fivewin.ch"STATIC ...

... FUNCTION TRANSPCHILD(oWnd7) local hDC, oWndBtn DEFINE WINDOW oWndBtn MDICHILD OF oWnd7 FROM 55, 17 TO 185, 175 PIXEL ; BORDER NONE ; NOSYSMENU ; NOICONIZE ; NOCAPTION // 2 Buttons painted 1. Switch Dialog ON / OFF to show the complete Window-background 2. Exit MDI-frame ( Preview ) ... ... ACTIVATE ...

... In case You don't want a Border, it is a bit more complicated : You must define 2 Childs : a NON visible < oWndChild > with NOSYSMENU NOICONIZE BORDER NONE NOCAPTION A second < oWndSelect > For painting NOSYSMENU NOICONIZE You define the MDI-child < oWndSelect > and move ...

... ) : .. .. DEFINE BRUSH oBrush3 COLOR 14853684 DEFINE WINDOW oWndBtn MDICHILD OF oWndMain FROM 50, 50 TO 350, 220 PIXEL ; BORDER NONE ; NOSYSMENU ; NOICONIZE ; NOCAPTION ; BRUSH oBrush3 @ 10, 10 BTNBMP oBtn1 OF oWndBtn PIXEL ; SIZE 150 , 80 PROMPT "Hide Child" 2007 ; FONT oFont1 ; TOP ...

... are working, but I still need to move the window, using the mouse. Is it possible to move a MDI-Child without a title ? MDI-Child => NOSYSMENU NOICONIZE NOTITLE http://www.pflegeplus.com/pictures/mdititle.jpg Maybe possible a capture on the message-bar-area to move the window ...

... DEFINE WINDOW oWndCh OF oWnd ; TITLE O2A('AlmaGest(c) v.8.9') FROM 10,10 TO 35,115 ; MENU Menu1() ; BRUSH oBruCh ; ICON oIcoCh BORDER NONE NOICONIZE NOMAXIMIZE NOSYSMENU de lo contrario si quieres dejarlo tal cual esta lo que debes hacer es eliminar de la instruccin anterior el "OF oWnd" ...

... BRICKS DEFINE WINDOW oWndCh OF oWnd ; TITLE O2A('AlmaGest(c) v.8.9') FROM 10,10 TO 35,115 ; MENU Menu1() ; BRUSH oBruCh ; ICON oIcoCh BORDER NONE NOICONIZE NOMAXIMIZE NOSYSMENU DEFINE BUTTONBAR oBarCh 3D SIZE 40, 40 OF oWndCh 2007 DEFINE BUTTON OF oBarCh RESOURCE "exit" ; ACTION oWnd:End() ; TOOLTIP ...

Marco Augusto wrote:DEFINE WINDOW oWndX STYLE WS_POPUP FROM 0, 0 TO ScreenHeight, ScreenWidth PIXEL NOSYSMENU NOICONIZE
*
@ 0, 0 IMAGE oImage SIZE ScreenWidth,ScreenHeight OF oWNDX ADJUST
ACTIVATE WINDOW oWndX RETURN NIL

SALUDOS

Y si usara BRUSH como lo haria, tienes un ejemplo