Вопрос Кастомный шрифт

[DEAD KING]

Как к данной кнопке, подключить свой шрифт, ttf ?

BtnSetText(hCloseMD5YES, 'Да');

 

[audiofeel]

[_Code]
var
  ButtonsFont: TFont;

BtnSetFont(hCloseMD5YES , ButtonsFont.Handle);
................
procedure InitializeWizard;
begin
  with WizardForm do begin
  ButtonsFont := TFont.Create;
  with ButtonsFont do begin
    Name := 'Segoe UI';
    Size := 15;
  end;
..............
procedure DeinitializeSetup;
begin
  ButtonsFont.Free;

 

[DEAD KING]

[_Code]
var
  ButtonsFont: TFont;

BtnSetFont(hCloseMD5YES , ButtonsFont.Handle);
................
procedure InitializeWizard;
begin
  with WizardForm do begin
  ButtonsFont := TFont.Create;
  with ButtonsFont do begin
    Name := 'Segoe UI';
    Size := 15;
  end;
..............
procedure DeinitializeSetup;
begin
  ButtonsFont.Free;

А поменять то как?)

 

[audiofeel]

Спойлер: код

#define FontName     "'Segoe UI Variable'"
#define Font         "SegUIVar.ttf"
.............
[Files]
Source: Files\{#Font}; Flags: dontcopy
............
[_Code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif
const
  FR_PRIVATE = $10;

var
ButtonsFont: TFont;

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';
...........................
function InitializeSetup: boolean;
begin
  if not (FontExists({#FontName})) then begin
    ExtractTemporaryFile('{#Font}');
    AddFontResource(ExpandConstant('{tmp}\{#Font}'), FR_PRIVATE, 0);
.............
procedure InitializeWizard;
begin
  with WizardForm do begin
  ButtonsFont:= TFont.Create;
  with ButtonsFont do begin
    Name:= {#FontName};
    Size:= 10;
  end;
BtnSetFont(NextButton, ButtonsFont.Handle);
..................
procedure DeinitializeSetup;
begin
  if FileExists(ExpandConstant('{tmp}\{#Font}')) then
    RemoveFontResource(ExpandConstant('{tmp}\{#Font}'), FR_PRIVATE, 0);
.............

 

[audiofeel]

не смог пример найти со шрифтом? странно...

 

[DEAD KING]

не смог пример найти со шрифтом? странно...

На английской windows

 

[DEAD KING]

не смог пример найти со шрифтом? странно...

 

[audiofeel]

в если вот так

 

[DEAD KING]

в если вот так

Тоже самое

 

[audiofeel]

пересохрани скрипт в UTF-8

 

[Franklin228]

Привет, во многих установщиках при масштабе 125% вот такая вот проблема:

Как это исправить?

 

[Andreo Fadio]

Привет, во многих установщиках при масштабе 125% вот такая вот проблема:

Если картинки грузятся через botva2.dll то в параметре загрузки картинки параметр Stretch указать как True
к примеру:

  ImgLoad(WizardForm.handle, 'Back.png', ScaleX(1), ScaleY(1), ScaleX(630), ScaleY(384), False, True);

параметр нужный указан предпоследним. И это False надо поменять на True

  ImgLoad(WizardForm.handle, 'Back.png', ScaleX(1), ScaleY(1), ScaleX(630), ScaleY(384), True, True);

и да всегда указывать размеры расположения через Scale.()

 

[Franklin228]

Если картинки грузятся через botva2.dll то в параметре загрузки картинки параметр Stretch указать как True
к примеру:

  ImgLoad(WizardForm.handle, 'Back.png', ScaleX(1), ScaleY(1), ScaleX(630), ScaleY(384), False, True);

параметр нужный указан предпоследним. И это False надо поменять на True

  ImgLoad(WizardForm.handle, 'Back.png', ScaleX(1), ScaleY(1), ScaleX(630), ScaleY(384), True, True);

и да всегда указывать размеры расположения через Scale.()

Работает, спасибо

 

[Yaroslav950]

@DEAD KING,

Спойлер: Код

Procedure ButtonsTextures;
begin
    WFButtonFont.Style:=[fsBold]; - здест ставь свой шрифт
    with WizardForm.BackButton do begin
    BtnSetFont(hBackBtn,WFButtonFont.Handle); -здесь ставится уже твой шрифт
    BtnSetFontColor(hBackBtn,$DAE369,$DAE369,$DAE369,$B6B6B6); - меняется цвет.
end;
end;

Выводи процедуру InitializeWizard;

 

[Franklin228]

Не могу понять, как изменить цвет верхней полоски. (это не изображение с папки Files)

Вопрос - Кастомный шрифт

Как к данной кнопке, подключить свой шрифт, ttf ? BtnSetText(hCloseMD5YES, 'Да');

krinkels.org

 

[Andreo Fadio]

Не могу понять, как изменить цвет верхней полоски. (это не изображение с папки Files)

не верим ни капли...

Спойлер: ...

 

[Franklin228]

не верим ни капли...

Спойлер: ...

слепой