Simple Text Rotate

Category: Rotation

Date: 03-28-2012

Return to Index


 
'Compilable Example:
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
#Include "win32api.inc"
%IDC_Graphic = 500
 
Function PBMain () As Long
   Local hDlg, hDC, hFont As Dword
   Dialog New Pixels, 0, "Text Rotation",,, 500,400,%WS_OverlappedWindow To hDlg
   Control Add Graphic, hDlg, %IDC_Graphic,"", 0, 0, 500, 400
   Graphic Attach hDlg, %IDC_Graphic
   Graphic Clear RGB(192, 0, 0)
 
   Graphic Set Pos (0,0)
   Graphic Print "Text"
 
   Font New "Arial", 40, 1, 1, 0, 900 To hFont
   Graphic Set Font hFont
   Graphic Set Pos (0, 400)
   Graphic Print " PowerBASIC "
   Dialog Show Modal hDlg Call DlgProc
   Font End hFont
End Function
 
CallBack Function DlgProc() As Long
End Function
 
'gbs_00917
'Date: 03-10-2012


created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm