Проблема Inno setup unicode проблема шрифта

KARB10

Новичок
Привет, у меня inno setup unicode. на инсталятор не отображается ета азербайджанские шрифты (ə,ö,ğ,ş)
 

sergey3695

Ветеран
Модератор
показываю
unicode-converter
Код:
[Setup]
AppName=1
AppVersion=1
DefaultDirName={pf}\1
DefaultGroupName=1
OutputDir=.

[Code]
var
  NewEdit1: TNewEdit;
  RichEditViewer1: TRichEditViewer;
  NewButton1: TNewButton;
  S: String;

procedure Figny(Sender: TObject);
begin
    S:= NewEdit1.Text;
    StringChange(S,'\u','#$');
    RichEditViewer1.RTFText:= S;
end;

procedure RedesignWizardForm;
begin
  NewEdit1 := TNewEdit.Create(WizardForm);
  with NewEdit1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(24);
    Top := WizardForm.NextButton.Top;
    Width := ScaleX(249);
    Height := ScaleY(24);
    Text:= '\u0259\u002c\u00f6\u002c\u011f\u002c\u015f';
    OnChange:= @Figny;
  end;
  S:= '\u0259\u002c\u00f6\u002c\u011f\u002c\u015f';
//
  WizardForm.OuterNotebook.Hide;
  WizardForm.InnerNotebook.Hide;
  WizardForm.NextButton.Hide;
  RichEditViewer1 := TRichEditViewer.Create(WizardForm);
  with RichEditViewer1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(64);
    Top := ScaleY(48);
    Width := ScaleX(205);
    Height := ScaleY(205);
    StringChange(S,'\u','#$');
    RichEditViewer1.RTFText:= S;
  end;
 
  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := WizardForm;
    Left := WizardForm.NextButton.Left;
    Top := WizardForm.NextButton.Top;
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := #$0259#$002c#$00f6#$002c#$011f#$002c#$015f;
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;
 

sergey3695

Ветеран
Модератор
KARB10,
Код:
Caption := #$0259#$002c#$00f6#$002c#$011f#$002c#$015f;
это что? ;(ну почему так сложно взглянуть под спойлер :help:
 

Adil

Старожил
KARB10,
[Messages]
russian.ButtonNext=#$0259#$002c#$00f6#$002c#$011f#$002c#$015f

берете ваш текст, конвертируете его в конвертере и вставляете в скрипт.

В конвертере текст будет: \u0431\u043e\u043c\u0431\u0430
Для inno меняете "\u" на "#$":=#$0431#$043e#$043c#$0431#$0430;
 

Adil

Старожил
KARB10,
Код:
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
var
   NewNextButton: TNewButton;

procedure TestClick(Sender : TObject);
 begin
  WizardForm.NextButton.OnClick(nil);
end;

procedure RedesignWizardForm;
begin
  NewNextButton := TNewButton.Create(WizardForm);
  with NewNextButton do
  begin
    Parent := WizardForm;
    SetBounds(WizardForm.NextButton.Left, WizardForm.NextButton.Top, WizardForm.NextButton.Width, WizardForm.NextButton.Height);
    Caption := #$0259#$002c#$00f6#$002c#$011f#$002c#$015f;
    OnClick := @TestClick;
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpReady:
    begin
      NewNextButton.Caption := #$0423#$0441#$0442#$0430#$043d#$043e#$0432#$0438#$0442#$044c;
    end;

    wpFinished:
    begin
      NewNextButton.Caption := #$0431#$043e#$043c#$0431#$0430;;
    end;
  end;
end;
 

sergey3695

Ветеран
Модератор
Adil, не работает :D
Код:
  with TLabel.Create(WizardForm) do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(60),ScaleY(120),ScaleX(160),ScaleY(13)); // Координаты лейбла на кнопке
    Caption := #$0259#$002c#$00f6#$002c#$011f#$002c#$015f; 
    Transparent:= True;
    BringToFront;
  end;
    BtnSetText(hNextBtn,''); // Убирание текста с кнопки
 
  • Like
Реакции: Adil
Сверху