All pastes #858408 Raw Copy code Copy link Edit

NSIS: MakeClearTypeFont

public unlisted text v1 · immutable
#858408 ·published 2008-01-17 12:22 UTC
rendered paste body
!define APPNAME "Temp"
name "${APPNAME}"
outfile "$%temp%\${APPNAME}.exe"
showInstDetails show
!include MUI.nsh
!include LogicLib.nsh
!include winmessages.nsh
!include Sections.nsh
installdir "$Temp\NSIS-Test"

Section 
SectionEnd

!define CLEARTYPE_QUALITY 5
!macro MakeClearTypeFont _SYSout _family _size
System::Call '*(&i4 ${_size},&i4 0,&i4 0,&i4 0,&i4 0, 	&i1 0,&i1 0,&i1 0,&i1 0,&i1 0,&i1 0,&i1 ${CLEARTYPE_QUALITY},&i1 0,&t32 "${_family}")i.s'
Exch $language
System::Call 'GDI32::CreateFontIndirect(i $language)i.${_SYSout}'
System::Free $language
Pop $language
!macroend

Function cbShow
!insertmacro MakeClearTypeFont r1 "Impact" -32
FindWindow $R0 "#32770" "" $HWNDPARENT
GetDlgItem $R0 $R0 0x3EE
SendMessage $R0 ${WM_SETFONT} $1 1
SendMessage $R0 ${WM_SETTEXT} 0 "STR:Weeee, look @ me"
FunctionEnd

page directory "" cbShow