FiveTech Software tech support forums

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

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.

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

Sr. Daniel, poderia ajudar?

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?

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

Hola


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

Code: Select all  Expand view

CLASSDATA lRegistered AS LOGICAL

Resolvido!

Muito obrigado

Sr. Daniel,

CLASSDATA lRegistered AS LOGICAL

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

up!

SGS wrote: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