my current GUI-project

[Petr Schreiber]

Hi Rene,

okay, I will check. In the meantime, can you verify that this script gives you graphical output in the attachement?

Uses "TBGL" 

Function TBMain()
  Local hWnd      As DWord
  Local FrameRate As Double
  
  ' -- Create and show window
  hWnd = TBGL_CreateWindowEx("Testing clipping - press ESC to quit", 640, 480, 32, %TBGL_WS_WINDOWED Or %TBGL_WS_CLOSEBOX) 
  TBGL_ShowWindow 

  ' -- Resets status of all keys 
  TBGL_ResetKeyState()            
  
  Dim hFont As DWord = TBGL_FontHandle("Courier New", 64) 
  TBGL_BuildFont( hFont ) 

  ' -- Main loop
  While TBGL_IsWindow(hWnd) 
    FrameRate = TBGL_GetFrameRate

    TBGL_RenderMatrix2D
    TBGL_ClearFrame 

      TBGL_PrintFont "ThinBASIC", -175,230
      TBGL_PrintFont "ThinBASIC", 460,230

    TBGL_DrawFrame 

    ' -- ESCAPE key to exit application
    If TBGL_GetWindowKeyState(hWnd, %VK_ESCAPE) Then Exit While 

  Wend 

  TBGL_DestroyWindow
End Function

Petr