Yupi Posted January 26, 2017 Share Posted January 26, 2017 Кто подскажет какой принцип будет когда все моды в Пэкажи будут моды чем архивировать и вообще что да как? В теме всё написано, там файл есть в первом посте @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 26, 2017 Share Posted January 26, 2017 не кто не знает как сделать фон прозрачным в компонент листахс помощью ботвы. Или подставляй фоновое изображение @ Quote Link to comment Short link Share on other sites More sharing options...
sergy2010 Posted January 26, 2017 Share Posted January 26, 2017 с помощью ботвы. Или подставляй фоновое изображение хороший ответ тому кто в ботве не шарит хот какой нибудь скрипт примером кинул @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted January 26, 2017 Share Posted January 26, 2017 хороший ответ тому кто в ботве не шарит хот какой нибудь скрипт примером кинул просто фоновое изображение вставить не устраивает тебя? про ботву сам не не знаю)) @ Quote Link to comment Short link Share on other sites More sharing options...
sergy2010 Posted January 26, 2017 Share Posted January 26, 2017 просто фоновое изображение вставить не устраивает тебя? про ботву сам не не знаю)) пробовал вставить надписи закрывает и чекбоксы тоже @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted January 26, 2017 Share Posted January 26, 2017 скрин как у тебя получается можешь показать? @ Quote Link to comment Short link Share on other sites More sharing options...
sergy2010 Posted January 26, 2017 Share Posted January 26, 2017 (edited) скрин как у тебя получается можешь показать? даже ненужно показывать получается что типа я закрыл картинкой все чек боксы а если через WizardForm.SelectСomponentsPage; то картинки под компонент листом и не просвечивается компонент лист Edited January 26, 2017 by sergy2010 @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted January 26, 2017 Share Posted January 26, 2017 (edited) даже ненужно показывать получается что типа я закрыл картинкой все чек боксы а если через WizardForm.SelectСomponentsPage; то картинки под компонент листом и не просвечивается компонент лист вот так тебе нужно? тут сделано что одна картинка фоном стоит на всех страницах. или я не так понял? Edited January 26, 2017 by ЛОМ @ Quote Link to comment Short link Share on other sites More sharing options...
sergy2010 Posted January 26, 2017 Share Posted January 26, 2017 вот так тебе нужно? тут сделано что одна картинка фоном стоит на всех страницах. или я не так понял? да так но только в компонент листах вот так тебе нужно? тут сделано что одна картинка фоном стоит на всех страницах. или я не так понял? скинь скрипт даже этого может что нибудь пойму @ Quote Link to comment Short link Share on other sites More sharing options...
Lom Posted January 26, 2017 Share Posted January 26, 2017 (edited) да так но только в компонент листах скинь скрипт даже этого может что нибудь пойму да я мало что тут знаю)) лучше подожди пока реально знающие люди ответят! но на всякий пожарный посмотри это)) [Setup] AppName=My Program AppVerName=My Program v 1.5 DefaultDirName={pf}\My Program OutputDir=. Compression=lzma/ultra InternalCompressLevel=ultra SolidCompression=yes [Languages] Name: rus; MessagesFile: compiler:Languages\Russian.isl [Code] var pnl: TPanel; ///////////////////////WelcomePage////////////////////////////////////// procedure WelcomePage; begin with TLabel.Create(pnl) do begin AutoSize:= WizardForm.WelcomeLabel1.AutoSize; SetBounds(WizardForm.WelcomeLabel1.Left,WizardForm.WelcomeLabel1.Top, WizardForm.WelcomeLabel1.Width,WizardForm.WelcomeLabel1.Height); WordWrap:= WizardForm.WelcomeLabel1.WordWrap; Caption:= WizardForm.WelcomeLabel1.Caption; with Font do begin Color:= WizardForm.WelcomeLabel1.Font.Color; Style:= WizardForm.WelcomeLabel1.Font.Style; Name:= WizardForm.WelcomeLabel1.Font.Name; Size:= WizardForm.WelcomeLabel1.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.WelcomeLabel2.AutoSize; SetBounds(WizardForm.WelcomeLabel2.Left,WizardForm.WelcomeLabel2.Top, WizardForm.WelcomeLabel2.Width,WizardForm.WelcomeLabel2.Height); WordWrap:= WizardForm.WelcomeLabel2.WordWrap; Caption:= WizardForm.WelcomeLabel2.Caption; with Font do begin Color:= WizardForm.WelcomeLabel2.Font.Color; Style:= WizardForm.WelcomeLabel2.Font.Style; Name:= WizardForm.WelcomeLabel2.Font.Name; Size:= WizardForm.WelcomeLabel2.Font.Size; end; Transparent:= True; Parent:= pnl; end; pnl.Repaint; end; ///////////////////////////////////////////////////////////////// ///////////////////////SelectDirPage////////////////////////////////////// procedure SelectDirPage; begin with WizardForm do begin with DirEdit do begin Left:= 40; Top:= 137; Parent:= pnl; end; with DirBrowseButton do begin Left:= WizardForm.DirEdit.Left + WizardForm.DirEdit.Width + 10; Top:= WizardForm.DirEdit.Top - 1; Parent:= pnl; end; with SelectDirBitmapImage do begin Left:= WizardForm.DirEdit.Left; Top:= WizardForm.DirEdit.Top - 62; Stretch:= True; Parent:= pnl; end; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.SelectDirBrowseLabel.AutoSize; SetBounds(WizardForm.DirEdit.Left,WizardForm.DirEdit.Top - 30, WizardForm.SelectDirBrowseLabel.Width, WizardForm.SelectDirBrowseLabel.Height); WordWrap:= WizardForm.SelectDirBrowseLabel.WordWrap; Caption:= WizardForm.SelectDirBrowseLabel.Caption; with Font do begin Color:= WizardForm.SelectDirBrowseLabel.Font.Color; Style:= WizardForm.SelectDirBrowseLabel.Font.Style; Name:= WizardForm.SelectDirBrowseLabel.Font.Name; Size:= WizardForm.SelectDirBrowseLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.SelectDirLabel.AutoSize; SetBounds(WizardForm.SelectDirBitmapImage.Left + 50,WizardForm.SelectDirBitmapImage.Top + 10, WizardForm.SelectDirLabel.Width,WizardForm.SelectDirLabel.Height); WordWrap:= WizardForm.SelectDirLabel.WordWrap; Caption:= WizardForm.SelectDirLabel.Caption; with Font do begin Color:= WizardForm.SelectDirLabel.Font.Color; Style:= WizardForm.SelectDirLabel.Font.Style; Name:= WizardForm.SelectDirLabel.Font.Name; Size:= WizardForm.SelectDirLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.DiskSpaceLabel.AutoSize; SetBounds(WizardForm.DirEdit.Left,WizardForm.Bevel.Top - 25, WizardForm.DiskSpaceLabel.Width,WizardForm.DiskSpaceLabel.Height); WordWrap:= WizardForm.DiskSpaceLabel.WordWrap; Caption:= WizardForm.DiskSpaceLabel.Caption; with Font do begin Color:= WizardForm.DiskSpaceLabel.Font.Color; Style:= WizardForm.DiskSpaceLabel.Font.Style; Name:= WizardForm.DiskSpaceLabel.Font.Name; Size:= WizardForm.DiskSpaceLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; pnl.Repaint; end; ///////////////////////////////////////////////////////////////// ///////////////////////ReadyPage////////////////////////////////////// procedure ReadyPage; var ready_str: string; begin ready_str:= WizardForm.ReadyMemo.Text; with TLabel.Create(pnl) do begin SetBounds(45,115,WizardForm.ReadyMemo.Width, WizardForm.ReadyMemo.Height); Caption:= ready_str; with Font do begin Color:= WizardForm.ReadyLabel.Font.Color; Style:= WizardForm.ReadyLabel.Font.Style; Name:= WizardForm.ReadyLabel.Font.Name; Size:= WizardForm.ReadyLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TBevel.Create(WizardForm) do begin SetBounds(40,110, WizardForm.ReadyMemo.Width, WizardForm.ReadyMemo.Height); Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.ReadyLabel.AutoSize; SetBounds(40,70, WizardForm.ReadyLabel.Width, WizardForm.ReadyLabel.Height); WordWrap:= WizardForm.ReadyLabel.WordWrap; Caption:= WizardForm.ReadyLabel.Caption; with Font do begin Color:= WizardForm.ReadyLabel.Font.Color; Style:= WizardForm.ReadyLabel.Font.Style; Name:= WizardForm.ReadyLabel.Font.Name; Size:= WizardForm.ReadyLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; pnl.Repaint; end; ///////////////////////////////////////////////////////////////// ///////////////////////InstallingPage////////////////////////////////////// procedure InstallingPage; begin with WizardForm.ProgressGauge do begin Left:= 40; Top:= 115; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.FilenameLabel.AutoSize; SetBounds(WizardForm.ProgressGauge.Left,WizardForm.ProgressGauge.Top-20, WizardForm.FilenameLabel.Width,WizardForm.FilenameLabel.Height); WordWrap:= WizardForm.FilenameLabel.WordWrap; Caption:= WizardForm.FilenameLabel.Caption; with Font do begin Color:= WizardForm.FilenameLabel.Font.Color; Style:= WizardForm.FilenameLabel.Font.Style; Name:= WizardForm.FilenameLabel.Font.Name; Size:= WizardForm.FilenameLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.StatusLabel.AutoSize; SetBounds(WizardForm.StatusLabel.Left,WizardForm.StatusLabel.Top, WizardForm.StatusLabel.Width,WizardForm.StatusLabel.Height); WordWrap:= WizardForm.StatusLabel.WordWrap; Caption:= WizardForm.StatusLabel.Caption; with Font do begin Color:= WizardForm.StatusLabel.Font.Color; Style:= WizardForm.StatusLabel.Font.Style; Name:= WizardForm.StatusLabel.Font.Name; Size:= WizardForm.StatusLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; pnl.Repaint; end; ///////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////// procedure CurPageChanged(CurPageID: Integer); begin pnl:= TPanel.Create(WizardForm); with pnl do begin Align:= alClient; Parent:= WizardForm; end; with WizardForm do begin with WizardBitmapImage do begin Align:= alClient; Stretch:= True; Parent:= pnl; end; NextButton.Parent:= pnl; CancelButton.Parent:= pnl; BackButton.Parent:= pnl; Bevel.Parent:= pnl; pnl.Repaint; end; if (CurPageID > wpWelcome) and (CurPageID < wpFinished) then begin WizardForm.Bevel1.Parent:= pnl; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.PageNameLabel.AutoSize; SetBounds(WizardForm.PageNameLabel.Left,WizardForm.PageNameLabel.Top, WizardForm.PageNameLabel.Width,WizardForm.PageNameLabel.Height); Caption:= WizardForm.PageNameLabel.Caption; with Font do begin Color:= WizardForm.PageNameLabel.Font.Color; Style:= WizardForm.PageNameLabel.Font.Style; Name:= WizardForm.PageNameLabel.Font.Name; Size:= WizardForm.PageNameLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.PageDescriptionLabel.AutoSize; SetBounds(WizardForm.PageDescriptionLabel.Left,WizardForm.PageDescriptionLabel.Top, WizardForm.PageDescriptionLabel.Width,WizardForm.PageDescriptionLabel.Height); Caption:= WizardForm.PageDescriptionLabel.Caption; with Font do begin Color:= WizardForm.PageDescriptionLabel.Font.Color; Style:= WizardForm.PageDescriptionLabel.Font.Style; Name:= WizardForm.PageDescriptionLabel.Font.Name; Size:= WizardForm.PageDescriptionLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; pnl.Repaint; end; if CurPageID = wpWelcome then WelcomePage; if CurPageID = wpSelectDir then SelectDirPage; if CurPageID = wpReady then ReadyPage; if CurPageID = wpInstalling then InstallingPage; end; Edited January 26, 2017 by ЛОМ @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 26, 2017 Share Posted January 26, 2017 (edited) хороший ответ тому кто в ботве не шарит хот какой нибудь скрипт примером кинул [Files] DestName: "подложка для компонентов.bmp"; Source: "файлы модпака\подложка для компонентов.bmp"; Flags: dontcopy solidbreak [Code] const GWL_EXSTYLE = -20; WS_EX_COMPOSITED = $02000000; function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall'; function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall'; procedure FonListow; begin ExtractTemporaryFile('подложка для компонентов.bmp'); begin with WizardForm.ComponentsList do LoadBGBmpFromFile(ExpandConstant('{tmp}\подложка для компонентов.bmp'), ScaleX(0), ScaleY(0)); SetWindowLong(WizardForm.ComponentsList.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.ComponentsList.Handle, GWL_EXSTYLE) or WS_EX_COMPOSITED); end; end; procedure InitializeWizard; begin FonListow; end; да я мало что тут знаю)) лучше подожди пока реально знающие люди ответят! но на всякий пожарный посмотри это)) [Setup] AppName=My Program AppVerName=My Program v 1.5 DefaultDirName={pf}\My Program OutputDir=. Compression=lzma/ultra InternalCompressLevel=ultra SolidCompression=yes [Languages] Name: rus; MessagesFile: compiler:Languages\Russian.isl [Code] var pnl: TPanel; ///////////////////////WelcomePage////////////////////////////////////// procedure WelcomePage; begin with TLabel.Create(pnl) do begin AutoSize:= WizardForm.WelcomeLabel1.AutoSize; SetBounds(WizardForm.WelcomeLabel1.Left,WizardForm.WelcomeLabel1.Top, WizardForm.WelcomeLabel1.Width,WizardForm.WelcomeLabel1.Height); WordWrap:= WizardForm.WelcomeLabel1.WordWrap; Caption:= WizardForm.WelcomeLabel1.Caption; with Font do begin Color:= WizardForm.WelcomeLabel1.Font.Color; Style:= WizardForm.WelcomeLabel1.Font.Style; Name:= WizardForm.WelcomeLabel1.Font.Name; Size:= WizardForm.WelcomeLabel1.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.WelcomeLabel2.AutoSize; SetBounds(WizardForm.WelcomeLabel2.Left,WizardForm.WelcomeLabel2.Top, WizardForm.WelcomeLabel2.Width,WizardForm.WelcomeLabel2.Height); WordWrap:= WizardForm.WelcomeLabel2.WordWrap; Caption:= WizardForm.WelcomeLabel2.Caption; with Font do begin Color:= WizardForm.WelcomeLabel2.Font.Color; Style:= WizardForm.WelcomeLabel2.Font.Style; Name:= WizardForm.WelcomeLabel2.Font.Name; Size:= WizardForm.WelcomeLabel2.Font.Size; end; Transparent:= True; Parent:= pnl; end; pnl.Repaint; end; ///////////////////////////////////////////////////////////////// ///////////////////////SelectDirPage////////////////////////////////////// procedure SelectDirPage; begin with WizardForm do begin with DirEdit do begin Left:= 40; Top:= 137; Parent:= pnl; end; with DirBrowseButton do begin Left:= WizardForm.DirEdit.Left + WizardForm.DirEdit.Width + 10; Top:= WizardForm.DirEdit.Top - 1; Parent:= pnl; end; with SelectDirBitmapImage do begin Left:= WizardForm.DirEdit.Left; Top:= WizardForm.DirEdit.Top - 62; Stretch:= True; Parent:= pnl; end; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.SelectDirBrowseLabel.AutoSize; SetBounds(WizardForm.DirEdit.Left,WizardForm.DirEdit.Top - 30, WizardForm.SelectDirBrowseLabel.Width, WizardForm.SelectDirBrowseLabel.Height); WordWrap:= WizardForm.SelectDirBrowseLabel.WordWrap; Caption:= WizardForm.SelectDirBrowseLabel.Caption; with Font do begin Color:= WizardForm.SelectDirBrowseLabel.Font.Color; Style:= WizardForm.SelectDirBrowseLabel.Font.Style; Name:= WizardForm.SelectDirBrowseLabel.Font.Name; Size:= WizardForm.SelectDirBrowseLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.SelectDirLabel.AutoSize; SetBounds(WizardForm.SelectDirBitmapImage.Left + 50,WizardForm.SelectDirBitmapImage.Top + 10, WizardForm.SelectDirLabel.Width,WizardForm.SelectDirLabel.Height); WordWrap:= WizardForm.SelectDirLabel.WordWrap; Caption:= WizardForm.SelectDirLabel.Caption; with Font do begin Color:= WizardForm.SelectDirLabel.Font.Color; Style:= WizardForm.SelectDirLabel.Font.Style; Name:= WizardForm.SelectDirLabel.Font.Name; Size:= WizardForm.SelectDirLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.DiskSpaceLabel.AutoSize; SetBounds(WizardForm.DirEdit.Left,WizardForm.Bevel.Top - 25, WizardForm.DiskSpaceLabel.Width,WizardForm.DiskSpaceLabel.Height); WordWrap:= WizardForm.DiskSpaceLabel.WordWrap; Caption:= WizardForm.DiskSpaceLabel.Caption; with Font do begin Color:= WizardForm.DiskSpaceLabel.Font.Color; Style:= WizardForm.DiskSpaceLabel.Font.Style; Name:= WizardForm.DiskSpaceLabel.Font.Name; Size:= WizardForm.DiskSpaceLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; pnl.Repaint; end; ///////////////////////////////////////////////////////////////// ///////////////////////ReadyPage////////////////////////////////////// procedure ReadyPage; var ready_str: string; begin ready_str:= WizardForm.ReadyMemo.Text; with TLabel.Create(pnl) do begin SetBounds(45,115,WizardForm.ReadyMemo.Width, WizardForm.ReadyMemo.Height); Caption:= ready_str; with Font do begin Color:= WizardForm.ReadyLabel.Font.Color; Style:= WizardForm.ReadyLabel.Font.Style; Name:= WizardForm.ReadyLabel.Font.Name; Size:= WizardForm.ReadyLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TBevel.Create(WizardForm) do begin SetBounds(40,110, WizardForm.ReadyMemo.Width, WizardForm.ReadyMemo.Height); Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.ReadyLabel.AutoSize; SetBounds(40,70, WizardForm.ReadyLabel.Width, WizardForm.ReadyLabel.Height); WordWrap:= WizardForm.ReadyLabel.WordWrap; Caption:= WizardForm.ReadyLabel.Caption; with Font do begin Color:= WizardForm.ReadyLabel.Font.Color; Style:= WizardForm.ReadyLabel.Font.Style; Name:= WizardForm.ReadyLabel.Font.Name; Size:= WizardForm.ReadyLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; pnl.Repaint; end; ///////////////////////////////////////////////////////////////// ///////////////////////InstallingPage////////////////////////////////////// procedure InstallingPage; begin with WizardForm.ProgressGauge do begin Left:= 40; Top:= 115; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.FilenameLabel.AutoSize; SetBounds(WizardForm.ProgressGauge.Left,WizardForm.ProgressGauge.Top-20, WizardForm.FilenameLabel.Width,WizardForm.FilenameLabel.Height); WordWrap:= WizardForm.FilenameLabel.WordWrap; Caption:= WizardForm.FilenameLabel.Caption; with Font do begin Color:= WizardForm.FilenameLabel.Font.Color; Style:= WizardForm.FilenameLabel.Font.Style; Name:= WizardForm.FilenameLabel.Font.Name; Size:= WizardForm.FilenameLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.StatusLabel.AutoSize; SetBounds(WizardForm.StatusLabel.Left,WizardForm.StatusLabel.Top, WizardForm.StatusLabel.Width,WizardForm.StatusLabel.Height); WordWrap:= WizardForm.StatusLabel.WordWrap; Caption:= WizardForm.StatusLabel.Caption; with Font do begin Color:= WizardForm.StatusLabel.Font.Color; Style:= WizardForm.StatusLabel.Font.Style; Name:= WizardForm.StatusLabel.Font.Name; Size:= WizardForm.StatusLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; pnl.Repaint; end; ///////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////// procedure CurPageChanged(CurPageID: Integer); begin pnl:= TPanel.Create(WizardForm); with pnl do begin Align:= alClient; Parent:= WizardForm; end; with WizardForm do begin with WizardBitmapImage do begin Align:= alClient; Stretch:= True; Parent:= pnl; end; NextButton.Parent:= pnl; CancelButton.Parent:= pnl; BackButton.Parent:= pnl; Bevel.Parent:= pnl; pnl.Repaint; end; if (CurPageID > wpWelcome) and (CurPageID < wpFinished) then begin WizardForm.Bevel1.Parent:= pnl; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.PageNameLabel.AutoSize; SetBounds(WizardForm.PageNameLabel.Left,WizardForm.PageNameLabel.Top, WizardForm.PageNameLabel.Width,WizardForm.PageNameLabel.Height); Caption:= WizardForm.PageNameLabel.Caption; with Font do begin Color:= WizardForm.PageNameLabel.Font.Color; Style:= WizardForm.PageNameLabel.Font.Style; Name:= WizardForm.PageNameLabel.Font.Name; Size:= WizardForm.PageNameLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; with TLabel.Create(pnl) do begin AutoSize:= WizardForm.PageDescriptionLabel.AutoSize; SetBounds(WizardForm.PageDescriptionLabel.Left,WizardForm.PageDescriptionLabel.Top, WizardForm.PageDescriptionLabel.Width,WizardForm.PageDescriptionLabel.Height); Caption:= WizardForm.PageDescriptionLabel.Caption; with Font do begin Color:= WizardForm.PageDescriptionLabel.Font.Color; Style:= WizardForm.PageDescriptionLabel.Font.Style; Name:= WizardForm.PageDescriptionLabel.Font.Name; Size:= WizardForm.PageDescriptionLabel.Font.Size; end; Transparent:= True; Parent:= pnl; end; pnl.Repaint; end; if CurPageID = wpWelcome then WelcomePage; if CurPageID = wpSelectDir then SelectDirPage; if CurPageID = wpReady then ReadyPage; if CurPageID = wpInstalling then InstallingPage; end; это можно и через форм редактор сделать (то что на скрине) Edited January 26, 2017 by Ekspoint @ Quote Link to comment Short link Share on other sites More sharing options...
sergy2010 Posted January 27, 2017 Share Posted January 27, 2017 вот так тебе нужно? тут сделано что одна картинка фоном стоит на всех страницах. или я не так понял? этот скрипт я ещё krinkels.org видел @ Quote Link to comment Short link Share on other sites More sharing options...
sergy2010 Posted January 27, 2017 Share Posted January 27, 2017 [Files] DestName: "подложка для компонентов.bmp"; Source: "файлы модпака\подложка для компонентов.bmp"; Flags: dontcopy solidbreak [Code] const GWL_EXSTYLE = -20; WS_EX_COMPOSITED = $02000000; function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall'; function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall'; procedure FonListow; begin ExtractTemporaryFile('подложка для компонентов.bmp'); begin with WizardForm.ComponentsList do LoadBGBmpFromFile(ExpandConstant('{tmp}\подложка для компонентов.bmp'), ScaleX(0), ScaleY(0)); SetWindowLong(WizardForm.ComponentsList.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.ComponentsList.Handle, GWL_EXSTYLE) or WS_EX_COMPOSITED); end; end; procedure InitializeWizard; begin FonListow; end; это можно и через форм редактор сделать (то что на скрине) спасибо за помощь все скпипты рабочие но они мне не пригодились Ekspoint вот это к коду забыл приписать иначе ошибку выдаёт #define A = (Defined UNICODE) ? "W" : "A" @ Quote Link to comment Short link Share on other sites More sharing options...
LostKing Posted January 30, 2017 Share Posted January 30, 2017 При компиляции, в коде Source: "{fonts}\Cuprum-Bold.ttf"; DestDir: "{fonts}"; BeforeInstall: "AddToMemo(ExpandConstant('{cm:CurStepFonts}'))"; MinVersion: 0.0,5.0; Flags: uninsneveruninstall выдает ошибку Required function or procedure 'AddToMemo' not found Как исправить? @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 30, 2017 Share Posted January 30, 2017 При компиляции, в коде Source: "{fonts}\Cuprum-Bold.ttf"; DestDir: "{fonts}"; BeforeInstall: "AddToMemo(ExpandConstant('{cm:CurStepFonts}'))"; MinVersion: 0.0,5.0; Flags: uninsneveruninstall выдает ошибку Required function or procedure 'AddToMemo' not found Как исправить? Source: "{fonts}\Cuprum-Bold.ttf"; DestDir: "{fonts}"; Flags: uninsneveruninstall @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted January 30, 2017 Share Posted January 30, 2017 Руки вам оторвать за установку левых шрифтов в систему. И хоть раз попробуйте воспользоваться переводчиком и логическим мышлением. 3 @ Quote Link to comment Short link Share on other sites More sharing options...
Yusha Posted January 30, 2017 Share Posted January 30, 2017 Руки вам оторвать за установку левых шрифтов в систему. И хоть раз попробуйте воспользоваться переводчиком и логическим мышлением. Что делать, если мод использует специфический шрифт? Научи, мастер! 1 @ Quote Link to comment Short link Share on other sites More sharing options...
sirmax Posted January 30, 2017 Share Posted January 30, 2017 Что делать, если мод использует специфический шрифт? Научи, мастер! ембеддить, хули. 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Yusha Posted January 30, 2017 Share Posted January 30, 2017 ембеддить, хули. А какое отношение процесс сборки модов имеет к их производству? Вроде xvm font года 2-3 надо было ставить ручками, не? 1 1 @ Quote Link to comment Short link Share on other sites More sharing options...
akey Posted January 30, 2017 Share Posted January 30, 2017 А какое отношение процесс сборки модов имеет к их производству? Вроде xvm font года 2-3 надо было ставить ручками, не? "Всё новое, хорошо забытое старое..." @ 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.