home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 September - Disc 1 / PCNET_CD_2006_09.iso / shareware / autoit-v3-setup.exe / Examples / Helpfile / _ChooseFont.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  725 b   |  18 lines
  1. #include <Misc.au3>
  2.  
  3. Local $a_font
  4.  
  5. $a_font = _ChooseFont ("Arial",8)
  6. If (@error) Then
  7.    MsgBox(0, "", "Error _ChooseFont: " & @error)
  8. Else
  9.    MsgBox(0, "", "Font Name: " & $a_font[2] & @LF & "Size: " & $a_font[3] & @LF & "Weight: " & $a_font[4] & @LF & "COLORREF rgbColors: " & $a_font[5] & @LF & "Hex BGR Color: " & $a_font[6] & @LF & "Hex RGB Color: " & $a_font[7])
  10. EndIf
  11.  
  12. $a_font = _ChooseFont ()
  13. If (@error) Then
  14.    MsgBox(0, "", "Error _ChooseFont: " & @error)
  15. Else
  16.    MsgBox(0, "", "Font Name: " & $a_font[2] & @LF & "Size: " & $a_font[3] & @LF & "Weight: " & $a_font[4] & @LF & "COLORREF rgbColors: " & $a_font[5] & @LF & "Hex BGR Color: " & $a_font[6] & @LF & "Hex RGB Color: " & $a_font[7])
  17. EndIf
  18.