;*****************************************************************************************************
; Progam name : Colums Include
; Version     : 1.00
; Build       : 0001
; PB Version  : 5.62
; Auther      : B.J.Fernhout.
; Copyright   : None
; Date        : 2018
; Discription : Center the txt
;             :
;             :
;*****************************************************************************************************

Procedure CText(Words$,CenterX ,CenterY)
  Protected THeight
  Protected TWidth
  THeight = SelectedFontSize()
  If THeight = 0
    THeight = 14  ; Default text height
  EndIf
  StartDrawing(ScreenOutput())
  TWidth =  TextWidth(Words$)
  DrawingMode(#PB_2DDrawing_Transparent)
  DrawText(CenterX-(TWidth/2),CenterY-(THeight/2),words$)
  StopDrawing()
EndProcedure

; IDE Options = PureBasic 5.62 (Windows - x64)
; CursorPosition = 26
; Folding = -
; EnableXP
; CompileSourceDirectory
; EnableCompileCount = 0
; EnableBuildCount = 0
; EnableExeConstant