Shordi 26-05-2023, 19:24
Con el tema de los controles en forma de dial, una vez que tengo hecho el comportamiento que quería, me dispongo a darle forma de control y creo la clase "Dial" que, para empezar tiene este código:
Compilo para asegurar que no hay errores, miro el IDE a ver si aparece y ¡oh sorpresa! me encuentro con que el IDE me ha regalado un precioso icono que no está ni en el Stock:
![[Imagen: PYD1rG0.png]](https://i.imgur.com/PYD1rG0.png)
¿De dónde demonios sale?
Saludos
Código:
' Gambas class file
Export
Inherits UserControl
Public Const _Properties As String = "*"
Public Const _Group As String = "View"Compilo para asegurar que no hay errores, miro el IDE a ver si aparece y ¡oh sorpresa! me encuentro con que el IDE me ha regalado un precioso icono que no está ni en el Stock:
¿De dónde demonios sale?
Saludos
Shell 25-05-2023, 22:25
Buenas!.
No sé si conocen la clase Style, pues con esta se crea el dibujo del checkbox. Y más.
Style:
This class is a set of properties that return informations about the current widget style.
Clase Style
En el foro GambasOne, encontré la solución y mejoré un poco el código de BruceSteers. How to add checkbox or switch button column to tableview.
Mostrando el ejemplo esto. Lo utilicé para el traductor de los comentarios.
![[Imagen: 9giMP8o.png]](https://i.imgur.com/9giMP8o.png)
Y este es el código:
Comenten si lo desean sobre la clase Sytle. Toda información es poca.
No sabía que se le podía dar las dimensiones así a un objeto Picture.
Saludos
No sé si conocen la clase Style, pues con esta se crea el dibujo del checkbox. Y más.
Style:
This class is a set of properties that return informations about the current widget style.
Clase Style
En el foro GambasOne, encontré la solución y mejoré un poco el código de BruceSteers. How to add checkbox or switch button column to tableview.
Mostrando el ejemplo esto. Lo utilicé para el traductor de los comentarios.
Y este es el código:
Código:
Private pOff As New Picture(24, 24)
Private pOn As New Picture(24, 24)
Public Sub Form_Open()
Me.Title = "CheckBox en TableView"
Paint.Begin(pOff)
Style.PaintCheck(0, 0, 24, 24, False)
Paint.End
Paint.Begin(pon)
Style.PaintCheck(0, 0, 24, 24, True)
Paint.End
TableView1.Columns.Count = 1
TableView1.Columns[0].Title = "Seleccionado"
TableView1.Columns[0].Alignment = Align.Center
TableView1.Header = GridView.Both
For c As Integer = 0 To 5
Inc TableView1.Rows.Count
TableView1[TableView1.Rows.Max, 0].Picture = pOff
Next
TableView1.Columns[0].Width = -1
End
Public Sub TableView1_Click()
If TableView1.Column = 0 Then
TableView1.Current.Picture = IIf(estaseleccionada(TableView1.Current), poff, pOn)
Endif
End
Public Function estaseleccionada(celda As _GridView_Cell) As Boolean
Return IIf(celda.Picture = pOn, True, False)
End
Public Sub btnContar_Click()
For c As Integer = 0 To TableView1.Rows.Max
If estaseleccionada(TableView1[c, 0]) Then Print "Fila " & Str(c + 1) & " seleccionada"
Next
EndComenten si lo desean sobre la clase Sytle. Toda información es poca.
No sabía que se le podía dar las dimensiones así a un objeto Picture.
Saludos
Archivos adjuntos
Shell 25-05-2023, 21:54
Buenas!
¿ Es adecuado para los proyectos o es algo muy personal ?.
Estoy creando un ejemplo que hace eso precisamente.
Solo inglés. No entra en juego los archivos .po, naturalmente.
- Seleccionas el archivo con extensión .class
- Muestra las líneas que comienzan por " ' " en un Tableview
- Y luego traduce la columna de comentario en español a la columna de comentario en inglés.
![[Imagen: LMiWN5C.png]](https://i.imgur.com/LMiWN5C.png)
Le añadí la opción de checkbox si solo se quiere traducir algunos comentarios. Pero en principio todos. ( He deshabilitado la opción de solo algunas )
Ademas le añadí la opción de arrastre de la columna donde se muestran en inglés.
Usando TranslateShell voy traduciendo cada linea una por una, no sé como le sentará eso a Google Translate.
Se nota subida de temperatura cuando entra en funcionamiento el traductor.
Se me ocurre que:
Podría buscar en el archivo clase el o los comentario en español y sustituirlo por su traducción.
Pero eso puede ser algo arriesgado, con perdida del archivo clase. No tiene por que, siempre se puede hacer una copia de seguridad del archivo
o del proyecto antes.
En principio es una ayuda para traducir los comentarios a inglés y no tener que estar visitando la web de Google.
No es un proyecto muy complicado.
Saludos
¿ Es adecuado para los proyectos o es algo muy personal ?.
Estoy creando un ejemplo que hace eso precisamente.
Solo inglés. No entra en juego los archivos .po, naturalmente.
- Seleccionas el archivo con extensión .class
- Muestra las líneas que comienzan por " ' " en un Tableview
- Y luego traduce la columna de comentario en español a la columna de comentario en inglés.
Le añadí la opción de checkbox si solo se quiere traducir algunos comentarios. Pero en principio todos. ( He deshabilitado la opción de solo algunas )
Ademas le añadí la opción de arrastre de la columna donde se muestran en inglés.
Usando TranslateShell voy traduciendo cada linea una por una, no sé como le sentará eso a Google Translate.
Se nota subida de temperatura cuando entra en funcionamiento el traductor.
Se me ocurre que:
Podría buscar en el archivo clase el o los comentario en español y sustituirlo por su traducción.
Pero eso puede ser algo arriesgado, con perdida del archivo clase. No tiene por que, siempre se puede hacer una copia de seguridad del archivo
o del proyecto antes.
En principio es una ayuda para traducir los comentarios a inglés y no tener que estar visitando la web de Google.
No es un proyecto muy complicado.
Saludos
Bienvenido, Invitado
Últimos temas
Convertir formatos de aud...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, 14-09-2025, 17:37
Respuestas: 2 - Vistas: 129
Paren...WAIT !!!
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, 25-08-2025, 14:49
Respuestas: 3 - Vistas: 463
Gambas y Wayland
Foro: GeneralÚltimo mensaje por: guizans, 20-08-2025, 13:56
Respuestas: 6 - Vistas: 605
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, 19-08-2025, 10:40
Respuestas: 8 - Vistas: 951