Date: 02-16-2022
Return to Index
created by gbSnippets
'Compilable Example: (Jose Includes)
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
%Unicode=1
#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
http://www.garybeene.com/sw/gbsnippets.htm