Ekspoint 2,122 #279840 Posted June 27, 2015 Можно даже создавать ярлык из секции [~Code~]. это как? Quote Share this post Link to post Short link Share on other sites
Pokaritel_VBR 3 #280243 Posted July 1, 2015 (edited) Ребзя , дико извиняюсь , дайте скрипт с фишкой , что можно из сети скачивать !Очень срочно !!! Edited July 1, 2015 by Pokaritel_VBR Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #280245 Posted July 1, 2015 Ребзя , дико извиняюсь , дайте скрипт с фишкой , что можно из сети скачивать !Очень срочно !!! вроде 65 стр 1 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #280288 Posted July 1, 2015 Ребзя , дико извиняюсь , дайте скрипт с фишкой , что можно из сети скачивать !Очень срочно !!! https://mitrichsoftware.wordpress.com/inno-setup-tools/inno-download-plugin/ 2 Quote Share this post Link to post Short link Share on other sites
Pokaritel_VBR 3 #280294 Posted July 1, 2015 вроде 65 стр Спасибо! https://mitrichsoftware.wordpress.com/inno-setup-tools/inno-download-plugin/ Спасибо за понимание! Очень Вас благодарен! Quote Share this post Link to post Short link Share on other sites
Pokaritel_VBR 3 #280357 Posted July 2, 2015 Ребята , а дайте скрипт , чтобы превью вот так высвечивалось : Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #280358 Posted July 2, 2015 Ребята , а дайте скрипт , чтобы превью вот так высвечивалось : Screenshot_8.jpg [Setup] AppName=Моя программа AppVersion=1.5 DefaultDirName={pf}\Моя программа [CustomMessages] CompName1=Компонент 1 CompName2=Компонент 2 ComponentsImgInfo=Наведите курсор мыши на компонент, чтобы посмотреть его превью. CompDesc1=Описание первого компонента CompDesc2=Описание второго компонента [Files] Source: "compiler:WizModernImage.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy Source: "compiler:WizModernImage-IS.bmp"; DestName: "CompDescImg2.bmp"; Flags: dontcopy Source: "compiler:WizModernImage.bmp"; DestName: "MainPic.bmp"; Flags: dontcopy [Types] Name: full; Description: Full installation; Flags: iscustom [Components] Name: comp1; Description: "{cm:CompName1}"; Types: full Name: comp2; Description: "{cm:CompName2}"; Types: full Name: comp3; Description: "{cm:CompName1}"; Types: full Name: comp4; Description: "{cm:CompName2}"; Types: full Name: comp5; Description: "{cm:CompName1}"; Types: full Name: comp6; Description: "{cm:CompName2}"; Types: full Name: comp7; Description: "{cm:CompName1}"; Types: full Name: comp8; Description: "{cm:CompName2}"; Types: full [Code] type TComponentDesc = record ImageName: String; Index: Integer; end; var CompDescs: array of TComponentDesc; CompDescImgPanel: TPanel; 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; end else begin CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MainPic.bmp')); end; LastIndex := Index; end; procedure CompListMouseLeave(Sender: TObject); begin LastIndex := -1; CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MainPic.bmp')); end; procedure AddCompDescription(AIndex: Integer; AImageName: String); var i: Integer; begin i := GetArrayLength(CompDescs); SetArrayLength(CompDescs, i + 1); CompDescs[i].ImageName := AImageName; CompDescs[i].Index := AIndex - 1 end; function GetComponentIndex(Name: String): Integer; var i: Integer; begin Result:= -1; for i:= 0 to WizardForm.ComponentsList.ItemCount-1 do begin if (WizardForm.ComponentsList.ItemCaption[i] = Name) then begin Result:= i + 1; Break; end; end; end; procedure InitializeWizard(); begin ExtractTemporaryFile('MainPic.bmp'); WizardForm.SelectComponentsLabel.Hide; WizardForm.TypesCombo.Hide; WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(0), ScaleX(184), ScaleY(200)); WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription; WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave; CompDescImgPanel := TPanel.Create(WizardForm); with CompDescImgPanel do begin Parent := WizardForm.SelectComponentsPage; SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(120)); BevelInner := bvLowered; 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; Bitmap.LoadFromFile(ExpandConstant('{tmp}\MainPic.bmp')); end; AddCompDescription(1, 'CompDescImg1.bmp'); AddCompDescription(2, 'CompDescImg2.bmp'); ///////////////////////////////////////// //AddCompDescription(GetComponentIndex(CustomMessage('CompName1')), 'CompDescImg1.bmp'); //по названию компонента //AddCompDescription(GetComponentIndex(CustomMessage('CompName2')), 'CompDescImg2.bmp'); //по названию компонента end; 1 Quote Share this post Link to post Short link Share on other sites
Pokaritel_VBR 3 #280359 Posted July 2, 2015 Благодарю! Я решил моды для корбаликов забацать! Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #280360 Posted July 2, 2015 Благодарю! Я решил моды для корбаликов забацать! могу готовый дать, ток в лс Quote Share this post Link to post Short link Share on other sites
-zav- 188 #280388 Posted July 2, 2015 Благодарю! Я решил моды для корбаликов забацать! моды или модпак? если модпак то там их и так больше чем модов )) Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #280393 Posted July 2, 2015 моды или модпак? если модпак то там их и так больше чем модов )) смотрел твой, прикольно сделан :) Quote Share this post Link to post Short link Share on other sites
Pokaritel_VBR 3 #280411 Posted July 2, 2015 Оцените , как получается ?Говорите всё , что думаете , пока это пробная версия ! моды или модпак? если модпак то там их и так больше чем модов )) Модпак. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #280412 Posted July 2, 2015 Оцените , как получается ?Говорите всё , что думаете , пока это пробная версия ! Ничего особенного\интересного. Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #280413 Posted July 2, 2015 как получается Тихий ужас в плане дизайна. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #280414 Posted July 2, 2015 (edited) Оцените , как получается ?Говорите всё , что думаете , пока это пробная версия ! дизайн ггг, особенно верхнее лого Edited July 2, 2015 by Dark_Knight_MiX Quote Share this post Link to post Short link Share on other sites
Pokaritel_VBR 3 #280415 Posted July 2, 2015 А что в верхнем лого поставить? Тихий ужас в плане дизайна. А что заменить , помогите , пожалуйста, я не мастер фотошопа Quote Share this post Link to post Short link Share on other sites
-zav- 188 #280426 Posted July 2, 2015 смотрел твой, прикольно сделан :) 0_0 хде? мои модпаки засекречены :) Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #280427 Posted July 2, 2015 0_0 хде? мои модпаки засекречены :) http://forum.worldofwarships.ru/index.php?/topic/16451-040х-модпак-sealdarkside-от-котячьей-упряжкиstar-wars-star-trek-mlp-обновл/ Quote Share this post Link to post Short link Share on other sites
-zav- 188 #280440 Posted July 3, 2015 http://forum.worldofwarships.ru/index.php?/topic/16451-040х-модпак-sealdarkside-от-котячьей-упряжкиstar-wars-star-trek-mlp-обновл/ ааа, это на половину мой ))) просто посильная помощь альянсу )) Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #280540 Posted July 3, 2015 ааа, это на половину мой ))) просто посильная помощь альянсу )) ясно Quote Share this post Link to post Short link Share on other sites