[Shell]

Buenas!.

A ver si el título es adecuado para la pregunta.

Trasteando con los controles de checkbox en LibreOffice Calc, me rondaba una cuestión y me fui al editor de Gambas.
Usé un checkbox y tiré de los vértices donde había posicionado el control aumentando su contenedor.

Pregunta, cuando yo amplio de tamaño ese contenedor, ¿ qué es lo que evita que el tamaño del checkbox aumente (su diseño, su figura como cuadrado)?.
Siempre es el mismo, solo aumento su contenedor. El icono del checkbox tiene un tamaño de 64x64, claro pero ese es el icono en la caja de herramientas
o el panel de controles,objetos. Que por cierto tampoco es en si el propio diseño del control cuando lo situamos en el formulario, que no se muestra igual.

No es que quiera crear un cuadrado de checkbox enorme , pero me rondaba esa cuestión. Desde luego seria un problema.

Saludos

[Shordi]

Eso depende de cómo esté construido el propio control. Los hay que son adaptables y los hay que no. En el caso de checkbox sólo se adapta a la anchura para dar cabida al texto. No he mirado el código pero imagino que el control intenta evitar el acceso a los iconos del stock y utiliza los métodos de la clase Paint para dibujarse en el IDE en tiempo de diseño. No será fácil cambiar eso...Sin embargo hacerte tu propio checkbox está chupado ¡Ándele mi cuate!

Saludos

[Shell]

Los hay que son adaptables y los hay que no

Ejemplo ?. 
 

En el caso de checkbox sólo se adapta a la anchura para dar cabida al texto

Pero esto también depende de la fuente que se use. Que puede ser más pequeña y no llegar al borde superior.
 

Sin embargo hacerte tu propio checkbox está chupado ¡Ándele mi cuate!

No es en si crear el checkbox, lo que me gustaría es hacer un control para probar como se expande en el formulario. Adaptable como has dicho.

Ejemplo un control que hereda de DrawingArea y en este crea un circulo, en modo diseño al ampliar el tamaño del control, el circulo aumentaría
su radio, puede ser un circulo, una elipse. La cosa es ver en tiempo de diseño si eso funciona. Tampoco se si es la forma correcta.
Es solo a modo de ejemplo, claro.

Crear el circulo no es difícil. Veré que hace.

Saludos

[Shordi]

Ejemplo ?. 

TextArea...

[Shell]

TextArea...

He creado un ejemplo. A ver si me explico mejor con esto.
He creado el control circulo que hereda de DrawingArea.
Este es el código.

GAMBAS

Export
 
Public Const _Properties As String = "*,radio"
 
Inherits DrawingArea
 
Property radio As Integer Use hradio
 
Private refrescador As Timer
Private observadrawing As Observer
 
Public Sub _new()
 
  observadrawing = New Observer(Me) As "ManejaDrawingArea"
  With Me
    .W = Me.W
    .H = Me.H
    .Expand = True
  End With
 
  refrescador = New Timer As "ManejaReloj"
 
  With refrescador
    .Delay = 500
    .Start
  End With
 
End
 
Public Sub ManejaDrawingArea_Draw()
 
  Paint.LineWidth = 2
  Paint.Arc(Me.W / 2, Me.H / 2, hradio)
  Paint.Background = Color.Green
  Paint.Stroke
 
End
 
Public Sub ManejaReloj_Timer()
 
  Me.Refresh
 
End

Creé el icono del control y este se muestra en el menú de controles donde estaba DrawingArea, normal.
Ahora bien. Cuando situó el control en el formulario.



Veo el icono que hice para el control, pero no veo un circulo que aumenta o disminuye según ajusto su contenedor. ( En modo diseño ).
Eso es lo que quería decir.
 

---

Por cierto si añadiese una propiedad para el color del trazado, ¿ cómo podría escoger entre un color u otro ?.
Como pasa con el color de fondo de un control o el de primer plano (foreground).
 

---

Complicado con el tema de las llaves para decirle de que tipo es.

GAMBAS

Public Const _Properties As String = "*,radio,colorprimerplano{Color}"
 
Inherits DrawingArea
 
Property radio As Integer Use hradio
Property colorprimerplano As Integer Use hcolorprimerplano

El actual código queda de esta forma:
- Ahora hereda de UserControl
- No necesita Timer, al ser un objeto que no tiene movimiento
- No necesita un observador, ya que el propio objeto DrawingArea tiene su manipulador de eventos

GAMBAS

Export
Inherits UserControl
 
Public Const _Properties As String = "*,Radio=50,Colorprimerplano{Color}"
 
Property Radio As Integer Use hRadio''Radio del círculo
Property Colorprimerplano As Integer Use hColorprimerplano''Color del trazo del círculo
 
Private $hDrawingArea As DrawingArea
 
Public Sub _new()
 
  $hDrawingArea = New DrawingArea(Me) As "DrawingArea"
 
  With $hDrawingArea
    .W = Me.W
    .H = Me.H
    .Expand = True
  End With
 
  Me.radio = 50
 
End
 
Public Sub DrawingArea_Draw()
 
  Paint.LineWidth = 2
  Paint.Arc(Me.W / 2, Me.H / 2, hRadio)
  Paint.Background = hColorprimerplano
  Paint.Stroke
 
End

Saludos

[Shordi]

Veo el icono que hice para el control, pero no veo un circulo que aumenta o disminuye según ajusto su contenedor. ( En modo diseño ).
Eso es lo que quería decir.

No funciona así. Cuando defines la clase debes usar la constante _DrawWith. En ella le indicas qué control debe usar para dibujar tu control en el editor de formularios. Si especificas un control que sea miembro de los componentes gb.qt4, gb.qt.ext, gb.form o gb.form.mdi, como por ejemplo:

PUBLIC CONST _DrawWith AS String = "TextBox"

Se dibujará usando ese diseño en el editor de formularios. Si el control especificado no es miembro de esos componentes, como es tu caso, se dibujará un marco con el icono del control dentro.

Saludos

[Shell]

Se dibujará usando ese diseño en el editor de formularios. Si el control especificado no es miembro de esos componentes, como es tu caso, se dibujará un marco con el icono del control dentro.

Eso es a lo mas que puedo llegar por lo que parece. Por defecto siempre es del tipo DrawingArea (La caja con el icono),
a menos que quieras con la propiedad _DrawWith representarlo como una caja de texto.

A lo que voy es que no es algo como ocurre en un programa de dibujo, el lienzo seria el formulario y uso la herramienta trazar circulo (que seria
como un control con una serie de propiedades ) y allí aumento o disminuyo hasta lograr el tamaño deseado viendo siempre el circulo como aumenta
o disminuye su radio.

Pero bueno con esto he repasado tu vídeo de diseñar controles y he aprendido más cosas, que algunas dudas las iré planteando en otro tema.

Saludos

[Shordi]

A lo que voy es que no es algo como ocurre en un programa de dibujo, el lienzo seria el formulario y uso la herramienta trazar circulo (que seria
como un control con una serie de propiedades ) y allí aumento o disminuyo hasta lograr el tamaño deseado viendo siempre el circulo como aumenta
o disminuye su radio.

Pero eso es en tiempo de ejecución, no en tiempo de diseño. No hay que confundirlos.

Saludos