JIuCuI_GyCb

March 15, 2021

Помогите досоздать скрипт который добавит описание под картинку.

Вот скрипт

// Этот сценарий создан с помощью Мастера Inno Setup.
// ОБРАТИТЕСЬ К СПРАВОЧНОЙ ДОКУМЕНТАЦИИ, ЧТОБЫ ИСПОЛЬЗОВАТЬ ВСЕ ВОЗМОЖНОСТИ INNO SETUP!

#define MyAppName "JluCuI_GyCb Мультипак"
#define MyAppVersion "1.12.0.0"
#define MyAppPublisher "JluCuI_GyCb"
#define MyAppURL "https://kttc.ru/wot/ru/user/JluCuI_GyCb/"

[Setup]
// Примечание: Значение AppId является уникальным идентификатором для этого приложения.
// Не используйте одно и тоже значение AppId для разных приложений.
// (Для создания нового значения GUID, выберите в меню "Инструменты" пункт "Создать GUID".)
AppId={{63927EB8-2400-49E7-9B72-4D9E4AD1518B}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName=C:\Games\World_of_Tanks_RU\
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
DirExistsWarning=no
LicenseFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\License.txt
InfoBeforeFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\InfoBefore.rtf
UninstallFilesDir={app}\JluCuI_GyCb Мультипак
OutputDir=C:\Games
OutputBaseFilename=JluCuIGyCb-ModPack 1.12.0.0
SetupIconFile=C:\Users\postu\Desktop\World_of_Tanks\wot_ico.ico
Compression=lzma
SolidCompression=yes
WizardImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardImage.bmp
WizardSmallImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardSmallImage.bmp

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

[Files]
//---------- мои фото ----------
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_1.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_2.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_2_1.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_2_2.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_3.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_4.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_5.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_6.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_7.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_8.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_9.bmp; Flags: dontcopy nocompression
//---------- мои файлы ----------
Source: "C:\Users\postu\Desktop\World_of_Tanks\Цветные отметки попаданий\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text7;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Белые сбитые гусеницы\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text6;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Калькулятор боевой эффективности\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text9;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Мод Достижения в бою\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text5;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Оповещение союзников о засвете\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text8;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от OldSkool\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\1;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от ПроТанки\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\2;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Статистика за сессию\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text4;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Менеджер Реплеев\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text1;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Командирская камера\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text3;
// Примечание: Не используйте флаги "ignoreversion" для общих системных файлов.

[Icons]
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"

[Components]
Name: KMP; Description: JluCuI_GyCb ModPack; Types: custom; Flags: fixed
Name: KMP\text1; Description: 1. Менеджер Реплеев; 
Name: KMP\text2; Description: 2. Отметки на орудие;
Name: KMP\text2\1; Description: Вариант от OldSkool; Flags: exclusive
Name: KMP\text2\2; Description: Вариант от ПроТанки; Flags: exclusive
Name: KMP\text3; Description: 3. Командирская камера;
Name: KMP\text4; Description: 4. Статистика за сессию;
Name: KMP\text5; Description: 5. Мод Достижения в бою;
Name: KMP\text6; Description: 6. Белые сбитые гусеницы;
Name: KMP\text7; Description: 7. Цветные отметки попаданий;
Name: KMP\text8; Description: 8. Оповещение союзников о засвете;
Name: KMP\text9; Description: 9. Калькулятор боевой эффективности;

[code]
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
var
  OldEvent_BackButtonClick: TNotifyEvent;

procedure WizardFormCreate(Sender: TObject); forward;
procedure MainPanelClick(Sender: TObject); forward;
procedure PageDescriptionLabelClick(Sender: TObject); forward;
procedure _BackButtonClick(Sender: TObject); forward;

function MyDirName(S:String): String;
var
  InsPath: String;
  er: boolean;
  myFile:String;
begin
  Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда
  er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath);
  if er and (InsPath<>'') then //если ключ существует и там что-то записано
  begin
    Result := InsPath;
  end;
end;

procedure RedesignWizardForm;
begin
  with WizardForm do
  begin
    OnCreate := @WizardFormCreate;
    AutoScroll := False;
    ClientHeight := ScaleY(360);
    ClientWidth := ScaleX(497);
  end;

  with WizardForm.Bevel do
  begin
    Top := ScaleY(313);
    Width := ScaleX(497);
    Height := ScaleY(2);
  end;

  with WizardForm.OuterNotebook do
  begin
    Width := ScaleX(497);
    Height := ScaleY(313);
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Width := ScaleX(498);
    Height := ScaleY(314);
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Caption := '' + #13#10 +
         '';
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
    Height := ScaleY(-1);
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Caption := '';
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
    Height := ScaleY(-1);
  end;

  with WizardForm.Bevel1 do
  begin
    Top := ScaleY(58);
    Width := ScaleX(499);
    Height := ScaleY(3);
  end;

  with WizardForm.InnerNotebook do
  begin
    Width := ScaleX(417);
    Height := ScaleY(237);
  end;

  with WizardForm.LicenseNotAcceptedRadio do
  begin
    Top := ScaleY(216);
  end;

  with WizardForm.LicenseAcceptedRadio do
  begin
    Top := ScaleY(196);
  end;

  with WizardForm.LicenseMemo do
  begin
    Width := ScaleX(417);
    Height := ScaleY(148);
  end;

  with WizardForm.DiskSpaceLabel do
  begin
    Top := ScaleY(216);
    Width := ScaleX(417);
  end;

  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(342);
    Top := ScaleY(80);
  end;

  with WizardForm.DirEdit do
  begin
    Left := ScaleX(0);
    Width := ScaleX(332);
  end;

  with WizardForm.ComponentsDiskSpaceLabel do
  begin
    Top := ScaleY(-1);
    Width := ScaleX(-1);
  end;

  with WizardForm.ComponentsList do
  begin
    Width := ScaleX(417);
    Height := ScaleY(131);
  end;

  with WizardForm.TypesCombo do
  begin
    Width := ScaleX(417);
  end;

  with WizardForm.SelectComponentsLabel do
  begin
    Caption := 'Выберите компоненты, которые вы хотите установить. Нажмите «Далее», когда вы будете готовы продолжить.';
    Height := ScaleY(40);
  end;

  with WizardForm.TasksList do
  begin
    Width := ScaleX(417);
    Height := ScaleY(192);
  end;

  with WizardForm.ReadyMemo do
  begin
    Width := ScaleX(417);
    Height := ScaleY(205);
  end;

  with WizardForm.ProgressGauge do
  begin
    Left := ScaleX(0);
    Width := ScaleX(417);
  end;

  with WizardForm.InfoAfterMemo do
  begin
    Width := ScaleX(417);
    Height := ScaleY(205);
  end;

  with WizardForm.MainPanel do
  begin
    Width := ScaleX(497);
    Height := ScaleY(58);
    OnClick := @MainPanelClick;
  end;

  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(498);
    Height := ScaleY(65);
  end;

  with WizardForm.PageDescriptionLabel do
  begin
    OnClick := @PageDescriptionLabelClick;
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
    Height := ScaleY(-1);
  end;

  with WizardForm.PageNameLabel do
  begin
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
  end;

  with WizardForm.WizardBitmapImage2 do
  begin
    Top := ScaleY(0);
    Width := ScaleX(498);
    Height := ScaleY(314);
  end;

  with WizardForm.RunList do
  begin
    Left := ScaleX(176);
    Top := ScaleY(163);
    Width := ScaleX(301);
    Height := ScaleY(142);
  end;

  with WizardForm.NoRadio do
  begin
    Left := ScaleX(176);
    Top := ScaleY(185);
    Width := ScaleX(301);
    Height := ScaleY(17);
    Caption := '';
  end;

  with WizardForm.YesRadio do
  begin
    Left := ScaleX(176);
    Top := ScaleY(163);
    Width := ScaleX(301);
    Height := ScaleY(17);
    Caption := '';
  end;

  with WizardForm.FinishedLabel do
  begin
    Caption := '';
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
    Height := ScaleY(-1);
  end;

  with WizardForm.FinishedHeadingLabel do
  begin
    Caption := '';
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
    Height := ScaleY(-1);
  end;

  with WizardForm.BeveledLabel do
  begin
    Left := ScaleX(0);
    Top := ScaleY(306);
  end;

  with WizardForm.CancelButton do
  begin
    Left := ScaleX(407);
    Top := ScaleY(327);
  end;

  with WizardForm.NextButton do
  begin
    Left := ScaleX(317);
    Top := ScaleY(327);
  end;

  with WizardForm.BackButton do
  begin
    Left := ScaleX(237);
    Top := ScaleY(327);
    OldEvent_BackButtonClick := OnClick;
    OnClick := @_BackButtonClick;
  end;

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

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

procedure NewButton1Click(Sender: TObject);
begin

end;

procedure MainPanelClick(Sender: TObject);
begin

end;

procedure PageDescriptionLabelClick(Sender: TObject);
begin

end;

procedure _BackButtonClick(Sender: TObject);
begin
  OldEvent_BackButtonClick(Sender);
end;

procedure WizardFormCreate(Sender: TObject);
begin

end;

const
    UNDEF_INDEX = -777;


function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall';


var
    InfoPic: TBitmapImage;
    LastIndex: Integer;
    TempPath: String;


procedure ShowPicHint(const PicFilePath: String);
var
    pt: TPoint;
begin
    if not GetCursorPos(pt) then Exit;
    InfoPic.Bitmap.LoadFromFile(PicFilePath);
    InfoPic.SetBounds(ScaleX(250), ScaleY(40), ScaleX(165), ScaleY(135));
    InfoPic.Show;
end;


procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
var
    UndefPic: String;
begin
    if Index = -1 then Exit;
    if Index = LastIndex then Exit;
    try
        case TNewCheckListBox(Sender).ItemCaption[Index] of
            '1. Менеджер Реплеев': UndefPic := 'descriptionimage_1.bmp'; // пишем точно так же, как прописано в компонентах
            '2. Отметки на орудие': UndefPic := 'descriptionimage_2.bmp';
            'Вариант от OldSkool': UndefPic := 'descriptionimage_2_1.bmp';
            'Вариант от ПроТанки': UndefPic := 'descriptionimage_2_2.bmp';
            '3. Командирская камера': UndefPic := 'descriptionimage_3.bmp';
            '4. Статистика за сессию': UndefPic := 'descriptionimage_4.bmp';
            '5. Мод Достижения в бою': UndefPic := 'descriptionimage_5.bmp';
            '6. Белые сбитые гусеницы': UndefPic := 'descriptionimage_6.bmp';
            '7. Цветные отметки попаданий': UndefPic := 'descriptionimage_7.bmp';
            '8. Оповещение союзников о засвете': UndefPic := 'descriptionimage_8.bmp';
            '9. Калькулятор боевой эффективности': UndefPic := 'descriptionimage_9.bmp';

        else
            begin
                LastIndex := UNDEF_INDEX;
                InfoPic.Hide;
                Exit;
            end;
        end;
        if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic);
        ShowPicHint(TempPath + UndefPic);
    finally
        LastIndex := Index;
    end;
end;


procedure CompOnMouseLeave(Sender: TObject);
begin
    InfoPic.Hide;
    LastIndex := -1;
end;


procedure InitInfo();
begin
    WizardForm.TypesCombo.Hide;
    WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(40), ScaleX(230), ScaleY(190));
    WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
    WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
    TempPath := AddBackslash(ExpandConstant('{tmp}'));
    LastIndex := UNDEF_INDEX;

    with TBevel.Create(WizardForm) do
    begin
      Parent := WizardForm.SelectComponentsPage;
      SetBounds(ScaleX(250), ScaleY(40), ScaleX(165), ScaleY(135));
      Shape := bsFrame;
    end;

    InfoPic := TBitmapImage.Create(WizardForm)
    with InfoPic do
    begin
      Parent := WizardForm.SelectComponentsPage;
      AutoSize := True;
    end;
end;


procedure InitializeWizard();
begin
  RedesignWizardForm;
    InitInfo();
end;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030100D03000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F1065450616E656C094D61696E50616E656C00F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C656674020005576964746803EF010C4578706C696369744C65667402000D4578706C69636974576964746803EF010000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C044C65667402F803546F7002FA0557696474680205064865696768740206074F6E436C69636B0719506167654465736372697074696F6E4C6162656C436C69636B0C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C69636974576964746802050E4578706C6963697448656967687402060000F10E544E6577537461746963546578740D506167654E616D654C6162656C044C65667402F803546F7002FA055769647468020D0648656967687402060C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C696369745769647468020D0E4578706C69636974486569676874020600000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100000000

March 14, 2021

Никак не могу изменить рамки компонентов и картинки

Вот скрипт и фото (на фото находится что именно я не могу изменить)

// Этот сценарий создан с помощью Мастера Inno Setup.
// ОБРАТИТЕСЬ К СПРАВОЧНОЙ ДОКУМЕНТАЦИИ, ЧТОБЫ ИСПОЛЬЗОВАТЬ ВСЕ ВОЗМОЖНОСТИ INNO SETUP!

#define MyAppName "JluCuI_GyCb Мультипак"
#define MyAppVersion "1.12.0.0"
#define MyAppPublisher "JluCuI_GyCb"
#define MyAppURL "https://kttc.ru/wot/ru/user/JluCuI_GyCb/"

[Setup]
// Примечание: Значение AppId является уникальным идентификатором для этого приложения.
// Не используйте одно и тоже значение AppId для разных приложений.
// (Для создания нового значения GUID, выберите в меню "Инструменты" пункт "Создать GUID".)
AppId={{63927EB8-2400-49E7-9B72-4D9E4AD1518B}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName=C:\Games\World_of_Tanks_RU\
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
DirExistsWarning=no
LicenseFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\License.txt
InfoBeforeFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\InfoBefore.rtf
OutputDir=C:\Games
OutputBaseFilename=JluCuIGyCb-ModPack 1.12.0.0
SetupIconFile=C:\Users\postu\Desktop\World_of_Tanks\wot_ico.ico
Compression=lzma
SolidCompression=yes
WizardImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardImage.bmp
WizardSmallImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardSmallImage.bmp

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

[Files]
//---------- мои фото ----------
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_1.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_2.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_3.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_4.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_5.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_6.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_7.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_8.bmp; Flags: dontcopy nocompression
Source: C:\Users\postu\Desktop\World_of_Tanks\BMP\descriptionimage_9.bmp; Flags: dontcopy nocompression
//---------- мои файлы ----------
Source: "C:\Users\postu\Desktop\World_of_Tanks\Цветные отметки попаданий\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text7;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Белые сбитые гусеницы\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text6;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Калькулятор боевой эффективности\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text9;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Мод Достижения в бою\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text5;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Оповещение союзников о засвете\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text8;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от CHAMPi\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\1;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от OldSkool\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\2;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от ПроТанки\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\3;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Статистика за сессию\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text4;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Менеджер Реплеев\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text1;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Командирская камера\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text3;
// Примечание: Не используйте флаги "ignoreversion" для общих системных файлов.

[Icons]
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"

[Components]
Name: KMP; Description: JluCuI_GyCb ModPack; Types: custom; Flags: fixed
Name: KMP\text1; Description: 1. Менеджер Реплеев; 
Name: KMP\text2; Description: 2. Отметки на орудие;
Name: KMP\text2\1; Description: Вариант от CHAMPi; Flags: exclusive
Name: KMP\text2\2; Description: Вариант от OldSkool; Flags: exclusive
Name: KMP\text2\3; Description: Вариант от ПроТанки; Flags: exclusive
Name: KMP\text3; Description: 3. Командирская камера;
Name: KMP\text4; Description: 4. Статистика за сессию;
Name: KMP\text5; Description: 5. Мод Достижения в бою;
Name: KMP\text6; Description: 6. Белые сбитые гусеницы;
Name: KMP\text7; Description: 7. Цветные отметки попаданий;
Name: KMP\text8; Description: 8. Оповещение союзников о засвете;
Name: KMP\text9; Description: 9. Калькулятор боевой эффективности;

[code]
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
var
  OldEvent_BackButtonClick: TNotifyEvent;

procedure WizardFormCreate(Sender: TObject); forward;
procedure MainPanelClick(Sender: TObject); forward;
procedure PageDescriptionLabelClick(Sender: TObject); forward;
procedure _BackButtonClick(Sender: TObject); forward;

function MyDirName(S:String): String;
var
  InsPath: String;
  er: boolean;
  myFile:String;
begin
  Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда
  er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath);
  if er and (InsPath<>'') then //если ключ существует и там что-то записано
  begin
    Result := InsPath;
  end;
end;

procedure RedesignWizardForm;
begin
  with WizardForm do
  begin
    OnCreate := @WizardFormCreate;
    AutoScroll := False;
    ClientHeight := ScaleY(360);
    ClientWidth := ScaleX(497);
  end;

  with WizardForm.Bevel do
  begin
    Top := ScaleY(313);
    Width := ScaleX(497);
    Height := ScaleY(2);
  end;

  with WizardForm.OuterNotebook do
  begin
    Width := ScaleX(497);
    Height := ScaleY(313);
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Width := ScaleX(498);
    Height := ScaleY(314);
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Caption := '' + #13#10 +
         '';
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
    Height := ScaleY(-1);
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Caption := '';
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
    Height := ScaleY(-1);
  end;

  with WizardForm.Bevel1 do
  begin
    Top := ScaleY(58);
    Width := ScaleX(499);
    Height := ScaleY(3);
  end;

  with WizardForm.InnerNotebook do
  begin
    Width := ScaleX(417);
    Height := ScaleY(237);
  end;

  with WizardForm.LicenseNotAcceptedRadio do
  begin
    Top := ScaleY(216);
  end;

  with WizardForm.LicenseAcceptedRadio do
  begin
    Top := ScaleY(196);
  end;

  with WizardForm.LicenseMemo do
  begin
    Width := ScaleX(417);
    Height := ScaleY(148);
  end;

  with WizardForm.DiskSpaceLabel do
  begin
    Top := ScaleY(216);
    Width := ScaleX(417);
  end;

  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(342);
    Top := ScaleY(80);
  end;

  with WizardForm.DirEdit do
  begin
    Left := ScaleX(0);
    Width := ScaleX(332);
  end;

  with WizardForm.ComponentsDiskSpaceLabel do
  begin
    Top := ScaleY(216);
    Width := ScaleX(417);
  end;

  with WizardForm.ComponentsList do
  begin
    Width := ScaleX(417);
    Height := ScaleY(131);
  end;

  with WizardForm.TypesCombo do
  begin
    Width := ScaleX(417);
  end;

  with WizardForm.SelectComponentsLabel do
  begin
    Caption := 'Выберите компоненты, которые вы хотите установить; снимите флажки с компонентов, устанавливать которые не требуется. Нажмите «Далее», когда вы будете готовы продолжить.';
    Height := ScaleY(40);
  end;

  with WizardForm.TasksList do
  begin
    Width := ScaleX(417);
    Height := ScaleY(192);
  end;

  with WizardForm.ReadyMemo do
  begin
    Width := ScaleX(417);
    Height := ScaleY(205);
  end;

  with WizardForm.ProgressGauge do
  begin
    Left := ScaleX(0);
    Width := ScaleX(417);
  end;

  with WizardForm.InfoAfterMemo do
  begin
    Width := ScaleX(417);
    Height := ScaleY(205);
  end;

  with WizardForm.MainPanel do
  begin
    Width := ScaleX(497);
    Height := ScaleY(58);
    OnClick := @MainPanelClick;
  end;

  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(498);
    Height := ScaleY(65);
  end;

  with WizardForm.PageDescriptionLabel do
  begin
    OnClick := @PageDescriptionLabelClick;
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
    Height := ScaleY(-1);
  end;

  with WizardForm.PageNameLabel do
  begin
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
  end;

  with WizardForm.WizardBitmapImage2 do
  begin
    Top := ScaleY(0);
    Width := ScaleX(498);
    Height := ScaleY(314);
  end;

  with WizardForm.RunList do
  begin
    Left := ScaleX(176);
    Top := ScaleY(163);
    Width := ScaleX(301);
    Height := ScaleY(142);
  end;

  with WizardForm.NoRadio do
  begin
    Left := ScaleX(176);
    Top := ScaleY(185);
    Width := ScaleX(301);
    Height := ScaleY(17);
    Caption := '';
  end;

  with WizardForm.YesRadio do
  begin
    Left := ScaleX(176);
    Top := ScaleY(163);
    Width := ScaleX(301);
    Height := ScaleY(17);
    Caption := '';
  end;

  with WizardForm.FinishedLabel do
  begin
    Caption := '';
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
    Height := ScaleY(-1);
  end;

  with WizardForm.FinishedHeadingLabel do
  begin
    Caption := '';
    Left := ScaleX(-1);
    Top := ScaleY(-1);
    Width := ScaleX(-1);
    Height := ScaleY(-1);
  end;

  with WizardForm.BeveledLabel do
  begin
    Left := ScaleX(0);
    Top := ScaleY(306);
  end;

  with WizardForm.CancelButton do
  begin
    Left := ScaleX(407);
    Top := ScaleY(327);
  end;

  with WizardForm.NextButton do
  begin
    Left := ScaleX(317);
    Top := ScaleY(327);
  end;

  with WizardForm.BackButton do
  begin
    Left := ScaleX(237);
    Top := ScaleY(327);
    OldEvent_BackButtonClick := OnClick;
    OnClick := @_BackButtonClick;
  end;

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

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

procedure NewButton1Click(Sender: TObject);
begin

end;

procedure MainPanelClick(Sender: TObject);
begin

end;

procedure PageDescriptionLabelClick(Sender: TObject);
begin

end;

procedure _BackButtonClick(Sender: TObject);
begin
  OldEvent_BackButtonClick(Sender);
end;

procedure WizardFormCreate(Sender: TObject);
begin

end;

const
    UNDEF_INDEX = -777;


function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall';


var
    InfoPic: TBitmapImage;
    LastIndex: Integer;
    TempPath: String;


procedure ShowPicHint(const PicFilePath: String);
var
    pt: TPoint;
begin
    if not GetCursorPos(pt) then Exit;
    InfoPic.Bitmap.LoadFromFile(PicFilePath);
    InfoPic.SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278));
    InfoPic.Show;
end;


procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
var
    UndefPic: String;
begin
    if Index = -1 then Exit;
    if Index = LastIndex then Exit;
    try
        case TNewCheckListBox(Sender).ItemCaption[Index] of
            '1. Менеджер Реплеев': UndefPic := 'descriptionimage_1.bmp'; // пишем точно так же, как прописано в компонентах
            '2. Отметки на орудие': UndefPic := 'descriptionimage_2.bmp';
            '3. Командирская камера': UndefPic := 'descriptionimage_3.bmp';
            '4. Статистика за сессию': UndefPic := 'descriptionimage_4.bmp';
            '5. Мод Достижения в бою': UndefPic := 'descriptionimage_5.bmp';
            '6. Белые сбитые гусеницы': UndefPic := 'descriptionimage_6.bmp';
            '7. Цветные отметки попаданий': UndefPic := 'descriptionimage_7.bmp';
            '8. Оповещение союзников о засвете': UndefPic := 'descriptionimage_8.bmp';
            '9. Калькулятор боевой эффективности': UndefPic := 'descriptionimage_9.bmp';

        else
            begin
                LastIndex := UNDEF_INDEX;
                InfoPic.Hide;
                Exit;
            end;
        end;
        if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic);
        ShowPicHint(TempPath + UndefPic);
    finally
        LastIndex := Index;
    end;
end;


procedure CompOnMouseLeave(Sender: TObject);
begin
    InfoPic.Hide;
    LastIndex := -1;
end;


procedure InitInfo();
begin
    WizardForm.TypesCombo.Hide;
    WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(40), ScaleX(310), ScaleY(278));
    WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
    WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
    TempPath := AddBackslash(ExpandConstant('{tmp}'));
    LastIndex := UNDEF_INDEX;

    with TBevel.Create(WizardForm) do
    begin
      Parent := WizardForm.SelectComponentsPage;
      SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278));
      Shape := bsFrame;
    end;

    InfoPic := TBitmapImage.Create(WizardForm)
    with InfoPic do
    begin
      Parent := WizardForm.SelectComponentsPage;
      AutoSize := True;
    end;
end;


procedure InitializeWizard();
begin
  RedesignWizardForm;
    InitInfo();
end;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030100D03000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F1065450616E656C094D61696E50616E656C00F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C656674020005576964746803EF010C4578706C696369744C65667402000D4578706C69636974576964746803EF010000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C044C65667402F803546F7002FA0557696474680205064865696768740206074F6E436C69636B0719506167654465736372697074696F6E4C6162656C436C69636B0C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C69636974576964746802050E4578706C6963697448656967687402060000F10E544E6577537461746963546578740D506167654E616D654C6162656C044C65667402F803546F7002FA055769647468020D0648656967687402060C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C696369745769647468020D0E4578706C69636974486569676874020600000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100000000

March 13, 2021

@Kotyarko_O я ТУПОЙ проста спасибо теперь понял), Подскажите ещё пожалуйста как добавить ещё описание под данное фото

Прикрепил фото, что бы что-то похожее было)

March 13, 2021

@Kotyarko_O Мне надо изменить Name:???

1 минуту назад, Kotyarko_O сказал:
@JIuCuI_GyCb , компоненты у вас называются так:
Name: BT; Description: 1.Белые трупы таков.;
Name: K5; Description: 2.Круг 15м.;
А условие выглядит так:
'2.Белые трупы танков.': UndefPic := '5.bmp'; // пишем точно так же, как прописано в компонентах
'4.Боевое меню TRJ.': UndefPic := '6.bmp';
Надеюсь, всё понятно.

March 13, 2021

Не отображается картинка при наведение на компонент, скрипт вроде как норм сделал но не понимаю в чем причина.

Помогите пожалуйста!!!

[Setup]
WizardSmallImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardSmallImage.bmp
WizardImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardImage.bmp
AppName=PowerTanks ModPack-1.12.0.0-Extendet
AppVerName=1
DefaultDirName={code:MyDirName}
Compression=lzma/max
SetupIconFile=C:\Users\postu\Desktop\World_of_Tanks\wot_ico.ico
AppId={{DE24C6EE-F032-412E-8A6D-A594EA2C8BF5}
AppVersion=[2]
DefaultGroupName=PowerTanks ModPack-1.12.0.2-Extendet

[Files]
//------- ваши картинки ------------
Source: 5.bmp; Flags: dontcopy nocompression
Source: 6.bmp; Flags: dontcopy nocompression
//------- ваши файлы ------------
Source: BELIE TRUPI\*; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: BT;
Source: KRUG15M\*; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: K5;
[Components]
Name: BT; Description: 1.Белые трупы таков.;
Name: K5; Description: 2.Круг 15м.;

[code]
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
var
  OldEvent_BackButtonClick: TNotifyEvent;

procedure WizardFormCreate(Sender: TObject); forward;
procedure MainPanelClick(Sender: TObject); forward;
procedure PageDescriptionLabelClick(Sender: TObject); forward;
procedure _BackButtonClick(Sender: TObject); forward;

function MyDirName(S:String): String;
var
  InsPath: String;
  er: boolean;
  myFile:String;
begin
  Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда
  er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath);
  if er and (InsPath<>'') then //если ключ существует и там что-то записано
  begin
    Result := InsPath;
  end;
end;

procedure RedesignWizardForm;
begin
  with WizardForm do
  begin
    OnCreate := @WizardFormCreate;
    AutoScroll := False;
    ClientHeight := ScaleY(490);
    ClientWidth := ScaleX(740);
  end;

  with WizardForm.Bevel do
  begin
    Top := ScaleY(243);
    Width := ScaleX(457);
    Height := ScaleY(70);
  end;

  with WizardForm.OuterNotebook do
  begin
    Width := ScaleX(745);
    Height := ScaleY(457);
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Width := ScaleX(740);
    Height := ScaleY(458);
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Caption := '' + #13#10 +
         '';
    Left := ScaleX(744);
    Top := ScaleY(-23);
    Width := ScaleX(125);
    Height := ScaleY(25);
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Caption := '';
    Left := ScaleX(744);
    Top := ScaleY(-23);
    Width := ScaleX(13);
    Height := ScaleY(25);
  end;

  with WizardForm.Bevel1 do
  begin
    Top := ScaleY(57);
    Width := ScaleX(523);
    Height := ScaleY(1);
  end;

  with WizardForm.InnerNotebook do
  begin
    Width := ScaleX(659);
    Height := ScaleY(357);
  end;

  with WizardForm.LicenseNotAcceptedRadio do
  begin
    Top := ScaleY(312);
  end;

  with WizardForm.LicenseAcceptedRadio do
  begin
    Top := ScaleY(292);
  end;

  with WizardForm.LicenseMemo do
  begin
    Width := ScaleX(617);
    Height := ScaleY(244);
  end;

  with WizardForm.DiskSpaceLabel do
  begin
    Top := ScaleY(344);
    Width := ScaleX(353);
  end;

  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(574);
    Top := ScaleY(79);
  end;

  with WizardForm.DirEdit do
  begin
    Left := ScaleX(16);
    Width := ScaleX(540);
  end;

  with WizardForm.ComponentsDiskSpaceLabel do
  begin
    Top := ScaleY(344);
    Width := ScaleX(273);
  end;

  with WizardForm.ComponentsList do
  begin
    Width := ScaleX(657);
    Height := ScaleY(227);
  end;

  with WizardForm.TypesCombo do
  begin
    Width := ScaleX(657);
  end;

  with WizardForm.SelectComponentsLabel do
  begin
    Caption := 'Выберите моды которые хотите установить, и нажмите далее';
    Height := ScaleY(16);
  end;

  with WizardForm.TasksList do
  begin
    Width := ScaleX(465);
    Height := ScaleY(240);
  end;

  with WizardForm.ReadyMemo do
  begin
    Width := ScaleX(657);
    Height := ScaleY(333);
  end;

  with WizardForm.ProgressGauge do
  begin
    Left := ScaleX(8);
    Width := ScaleX(641);
  end;

  with WizardForm.InfoAfterMemo do
  begin
    Width := ScaleX(465);
    Height := ScaleY(253);
  end;

  with WizardForm.MainPanel do
  begin
    Width := ScaleX(745);
    Height := ScaleY(66);
    OnClick := @MainPanelClick;
  end;

  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(0);
    Top := ScaleY(3);
    Width := ScaleX(735);
    Height := ScaleY(63);
  end;

  with WizardForm.PageDescriptionLabel do
  begin
    OnClick := @PageDescriptionLabelClick;
    Left := ScaleX(-288);
    Top := ScaleY(-5);
    Width := ScaleX(285);
    Height := ScaleY(5);
  end;

  with WizardForm.PageNameLabel do
  begin
    Left := ScaleX(-104);
    Top := ScaleY(-14);
    Width := ScaleX(101);
  end;

  with WizardForm.WizardBitmapImage2 do
  begin
    Top := ScaleY(-24);
    Width := ScaleX(740);
    Height := ScaleY(484);
  end;

  with WizardForm.RunList do
  begin
    Left := ScaleX(-128);
    Top := ScaleY(459);
    Width := ScaleX(125);
    Height := ScaleY(62);
  end;

  with WizardForm.NoRadio do
  begin
    Left := ScaleX(736);
    Top := ScaleY(-7);
    Width := ScaleX(245);
    Height := ScaleY(9);
    Caption := '';
  end;

  with WizardForm.YesRadio do
  begin
    Left := ScaleX(736);
    Top := ScaleY(459);
    Width := ScaleX(173);
    Height := ScaleY(1);
    Caption := '';
  end;

  with WizardForm.FinishedLabel do
  begin
    Caption := '';
    Left := ScaleX(736);
    Top := ScaleY(-57);
    Width := ScaleX(269);
    Height := ScaleY(59);
  end;

  with WizardForm.FinishedHeadingLabel do
  begin
    Caption := '';
    Left := ScaleX(736);
    Top := ScaleY(-16);
    Width := ScaleX(213);
    Height := ScaleY(18);
  end;

  with WizardForm.BeveledLabel do
  begin
    Left := ScaleX(-48);
    Top := ScaleY(402);
  end;

  with WizardForm.CancelButton do
  begin
    Left := ScaleX(617);
    Top := ScaleY(463);
  end;

  with WizardForm.NextButton do
  begin
    Left := ScaleX(533);
    Top := ScaleY(463);
  end;

  with WizardForm.BackButton do
  begin
    Left := ScaleX(445);
    Top := ScaleY(463);
    OldEvent_BackButtonClick := OnClick;
    OnClick := @_BackButtonClick;
  end;

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

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

procedure NewButton1Click(Sender: TObject);
begin

end;

procedure MainPanelClick(Sender: TObject);
begin

end;

procedure PageDescriptionLabelClick(Sender: TObject);
begin

end;

procedure _BackButtonClick(Sender: TObject);
begin
  OldEvent_BackButtonClick(Sender);
end;

procedure WizardFormCreate(Sender: TObject);
begin

end;

const
    UNDEF_INDEX = -777;


function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall';


var
    InfoPic: TBitmapImage;
    LastIndex: Integer;
    TempPath: String;


procedure ShowPicHint(const PicFilePath: String);
var
    pt: TPoint;
begin
    if not GetCursorPos(pt) then Exit;
    InfoPic.Bitmap.LoadFromFile(PicFilePath);
    InfoPic.SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278));
    InfoPic.Show;
end;


procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
var
    UndefPic: String;
begin
    if Index = -1 then Exit;
    if Index = LastIndex then Exit;
    try
        case TNewCheckListBox(Sender).ItemCaption[Index] of
            '2.Белые трупы танков.': UndefPic := '5.bmp'; // пишем точно так же, как прописано в компонентах
            '4.Боевое меню TRJ.': UndefPic := '6.bmp';

        else
            begin
                LastIndex := UNDEF_INDEX;
                InfoPic.Hide;
                Exit;
            end;
        end;
        if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic);
        ShowPicHint(TempPath + UndefPic);
    finally
        LastIndex := Index;
    end;
end;


procedure CompOnMouseLeave(Sender: TObject);
begin
    InfoPic.Hide;
    LastIndex := -1;
end;


procedure InitInfo();
begin
    WizardForm.TypesCombo.Hide;
    WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(40), ScaleX(310), ScaleY(278));
    WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
    WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
    TempPath := AddBackslash(ExpandConstant('{tmp}'));
    LastIndex := UNDEF_INDEX;

    with TBevel.Create(WizardForm) do
    begin
      Parent := WizardForm.SelectComponentsPage;
      SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278));
      Shape := bsFrame;
    end;

    InfoPic := TBitmapImage.Create(WizardForm)
    with InfoPic do
    begin
      Parent := WizardForm.SelectComponentsPage;
      AutoSize := True;
    end;
end;


procedure InitializeWizard();
begin
  RedesignWizardForm;
    InitInfo();
end;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030101812000054504630F10B5457697A617264466F726D0A57697A61726 4466F726D0C436C69656E7448656967687403EA010B436C69656E74576964746803E402134F6E436F6E73747261696E65645 26573697A65071057697A617264466F726D437265617465084F6E437265617465071057697A617264466F726D43726561746 50C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746803F4020E45787 06C696369744865696768740310020D506978656C73506572496E636802600A54657874486569676874020D00F1065442657 6656C05426576656C03546F7003F30005576964746803C9010648656967687402460B4578706C69636974546F7003F3000D4 578706C69636974576964746803C9010E4578706C6963697448656967687402460000F302010C544E65774E6F7465626F6F6 B0D4F757465724E6F7465626F6F6B05576964746803E9020648656967687403C9010D4578706C69636974576964746803E90 20E4578706C6963697448656967687403C90100F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650 D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544269746D6170496D6167651 157697A6172644

March 13, 2021

Помогите добавить картинки в модпак

// Этот сценарий создан с помощью Мастера Inno Setup.
// ОБРАТИТЕСЬ К СПРАВОЧНОЙ ДОКУМЕНТАЦИИ, ЧТОБЫ ИСПОЛЬЗОВАТЬ ВСЕ ВОЗМОЖНОСТИ INNO SETUP!

#define MyAppName "JluCuI_GyCb Мультипак"
#define MyAppVersion "1.12.0.0"
#define MyAppPublisher "JluCuI_GyCb"
#define MyAppURL "https://kttc.ru/wot/ru/user/JluCuI_GyCb/"

[Setup]
// Примечание: Значение AppId является уникальным идентификатором для этого приложения.
// Не используйте одно и тоже значение AppId для разных приложений.
// (Для создания нового значения GUID, выберите в меню "Инструменты" пункт "Создать GUID".)
AppId={{63927EB8-2400-49E7-9B72-4D9E4AD1518B}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName=C:\Games\World_of_Tanks_RU\
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
DirExistsWarning=no
LicenseFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\License.txt
InfoBeforeFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\InfoBefore.rtf
OutputDir=C:\Games
OutputBaseFilename=JluCuIGyCb-ModPack 1.12.0.0
SetupIconFile=C:\Users\postu\Desktop\World_of_Tanks\wot_ico.ico
Compression=lzma
SolidCompression=yes
WizardImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardImage.bmp
WizardSmallImageFile=C:\Users\postu\Desktop\World_of_Tanks\embedded\WizardSmallImage.bmp

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

[Files]
//---------- мои фото ----------
Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_1.jpg; Flags: dontcopy noencryption noencryption
Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_2.jpg; Flags: dontcopy noencryption noencryption
Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_3.jpg; Flags: dontcopy noencryption noencryption
Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_4.jpg; Flags: dontcopy noencryption noencryption
Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_5.jpg; Flags: dontcopy noencryption noencryption
Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_6.jpg; Flags: dontcopy noencryption noencryption
Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_7.jpg; Flags: dontcopy noencryption noencryption
Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_8.jpg; Flags: dontcopy noencryption noencryption
Source: "C:\Users\postu\Desktop\World_of_Tanks\DescriptionImage_9.jpg; Flags: dontcopy noencryption noencryption
//---------- мои файлы ----------
Source: "C:\Users\postu\Desktop\World_of_Tanks\Цветные отметки попаданий\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text7;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Белые сбитые гусеницы\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text6;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Калькулятор боевой эффективности\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text9;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Мод Достижения в бою\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text5;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Оповещение союзников о засвете\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text8;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от CHAMPi\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\1;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от OldSkool\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\2;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Отметки на орудие Вариант от ПроТанки\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text2\3;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Статистика за сессию\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text4;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Менеджер Реплеев\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text1;
Source: "C:\Users\postu\Desktop\World_of_Tanks\Командирская камера\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\text3;
// Примечание: Не используйте флаги "ignoreversion" для общих системных файлов.

[Icons]
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"

[Components]
Name: KMP; Description: JluCuI_GyCb ModPack; Types: custom; Flags: fixed
Name: KMP\text1; Description: 1. Менеджер Реплеев; 
Name: KMP\text2; Description: 2. Отметки на орудие;
Name: KMP\text2\1; Description: Вариант от CHAMPi; Flags: exclusive
Name: KMP\text2\2; Description: Вариант от OldSkool; Flags: exclusive
Name: KMP\text2\3; Description: Вариант от ПроТанки; Flags: exclusive
Name: KMP\text3; Description: 3. Командирская камера;
Name: KMP\text4; Description: 4. Статистика за сессию;
Name: KMP\text5; Description: 5. Мод Достижения в бою;
Name: KMP\text6; Description: 6. Белые сбитые гусеницы;
Name: KMP\text7; Description: 7. Цветные отметки попаданий;
Name: KMP\text8; Description: 8. Оповещение союзников о засвете;
Name: KMP\text9; Description: 9. Калькулятор боевой эффективности;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030100D03000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F1065450616E656C094D61696E50616E656C00F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C656674020005576964746803EF010C4578706C696369744C65667402000D4578706C69636974576964746803EF010000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C044C65667402F803546F7002FA0557696474680205064865696768740206074F6E436C69636B0719506167654465736372697074696F6E4C6162656C436C69636B0C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C69636974576964746802050E4578706C6963697448656967687402060000F10E544E6577537461746963546578740D506167654E616D654C6162656C044C65667402F803546F7002FA055769647468020D0648656967687402060C4578706C696369744C65667402F80B4578706C69636974546F7002FA0D4578706C696369745769647468020D0E4578706C69636974486569676874020600000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100000000

[Code]
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
procedure PageDescriptionLabelClick(Sender: TObject); forward;

procedure RedesignWizardForm;
begin
  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(0);
    Width := ScaleX(495);
  end;

  with WizardForm.PageDescriptionLabel do
  begin
    OnClick := @PageDescriptionLabelClick;
    Left := ScaleX(-8);
    Top := ScaleY(-6);
    Width := ScaleX(5);
    Height := ScaleY(6);
  end;

  with WizardForm.PageNameLabel do
  begin
    Left := ScaleX(-8);
    Top := ScaleY(-6);
    Width := ScaleX(13);
    Height := ScaleY(6);
  end;

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

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

procedure PageDescriptionLabelClick(Sender: TObject);
begin

end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

Sign In

JIuCuI_GyCb

Content Count

Joined

Last visited

Content Type

Forums

Profiles

Posts posted by JIuCuI_GyCb

Не могу создать компонент описание под картинкой Inno Setup

Скрипт на Рамки и Картинку в Inno Setup доработка, НУЖНА ПОМОЩЬ!!!

Доработка скрипта в Inno Setup при наводке на компонент должна отображаться картинка

Доработка скрипта в Inno Setup при наводке на компонент должна отображаться картинка

Доработка скрипта в Inno Setup при наводке на компонент должна отображаться картинка

Создание инсталляторов для модпаков на базе Inno Setup