Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 3
Ir a la página 1, 2, 3  Siguiente
 
Creando El Control SbSizeFont (beta)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Creando El Control SbSizeFont (beta) 
 
buenas

quiero crear un control (ScrollBar) que solo modificara el tamaño de uno objeto o clase, textarea principalmente pero también para otras clases de un objeto x que tenga propiedad text

idea de como funcionaria el control:

al crearlo se le debe asignar el control a quien servirá

Ejemplo: $sbEclavo=new sbEsclavo(TextArea)

lo que hará el control sera modificar el tamaño de fuente de objeto o clase dada.

que esa es la parte fácil el tema es como asignar la clase que manejara el scrollbar. (la clase slEsclavo)

alguna sugerencia?
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
última edición por v3ctor el Jueves, 11 May 2017, 23:16; editado 2 veces 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Creando El Control SbEsclavo 
 
No sólo la propiedad text, también debe contener la propiedad font.

No creo que fuese necesario crear un control nuevo para eso, con un slider tienes suficiente.
Te adjunto un pequeño ejemplo.
 captura_de_pantalla_de_2017_05_08_19_43_33
Son sólo dos líneas de código. Los controles están muy bien, pero no hay que matar moscas a cañonazos...
   

fuente-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: fuente-0.0.1.tar.gz
Tamaño: 11.3 KB
Descargado: 36 veces
fuente-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: fuente-0.0.1.tar.gz
Tamaño: 11.3 KB
Descargado: 36 veces
fuente-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: fuente-0.0.1.tar.gz
Tamaño: 11.3 KB
Descargado: 36 veces

 




===================
No podemos regresar
 
última edición por shordi el Lunes, 08 May 2017, 18:44; editado 1 vez 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Creando El Control SbEsclavo 
 
cuando lo termine a ver si me dices lo mismo, estoy innovando, como siempre poniéndome pantalones mas grandes de mi talla...
pero... nada como experimentar en lo que a uno le gusta... la programación.

ya veras... a ver si me sigues diciendo matar moscas con cañones o reinventar la rueda o cosas así jajajaja

igual, no aportaste nada de lo que pregunte, solo desalientas  

Saludos
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Creando El Control SbEsclavo 
 
v3ctor escribió: [Ver mensaje]
cuando lo termine a ver si me dices lo mismo, estoy innovando, como siempre poniéndome pantalones mas grandes de mi talla...
pero... nada como experimentar en lo que a uno le gusta... la programación.

ya veras... a ver si me sigues diciendo matar moscas con cañones o reinventar la rueda o cosas así jajajaja

igual, no aportaste nada de lo que pregunte, solo desalientas  

Saludos


Creo te tomas los comentarios "muy a pecho". Me parece que la intensión de Shordi no es mala, y me parece que tú respondes hasta "enojado"..... pero son solo mis percepciones.

Lo que comento no es con el animo de generar guerra; sino recordar que todos somos compañeros y un ambiente de cordialidad es lo ideal.

Saludos.
 



 
razaAztk - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuarioVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Creando El Control SbEsclavo 
 
razaAztk....

ayúdame con esto, supongamos que tenemos un scrollbar en un formulario....

si el scrollbar esta encima del formulario podría obtener el nombre del contenedor con me.parent.name(estoy trabajando dentro de una clase)

ahora la cuestión que eso es variable y el scrollbar podría estar dentro de un contenedor....

que a su vez podría estar dentro de otro tipo de contenedor....

como harías tu para hallar el nombre del formulario?
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Creando El Control SbEsclavo 
 
Citar:

igual, no aportaste nada de lo que pregunte, solo desalientas  

Entendido.
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Creando El Control SbEsclavo 
 
bueno logre hacer un bosquejo de lo que quiero hacer.

lo subí a la granja, mírenlo así se darán cuenta de lo que quiero hacer

tengo dos problemas que resolver, agregar propiedades de mínimo y máximo, creo...

y ver como trabajo con la clase settings de la aplicación.
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Creando El Control SbEsclavo 
 
' gambas class file

'Control ideado y creado por postapase (Lunes 8 de mayo de 2017)
'Esta en fase super beta jaja

Export

Inherits UserControl

Public Const _Properties As String = "*,XSize"
Public Const _DefaultSize As String = "18,4"
Public Const _Group As String = "Chooser"

Property XSettings As Settings
Property XSize As Integer
Property XSizePrefijado As Integer

Private $Settings As Settings

Private $ScrollBar As ScrollBar
Private $control As Control
Private $Size As Integer
Private $XSizePrefijado As Integer



Public Sub _new()
  
  $ScrollBar = New ScrollBar(Me) As "Ev"
  Me.Proxy = $ScrollBar
  $ScrollBar.MaxValue = 20
  $ScrollBar.MinValue = 9
  $Size = $ScrollBar.MinValue
  $XSizePrefijado = $ScrollBar.MinValue
  $Settings = New Settings
  
End

Public Sub Cargar(Xobjeto As Object) ''Clases admitidas: "TextArea", "TextBox"
  
  CargarSize()
  
  Select Case Object.Class(Xobjeto).Name
    Case "TextArea", "TextBox"
      $control = Xobjeto
      $ScrollBar.Value = $Size
      Ev_Change()
    Case Else
      Debug "clase no valida: " & Object.Class(Xobjeto).Name
  End Select
  
End

Private Sub GuardarSize()

  $Settings[Me.Name & "/sise"] = $Size
  $Settings.Save

End

Private Sub CargarSize()
  
  $Size = $Settings[Me.Name & "/sise", $ScrollBar.MinValue]
  
End

Public Sub Ev_Change()

  If IsNull($control) Then Return
  $control.Font.Size = $ScrollBar.Value
  $Size = $ScrollBar.Value
  GuardarSize()
  
End

Private Function XSize_Read() As Integer
  
  Return $Size
  
End

Private Sub XSize_Write(Value As Integer)
  
  $Size = Value
  
End

Private Function XSizePrefijado_Read() As Integer
  
  Return $XSizePrefijado
  
End

Private Sub XSizePrefijado_Write(Value As Integer)
  
  $XSizePrefijado = Value
  
End

Private Function XSettings_Read() As Settings

  Return $Settings

End

Private Sub XSettings_Write(Value As Settings)

  $Settings = Value

End

 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Creando El Control SbEsclavo 
 
bueno hice modificaciones mas que importantes hasta le cambie el nombre

' gambas class file

'Control ideado y creado por postapase (Lunes 8 de mayo de 2017)
'Esta en fase super beta jaja

Export

Inherits UserControl

Public Const _Properties As String = "*,Size,SizePrefijado,MinValue,MaxValue"
Public Const _DefaultEvent As String = "Cambio"
Public Const _DefaultSize As String = "18,4"
Public Const _Group As String = "Chooser"

Event Cambio

Property Size As Integer
Property SizePrefijado As Integer
Property MinValue As Integer
Property MaxValue As Integer

Private $Settings As Settings
Private $ScrollBar As ScrollBar
Private $control As Control
Private $Size As Integer
Private $SizePrefijado As Integer
Private $MinValue As Integer
Private $MaxValue As Integer

Public Sub _new()
  
  $ScrollBar = New ScrollBar(Me) As "Ev"
  Me.Proxy = $ScrollBar
  $Settings = New Settings
  Resetea()
  
End

Public Sub Cargar(Xobjeto As Object) ''Clases admitidas: "TextArea", "TextBox"
  
  CargarValores()
  
  Select Case Object.Class(Xobjeto).Name
    Case "TextArea", "TextBox"
      $control = Xobjeto
      $ScrollBar.Value = $Size
      Ev_Change()
    Case Else
      Debug "clase no valida: " & Object.Class(Xobjeto).Name
  End Select
  
End

Public Sub Resetea()
  
  $ScrollBar.MaxValue = 20
  $ScrollBar.MinValue = 9
  $MaxValue = 20
  $MinValue = 9
  $Size = $ScrollBar.MinValue
  $SizePrefijado = $ScrollBar.MinValue
  $ScrollBar.Value = $Size
  CargarValores()
  
End

Private Sub GuardarValores()
  
  $Settings[Me.Name & "/Size"] = $Size
  $Settings[Me.Name & "/MinValue"] = $MinValue
  $Settings[Me.Name & "/MaxValue"] = $MaxValue
  $Settings.Save
  
End

Private Sub CargarValores()
  
  $Size = $Settings[Me.Name & "/Size", $ScrollBar.MinValue]
  
  $MinValue = $Settings[Me.Name & "/MinValue", $ScrollBar.MinValue]
  $MaxValue = $Settings[Me.Name & "/MaxValue", $ScrollBar.MaxValue]
  $ScrollBar.MinValue = $MinValue
  $ScrollBar.MaxValue = $MaxValue
  $ScrollBar.Value = $Size
  
End

Public Sub Ev_Change()
  
  If IsNull($control) Then Return
  $control.Font.Size = $ScrollBar.Value
  $Size = $ScrollBar.Value
  GuardarValores()
  Raise Cambio
  
End

Private Function Size_Read() As Integer
  
  Return $Size
  
End

Private Sub Size_Write(Value As Integer)
  
  $Size = Value
  
End

Private Function SizePrefijado_Read() As Integer
  
  Return $SizePrefijado
  
End

Private Sub SizePrefijado_Write(Value As Integer)
  
  $SizePrefijado = Value
  
End

Private Function MinValue_Read() As Integer
  
  Return $MinValue
  
End

Private Sub MinValue_Write(Value As Integer)
  
  If Value < 10 Then
    $MinValue = 9
  Else
    $MinValue = Value
  Endif
  
  $ScrollBar.MinValue = $MinValue
  GuardarValores()
  
End

Private Function MaxValue_Read() As Integer
  
  Return $MaxValue
  
End

Private Sub MaxValue_Write(Value As Integer)
  
  $MaxValue = Value
  $ScrollBar.MaxValue = $MaxValue
  GuardarValores()
  
End


lo pueden descargar de la granja.

la innovación de este control es que guarda los datos automaticamente en un archivo settings y con eso se le ahorra trabajo al programador (objetivo básico de todo control)

esta idea se podría implementar en muchos de los controles gambas, pudiendo quedar los controles de esta manera.

un scrollbar simple sin guardado de datos o un sbsize que guarda datos
un valuebox simple sin guardar datos o un valuebboxNombreX que guarda datos

etc así con muchos controles, para mi es algo nuevo he innovador no lo tienen ningún control de gambas

saludos y espero sus comentarios.

Nota: shordi el control que acabo de diseñar supero tu ejemplo  
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Creando El Control SbEsclavo 
 
ilustración:

 sbsize1_1494331811_470272
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Creando Una Aplicación.Metodos Para El Co... Shell General 4 Sabado, 15 Diciembre 2012, 00:35 Ver último mensaje
Shell
No hay nuevos mensajes SuperGridviews: Creando Un Control... Ayuda jsbsan Controles/Librerías/Componentes 14 Jueves, 23 Enero 2014, 00:53 Ver último mensaje
Shell
No hay nuevos mensajes Distribución GambasLive (beta) jguardon General 12 Miercoles, 13 Agosto 2014, 21:48 Ver último mensaje
jarrypalacios
No hay nuevos mensajes Creación De Un Nuevo Control En Gambas3: ... jsbsan Videotutoriales 3 Viernes, 06 Febrero 2015, 12:44 Ver último mensaje
jsbsan
 

Publicar nuevo tema  Responder al tema  Página 1 de 3
Ir a la página 1, 2, 3  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron