Crear un Componente TScrollbox con botones dentro

[CORBATIN]

TMyBox no es un nombre que me parezca muy adecuado...

En esto tienes razón, pero en ese momento se me ocurrió y así lo hice, lo cambiaré.

No he encontrado mayores comentarios y ningun tipo de documentación sobre la interfaz

En esto también tienes razón, pero había pensado que al ser tan sencilla no lo necesitaba, por lo que si he incluido muchos comentarios en el código fuente. De todas formas es algo que también debería hacer y lo haré.

El componente es bastante específico para un tipo de problema: alguien que necesite un ScrollBox con una cantidad variable de botones, asi que no esperes que todos se den a la tarea de probarlo

En esto también tienes razón, pero tal y como me ha surgido a mí el problema, tal vez también a alguién le pueda hacer falta. De todas formas, un componente más de tantos que hay.

No hay forma (al menos intuitiva) de asignar la imágen que aparecerá en cada botón... con lo que da igual que sean TBitBtn o TButton

Eso también lo pensé yo al hacer el componente, por lo que existe un array que contiene todos los botones y así poder tratarlos como cualquier otro botón:
mybox1.botones[indice].caption:= 'hola';
mybox1.botones[indice].glyh.loadfromfile('dibujo.bmp');

Además existe un evento en el mybox llamado "Pulsarboton" que podemos saber que botón ha sido pulsado a través del sender e incluso un indice para poder localizarlo en el array botones:
(sender as TMyButtons).caption:= 'hola';

También existe propiedades para cambiar el tamaño de los botones dentro del MyBox como MyButtonsHeight y MyButtonsWidth.

El componente se registra en la paleta "Mis Componentes", lo que tampoco ayuda a ubicarlo posteriormente... que tal en Samples, o en Corbatin.. no se algo mas específico.

También estoy de acuerdo contigo, supongo que haciendo pruebas y pruebas, pues al final decidí ponerle ese nombre, pero también lo cambiaré.

Te agradezco tus opiniones, de momento aquí se queda el componente, en cuanto lo tenga un poquito más definido te aviso y si quieres lo puedes colocar en tú futura página web, un saludo para todos y gracias.

[roman]

CORBATIN

Me tomé la libertad de borrar el mensaje en donde te equivocaste al usar las etiquetas viendo que lo habías repetido posteriormente con el formato correcto. Quizá no te hayas percatado pero te informo que cuando te suceda eso puedes editar tú mismo el mensaje paa hacer las correcciones pertinentes.

// Saludos

[jachguate]

Hola corbatín.

En primer lugar, te comento que has encerrado las citas en etiquetas [ code ], cuando debiste hacerlo en etiquetas [ quote ]cita[ /quote ] que queda asi:

cita

Por el uso de code, veras que el tamaño de la página se ha disparado horizontalmente, pues aqui no se dividen las líneas... se supone que se trata de código... e incluso en mi resolucion de 1280x1024 es necesario ir a la derecha para ver todo el mensaje... si podes editarlo, es de agradecer.

Luego... una última idea, ya que realmente me parece engorroso tener que asignar por código los captions e imagenes de los botones... supongo que ya dependerá de las necesidades de cada uno, pero para hacer algo mas de propósito general, creo que podrias definir una propiedad Captions en el componente, que sea un TStrings, y que al ser asignada escriba el caption de cada botón... igual, podes poner una propiedad glyphs, que se base en un TImageList. O bien que hagas otras dos propiedades arrays para acceder estas propiedades y no directamente a los botones...

Hasta luego.

[CORBATIN]

Aquí estamos otra vez, pido perdón por el error anterior del [code], lo he editado y le ha cambiado los tags pero sigue siendo muy ancho, lo siento.

Empezado por jachguate

Luego... una última idea, ya que realmente me parece engorroso tener que asignar por código los captions e imagenes de los botones... supongo que ya dependerá de las necesidades de cada uno, pero para hacer algo mas de propósito general, creo que podrias definir una propiedad Captions en el componente, que sea un TStrings, y que al ser asignada escriba el caption de cada botón... igual, podes poner una propiedad glyphs, que se base en un TImageList. O bien que hagas otras dos propiedades arrays para acceder estas propiedades y no directamente a los botones...

Con respecto a los captions, lo he realizado de esta forma ya que este componente lo utilizo para poner en su caption valores que hay en una tabla a través de un query y este dentro de un bucle y de esta forma me va genial.

Lo de la propiedad glyphs esta tal y como se hace actualmente con los bitbtn naturales y con respecto a los arrays para acceder a las propiedades y no directamente a los botones, no entiendo lo que quieres decir. Si puedes ser un poco más concreto intentaré hacerlo, pero debes tener en cuenta que ha sido mi primer componente, así que como se suele decir, no le pidas Peras al Olmo jajaja. De todas formas, y como te he dicho anteriormente, si me explicas un poquito mejor lo que quieres decir, lo intentare seguro, un saludo.

[jachguate]

Declarar un par de propiedades propiedad tipo array... de manera que podas hacer:

ButtonBox1.glyphs[1].LoadFromFile('glyph1.bmp');
ButtonBox1.captions[1] := 'Prueba';

en lugar de

ButtonBox1.buttons[1].glyph.LoadFromFile('glyph1.bmp');
ButtonBox1.buttons[1].caption := 'Prueba';

es solo un capricho...

Por otro lado, al haber editado tus etiquetas en el post anterior, en mi navegador ahora se ve perfecto...

Hasta luego.