FiveTech Support Forums

#include "FiveWin.ch"
#include "Splitter.ch"

function Main()
local oWnd

Define Window oWnd Title "Principal" Mdi Menu ps_Menu(oWnd) Brush TBrush():New(, CLR_WHITE ) VSCROLL HSCROLL
Activate Window oWnd MAXIMIZED Valid MsgYesNo('Desea salir')
return nil


static func ps_Menu(oWnd)
local oMenu
Menu oMenu
MenuItem "Child" Action ps_Child(oWnd)
EndMenu
return oMenu

static proc ps_Child( oWnd )
local oChild
Define Window oChild MdiChild Title 'Child' of oWnd
Activate Window oChild On Init ps_Dialog(oChild) Valid ps_Salir(oChild)
return



static func ps_Salir(oChild)
oChild := ''
hb_gcAll(.T.)
return .T.



static proc ps_Dialog( oChild )
local oDlg, aGet[8], aVar[8]
local oOutlook, oControl, aRect, oSplitOut, nWidth, nHeight

DEFINE DIALOG oDlg Resource "Dialogo" OF oChild Transparent Gradient { { 1, RGB(229, 233, 238), RGB(255, 255, 255) } }
SetParent( oDlg:hWnd, oChild:hWnd )

DEFINE OUTLOOK2003 oOutLook OF oChild PROMPTS "Accesos"
SetParent( oOutLook:hWnd, oChild:hWnd )
oChild:oLeft := NIL

aVar[1] := space(2)
Redefine Get aGet[1] Var aVar[1] Id 102 Update Message 'Indique el código del usuario' Of oDlg
aVar[2] := space(50)
Redefine Get aGet[2] Var aVar[2] Id 103 Update Message 'Indique el nombre del usuario' Of oDlg

aVar[3] := space(50)
Redefine Get aGet[3] Var aVar[3] Id 104 Update Message 'Indique el código de la empresa' Of oDlg
aVar[4] := space(50)
Redefine Get aGet[4] Var aVar[4] Id 105 Update Message 'Indique el nombre de la empresa' Of oDlg

for each oControl in oDlg:aControls
  oControl:bLClicked = GenBlock( oChild, oControl )
next     

aRect := oOutLook:aDialogs[ 1 ]:GetCliRect()
@ 0, aRect:nRight SPLITTER oSplitOut ;
   VERTICAL _3DLOOK ;
   PREVIOUS CONTROLS oOutLook ;
   HINDS CONTROLS oDlg ; 
   SIZE 4, oChild:nHeight - 70 PIXEL ;
   OF oChild
SetParent( oSplitOut:hWnd, oChild:hWnd )

ACTIVATE DIALOG oDlg NoWait Valid oChild:End()
oDlg:Move( 0, oSplitOut:nRight,,, .F. )
nWidth  := oDlg:nWidth
nHeight := oDlg:nHeight

oSplitOut:bLDblClick := {|| oSplitOut:SetPosition(oSplitOut:nFirst) }
Eval( oSplitOut:bLDblClick )

oChild:bResized := {|| oSplitOut:AdjClient()}
oDlg:bResized := {|| Ghe_Resize(oDlg)}

nWidth += oOutLook:nWidth
nWidth += oSplitOut:nWidth
nWidth += 7

if oChild:nWidth > nWidth
  nWidth := oChild:nWidth
endif
nHeight += 7
if oChild:nHeight > nHeight
  nHeight := oChild:nHeight
endif
oChild:SetSize(nWidth, nHeight, .F.)
return



function GenBlock( oWndChild, oControl )
return { || oWndChild:SetFocus(), oControl:SetFocus() }



Proc Ghe_Resize( oDlg )
if oDlg:oBrush<>NIL
  oDlg:SetColor(,, oDlg:oBrush:Resized( oDlg:nWidth, oDlg:nHeight, 2) )
endif
return

DIALOGO DIALOG DISCARDABLE 0, 0, 332, 86
STYLE WS_CHILD|WS_VISIBLE
FONT 8, "MS Sans Serif"
{
  CONTROL "123", 102, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 89, 31, 39, 12
  CONTROL "123456", 103, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 136, 31, 146, 12
  CONTROL "12", 104, "Edit", WS_BORDER|WS_TABSTOP, 89, 58, 32, 12
  CONTROL "1", 105, "Edit", WS_BORDER|WS_TABSTOP, 136, 58, 105, 12
  CONTROL "Usuario:", -1, "Static", SS_CENTERIMAGE|WS_GROUP, 50, 33, 31, 12
  CONTROL "Empresa:", -1, "Static", SS_CENTERIMAGE|WS_GROUP, 50, 60, 31, 12
}

oDlg:SetColor(,, oDlg:oBrush:Resized( oDlg:nWidth, oDlg:nHeight, 2) )

oDlg:bResized := {|| Ghe_Resize(oDlg)}