Fonts Manifest

[Prince4]

There's something i also need to know (this is the best place to ask cause i can't find another)
How can i have custom fonts in a TLabel please i tried some methods like (AddFontResource '{tmp}\myfont.ttf') but failed.. I know there are nuemrous methods to this but i want to understand them please help me out

[vint56]

#define Font "Zombie.ttf"
#define FontName "DS Zombie Cyr"

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: {#Font}; Flags: dontcopy

[code ]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

const
    FR_PRIVATE = $10;

function AddFontResource(lpszFilename: String; fl, pdv: DWORD): Integer; external 'AddFontResourceEx{#A}@gdi32.dll stdcall';
function RemoveFontResource(lpFileName: String; fl, pdv: DWORD): BOOL; external 'RemoveFontResourceEx{#A}@gdi32.dll stdcall';

procedure InitializeWizard();
begin
    if not FontExists('{#FontName}') then
    begin
        ExtractTemporaryFile('{#Font}');
        AddFontResource(ExpandConstant('{tmp}\{#Font}'), FR_PRIVATE, 0);
    end;
    WizardForm.Font.Name := '{#FontName}';
end;

procedure DeinitializeSetup();
begin
    RemoveFontResource(ExpandConstant('{tmp}\{#Font}'), FR_PRIVATE, 0);
    WizardForm.Free;
end;

[Prince4]

Thanks brother will check it at noon thanks, iguess you like helping me out..

Thanks..

[Prince4]

Originally Posted by Prince4

Thanks brother will check it at noon thanks, iguess you like helping me out..

Thanks..

And yeah can you please check out the "Colored Fonts in MsgBox" thread please