Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Scroll Horizontal Con SDL1
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje Scroll Horizontal Con SDL1 
 
Buenas!.

Tenía pendiente este ejemplo de hace ya bastante por no conocer un poco el tema del cambio de fuentes.
No supondrá dificultad hacerlo con la clase Paint. Quizás algo mucho más complicado debe ser el scroll vertical.  

Const VENTANAANCHO As Integer = 640
Const VENTANAALTO As Integer = 480

Private x As Integer
Private y As Integer
Private frase As String
Private fuente As Font  

Private $hWindow As Window

Public Sub Main()
  
  $hWindow = New Window As "Window"
  
  With $hWindow
    .Width = VENTANAANCHO
    .Height = VENTANAALTO    
    .Title = "Mostrar Scroll Horizontal"  
    .Resizable = False
    .Show
    .FrameRate = 60
  End With
  
  fuente = Font.Load("/usr/share/fonts/truetype/freefont/FreeMono.ttf")
  fuente.Size = 64
  frase = "  Esto es una demostración de scroll horizontal en SDL.  "
  x = 0
  y = (VENTANAALTO - fuente.Height("A")) / 2
  
End

Public Sub Window_Draw()
  
  $hWindow.Fill(Color.White)  
  Draw.Font = fuente
  Draw.Font.Size = 64
  Draw.ForeColor = Color.Blue
  
  ScrollHorizontal
  
End

Public Sub ScrollHorizontal()
  
  'Cambiando el valor de x aumenta o disminuye la velocidad de presentación en el eje x
  'Puede producir efectos extraños en la presentación
  
  x -= 2
  If x < -fuente.Width(frase) Then x = 0
  
  Draw.Text(frase, x, y)
  Draw.Text(frase, x + fuente.Width(frase), y)
  
End

Public Sub Window_KeyPress()
  
  Select Case Key.Code
    Case Key.F1
      $hWindow.FullScreen = Not $hWindow.FullScreen
    Case Key.Esc
      $hWindow.Close
  End Select
  
End
 



Saludos
 




===================
Gambas Básico
“Si no puedes explicar algo de forma sencilla, entonces es que tú no lo entiendes bien.” Albert Einstein
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Centrado De La Ventana En SDL1 Y En SDL2 Shell General 0 Martes, 20 Diciembre 2016, 19:32 Ver último mensaje
Shell
No hay nuevos mensajes Color De Fondo En Las Ventanas Del Compone... Shell General 0 Jueves, 06 Junio 2019, 14:51 Ver último mensaje
Shell
No hay nuevos mensajes Texto En Movimiento !! (Horizontal O Verti... v3ctor Aplicaciones/Fragmentos de Código 0 Miercoles, 09 Septiembre 2015, 23:52 Ver último mensaje
v3ctor
No hay nuevos mensajes Necesito Un Contenedor Para Varios Compone... gambafeliz General 6 Jueves, 19 Septiembre 2019, 17:02 Ver último mensaje
gambafeliz
 

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
No puede descargar archivos
No puede publicar eventos en el calendario