Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
SDL. Como Mostrar Un Texto Con Una Fuente Determinada
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje SDL. Como Mostrar Un Texto Con Una Fuente Determinada 
 
Buenas!.

Parece sencillo, pero no es fácil encontrar ejemplos. Suele ser siempre el mismo tipo de letra por defecto.
 
Aunque aquí os muestro como  hacerlo en SDL1 no resultará nada complicado cambiarlo a SDL2. Son muy compatibles,
solo que en gambas hay propiedades y métodos que tenemos en SDL1 y en SDL2 no, ya que no están completas.

 ventanasdl_usando_texto_con_tipo_de_letra

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

Private $hWindow As Window

Public Sub Main()
  
  $hWindow = New Window As "Window"
  
  With $hWindow
    .Width = VENTANAANCHO
    .Height = VENTANAALTO    
    .Title = "Mostrar texto con un tipo de letra en ventana SDL"  
    .Resizable = False
    .Show
    .FrameRate = 30      
  End With
  
End

Public Sub Window_Draw()
  
  Dim frase As String
  Dim fuente As Font
  Dim x As Integer
  Dim y As Integer
  
  frase = "Usando SDL1 con Gambas3"  
  
  $hWindow.Clear  
  $hWindow.Fill(Color.White)
  
  fuente = Font.Load("/usr/share/fonts/truetype/freefont/FreeMono.ttf")
  Draw.Font = fuente
  Draw.Font.Size = 24  
  Draw.ForeColor = Color.Blue
  
  x = (VENTANAANCHO - Draw.Font.Width(frase)) / 2
  y = (VENTANAALTO - Draw.Font.Height("A")) / 2
  Draw.Text(frase, x, 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 Como Hacer Que Un Programa Gambas Abra En ... tincho Aplicaciones/Fragmentos de Código 17 Miercoles, 25 Septiembre 2019, 19:03 Ver último mensaje
gambafeliz
No hay nuevos mensajes Como Puedo Crear Un Checkbox Dentro De Una... Ricardo Prieto Controles/Librerías/Componentes 10 Lunes, 29 Agosto 2016, 23:48 Ver último mensaje
vuott
No hay nuevos mensajes Mostrar Registros En Cajas De Texto soldadozero Bases de Datos 13 Viernes, 08 Noviembre 2013, 01:22 Ver último mensaje
soldadozero
No hay nuevos mensajes Mostrar Texto Entre Puntos user3304mm7126 General 9 Sabado, 26 Diciembre 2009, 19:50 Ver último mensaje
user3304mm7126
 

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

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
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