Daniel anothe test
#include "FiveWin.ch"
static ownd, owndlayout
/***************************************/
function Main()
/*
*/
local oGrupo, oBtn1, oRibbon
local oBtn2, oBtn3, oBtn4
SetBalloon( .T. )
DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ;
TITLE "This is a MDI enviroment" MDI ;
MENU BuildMenu()
DEFINE BUTTONBAR oBar OF oWnd SIZE 32, 32 2007
SET MESSAGE OF oWnd TO "A message bar"
ACTIVATE WINDOW oWnd maximized
return nil
function BuildMenu()
local oMenu
MENU oMenu 2007
MENUITEM "&DataBases"
MENU
MENUITEM "&Clients..." FILENAME "..\bitmaps\16x16\favorite.bmp" ACTION teste()
MENUITEM "&Report..."
MENU
MENUITEM "&One..." DISABLED
MENUITEM "&Two..." CHECKED
MENUITEM "&Three..." WHEN .F.
ENDMENU
SEPARATOR
MENUITEM "&End" ACTION oWnd:End()
ENDMENU
MENUITEM "Edit" WHEN .F.
oMenu:AddHelp()
MENUITEM "Another item"
ENDMENU
return oMenu
/*********************************************************/
function teste()
/*
*/
local oBrowse, oGet[2], cTest:=SPACE(10),cTest2:=space(10)
local hLays := {=>}
local hButtons := {=>}
local hBrowses := {=>}
local oFld
Local oFont := TFont():New( "Lucida Console", 0, -10,, )
Local oFonttxt := TFont():New( "Lucida Console", 0, -16,, )
Local oTitle
USE CUSTOMER NEW SHARED ALIAS "CUST1"
USE CUSTOMER NEW SHARED ALIAS "CUST2"
define window owndlayout mdichild of ownd title "testing layout"
hLays["MAIN"] := TLayout():new( owndlayout )
hLays["H1"] := hLays["MAIN"]:addVLayout(20)
hLays["H2"] := hLays["MAIN"]:addVLayout()
hLays["H4"] := hLays["MAIN"]:addVLayout(30)
hLays["H1"]:addHLayout(hLays["H2"]:nwidth)
oTitle := TTitle():New( 0, 0, hLays["H2"]:nwidth, 32, hLays["H1"]:aHLayout[1], "Clienti" )
oTitle:nClrText := CLR_WHITE
oTitle:nClrBar := RGB(89,135,214)
oTitle:nClrBar2 := RGB(3,56,147)
oTitle:lBorder := .t.
oTitle:nClrBorde := RGB(0,45,150)
hLays["H1"]:aHLayout[1]:oClient = oTitle
//folder
hLays["H2"]:addHLayout()
hLays["H2"]:addHLayout()
@ -50, 0 XBROWSE oBrowse of hLays["H2"]:aHLayout[1] ALIAS "CUST2"
oBrowse:CreateFromCode()
hLays["H2"]:aHLayout[1]:oClient := oBrowse
@ 0, 300 FOLDEREX oFld PIXEL PROMPT "Anagrafica", "Rapporti Commerciali", "Varie" of hLays["H2"]:aHLayout[2]
hLays["H2"]:aHLayout[2]:oClient = oFld
//--------------------------------------------------------------------------------------------------//
//botoes
oBar := TC5StBar():New(0,;
0,;
500,;
40,;
hLays["H4"],;
GetSysColor(15), GetSysColor(15) ,;
.T., ;
oFont,;
CLR_BLACK )
oBar:nClrBorder := RGB(124,124,148)
oBar:nClrOver := RGB(117,183,225) //RGB(255,255,220)
oBar:nClrOver2 := RGB(117,183,225) //RGB(238,152, 21)
oBar:nClrSel := CLR_WHITE //RGB(238,152, 21)
oBar:nClrSel2 := CLR_WHITE //RGB(250,227,144)
oBar:nClrPane := CLR_WHITE // RGB(255,255,255)
oBar:nClrPane2 := CLR_WHITE //RGB(143,172,230)
oBar:nClrTSel := RGB( 49,106,197)
oBar:AddItem( "Nuovo",".\bitmaps\manuale.bmp" , {||msginfo()}, {||.t.}, .f., "Nuova riga" )
oBar:AddItem( "Modifica",".\bitmaps\manuale.bmp" , {||msginfo()}, {||.t.}, .f., "Nuova riga" )
oBar:AddItem( "Elimina",".\bitmaps\manuale.bmp" , {||msginfo()}, {||.t.}, .f., "Nuova riga" )
oBar:AddItem( "Stampa",".\bitmaps\manuale.bmp" , {||msginfo()}, {||.t.}, .f., "Nuova riga" )
oBar:AddItem( "Etichette",".\bitmaps\manuale.bmp" , {||msginfo()}, {||.t.}, .f., "Nuova riga" )
for n := 1 to len( oBar:aItems )
oBar:aItems[n]:nFixHeight := 24
next
oBar:ResizeItems()
hLays["H4"]:oClient = oBar
//--------------------------------------------------------------------------------------------------//
activate window owndlayout maximized;
ON RESIZE (hLays["H2"]:aHLayout[1]:= owndlayout:nwidth-80,;
hLays["H2"]:aHLayout[2]:= owndlayout:nwidth-400)
return ni
When I resize make an error
Application
===========
Path and name: C:\work\errori\tlayout\test.Exe (32 bits)
Size: 2,569,216 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130422)
FiveWin Version: FWHX 13.07
Windows version: 5.1, Build 2600 Service Pack 2
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 11/14/13, 12:59:36
Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: NID
Args:
[ 1] = N 1210
Stack Calls
===========
Called from: => NID( 0 )
Called from: Lib\TLayout.prg => TLAYOUT:CALCULEHORIZONTAL( 175 )
Called from: Lib\TLayout.prg => TLAYOUT:ONRESIZED( 207 )
Called from: Lib\TLayout.prg => (b)TLAYOUT:NEW( 59 )
Called from: .\source\classes\WINDOW.PRG => TLAYOUT:RESIZE( 2168 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TLAYOUT:HANDLEEVENT( 1729 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3183 )
Called from: => MOVEWINDOW( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:MOVE( 2511 )
Called from: .\source\classes\CONTROL.PRG => TLAYOUT:MOVE( 775 )
Called from: Lib\TLayout.prg => TLAYOUT:CALCULEVERTICAL( 141 )
Called from: Lib\TLayout.prg => TLAYOUT:ONRESIZED( 210 )
Called from: Lib\TLayout.prg => (b)TLAYOUT:NEW( 59 )
Called from: Lib\TLayout.prg => TLAYOUT:ONRESIZED( 217 )
Called from: Lib\TLayout.prg => (b)TLAYOUT:NEW( 59 )
Called from: .\source\classes\WINDOW.PRG => TLAYOUT:RESIZE( 2168 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TLAYOUT:HANDLEEVENT( 1729 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3183 )
Called from: => WNDADJCLIENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TLAYOUT:ADJCLIENT( 275 )
Called from: .\source\classes\WINDOW.PRG => TMDICHILD:RESIZE( 2160 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:HANDLEEVENT( 333 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3183 )
Called from: => WNDADJCLIENT( 0 )
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:RESIZE( 223 )
Called from: => TMDIFRAME:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3183 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 996 )
Called from: Source\test4.prg => MAIN( 26 )
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
