Скрипты Inno Setup. Помощь и советы [часть 7]

Ivan_009 · Конфигурация компьютера

Кстати в обзоре папок ползунок не робит...

http://rghost.ru/53794582

Stealthmax · Конфигурация компьютера

Цитата Farser21:

Нужно именно в отдельное окно. Чтобы только в этом окне появлялся текст. Не могли бы вы скинуть образец? »

Код:

{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
var
  HintMemo: TNewMemo;
  ComponentRadioButton: TNewRadioButton;
  ComponentRadioButton2: TNewRadioButton;

procedure WizardBitmapImageMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer); forward;
procedure WizardBitmapImageMouseLeave(Sender: TObject); forward;
procedure ComponentRadioButtonClick(Sender: TObject); forward;
procedure ComponentRadioButtonMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer); forward;
procedure ComponentRadioButton2Click(Sender: TObject); forward;
procedure ComponentRadioButton2MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer); forward;

procedure RedesignWizardForm;
begin
  with WizardForm.WizardBitmapImage do
  begin
    OnMouseMove := @WizardBitmapImageMouseMove;
    OnMouseLeave := @WizardBitmapImageMouseLeave;
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Hint := 'Это установка программы на ваш ПК';
    ParentShowHint := False;
    ShowHint := True;
  end;

  { HintMemo }
  HintMemo := TNewMemo.Create(WizardForm);
  with HintMemo do
  begin
    Name := 'HintMemo';
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(344);
    Top := ScaleY(192);
    Width := ScaleX(145);
    Height := ScaleY(105);
    Lines.Text := 'HintMemo';
    ReadOnly := True;
  end;

  { ComponentRadioButton }
  ComponentRadioButton := TNewRadioButton.Create(WizardForm);
  with ComponentRadioButton do
  begin
    Name := 'ComponentRadioButton';
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(176);
    Top := ScaleY(192);
    Width := ScaleX(113);
    Height := ScaleY(17);
    Caption := 'Компонент1';
    Checked := True;
    TabStop := True;
    OnClick := @ComponentRadioButtonClick;
    OnMouseMove := @ComponentRadioButtonMouseMove;
  end;

  { ComponentRadioButton2 }
  ComponentRadioButton2 := TNewRadioButton.Create(WizardForm);
  with ComponentRadioButton2 do
  begin
    Name := 'ComponentRadioButton2';
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(176);
    Top := ScaleY(216);
    Width := ScaleX(113);
    Height := ScaleY(17);
    Caption := 'Компонент 2';
    OnClick := @ComponentRadioButton2Click;
    OnMouseMove := @ComponentRadioButton2MouseMove;
  end;

  HintMemo.TabOrder := 2;
  ComponentRadioButton.TabOrder := 3;
  ComponentRadioButton2.TabOrder := 4;

{ ReservationBegin }
  // Вы можете добавить ваш код здесь.

{ ReservationEnd }
end;
// Не изменять эту секцию. Она создана автоматически.
{ RedesignWizardFormEnd } // Не удалять эту строку!

procedure WizardBitmapImageMouseLeave(Sender: TObject);
begin
  HintMemo.Lines.Text := '';// убрали курсор мыши с изображения
end;

procedure WizardBitmapImageMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
  HintMemo.Lines.Text := 'Посетить сайт или разместить свою рекламу'; //навели на изображение
end;

procedure ComponentRadioButton2MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
  HintMemo.Lines.Text := 'Компонент 2 будет установлен на ПК, а также другие библиотеки'; //навели на Компонент 2
end;

procedure ComponentRadioButtonMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
  HintMemo.Lines.Text := 'Компонент 1 будет установлен на ПК'; // навели на Компонент 1
end;

procedure ComponentRadioButton2Click(Sender: TObject);
begin
  HintMemo.Lines.Text := 'Компонент 2 будет установлен на ПК, а также другие библиотеки'; // выбор Компонента 2
end;

procedure ComponentRadioButtonClick(Sender: TObject);
begin
  HintMemo.Lines.Text := 'Компонент 1 будет установлен на ПК'; // выбор Компонента 1
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
  HintMemo.Lines.Text := ''; // очищаем перед запуском элемент Memo
end;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030109504000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544269746D6170496D6167651157697A6172644269746D6170496D6167650B4F6E4D6F7573654D6F7665071A57697A6172644269746D6170496D6167654D6F7573654D6F76650C4F6E4D6F7573654C65617665071B57697A6172644269746D6170496D6167654D6F7573654C656176650000F10E544E6577537461746963546578740D57656C636F6D654C6162656C310448696E74143D000000D0ADD182D0BE20D183D181D182D0B0D0BDD0BED0B2D0BAD0B020D0BFD180D0BED0B3D180D0B0D0BCD0BCD18B20D0BDD0B020D0B2D0B0D18820D09FD09A0E506172656E7453686F7748696E74080853686F7748696E7409000008544E65774D656D6F0848696E744D656D6F044C65667403580103546F7003C0000557696474680391000648656967687402690D4C696E65732E537472696E677301060848696E744D656D6F0008526561644F6E6C7909085461624F72646572020200000F544E6577526164696F427574746F6E14436F6D706F6E656E74526164696F427574746F6E044C65667403B00003546F7003C00005576964746802710648656967687402110743617074696F6E1413000000D09AD0BED0BCD0BFD0BED0BDD0B5D0BDD1823107436865636B656409085461624F7264657202030754616253746F7009074F6E436C69636B0719436F6D706F6E656E74526164696F427574746F6E436C69636B0B4F6E4D6F7573654D6F7665071D436F6D706F6E656E74526164696F427574746F6E4D6F7573654D6F766500000F544E6577526164696F427574746F6E15436F6D706F6E656E74526164696F427574746F6E32044C65667403B00003546F7003D80005576964746802710648656967687402110743617074696F6E1414000000D09AD0BED0BCD0BFD0BED0BDD0B5D0BDD1822032085461624F726465720204074F6E436C69636B071A436F6D706F6E656E74526164696F427574746F6E32436C69636B0B4F6E4D6F7573654D6F7665071E436F6D706F6E656E74526164696F427574746F6E324D6F7573654D6F7665000000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E7473506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED00000000000000

Чтобы было нагляднее и понятнее, открой этот код в расширенной версии Inno ResTools и увидишь что и куда, я специально оставил секцию ISFormDesigner, дабы сам посмотрел.
Можно убрать действия для курсора мыши, чтобы не переполнять элементы. Для компонентов увидишь события- от этого можешь отталкиваться и писать свой код.

Цитата Ivan_009:

Кстати в обзоре папок ползунок не робит... »

Есть такое, не заметил даже. Надо разработчику скидывать баг-репорт или пилить самому).