// Fonts Demo

/*
	Fonts Demo
*/

//###### DRAW FUNCTION WITH FONTS ######################################
void fnRedraw(DBE xCanvas) {
	Skip xSkip = createString
	string xFamily = "unknown"
	string xString = "unknown"
	int xSize = 0
	int xColumn = 0
	int xRow = 0
	bool xBold = false
	bool xItalic = false
	getFontSettings(9,0,xSize,xFamily,xBold,xItalic)         // Save current font setting
	realBackground(xCanvas,realColor_White)                  // Set background color
	for xString in availableFonts do {                       // Alpha-sort names using Skip list
		put(xSkip,xString,xString)
	}
	for xString in xSkip do {                                // Draw all fonts on canvas
		setFontSettings(9,0,4,xString,false,false)
		font(xCanvas,9,0)
		draw(xCanvas,20+(xColumn*240),40+(xRow*20),xString"")
		xRow++
		if(xRow>36) {
			xRow=0
			xColumn++
		}
	}
	setFontSettings(9,0,4,"Symbol",false,false)
	font(xCanvas,9,0)
	draw(xCanvas,20+(xColumn*240),40+(xRow*20),"Symbol")
	setFontSettings(9,0,xSize,xFamily,xBold,xItalic)         // Restore original font setting
}
//###### DIALOG BOX ####################################################
DB gpDB = centered("Font Demo")
DBE gpCanvas = canvas(gpDB,1000,850,fnRedraw)
gpCanvas->"top"->"form"
gpCanvas->"left"->"form"
gpCanvas->"right"->"form"
gpCanvas->"bottom"->"form"
show(gpDB)Canvas->"bottom"->"form