Inno Setup (создание инсталяционных пакетов) - [7] :: Программы

Здраствуйте товарищи!!! Вот возник вопрос. Попались как то мне скины для Inno взятые из InstallShield, так вот, вставил туды свою картинку, оказалось что за текстом присутствует фон (как на картинке скина). А нельзя ли этот фон как-нибудь убрать. Вот скрипт.

Код:

[Setup]
AppName=Blue
AppVerName=Blue
DefaultDirName={pf}\Blue
WizardImageFile=Blue.bmp
WizardSmallImageFile=Blue.bmp

[Files]
Source: Button.bmp; DestDir: {tmp}; Flags: dontcopy

[Code]
Var
LicenseAcceptedText, LicenseNotAcceptedText, NoIconsGroupText: TNewStaticText;
DirBrowseButtonImage, GroupBrowseButtonImage, BackButtonImage, NextButtonImage, CancelButtonImage: TBitmapImage;

Procedure InitializeWizard();
begin
ExtractTemporaryFile('Button.bmp')
WizardForm.Bevel.Hide
WizardForm.Bevel1.Hide
WizardForm.SelectDirBitmapImage.Hide
WizardForm.SelectGroupBitmapImage.Hide

with WizardForm do begin
Position:=poScreenCenter
ClientWidth:=690
ClientHeight:=496
Font.Color:=$ffffff
Font.Name:='MS Sans Serif'
Font.Style:=[]
with CancelButton do begin
Left:=600
Top:=462
Width:=77
Height:=25
BringToFront
end
with NextButton do begin
Left:=375
Top:=462
Width:=77
Height:=25
BringToFront
end
with BackButton do begin
Left:=293
Top:=462
Width:=77
Height:=25
BringToFront
end
with OuterNotebook do begin
Left:=0
Top:=0
Width:=690
Height:=496
with WelcomePage do begin
Color:=$ab663d
with WizardBitmapImage do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with WelcomeLabel2 do begin
Left:=205
Top:=230
Width:=465
Height:=200
end
with WelcomeLabel1 do begin
Left:=205
Top:=190
Width:=465
Height:=28
Font.Size:=8
Font.Color:=$ffffff
end
end
with InnerPage do begin
with InnerNotebook do begin
Left:=205
Top:=79
Width:=465
Height:=354
BringToFront
Color:=$ab663d
with LicensePage do begin
with LicenseNotAcceptedRadio do begin
Left:=0
Top:=338
Width:=17
Height:=17
end
with LicenseAcceptedRadio do begin
Left:=0
Top:=318
Width:=17
Height:=17
end
with LicenseMemo do begin
Left:=0
Top:=38
Width:=465
Height:=266
end
with LicenseLabel1 do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with PasswordPage do begin
with PasswordEdit do begin
Left:=0
Top:=50
Width:=465
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with PasswordEditLabel do begin
Left:=0
Top:=34
Width:=465
Height:=14
end
with PasswordLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with InfoBeforePage do begin
with InfoBeforeMemo do begin
Left:=0
Top:=24
Width:=465
Height:=327
end
with InfoBeforeClickLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with UserInfoPage do begin
with UserInfoSerialEdit do begin
Left:=0
Top:=120
Width:=465
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with UserInfoSerialLabel do begin
Left:=0
Top:=104
Width:=465
Height:=14
end
with UserInfoOrgEdit do begin
Left:=0
Top:=68
Width:=465
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with UserInfoOrgLabel do begin
Left:=0
Top:=52
Width:=465
Height:=14
end
with UserInfoNameEdit do begin
Left:=0
Top:=16
Width:=465
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with UserInfoNameLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectDirPage do begin
with DiskSpaceLabel do begin
Left:=0
Top:=340
Width:=465
Height:=14
end
with DirBrowseButton do begin
Left:=388
Top:=288
Width:=77
Height:=25
end
with DirEdit do begin
Left:=0
Top:=290
Width:=370
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with SelectDirBrowseLabel do begin
Left:=0
Top:=24
Width:=465
Height:=28
end
with SelectDirLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectComponentsPage do begin
with ComponentsDiskSpaceLabel do begin
Left:=0
Top:=340
Width:=417
Height:=14
end
with ComponentsList do begin
Left:=0
Top:=48
Width:=465
Height:=275
Color:=$ffffff
Font.Color:=$000000
end
with TypesCombo do begin
Left:=0
Top:=24
Width:=465
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with SelectComponentsLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectProgramGroupPage do begin
with NoIconsCheck do begin
Left:=0
Top:=337
Width:=17
Height:=17
Visible:=True
end
with GroupBrowseButton do begin
Left:=388
Top:=288
Width:=77
Height:=25
end
with GroupEdit do begin
Left:=0
Top:=290
Width:=370
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with SelectStartMenuFolderBrowseLabel do begin
Left:=0
Top:=24
Width:=465
Height:=28
end
with SelectStartMenuFolderLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectTasksPage do begin
with TasksList do begin
Left:=0
Top:=34
Width:=465
Height:=317
Color:=$ab663d
end
with SelectTasksLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with ReadyPage do begin
with ReadyMemo do begin
Left:=0
Top:=34
Width:=465
Height:=317
Color:=$ab663d
end
with ReadyLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with InstallingPage do begin
with FilenameLabel do begin
Left:=0
Top:=16
Width:=465
Height:=16
end
with StatusLabel do begin
Left:=0
Top:=0
Width:=465
Height:=16
end
with ProgressGauge do begin
Left:=0
Top:=42
Width:=465
Height:=21
end
end
with InfoAfterPage do begin
with InfoAfterMemo do begin
Left:=0
Top:=24
Width:=465
Height:=327
end
with InfoAfterClickLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
end
with MainPanel do begin
Left:=0
Top:=0
Width:=690
Height:=496
with WizardSmallBitmapImage do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with PageDescriptionLabel do begin
Left:=25
Top:=25
Width:=500
Height:=14
Color:=$663300
Font.Color:=$ffffff
end
with PageNameLabel do begin
Left:=15
Top:=7
Width:=500
Height:=14
Color:=$663300
Font.Color:=$ffffff
end
end
end
with FinishedPage do begin
Color:=$ab663d
with WizardBitmapImage2 do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with NoRadio do begin
Left:=205
Top:=227
Width:=465
Height:=17
end
with YesRadio do begin
Left:=205
Top:=199
Width:=465
Height:=17
end
with RunList do begin
Left:=205
Top:=199
Width:=465
Height:=149
end
with FinishedLabel do begin
Left:=205
Top:=119
Width:=465
Height:=53
end
with FinishedHeadingLabel do begin
Left:=205
Top:=79
Width:=465
Height:=24
Font.Size:=8
Font.Color:=$ffffff
end
end
end
with BeveledLabel do begin
Left:=10
Top:=468
Enabled:=False
Color:=$dbcdcc
end
end
LicenseAcceptedText:=TNewStaticText.Create(WizardForm)
with LicenseAcceptedText do begin
Left:=17
Top:=320
Width:=445
Height:=17
Caption:=WizardForm.LicenseAcceptedRadio.Caption
Parent:=WizardForm.LicensePage
end
LicenseNotAcceptedText:=TNewStaticText.Create(WizardForm)
with LicenseNotAcceptedText do begin
Left:=17
Top:=340
Width:=445
Height:=17
Caption:=WizardForm.LicenseNotAcceptedRadio.Caption
Parent:=WizardForm.LicensePage
end
NoIconsGroupText:=TNewStaticText.Create(WizardForm)
with NoIconsGroupText do begin
Left:=17
Top:=340
Width:=445
Height:=17
Caption:=WizardForm.NoIconsCheck.Caption
Parent:=WizardForm.SelectProgramGroupPage
end
DirBrowseButtonImage:=TBitmapImage.Create(WizardForm)
with DirBrowseButtonImage do begin
Left:=-154
Top:=-25
Width:=231
Height:=50
Enabled:=False
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=WizardForm.DirBrowseButton
end
GroupBrowseButtonImage:=TBitmapImage.Create(WizardForm)
with GroupBrowseButtonImage do begin
Left:=-154
Top:=-25
Width:=231
Height:=50
Enabled:=False
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=WizardForm.GroupBrowseButton
end
BackButtonImage:=TBitmapImage.Create(WizardForm)
with BackButtonImage do begin
Left:=0
Top:=0
Width:=231
Height:=50
Enabled:=False
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=WizardForm.BackButton
end
NextButtonImage:=TBitmapImage.Create(WizardForm)
with NextButtonImage do begin
Left:=-77
Top:=0
Width:=231
Height:=50
Enabled:=False
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=WizardForm.NextButton
end
CancelButtonImage:=TBitmapImage.Create(WizardForm)
with CancelButtonImage do begin
Left:=-154
Top:=0
Width:=231
Height:=50
Enabled:=False
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=WizardForm.CancelButton
end
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpWelcome then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpLicense then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpPassword then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpInfoBefore then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpUserInfo then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpSelectDir then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpSelectComponents then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpSelectProgramGroup then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpSelectTasks then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpReady then
begin
NextButtonImage.Left:=0
NextButtonImage.Top:=-25
end
if CurPageID=wpInfoAfter then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpFinished then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=-25
end
end;

Заранее спасиба...

Добавлено:
дико извиняюсь не тот тег поставил

Модерирует : gyra, Maz
Widok (17-06-2008 18:16): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100