Font + API

Fluid Byte · Beitrag von **Fluid Byte** » 06.11.2006 23:49

OpenWindow(0,0,0,400,300,"untitled",#WS_OVERLAPPEDWINDOW | 1)
CreateGadgetList(WindowID(0))
ListIconGadget(0,0,35,400,265,"Name",350)
ButtonGadget(1,5,5,100,23,"Change Font...")

For i=1 To 10 : AddGadgetItem(0,-1,"ListIcon Item #" + Str(i)) : Next

Repeat 
	EventID = WaitWindowEvent()
	
	If EventID = #PB_Event_Gadget And EventGadget() = 1
		Result = FontRequester("",0,0)
		
		If Result
			LoadFont(0,SelectedFontName(),SelectedFontSize(),SelectedFontStyle())
			
			SendMessage_(GadgetID(0),#WM_SETFONT,FontID(0),1)
		EndIf
	EndIf
Until EventID = 16