Jump to content
Korean Random
Sign in to follow this  
JIuCuI_GyCb

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

Recommended Posts

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

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

// Этот сценарий создан с помощью Мастера 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 'GetCursorPos@user32.dll 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

 

Комп1.png

Комп2.png

Share this post


Link to post

Short link
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...