Kotyarko_O 1,906 #287439 Posted August 13, 2015 (edited) Как сделать прокрутку на стр. Ready Procedure CurPageChanged(CurPageID: Integer); begin case CurPageID of wpSelectComponents: WizardForm.ComponentsList.SetFocus; wpReady: WizardForm.ReadyMemo.SetFocus; end; end; Edited August 13, 2015 by Kotyarko_O 1 Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #287548 Posted August 14, 2015 как сделать отрисовку ImgLoad из ботвы на странице, а то получается что рисуется под ней Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #287549 Posted August 14, 2015 как сделать отрисовку ImgLoad из ботвы на странице, а то получается что рисуется под ней Отрисовывай на странице, а не под ней. ImgLoad(WizardForm.SelectComponentsPage.Handle, ..... ... ImgApplyChanges(WizardForm.SelectComponentsPage.Handle); Ну или на чём ты там рисуешь.. 1 Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #287550 Posted August 14, 2015 Отрисовывай на странице, а не под ней. ImgLoad(WizardForm.SelectComponentsPage.Handle, ..... ... ImgApplyChanges(WizardForm.SelectComponentsPage.Handle); Ну или на чём ты там рисуешь.. спс Quote Share this post Link to post Short link Share on other sites
licimer 1 #287582 Posted August 15, 2015 Переходите на VCL, там в плане редактирования интерфейса очень много возможностей. А может кто нибудь на нормальную инструкцию по этой проге отправить. хочу изучить но с инглишем не особо Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #287583 Posted August 15, 2015 А может кто нибудь на нормальную инструкцию по этой проге отправить. хочу изучить но с инглишем не особо А что там изучать? Если с английским не особо, то не надо лезть в программирование. 1 Quote Share this post Link to post Short link Share on other sites
licimer 1 #287590 Posted August 15, 2015 А что там изучать? Если с английским не особо, то не надо лезть в программирование. капец ну давай теперь сидеть дома и не ездить за границу и т.п. ... По делу есть чего? статейка, видео? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #287595 Posted August 15, 2015 капец ну давай теперь сидеть дома и не ездить за границу и т.п. ... Давай. 3 Quote Share this post Link to post Short link Share on other sites
voin_123 5 #287613 Posted August 15, 2015 Procedure CurPageChanged(CurPageID: Integer); begin case CurPageID of wpSelectComponents: WizardForm.ComponentsList.SetFocus; wpReady: WizardForm.ReadyMemo.SetFocus; end; end; Как сделать чтоб в окне Components секций Types не работала прокрутка а в секций Components работала прокрутка окна колесом мыши до выбора чексбокса? Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #287615 Posted August 15, 2015 (edited) Как сделать чтоб в окне Components секций Types не работала прокрутка а в секций Components работала прокрутка окна колесом мыши до выбора чексбокса? procedure InitializeWizard(); begin WizardForm.TypesCombo.Visible := False; end; вот еще прокрутка на тех стр где она нужна procedure CurPageChanged(CurPageID: Integer); begin case CurPageID of wpLicense: WizardForm.LicenseMemo.SetFocus; wpSelectComponents: WizardForm.ComponentsList.SetFocus; wpSelectTasks: WizardForm.TasksList.SetFocus; wpReady: WizardForm.ReadyMemo.SetFocus; wpInfoAfter: WizardForm.InfoAfterMemo.SetFocus; end; end; Edited August 15, 2015 by Dark_Knight_MiX Quote Share this post Link to post Short link Share on other sites
voin_123 5 #287619 Posted August 15, 2015 procedure InitializeWizard(); begin WizardForm.TypesCombo.Visible := False; end; вот еще прокрутка на тех стр где она нужна procedure CurPageChanged(CurPageID: Integer); begin case CurPageID of wpLicense: WizardForm.LicenseMemo.SetFocus; wpSelectComponents: WizardForm.ComponentsList.SetFocus; wpSelectTasks: WizardForm.TasksList.SetFocus; wpReady: WizardForm.ReadyMemo.SetFocus; wpInfoAfter: WizardForm.InfoAfterMemo.SetFocus; end; end; procedure InitializeWizard(); begin WizardForm.TypesCombo.Visible := False; end; Это отключает Types, а мне надо в ней выключить прокрутку скрола Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #287620 Posted August 15, 2015 procedure InitializeWizard(); begin WizardForm.TypesCombo.Visible := False; end; Это отключает Types, а мне надо в ней выключить прокрутку скрола ну вот, отключает прокрутку Quote Share this post Link to post Short link Share on other sites
voin_123 5 #287627 Posted August 15, 2015 ну вот, отключает прокрутку Полностю пропадает секция Types Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #287628 Posted August 15, 2015 (edited) Полностю пропадает секция Types ага, ну тогда я не знаю как еще или так попробуй, Types включи [Code] Const WM_MOUSEWHEEL = $20A; Function GetWindowRect(hWnd: HWND; var lpRect: TRect): Boolean; external '[email protected] stdcall'; Procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean); var Rt: TRect; begin case Msg.Message of WM_MOUSEWHEEL: begin if WizardForm.CurPageID = wpSelectComponents then GetWindowRect(WizardForm.ComponentsList.Handle, Rt); end; end; end; Procedure InitializeWizard(); begin Application.OnMessage := @AppOnMessage; end; Edited August 15, 2015 by Dark_Knight_MiX Quote Share this post Link to post Short link Share on other sites
voin_123 5 #287638 Posted August 15, 2015 ага, ну тогда я не знаю как еще или так попробуй, Types включи [Code] Const WM_MOUSEWHEEL = $20A; Function GetWindowRect(hWnd: HWND; var lpRect: TRect): Boolean; external '[email protected] stdcall'; Procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean); var Rt: TRect; begin case Msg.Message of WM_MOUSEWHEEL: begin if WizardForm.CurPageID = wpSelectComponents then GetWindowRect(WizardForm.ComponentsList.Handle, Rt); end; end; end; Procedure InitializeWizard(); begin Application.OnMessage := @AppOnMessage; end; Это раньше пробовал не работает Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #287645 Posted August 15, 2015 (edited) procedure InitializeWizard(); begin WizardForm.TypesCombo.Visible := False; end; ну вот, отключает прокрутку Visible - это "видимость", а не прокрутка. Как сделать чтоб в окне Components секций Types не работала прокрутка а в секций Components работала прокрутка окна колесом мыши до выбора чексбокса? Вообще, это: WizardForm.ComponentsList.SetFocus; должно помогать. Edited August 15, 2015 by Kotyarko_O 1 Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #287646 Posted August 15, 2015 Visible - это "видимость", а не прокрутка. вкурсе Quote Share this post Link to post Short link Share on other sites
voin_123 5 #287739 Posted August 16, 2015 Visible - это "видимость", а не прокрутка. Вообще, это: WizardForm.ComponentsList.SetFocus; должно помогать. Это фокусит внимание над Components на не отключает прокрутку в Types не помогает. Quote Share this post Link to post Short link Share on other sites
MS_RAMIS 0 #288413 Posted August 22, 2015 (edited) ВСЕМ Привет ... сделал установщик но при удалении модов выдает ошибку !!! народ подскажите в чем причина??? вот код ... #define MyAppName "Ms_RamiS_XVMs" ;Название инстоллятора #define MyInfoVer "613.1" ;Версия XVMa без точек #define MyAppVer "#3" ;Версия инсталлятора #define Patch "0.9.9" ;версия патча (чтобы не менять после каждого патча числа в скрипте, можно использовать это) #define MyAppPublisher "Ms_RamiS" ;Имя компании или человека кто делал #define MyAppURL "http://tatru.clan.su/load/mods/mod_xvm_dlja_world_of_tanks/1-1-0-1" ;Ссылка для лого #include "Components.iss" ;Компаненты, они же моды #include "Messages.iss" ;Сообщение, надписи на кнопках и т.д. #include "BackUpPage.iss" ;Резерное копирование или удаление res_mods #include "CustomMessages.iss" ;Описание модов ;#include "Music.iss" ;Музыка в инсталляторе #include "Skins.iss" [Setup] AppId={{#GameID} AppName={#MyAppName} AppVersion={#MyAppVer} AppPublisher={#MyAppPublisher} //====={ Ссылки }=====\\ AppPublisherURL={#MyAppURL} AppSupportURL={#MyAppURL} AppUpdatesURL={#MyAppURL} //====={ Папка установки }=====\\ DefaultDirName={code:MyDirName} AppendDefaultDirName=no DirExistsWarning=no CreateUninstallRegKey=yes Uninstallable=yes //UninstallFilesDir={app}\Удаление {#MyAppName} //====={ Картинки }=====\\ SetupIconFile=Files\ico.ico UninstallDisplayIcon={app}\unins000.exe WizardImageFile=Files\img1.bmp WizardSmallImageFile=Files\Small.bmp //====={ Отключение строниц }=====\\ DisableProgramGroupPage=yes //====={ Лицензия и Фак }=====\\ ;LicenseFile=licensia.rtf InfoBeforeFile=faq.rtf //====={ Папка создания и название сетапа }=====\\ OutputDir=.\Output OutputBaseFilename={#MyAppName}_v{#MyInfoVer}{#MyAppVer} //====={ Сжатие сетапа }=====\\ InternalCompressLevel=max Compression=lzma2/max //--------------- ваши картинки ---------------\\ [Files] Source: "ReadMeRu.rtf"; DestDir: "{tmp}"; Flags: ignoreversion Source: Files\logo.bmp; Flags: dontcopy noencryption noencryption DestName: "WizardForm.BitmapImage1.bmp"; Source: "Files\img2.bmp"; Flags: dontcopy solidbreak [Code] //--------------- ФАК ---------------\\ var InfoForm: TSetupForm; Info, Ok: TButton; InfoBefore: TRichEditViewer; ReadmeRu,ReadmeEn: AnsiString; procedure Okclick(Sender: TObject); begin InfoForm.Close; WizardForm.Enabled:=True; end; procedure FormClose(Sender: TObject; var Action: TCloseAction); begin WizardForm.Enabled:=true; end; procedure InfoClick(Sender: TObject); begin InfoForm:= CreateCustomForm(); with InfoForm do begin ClientWidth := ScaleX(600); ClientHeight := ScaleY(400); CenterInsideControl(WizardForm, False); Caption:='Страница FAQ'; onClose:=@FormClose; Ok:=tbutton.create(InfoForm) with Ok do begin SetBounds(ScaleX(490),ScaleY(370),ScaleX(80),ScaleY(25)); parent:=InfoForm; Caption:='Закрыть'; onclick:=@OKclick; end; InfoBefore:= TRichEditViewer.Create(InfoForm); with InfoBefore do begin SetBounds(ScaleX(10),ScaleY(10),ScaleX(580),ScaleY(355)); Parent:= InfoForm; // ParentColor := True; // Color:= WizardForm.Color; // BorderStyle:= bsNone; ScrollBars:= ssVertical; ReadOnly:= true; RTFText:= ReadmeRu end; InfoForm.Show; WizardForm.Enabled:=false; end; end; procedure InitializeWizard3(); begin ExtractTemporaryFile('ReadMeRu.rtf'); LoadStringFromFile(ExpandConstant('{tmp}')+'\ReadMeRu.rtf', ReadmeRu); Info:=tbutton.create(WizardForm); with Info do begin Parent:=WizardForm; SetBounds(ScaleX(112),ScaleY(497),ScaleX(80),ScaleY(23)); Caption:='F.A.Q'; OnClick:=@InfoClick; end; end; //--------------- ФАК ---------------\\ 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; //==== Проверка WoT ====\\ function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; case CurPageID of wpSelectDir: if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then begin MsgBox('Не верно указана папка с игрой World_of_Tanks!', mbError, MB_OK); Result := False; end; end; end; //==== Проверка WoT ====\\ procedure LogoOnClick(Sender: TObject); var ResCode: Integer; begin ShellExec('', '{#MyAppURL}', '' , '', SW_SHOW, ewNoWait, ResCode) end; var BitmapImage1: TBitmapImage; procedure RedesignWizardForm; var i: integer; BtnPanel: TPanel; BtnImage: TBitmapImage; begin ExtractTemporaryFile('logo.bmp') BtnPanel:=TPanel.Create(WizardForm) with BtnPanel do begin Left:=20 Top:=494 Width:=82 Height:=27 Cursor:=crHand OnClick:=@logoOnClick Parent:=WizardForm end; BtnImage:=TBitmapImage.Create(WizardForm) with BtnImage do begin AutoSize:=True; Enabled:=False; Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp') Parent:=BtnPanel end; { BitmapImage1 } BitmapImage1 := TBitmapImage.Create(WizardForm); with BitmapImage1 do begin Parent := WizardForm.SelectDirPage; Left := ScaleX(0); Top := ScaleY(115); Width := ScaleX(620); Height := ScaleY(260); ExtractTemporaryFile('WizardForm.BitmapImage1.bmp'); Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp')); end; end; function WindowResize(): Boolean; var HeightOffset, WidthOffset: Integer; begin HeightOffset:=170; WidthOffset:=200; WizardForm.Height:=WizardForm.Height + HeightOffset; WizardForm.Width:=WizardForm.Width + WidthOffset; WizardForm.NextButton.Top:=WizardForm.NextButton.Top + HeightOffset; WizardForm.BackButton.Top:=WizardForm.BackButton.Top + HeightOffset; WizardForm.CancelButton.Top:=WizardForm.CancelButton.Top + HeightOffset; WizardForm.NextButton.Left:=WizardForm.NextButton.Left + WidthOffset; WizardForm.BackButton.Left:=WizardForm.BackButton.Left + WidthOffset; WizardForm.CancelButton.Left:=WizardForm.CancelButton.Left + WidthOffset; WizardForm.OuterNotebook.Height:=WizardForm.OuterNotebook.Height + HeightOffset; WizardForm.InnerNotebook.Height:=WizardForm.InnerNotebook.Height + HeightOffset; WizardForm.OuterNotebook.Width:=WizardForm.OuterNotebook.Width + WidthOffset; WizardForm.InnerNotebook.Width:=WizardForm.InnerNotebook.Width + WidthOffset; WizardForm.WizardSmallBitmapImage.Left:= WizardForm.WizardSmallBitmapImage.Left + WidthOffset; WizardForm.Bevel.Top:=WizardForm.Bevel.Top + HeightOffset; WizardForm.BeveledLabel.Top:=WizardForm.BeveledLabel.Top + HeightOffset; WizardForm.Bevel.Width:=WizardForm.Bevel.Width + WidthOffset; WizardForm.Bevel1.Width:=WizardForm.Bevel1.Width + WidthOffset; WizardForm.MainPanel.Width:=WizardForm.MainPanel.Width + WidthOffset; WizardForm.BeveledLabel.Width:=WizardForm.BeveledLabel.Width + WidthOffset; WizardForm.Center; { /// --- Раскомментировать при желании ---- /// WizardForm.WelcomeLabel1.Hide; WizardForm.WelcomeLabel2.Hide; WizardForm.FinishedLabel.Hide; WizardForm.FinishedHeadingLabel.Hide; WizardForm.WizardBitmapImage.Width:=600; WizardForm.WizardBitmapImage.Height:=400; WizardForm.WizardBitmapImage2.Width:=600; WizardForm.WizardBitmapImage2.Height:=400; WizardForm.PageNameLabel.Hide; WizardForm.PageDescriptionLabel.Hide; WizardForm.WizardSmallBitmapImage.Top:=0; WizardForm.WizardSmallBitmapImage.Left:=0; WizardForm.WizardSmallBitmapImage.Width:=WizardForm.Width; WizardForm.WizardSmallBitmapImage.Height:=58; /// --- Конец ---- /// } WizardForm.WelcomeLabel1.Hide; WizardForm.WelcomeLabel2.Hide; WizardForm.WizardBitmapImage.Width:=697; WizardForm.WizardBitmapImage.Height:=483; WizardForm.FinishedHeadingLabel.Hide; WizardForm.FinishedLabel.Hide; WizardForm.YesRadio.Hide; WizardForm.NoRadio.Hide; WizardForm.WizardBitmapImage2.Width:=697; WizardForm.WizardBitmapImage2.Height:=483; WizardForm.PageNameLabel.Hide; WizardForm.PageDescriptionLabel.Hide; WizardForm.WizardSmallBitmapImage.Top:=0; WizardForm.WizardSmallBitmapImage.Left:=0; WizardForm.WizardSmallBitmapImage.Width:=697; WizardForm.WizardSmallBitmapImage.Height:=58; WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset; WizardForm.WelcomeLabel1.Height:=WizardForm.WelcomeLabel1.Height + HeightOffset; WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset; WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset; WizardForm.WelcomeLabel2.Height:=WizardForm.WelcomeLabel2.Height + HeightOffset; WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset; WizardForm.LicenseLabel1.Width:=WizardForm.LicenseLabel1.Width + WidthOffset; WizardForm.LicenseMemo.Height:=WizardForm.LicenseMemo.Height + HeightOffset; WizardForm.LicenseMemo.Width:=WizardForm.LicenseMemo.Width + WidthOffset; WizardForm.LicenseNotAcceptedRadio.Top:=WizardForm.LicenseNotAcceptedRadio.Top + HeightOffset; WizardForm.LicenseAcceptedRadio.Top:=WizardForm.LicenseAcceptedRadio.Top + HeightOffset; WizardForm.InfoBeforeClickLabel.Width:=WizardForm.InfoBeforeClickLabel.Width + WidthOffset; WizardForm.InfoBeforeMemo.Height:=WizardForm.InfoBeforeMemo.Height + HeightOffset; WizardForm.InfoBeforeMemo.Width:=WizardForm.InfoBeforeMemo.Width + WidthOffset; WizardForm.SelectDirLabel.Width:=WizardForm.SelectDirLabel.Width + WidthOffset; WizardForm.SelectDirBrowseLabel.Width:=WizardForm.SelectDirBrowseLabel.Width + WidthOffset; WizardForm.DiskSpaceLabel.Top:=WizardForm.DiskSpaceLabel.Top + HeightOffset; WizardForm.DirBrowseButton.Left:=WizardForm.DirBrowseButton.Left + HeightOffset; WizardForm.DirEdit.Width:=WizardForm.DirEdit.Width + HeightOffset; WizardForm.ComponentsDiskSpaceLabel.Top:=WizardForm.ComponentsDiskSpaceLabel.Top + HeightOffset; WizardForm.SelectComponentsLabel.Width:=WizardForm.SelectComponentsLabel.Width + WidthOffset; WizardForm.ComponentsList.Height:=WizardForm.ComponentsList.Height + HeightOffset; WizardForm.ComponentsList.Width:=WizardForm.ComponentsList.Width + WidthOffset; WizardForm.ReadyLabel.Width:=WizardForm.ReadyLabel.Width + WidthOffset; WizardForm.ReadyMemo.Height:=WizardForm.ReadyMemo.Height + HeightOffset; WizardForm.ReadyMemo.Width:=WizardForm.ReadyMemo.Width + WidthOffset; WizardForm.ProgressGauge.Width:=WizardForm.ProgressGauge.Width + HeightOffset; WizardForm.FilenameLabel.Width:=WizardForm.FilenameLabel.Width + HeightOffset; WizardForm.StatusLabel.Width:=WizardForm.StatusLabel.Width + HeightOffset; end; /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// type TComponentDesc = record Description: String; ImageName: String; Index: Integer; end; var CompDescs: array of TComponentDesc; CompDescPanel, CompDescImgPanel: TPanel; CompDescText: array[1..2] of TLabel; CompIndex, LastIndex: Integer; CompDescImg: TBitmapImage; procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea); var i: Integer; begin if Index = LastIndex then Exit; CompIndex := -1; for i := 0 to GetArrayLength(CompDescs) -1 do begin if (CompDescs[i].Index = Index) then begin CompIndex := i; Break; end; end; if (CompIndex >= 0) and (Area = iaItem) then begin if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then ExtractTemporaryFile(CompDescs[CompIndex].ImageName); CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName); CompDescImg.Show; CompDescText[2].Caption := CompDescs[CompIndex].Description; CompDescText[2].Enabled := True; end else begin CompDescText[2].Caption := CustomMessage('ComponentsInfo'); CompDescText[2].Enabled := False; CompDescImg.Hide; end; LastIndex := Index; end; procedure CompListMouseLeave(Sender: TObject); begin CompDescImg.Hide; CompDescText[2].Caption := CustomMessage('ComponentsInfo'); CompDescText[2].Enabled := False; LastIndex := -1; end; procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String); var i: Integer; begin i := GetArrayLength(CompDescs); SetArrayLength(CompDescs, i + 1); CompDescs[i].Description := ADescription; CompDescs[i].ImageName := AImageName; CompDescs[i].Index := AIndex - 1 end; procedure InitializeWizard(); begin InitializeWizard1(); {из BackUpPage.iss} //InitializeWizard2(); {из Music.iss} InitializeWizard3(); RedesignWizardForm; WindowResize(); begin WizardForm.SelectComponentsLabel.Hide; WizardForm.TypesCombo.Hide; WizardForm.ComponentsList.SetBounds(ScaleX(260), ScaleY(20), ScaleX(357), ScaleY(333)); WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription; WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave; CompDescImgPanel := TPanel.Create(WizardForm); with CompDescImgPanel do begin Parent := WizardForm.SelectComponentsPage; SetBounds(ScaleX(0), ScaleY(20), ScaleX(253), ScaleY(203)); //рамка картинки BevelInner := bvLowered; end; CompDescText[1] := TLabel.Create(WizardForm); with CompDescText[1] do begin Parent := CompDescImgPanel; SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10)); AutoSize := False; WordWrap := True; Enabled := False; Caption := CustomMessage('ComponentsImgInfo'); end; CompDescImg := TBitmapImage.Create(WizardForm); with CompDescImg do begin Parent := CompDescImgPanel; SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10)); Stretch := True; Hide; end; CompDescPanel := TPanel.Create(WizardForm); with CompDescPanel do begin Parent := WizardForm.SelectComponentsPage; SetBounds(ScaleX(0), ScaleY(230), ScaleX(253), ScaleY(123)); //Нижния рамка BevelInner := bvLowered; end; CompDescText[2] := TLabel.Create(WizardForm); with CompDescText[2] do begin Parent := CompDescPanel; SetBounds(ScaleX(5), ScaleY(5), CompDescPanel.Width - ScaleX(10), CompDescPanel.Height - ScaleY(10)); AutoSize := False; WordWrap := True; Enabled := False; Caption := CustomMessage('ComponentsInfo'); end; AddCompDescription(1, CustomMessage('CompDesc1'), 'CompDescImg1.bmp'); AddCompDescription(2, CustomMessage('CompDesc2'), 'CompDescImg2.bmp'); AddCompDescription(3, CustomMessage('CompDesc3'), 'CompDescImg3.bmp'); AddCompDescription(4, CustomMessage('CompDesc4'), 'CompDescImg4.bmp'); AddCompDescription(5, CustomMessage('CompDesc5'), 'CompDescImg5.bmp'); AddCompDescription(6, CustomMessage('CompDesc6'), 'CompDescImg6.bmp'); AddCompDescription(7, CustomMessage('CompDesc7'), 'CompDescImg7.bmp'); AddCompDescription(8, CustomMessage('CompDesc8'), 'CompDescImg8.bmp'); AddCompDescription(9, CustomMessage('CompDesc9'), 'CompDescImg9.bmp'); AddCompDescription(10, CustomMessage('CompDesc10'), 'CompDescImg10.bmp'); AddCompDescription(11, CustomMessage('CompDesc11'), 'CompDescImg11.bmp'); AddCompDescription(12, CustomMessage('CompDesc12'), 'CompDescImg12.bmp'); AddCompDescription(13, CustomMessage('CompDesc13'), 'CompDescImg13.bmp'); AddCompDescription(14, CustomMessage('CompDesc14'), 'CompDescImg14.bmp'); AddCompDescription(15, CustomMessage('CompDesc15'), 'CompDescImg15.bmp'); AddCompDescription(16, CustomMessage('CompDesc16'), 'CompDescImg16.bmp'); AddCompDescription(17, CustomMessage('CompDesc17'), 'CompDescImg17.bmp'); AddCompDescription(18, CustomMessage('CompDesc18'), 'CompDescImg18.bmp'); AddCompDescription(19, CustomMessage('CompDesc19'), 'CompDescImg19.bmp'); AddCompDescription(20, CustomMessage('CompDesc20'), 'CompDescImg20.bmp'); AddCompDescription(21, CustomMessage('CompDesc21'), 'CompDescImg21.bmp'); AddCompDescription(22, CustomMessage('CompDesc22'), 'CompDescImg22.bmp'); AddCompDescription(23, CustomMessage('CompDesc23'), 'CompDescImg23.bmp'); AddCompDescription(24, CustomMessage('CompDesc24'), 'CompDescImg24.bmp'); AddCompDescription(25, CustomMessage('CompDesc25'), 'CompDescImg25.bmp'); AddCompDescription(26, CustomMessage('CompDesc26'), 'CompDescImg26.bmp'); AddCompDescription(27, CustomMessage('CompDesc27'), 'CompDescImg27.bmp'); AddCompDescription(28, CustomMessage('CompDesc28'), 'CompDescImg28.bmp'); AddCompDescription(29, CustomMessage('CompDesc29'), 'CompDescImg29.bmp'); AddCompDescription(30, CustomMessage('CompDesc30'), 'CompDescImg30.bmp'); AddCompDescription(31, CustomMessage('CompDesc31'), 'CompDescImg31.bmp'); AddCompDescription(32, CustomMessage('CompDesc32'), 'CompDescImg32.bmp'); AddCompDescription(33, CustomMessage('CompDesc33'), 'CompDescImg33.bmp'); AddCompDescription(34, CustomMessage('CompDesc34'), 'CompDescImg34.bmp'); AddCompDescription(35, CustomMessage('CompDesc35'), 'CompDescImg35.bmp'); AddCompDescription(36, CustomMessage('CompDesc36'), 'CompDescImg36.bmp'); AddCompDescription(37, CustomMessage('CompDesc37'), 'CompDescImg37.bmp'); AddCompDescription(38, CustomMessage('CompDesc38'), 'CompDescImg38.bmp'); AddCompDescription(39, CustomMessage('CompDesc39'), 'CompDescImg39.bmp'); AddCompDescription(40, CustomMessage('CompDesc40'), 'CompDescImg40.bmp'); AddCompDescription(41, CustomMessage('CompDesc41'), 'CompDescImg41.bmp'); AddCompDescription(42, CustomMessage('CompDesc42'), 'CompDescImg42.bmp'); AddCompDescription(43, CustomMessage('CompDesc43'), 'CompDescImg43.bmp'); end; end; и еще можно ли сделать чтобы музыка (которая играет при запуске установщика) в установщике, выключается при нажатии на кнопку , а нужно сделать что бы наоборот включалась. т.е. при запуске установщика была тишина, а музыка включалась при нажатии на кнопку ... Edited August 22, 2015 by MS_RAMIS Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #288415 Posted August 22, 2015 (edited) вот код ... А точнее: "вот часть кода". Проблема не в этом куске. Т.к. вижу подключаемый скрипт скина, то полагаю, что в нём скорее всего и проблема. Edited August 22, 2015 by Kotyarko_O 1 Quote Share this post Link to post Short link Share on other sites