function ClientWindows()
local i, nWnd, cItemDef, cTitle, nWidth, nHeight, nDemoWidth
local lFirstWnd := .F.
local nTop := 0
local nWindowNr := 0
local aIniEntries := GetIniSection( "Areas", oER:cDefIni )
local cAreaFilesDir := CheckPath( oEr:GetDefIni( "General", "AreaFilesDir", "" ) )
local lReticule
nDemoWidth := 0
//Sichern
aVRDSave := ARRAY( 102, 2 )
aVRDSave[101, 1 ] := oER:cDefIni
aVRDSave[101, 2 ] := MEMOREAD( oER:cDefIni )
aVRDSave[102, 1 ] := oER:cGeneralIni
aVRDSave[102, 2 ] := MEMOREAD( oER:cGeneralIni )
//? oEr:oMainWnd:oWndClient:nHeight
for i := 1 to LEN( aIniEntries )
nWnd := EntryNr( aIniEntries[ i ] )
cItemDef := GetIniEntry( aIniEntries,, "",, i )
if nWnd <> 0 .and. !Empty( cItemDef )
if lFirstWnd = .F.
nAktArea := nWnd
lFirstWnd := .T.
endif
if Empty( cAreaFilesDir )
cAreaFilesDir := cDefaultPath
endif
if Empty( cAreaFilesDir )
cAreaFilesDir := cDefIniPath
endif
cItemDef := VRD_LF2SF( AllTrim( cAreaFilesDir + cItemDef ) )
aVRDSave[nWnd, 1 ] := cItemDef
aVRDSave[nWnd, 2 ] := MEMOREAD( cItemDef )
nWindowNr += 1
aAreaIni[nWnd] := IIF( AT( "\", cItemDef ) = 0, ".\", "" ) + cItemDef
cTitle := AllTrim( GetPvProfString( "General", "Title" , "", aAreaIni[nWnd] ) )
oGenVar:aAreaSizes[nWnd] := ;
{ Val( GetPvProfString( "General", "Width", "600", aAreaIni[nWnd] ) ), ;
Val( GetPvProfString( "General", "Height", "300", aAreaIni[nWnd] ) ) }
nWidth := ER_GetPixel( oGenVar:aAreaSizes[nWnd, 1 ] )
nHeight := ER_GetPixel( oGenVar:aAreaSizes[nWnd, 2 ] )
//nDemoWidth := nWidth
//if oGenVar:lFixedAreaWidth = .T.
// nWidth := 1200
//else
nWidth += oEr:nRuler + nAreaZugabe2
//endif
nDemoWidth := Max( nDemoWidth, nWidth )
aWnd[ nWnd ] = ER_MdiChild():New( nTop, oEr:oMainWnd:oWndClient:nLeft + 2 , nHeight + nAreaZugabe,;
nDemoWidth, cTitle, nOr( WS_BORDER ),, oEr:oMainWnd,, .F.,,,,;
oGenVar:oAreaBrush, .T., .F. ,,, , , , , 1 ) // Esto
aWnd[ nWnd ]:nArea = nWnd
aWndTitle[ nWnd ] = cTitle
lReticule = oGenVar:lShowReticule
oGenVar:lShowReticule = .F.
FillWindow( nWnd, aAreaIni[nWnd] )
ACTIVATE WINDOW aWnd[ nWnd ] ;
VALID !GETKEYSTATE( VK_ESCAPE )
oGenVar:lShowReticule := lReticule
nTop += nHeight + nAreaZugabe
endif
next
nTotalHeight := nTop
nTotalWidth := nWidth
ItemList( aPnels[1] ) // Esto
return .T.
//----------------------------------------------------------------------------//