System Error: No se ha encontrado la clase de ventana.

[Patricio Avalos Aguirre]

Estimados

Me ha salido este error, aunque ya no ha salido pero a que se puede deber?

la instruccion es esta desde su inicio

Code: Select all  Expand view

DEFINE WINDOW oWnd TITLE "Sistema" ICON oIco
BuildRibbonBar( oWnd )
ACTIVATE WINDOW oWnd MAXIMIZED

function BuildRibbonBar( oWnd )
   @ 3, 156 ADD BUTTON  oBtn4_1_1 PROMPT "Clientes" BITMAP "clientes32x32.bmp" GROUP oGr1_1 ;
            ACTION NewClientes( oWnd ) SIZE 51, 75 TOP
..

procedure NewClientes( oWnd )

oPanel := TPanel():New( 200, 0, 500, 500, oWnd)
AQUI JODE
..
 

Application
===========
Path and name: D:\Apl\PRGS\ZONAZERO\dbf\wcta.exe (32 bits)
Size: 5,741,056 bytes
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9656)
FiveWin Version: FWHX 12.04
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 11 mins 12 secs
Error occurred at: 14/09/2012, 17:29:42
Error description: Error FiveWin/6 Cannot create window or control:
Class: TPANEL
Caption:
System Error: No se ha encontrado la clase de ventana.


Stack Calls
===========
Called from: c:\fwh\source\classes\WINDOW.prg => WNDCREATEERROR( 745 )
Called from: c:\fwh\source\classes\WINDOW.prg => TPANEL:CREATE( 726 )
Called from: .\source\classes\TPANEL.PRG => TPANEL:NEW( 49 )
Called from: .\NewClientes.PRG => NEWCLIENTES( 51 )
Called from: .\MyRibbon.PRG => (b)BUILDRIBBONBAR( 39 )
Called from: c:\fwh\source\classes\TRBTN.prg => TRBTN:CLICK( 676 )
Called from: c:\fwh\source\classes\TRBTN.prg => TRBTN:LBUTTONUP( 860 )
Called from: c:\fwh\source\classes\CONTROL.prg => TCONTROL:HANDLEEVENT( 1691 )
Called from: c:\fwh\source\classes\TRBTN.prg => TRBTN:HANDLEEVENT( 1526 )
Called from: c:\fwh\source\classes\WINDOW.prg => _FWH( 3152 )
Called from: => WINRUN( 0 )
Called from: c:\fwh\source\classes\WINDOW.prg => TWINDOW:ACTIVATE( 978 )
Called from: .\Wcta.PRG => MAIN( 31 )

[joseluisysturiz]

Normalmente eso sucede cuando estas viendo un dialogo que contiene un objeto custom control y aun no lo has definido en tu sistema, me sucede mucho con el xbrowse cuando estoy probando como me va quedando mis pantallas...nose, si sera eso tu caso, pero es lo que me ha pasado, saludos...

[Marcelo Via Giglio]

Patricio,

intentaste llamar desde el ON INIT de la ventana?

saludos

Marcelo

[Antonio Linares]

prueba por favor este ejemplo:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd, oPanel

   DEFINE WINDOW oWnd

   oPanel = TPanel():New( 10, 10, 50, 50, oWnd )
 
   oPanel:SetColor( "W/B" )

   ACTIVATE WINDOW oWnd

return nil

[Patricio Avalos Aguirre]

Gracias por responder

Jose luis, puede ser ya que solo me ha parecido haciendo pruebas, mis clientes no le ha sucedido, lo ultimo que recuerdo fue haciendo cambios en los reportes de fastreport, colocando imagen.

Marcelo, lo habia hecho asi, pero el efecto que hace el ribon no es muy estetico

Antonio:
Funciona, hace un cuadro azul

no es que no funcione si no que haveces me ha pasado,creo que puede ser un problema de recurso, por eso estoy eliminado esto que hacia que al parecer esta malo

aqui va:

tengo un objeto publico ahi tengo dos brush y un font

Code: Select all  Expand view

class oApp
..
DEFINE BRUSH ::aTexture[1] RESOURCE "WOOD"
DEFINE BRUSH ::aTexture[2] RESOURCE "TEXTURA5"

endclass
 

en en todo el sistema me regia con esos brush haciendolo asi

Code: Select all  Expand view

DEFINE DIALOG oDlg RESOURCE "XXX" BRUSH ViewApp():aTexture[2]

esto hacia que se subieran los recursos del sistema

ahora estoy eliminando y haciendo lo asi

Code: Select all  Expand view

DEFINE BRUSH oBrush RESOURCE "TEXTURA3"
DEFINE DIALOG oDlg RESOURCE "XXX" BRUSH oBrush
..
ACTIVATE DIALGOG odlg
oBrush:End()