Вопрос Как переименовать кнопки, да и нет ,при нажатии отмены.

[Lil Pup]

Стоит выбор языка,но когда установщик на английском,кнопки да и нет не переводятся .Как переименовать кнопки на yes и no .

 

[vint56]

Lil Pup,

Спойлер: exp

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

[Languages]
[Languages]
Name: "english"; MessagesFile: "compiler:Languages\English.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"


[CustomMessages]
english.ButtonNo =No
english.ButtonYes =Yes
russian.ButtonNo =Нет
russian.ButtonYes =Да

[Files]
Source: compiler:WizModernSmallImage.bmp; Flags: dontcopy

var
 NoButton, YesButton: TButton;
 MyExit,IsDoneExit: TSetupForm;

procedure MyExitMessage();
var
  MyIcon: String;
begin
  MyExit := CreateCustomForm();
  with MyExit do
    begin
      Position := poScreenCenter;
      ClientWidth := WizardForm.Width;
      ClientHeight := WizardForm.Height div 2;
      Caption := ExpandConstant(SetupMessage(msgExitSetupTitle));
  end;

  MyIcon := ExpandConstant(AddBackSlash('{tmp}') + 'WizModernSmallImage.bmp');
  if not FileExists(MyIcon) then
  ExtractTemporaryFile(ExtractFileName(MyIcon));

   with TBitmapImage.Create(MyExit) do
      begin
      Stretch := True;
      Left := ScaleX(10);
      Top := ScaleY(20);
      Width := 55;
      Height := 55;
      Bitmap.LoadFromFile(MyIcon);
      Parent := MyExit;
  end;

  with TNewStaticText.Create(MyExit) do
      begin
      Left := ScaleX(110);
      Top := ScaleY(20);
      Width := MyExit.Width - ScaleX(115);
      Height := MyExit.Height div 2;
      AutoSize := False;
      WordWrap := True;
      Caption := ExpandConstant(SetupMessage(msgExitSetupMessage));
      Parent := MyExit;
      Font.Color := clBlack;
  end;

  NoButton := TButton.Create(MyExit);
  with NoButton do
    begin
      Parent := MyExit;
      Left := ScaleX(410);
      Caption := ExpandConstant('{cm:ButtonNo}');
      Top := ScaleY(155);
      Width := ScaleX(80);
      Height := ScaleY(25);
      ModalResult:= mrNo;
  end;

  YesButton := TButton.Create(MyExit);
    with YesButton do
    begin
      Caption := ExpandConstant('{cm:ButtonYes}');
      Parent := MyExit;
      Left := ScaleX(320);
      Top := ScaleY(155);
      Width := ScaleX(80);
      Height := ScaleY(25);
      ModalResult := mrYes;
    end;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
  MyExitMessage();
  if MyExit.ShowModal() = mrNo then
  Cancel := False;
end;

[/SPOILER]

 

[Lil Pup]

ООоо,вот оно,спасибо большое)

 

[sergey3695]

Lil Pup, BrowseForm.iss

 

[sergey3695]

я там не нашел как изменить ScrollBar

его нельзя изменить. он автоматически создается.

 

[sergey3695]

Lil Pup, я что-то когда это заметил, не придумал как исправить и забил.

 

[sergey3695]

Lil Pup, скачал какой-то от codex-update, там это использовалось.
SetupVCLStylesInnoMOD_v1.4.5.0.zip

 

[sergey3695]

Lil Pup, у меня проблемы нет с ползунком, так что я не знаю

 

[sergey3695]

Lil Pup, да я даже скомпилировал VCLStylesDemo.iss из архива, что прикрепил.

 

[sergey3695]

Lil Pup, да не, таже расширенная. у тебя наверное win 7?