home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Font_001_Align.bas
< prev
next >
Wrap
BASIC Source File
|
2003-11-26
|
735b
|
26 lines
Sub SubAlign( x As Integer, s As String )
Image(0).Rectangle(x,20, 200,15 )
Image(0).DrawText( x,20, 200,15, s )
Image(0).Rectangle(x,50, 200,30 )
Image(0).DrawText( x,50, 200,30, "Image(0).DrawText(... with\nNewline" )
Image(0).Rectangle(x,90, 200,70 )
Image(0).DrawText( x,90, 200,70, "Lines are automatically broken between words if a word would extend past the edge of the rectangle." )
EndSub
Image( 0 ).Resample( 660,200 )
Image( 0 ).Color = _ColorWhite
Pen.Color = _ColorMoccasin
Font.Align = _FontAlignLeft
SubAlign( 10, "_FontAlignLeft" )
Font.Align = _FontAlignCenter
SubAlign( 220, "_FontAlignCenter" )
Font.Align = _FontAlignRight
SubAlign( 440, "_FontAlignRight" )
Redraw()