Comunidad Gambas-es

Shell 25-05-2023, 00:03

Buenas!.

Pues ha quedado bien.
Os muestro mejor la versión inglesa que es algo más amplia.

Translate a gambas project

Por cierto, ¿ los comentarios no se traducen ?. Habrá que añadirles un "print".

Saludos

General Sin respuestas

Controles y mas controles

tincho 23-05-2023, 11:49

Hola amigos.

En el desarrollo de GambasCAD, son necesarios algunos controles "especiales" para editar parámetros de forma mas amigable para el usuario.
En este Tema voy a listar los controles que hace falta desarrollar por si alguien ( en especial algún jubilado Big Grin

) tiene tiempo y animo de abordarlos.

Editor de ángulos:
Especificaciones

Tiene que recibir y devolver el valor en radianes y funcionar parecido al editor de ángulos de Libreoffice.Calc.
Manejar los ángulos rectos 0º, 90º, 180º, 270 / 45º, 135º, 225º, 315 / 30º, 120º, 210º, 300º con un clic.
Permitir ingresar a mano un ángulo en grados y que el dibujo cambie de acuerdo al dato ingresado.
Permitir cambiar el archivo SVG para cambiar el aspecto del indicador.
Permitir definir el alto y ancho del control
Permitir ver o no el valuebox de ingreso del valor.
Disponer de un botón "Reset" que permita volver al valor inicial.

Nota: Podría ser útil para otros programas como una planilla de cálculo, reloj, manómetro, termómetro, voltímetro etc.

[Imagen: SnlT8lz.gif]

Algunos ejemplos de indicadores industriales

[Imagen: ceUYAch.jpg]

Controles/Librerías/Componentes Respuestas 14

Problema al arrastrar un control

Shell 20-05-2023, 22:57

Buenas!.

Viendo un ejemplo de Cogier sobre Drag y Drop, creé algo similar. Pero cuando el objeto es arrastrado fuera del lugar donde debe estar,
este se borra y se elimina de su contenedor de origen.

Tengo un panel con tres etiquetas. Cada etiqueta tiene una palabra que forman una frase desordenada.
Se trata de llevar cada etiqueta al otro panel y que la frase se pueda ver ordenada.

Una vez el control se ha arrastrado o creado en el otro panel, debe ser eliminado del panel de origen.

Para probar el efecto debe ser arrastrado fuera de su contenedor y que no sea el panel 2.

[Imagen: xFFwNB5.png]

Al pulsar el botón de check se comprueba si el orden de la frase es correcto.

Este es el código.

Código:
Private aphrase As String[] = ["Order", "the", "phrase"]

Private tobject As Object

Private stext As String

Public Sub Form_Open()

  Dim lb As Label

  Dim adisorderphrase As String[]

  adisorderphrase = aphrase.Copy()

  adisorderphrase.Shuffle()

  Panel1.Arrangement = Arrange.Column

  For ICount As Integer = 0 To adisorderphrase.Max

    lb = New Label(Panel1) As "words"

    With lb

      .text = adisorderphrase[ICount]

      .Font.Size = 18

      .Alignment = Align.Center

      .AutoResize = True

      .Padding = 5

      .Border = Border.Plain

    End With     

  Next

End

Public Sub words_enter()

  tobject = Last  

  stext = Last.text

End

Public Sub words_MouseDrag()

  If Mouse.left Then    

    Last.Drag(Last.text)  

    'If your drag to any place the control is deleted. :(

    Last.Delete

  Endif

End

Public Sub Panels_Drop()

  Dim lb As Label

  If Drag.type = Drag.Text Then     

    lb = New Label(Last) As "words"

    With lb

      .Text = Drag.Data      

      .AutoResize = True

      .W = Drag.Source.w

      .H = Drag.Source.h

      .Border = Border.Plain

      .Font.Size = Drag.Source.Font.Size

      .Padding = 5

    End With    

  Endif

  'Drag.Source.Delete

  'Is impossible delete the object here, the control is being dragged

End

Public Sub Button1_Click()

  Dim wrong As Boolean

  If Panel2.Children.Count = aphrase.Count Then

    For r As Integer = 0 To aphrase.Max

      tobject = Panel2.Children[r]

      If aphrase[r] <> tobject.text Then

        wrong = True

        Break

      Endif

    Next    

    If wrong Then

      Message.Error(("The order of words isn't correct"), "OK")      

    Else

      Message.Info(("The order of words is correct"), "OK")

    Endif  

  Else

    Message.Error(("There aren't enough words on the panel"), "OK")

  Endif

End