TLayout Error

[MGA]

O erro acontece ao teclar ALT .

Application
===========
Path and name: C:\projetox\projetox.Exe (32 bits)
Size: ********* bytes
Compiler version: Harbour 3.2.0dev (r1306132159)
FiveWin Version: FWH 13.08 3R
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 7 secs
Error occurred at: 01/10/2013, 20:48:03
Error description: Error FiveWin/6 Cannot create window or control:
Class: TLAYOUT
Caption:
System Error: Não foi possível encontrar a classe da janela.


Stack Calls
===========
Called from: .\source\classes\WINDOW.PRG => WNDCREATEERROR( 766 )
Called from: .\source\classes\WINDOW.PRG => TLAYOUT:CREATE( 747 )
Called from: .\source\classes\TPANEL.PRG => TPANEL:NEW( 49 )
Called from: .\source\classes\TLAYOUT.PRG => TLAYOUT:NEW( 62 )
Called from: caixa.prg => CAIXA( 31 )
Called from: projetox.prg => (b)RIBBONBAR( 226 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:CLICK( 713 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 893 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1565 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3234 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1003 )
Called from: projetox.prg => MAIN( 88 )

System

[karinha]

Olá, não conheço esta classe, qual é o exemplo no \samples que eu posso testar para entender?

Vens ao encontro de FIVEWINNERS, dia 16 de Novembro de 2013 em Sampa?

obg. abs.

[MGA]

karinha, é sópesquisar por tlayout(Nova CLASSE Daniel)

Sr. Daniel, poderia ajudar?

[Daniel Garcia-Gil]

Hola

el ejemplo que esta en samples de fivewin funciona bien (el mismo que puse en el foro)

puedes colocar el ejemplo que te causa el problema?

[MGA]

Sr. Daniel,

Muito obrigado por responder, e parabéns pela maravilhosa classe TLAYOUT

#include "FiveWin.ch"
#include "ribbon.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

DEFINE RIBBONBAR oRibbon PROMPTS "Start","Edition","Tools","Themes","Help" OF oWnd ;
HEIGHT 200 TOPMARGIN 25

ADD GROUP oGrupo RIBBON oRibbon TO OPTION 1 PROMPT "Only a Group to Test"

@ 05,04 ADD BUTTON oBtn1 PROMPT "Teste" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 2 ;
action(teste())

@ 35,04 ADD BUTTON oBtn1 PROMPT "" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 4

@ 65,04 ADD BUTTON oBtn1 PROMPT "" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 6

@ 95,04 ADD BUTTON oBtn1 PROMPT "" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 8

@ 125,04 ADD BUTTON oBtn1 PROMPT "" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 10


SET MESSAGE OF oWnd TO "A message bar"

ACTIVATE WINDOW oWnd maximized

return nil




/*********************************************************/
function teste()
/*
*/
local oBrowse, oGet[2], cTest:=SPACE(10),cTest2:=space(10)
local hLays := {=>}
local hButtons := {=>}
local hBrowses := {=>}
local oFld


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["H2"] := hLays["MAIN"]:addVLayout()
hLays["H1"] := hLays["MAIN"]:addVLayout(75)

//folder
hLays["H2"]:addVLayout()


//folder e xbrowse
@ 0, 0 FOLDEREX oFld PIXEL PROMPT "FATURMAENTO SIMPLIFICADO" of hLays["H2"]:aVLayout[1]
hLays["H2"]:aVLayout[1]:oClient = oFld


@ 0, 0 XBROWSE oBrowse OF oFld:aDialogs[1] ALIAS "CUST2"
oBrowse:CreateFromCode()
oFld:aDialogs[1]:oClient := oBrowse


//botoes
hLays["H1"]:addHLayout()
hLays["H1"]:addHLayout()
hLays["H1"]:addHLayout()
hLays["H1"]:addHLayout()

@ 0,0 button hButtons["ONE"] prompt "Pressione Tecla ALT" of hLays["H1"]:aHLayout[1]
hLays["H1"]:aHLayout[1]:oClient = hButtons["ONE"]

@ 0,0 button hButtons["TWO"] prompt "" of hLays["H1"]:aHLayout[2]
hLays["H1"]:aHLayout[2]:oClient = hButtons["TWO"]

@ 0,0 button hButtons["THREE"] prompt "" of hLays["H1"]:aHLayout[3]
hLays["H1"]:aHLayout[3]:oClient = hButtons["THREE"]

@ 0,0 button hButtons["FOUR"] prompt "" of hLays["H1"]:aHLayout[4]
hLays["H1"]:aHLayout[4]:oClient = hButtons["FOUR"]

activate window owndlayout maximized

return nil

[Daniel Garcia-Gil]

Hola


agrega esta linea a la clase TLayout, prueba y nos comentas

Code: Select all  Expand view  RUN

CLASSDATA lRegistered AS LOGICAL

[MGA]

Resolvido!

Muito obrigado

[MGA]

Sr. Daniel,

CLASSDATA lRegistered AS LOGICAL

não deveria ser implementada nas novas versões do fivewin? EX: FWH 13.09 ???

[MGA]

up!

[Daniel Garcia-Gil]

Sr. Daniel,

CLASSDATA lRegistered AS LOGICAL

não deveria ser implementada nas novas versões do fivewin? EX: FWH 13.09 ???

not, is already implemented