Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Foco (clase)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Foco (clase) 
 
foco1

buenas, esta en la granja..

' gambas class file

' by postapase 09 abr 2020

Export

Inherits UserControl

Public Const _Properties As String = "*,Ancho{Range:16;128}=32,Orientacion{Arrange.Vertical;Horizontal}=Horizontal,Borde=True,Iconos,IconoUno,IconoMas,IconoMenos"
Public Const _IsControl As Boolean = True '28 feb 2018

' Public Const _DefaultEvent As String = "Cli"
Public Const _DefaultSize As String = "4,4"
Public Const _Group As String = "Chooser"

Property Orientacion As Integer
Property Ancho As Integer

Property Borde As Boolean
Property Iconos As Boolean
Property IconoUno As Picture
Property IconoMas As Picture
Property IconoMenos As Picture

Event ClicUno
Event ClicMas
Event ClicMenos

Event EntroUno
Event EntroMas
Event EntroMenos

Event SalioUno
Event SalioMas
Event SalioMenos

Private $focoX As Ffoco
Private $Borde As Boolean
Private $Iconos As Boolean
Private $IconoUno As Picture
Private $IconoMas As Picture
Private $IconoMenos As Picture
Private $Orientacion As Integer
Private $Ancho As Integer

Public Sub _new()
  
  $focoX = New Ffoco(Me) As "Ffoco"
  $focoX.Proxy = Me
  
  ActualizarFuente()
  
End


Private Sub ActualizarFuente()
  
  $focoX.btnUno.Font = Me.Font
  $focoX.btnMenos.Font = Me.Font
  $focoX.btnMas.Font = Me.Font
  
End


Public Sub Ffoco_Arrange()
  
  ActualizarOrientacion()
  
End

Public Sub _ClicUno()
  
  Raise ClicUno
  
End

Public Sub _ClicMas()
  
  Raise ClicMas
  
End

Public Sub _ClicMenos()
  
  Raise ClicMenos
  
End

Public Sub _EntroUno()
  
  Raise EntroUno
  
End

Public Sub _EntroMas()
  
  Raise EntroMas
  
End

Public Sub _EntroMenos()
  
  Raise EntroMenos
  
End

Public Sub _SalioUno()
  
  Raise SalioUno
  
End

Public Sub _SalioMas()
  
  Raise SalioMas
  
End

Public Sub _SalioMenos()
  
  Raise SalioMenos
  
End

Private Function Borde_Read() As Boolean
  
  Return $Borde
  
End

Private Sub Borde_Write(Value As Boolean)
  
  $Borde = Value
  $focoX.btnUno.Border = Value
  $focoX.btnMas.Border = Value
  $focoX.btnMenos.Border = Value
  
End

Private Function Iconos_Read() As Boolean
  
  Return $Iconos
  
End

Private Sub Iconos_Write(Value As Boolean)
  
  $Iconos = Value
  
  If Value Then
    $focoX.btnUno.Text = ""
    $focoX.btnMas.Text = ""
    $focoX.btnMenos.Text = ""
  Else
    $focoX.btnUno.Text = "1"
    $focoX.btnMas.Text = "+"
    $focoX.btnMenos.Text = "-"
  Endif
  
End

Private Function IconoUno_Read() As Picture
  
  Return $IconoUno
  
End

Private Sub IconoUno_Write(Value As Picture)
  
  $IconoUno = Value
  $focoX.btnUno.Picture = $IconoUno
  
End

Private Function IconoMas_Read() As Picture
  
  Return $IconoMas
  
End

Private Sub IconoMas_Write(Value As Picture)
  
  $IconoMas = Value
  $focoX.btnMas.Picture = $IconoMas
  
End

Private Function IconoMenos_Read() As Picture
  
  Return $IconoMenos
  
End

Private Sub IconoMenos_Write(Value As Picture)
  
  $IconoMenos = Value
  $focoX.btnMenos.Picture = $IconoMenos
  
End

Private Function Orientacion_Read() As Integer
  
  Return $Orientacion
  
End

Private Sub Orientacion_Write(Value As Integer)
  
  $Orientacion = Value
  
  ActualizarOrientacion
  
End

Private Sub ActualizarOrientacion()
  
  Print "antes $Ancho=" & $Ancho
  
  If $Ancho = 0 Then
    $Ancho = 32
  Endif
  
  Print "despues $Ancho=" & $Ancho
  
  If $Orientacion = Arrange.Vertical Then
    Me.Width = $Ancho
    Me.Height = $Ancho * 3
    $focoX.Arrangement = Arrange.Vertical
  Else 'si es horizontal  
    Me.Width = $Ancho * 3
    Me.Height = $Ancho
    $focoX.Arrangement = Arrange.Horizontal
  Endif
  
End

Private Function Ancho_Read() As Integer
  
  Return $Ancho
  
End

Private Sub Ancho_Write(Value As Integer)
  
  $Ancho = value  '
  
  $focoX.btnUno.Width = $Ancho
  $focoX.btnMas.Width = $Ancho
  $focoX.btnMenos.Width = $Ancho
  
  $focoX.btnUno.Height = $Ancho
  $focoX.btnMas.Height = $Ancho
  $focoX.btnMenos.Height = $Ancho
  
  ActualizarOrientacion()
  
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: Foco (clase) 
 
Me descargué el código para echarle un vistazo y esto es lo que me dice cuando intento ver el código. Estoy usando gambas 3.12.2 en Debian 10. No se que puede ser.


 captura_de_pantalla_de_2020_04_10_10_19_42

Un saludo.
 



 
Guizans - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Foco (clase) 
 
Guizans:

Prueba a compilar primero y nos cuentas.
Eso te lo vas a encontrar con controles creados por usuarios más de una vez.
El propio gambas no tiene el control Foco.

v3ctor:

¿ Es una lupa ?.  
Ten en cuenta que por foco, podemos entender otra palabra.
Si vas por gambas,  tu sabes de sobra lo que es. Al principio fue lo primero que se me ocurrió..

Por foco también se puede entender al igual que una lampara.
Y ademas, un punto donde se dirige luz.

Vamos...que tienes que añadir una explicación en texto.  

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Viernes, 10 Abril 2020, 14:26; editado 2 veces 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Foco (clase) 
 
Shell escribió:  
Guizans:

Prueba a compilar primero y nos cuentas.
Eso te lo vas a encontrar con controles creados por usuarios más de una vez.
El propio gambas no tiene el control Foco.

Saludos


Si, gracias, era eso  
 



 
Guizans - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Foco (clase) 
 
Shell escribió:  
Guizans:

Prueba a compilar primero y nos cuentas.
Eso te lo vas a encontrar con controles creados por usuarios más de una vez.
El propio gambas no tiene el control Foco.

v3ctor:

¿ Es una lupa ?.  
Ten en cuenta que por foco, podemos entender otra palabra.
Si vas por gambas,  tu sabes de sobra lo que es. Al principio fue lo primero que se me ocurrió..

Por foco también se puede entender al igual que una lampara.
Y ademas, un punto donde se dirige luz.

Vamos...que tienes que añadir una explicación en texto.  

Saludos



es que ando medio al vuelo, no siempre tengo el tiempo o las condiciones para explicar.

esta clase trata de tres botones, aplicándolo a un texto de un textarea por ejemplo, el botón uno pone la fuente por defecto, el mas aumenta la fuente, el menos disminuye la fuente, en si al hacer clic en el botón 1 lanza el evento clicUno, en el btnmas lanza el evento clicMas y el otro botón lanza el evento clicmenos, en esos eventos vos programas si querés que un texto aumente su tamaño o disminuya o si es una imagen programas que la imagen aumente zoom, disminuya o tenga el tamaño predefinido, y asi con otras funciones posible.


If $Ancho = 0 Then
    $Ancho = 32
  Endif


ese codigo lo agregue porque tengo problemas con la lectura de la propiedad Ancho que no me la toma o lee al construirse el control, si alguien encuentra el problema comente. prueben comentando esas lineas y veran el problema. 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: Foco (clase) 
 
Guizans escribió:  
Me descargué el código para echarle un vistazo y esto es lo que me dice cuando intento ver el código. Estoy usando gambas 3.12.2 en Debian 10. No se que puede ser.


 captura_de_pantalla_de_2020_04_10_10_19_42

Un saludo.


la clase esta hecha con gambas 3.14.3
 




===================
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: Foco (clase) 
 

Link

 




===================
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: Foco (clase) 
 
Guizans escribió:  
Me descargué el código para echarle un vistazo y esto es lo que me dice cuando intento ver el código. Estoy usando gambas 3.12.2 en Debian 10. No se que puede ser.


 captura_de_pantalla_de_2020_04_10_10_19_42

Un saludo.


ahí resubi la clase, a ver si ahora no te da ese problema, a veces hago pegado y copiados peligrosos y pueden surgir esos errores.
Aunque gambas a veces da errores cuando editas nombre de clases personalizadas.
 




===================
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: Foco (clase) 
 
v3ctor:

Pues si que te extendiste.
Es bueno añadir siempre una descripción breve de lo que hace el "invento". Tan solo eso.

Gracias v3ctor.

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - 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 El Foco En Los Componentes Shell General 2 Miercoles, 22 Febrero 2012, 00:32 Ver último mensaje
Shell
No hay nuevos mensajes Clase Respaldo (clase Básica) v3ctor Aplicaciones/Fragmentos de Código 0 Sabado, 17 Octobre 2015, 23:56 Ver último mensaje
v3ctor
No hay nuevos mensajes ArbolBiblia (clase Heredada De TreeView) v3ctor Controles/Librerías/Componentes 0 Viernes, 04 Enero 2019, 00:04 Ver último mensaje
v3ctor
No hay nuevos mensajes Aspell (clase) v3ctor Controles/Librerías/Componentes 1 Jueves, 16 Abril 2020, 23:38 Ver último mensaje
v3ctor
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

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