Xailer & OZ Software

Jose/Ignacio
Quisiera añadir mediante un Wizard una Toolbar dentro de una Rebar y todo
funciona correctamente pero las imagenes no se añaden.
¿Que estoy haciendo mal?
Adjunto el código:
WITH OBJECT oReBar := TReBar():New( oParent )
:SetBounds( 0, 0, 984, 59 )
:AddItem( )
:Create()
END
::AddComponent( oReBar, oParent )
WITH OBJECT oTB := TToolBar():New( oRebar )
:SetBounds( 12, 0, 643, 57 )
:nBtnWidth := 100
:nBtnHeight := 55
WITH OBJECT :oImageList
:nWidth := 24
:nHeight := 24
:Add( "BTNOK24")
END
WITH OBJECT :oImageListHot
:nWidth := 24
:nHeight := 24
:Add( "BTNOK24")
END
WITH OBJECT :oImageListDis
:nWidth := 24
:nHeight := 24
:Add( "BTNOK24")
END
:AddItem( "&Nuevo", 1 )
:Create()
END
::AddComponent( oTB, oRebar )
Saludos
Toni Sales

Toni,
> Quisiera añadir mediante un Wizard una Toolbar dentro de una Rebar y todo
> funciona correctamente pero las imagenes no se añaden.
Asegúrate de que las imágenes estén ya cargadas en el gestor de recursos.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote in
news:4c7e1071$[email=1@svctag-j7w3v3j.]1@svctag-j7w3v3j.[/email]:
> Toni,
>
>> Quisiera añadir mediante un Wizard una Toolbar dentro de una Rebar y
>> todo funciona correctamente pero las imagenes no se añaden.
>
> Asegúrate de que las imágenes estén ya cargadas en el gestor de
> recursos.
>
>
Jose
Ya lo he comprobado y estan.
Otra cosa. La llamada al AddMethod( cMethod, cParams, cBody, cReturn )
genera el siguiente código:
::AddMethod( "Terminar", "oSender", "", "" )
Y dentro del Formulario creado:
#include "Xailer.ch"
CLASS TForm1 FROM TForm
COMPONENT oReBar1
METHOD CreateForm()
METHOD TerminaroSender
ENDCLASS
#include "Form1.xfm"
//---------------------------------------------------------- ---------------
-----
METHOD TerminaroSender CLASS TFormEditor
RETURN
//---------------------------------------------------------- ---------------
-----
Saludos.

Toni,
> Ya lo he comprobado y estan.
Ok, lo revisaré en cuanto pueda.
> Otra cosa. La llamada al AddMethod( cMethod, cParams, cBody, cReturn )
> genera el siguiente código:
>
> ::AddMethod( "Terminar", "oSender", "", "" )
>
>
> Y dentro del Formulario creado:
>
> #include "Xailer.ch"
>
> CLASS TForm1 FROM TForm
>
> COMPONENT oReBar1
>
> METHOD CreateForm()
> METHOD TerminaroSender
>
> ENDCLASS
>
> #include "Form1.xfm"
>
> //---------------------------------------------------------- ---------------
> -----
>
> METHOD TerminaroSender CLASS TFormEditor
>
> RETURN
>
> //---------------------------------------------------------- ---------------
> -----
Veo que falta poner los paréntesis en los parámetros. Lo corregiremos para
la próxima versión. Mientras tanto, ponlo así­:
::AddMethod( "Terminar", "( oSender )", "", "" )
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote in
news:[email=4c7e1726@svctag-j7w3v3j.]4c7e1726@svctag-j7w3v3j.[/email]:
>> #include "Xailer.ch"
>>
>> CLASS TForm1 FROM TForm
>>
>> COMPONENT oReBar1
>>
>> METHOD CreateForm()
>> METHOD TerminaroSender
>>
>> ENDCLASS
>>
>> #include "Form1.xfm"
>>
>> //---------------------------------------------------------- ----------
>
>> METHOD TerminaroSender CLASS TFormEditor
>>
>> RETURN
>>
>> //---------------------------------------------------------- ----------
>>
Jose
No solamente el tema de los parentesis. Fijate en la contruccion del Metodo
CLASS TFormEditor. Deberia ser CLASS TForm1
Saludos

Jose/Ignacio
¿Como llevais el problema con las imagenes (imagelist en la ToolBar) ?.
Tengo interes en ponerlo en funcionamiento.
Saludos
Toni Sales

Toni,
Lo siento pero no sé a que te refieres. Lo mejor será que nos mandes un
pequeñí­simo ejemplo con lo que deseas hacer. Gracias.
Un saludo
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
http://www.xailer.com/forum
http://www.xailer.com/dokuwiki
"Toni Sales" <a.sales@iaicom.com> escribió en el mensaje de
noticias:[email=Xns9DF283D61314asalesiaicomcom@89.17.221.237...]Xns9DF283D61314asalesiaicomcom@89.17.221.237...[/email]
> Jose/Ignacio
>
> ¿Como llevais el problema con las imagenes (imagelist en la ToolBar) ?.
> Tengo interes en ponerlo en funcionamiento.
>
> Saludos
> Toni Sales
>
>