Kotyarko_O Posted August 13, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted August 14, 2015 Share Posted August 14, 2015 как сделать отрисовку ImgLoad из ботвы на странице, а то получается что рисуется под ней @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 14, 2015 Share Posted August 14, 2015 как сделать отрисовку ImgLoad из ботвы на странице, а то получается что рисуется под ней Отрисовывай на странице, а не под ней. ImgLoad(WizardForm.SelectComponentsPage.Handle, ..... ... ImgApplyChanges(WizardForm.SelectComponentsPage.Handle); Ну или на чём ты там рисуешь.. 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted August 14, 2015 Share Posted August 14, 2015 Отрисовывай на странице, а не под ней. ImgLoad(WizardForm.SelectComponentsPage.Handle, ..... ... ImgApplyChanges(WizardForm.SelectComponentsPage.Handle); Ну или на чём ты там рисуешь.. спс @ Quote Link to comment Short link Share on other sites More sharing options...
licimer Posted August 15, 2015 Share Posted August 15, 2015 Переходите на VCL, там в плане редактирования интерфейса очень много возможностей. А может кто нибудь на нормальную инструкцию по этой проге отправить. хочу изучить но с инглишем не особо @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 15, 2015 Share Posted August 15, 2015 А может кто нибудь на нормальную инструкцию по этой проге отправить. хочу изучить но с инглишем не особо А что там изучать? Если с английским не особо, то не надо лезть в программирование. 1 @ Quote Link to comment Short link Share on other sites More sharing options...
licimer Posted August 15, 2015 Share Posted August 15, 2015 А что там изучать? Если с английским не особо, то не надо лезть в программирование. капец ну давай теперь сидеть дома и не ездить за границу и т.п. ... По делу есть чего? статейка, видео? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 15, 2015 Share Posted August 15, 2015 капец ну давай теперь сидеть дома и не ездить за границу и т.п. ... Давай. 3 @ Quote Link to comment Short link Share on other sites More sharing options...
voin_123 Posted August 15, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted August 15, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
voin_123 Posted August 15, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted August 15, 2015 Share Posted August 15, 2015 procedure InitializeWizard(); begin WizardForm.TypesCombo.Visible := False; end; Это отключает Types, а мне надо в ней выключить прокрутку скрола ну вот, отключает прокрутку @ Quote Link to comment Short link Share on other sites More sharing options...
voin_123 Posted August 15, 2015 Share Posted August 15, 2015 ну вот, отключает прокрутку Полностю пропадает секция Types @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted August 15, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
voin_123 Posted August 15, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 15, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted August 15, 2015 Share Posted August 15, 2015 Visible - это "видимость", а не прокрутка. вкурсе @ Quote Link to comment Short link Share on other sites More sharing options...
voin_123 Posted August 16, 2015 Share Posted August 16, 2015 Visible - это "видимость", а не прокрутка. Вообще, это: WizardForm.ComponentsList.SetFocus; должно помогать. Это фокусит внимание над Components на не отключает прокрутку в Types не помогает. @ Quote Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted August 22, 2015 Share 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 Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 22, 2015 Share Posted August 22, 2015 (edited) вот код ... А точнее: "вот часть кода". Проблема не в этом куске. Т.к. вижу подключаемый скрипт скина, то полагаю, что в нём скорее всего и проблема. Edited August 22, 2015 by Kotyarko_O 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.