Code:
' ' ******************************************************* ' Macro Fonts_SetUp Dim Font_Size(8 To 72) For ctr = LBound(Font_Size) To UBound(Font_Size) Font New "Consolas", ctr To Font_Size(ctr) 'for controls Next ctr End Macro ' ' For smaller/larger/different fonts than Dialog --- Example useage: ' For ctr = %Id_Spinner_1 To %Id_Exit_Btn ' Control Set Font hDlg, ctr, Font_Size(24) ' Next ctr ' 'Spinner labels ' ctr = %Id_Spinner_1_Label: Control Set Font hDlg, ctr, Font_Size(16) ' ctr = %Id_Spinner_2_Label: Control Set Font hDlg, ctr, Font_Size(12) ' end example ' '******************************************************* '
Comment