Inno Setup点击组件显示描述和图像

Share

1. [Setup]
   
2. AppName=My Program
   
3. AppVerName=My Program version 1.5
   
4. DefaultDirName={pf}\My Program
   
5. DefaultGroupName=My Program
   
6. UninstallDisplayIcon={app}\MyProg.exe
   
7. 
   
8. [Components]
   
9. Name: "program"; Description: "程序文件"; Types: full compact custom; Flags: fixed
   
10. Name: "help"; Description: "帮助文件"; Types: full
    
11. Name: "readme"; Description: "自述文件"; Types: full
    
12. Name: "readme\en"; Description: "英文"; Flags: exclusive
    
13. Name: "readme\de"; Description: "德文"; Flags: exclusive
    
14. 
    
15. [Files]
    
16. Source: "MyProg.exe"; DestDir: "{app}"; Components: program
    
17. Source: "MyProg.chm"; DestDir: "{app}"; Components: help
    
18. Source: "Readme.txt"; DestDir: "{app}"; Components: readme\en; Flags: isreadme
    
19. Source: "Readme-German.txt"; DestName: "Liesmich.txt"; DestDir: "{app}"; Components: readme\de; Flags: isreadme
    
20. ; 组件描述图片文件
    
21. Source: "image0.bmp"; Flags: dontcopy
    
22. Source: "image1.bmp"; Flags: dontcopy
    
23. Source: "image2.bmp"; Flags: dontcopy
    
24. Source: "image3.bmp"; Flags: dontcopy
    
25. Source: "image4.bmp"; Flags: dontcopy
    
26. 
    
27. [Icons]
    
28. Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
    
29. 
    
30. [Code]
    
31. var
    
32.   Bmp: TBitmapImage;
    
33.   Info: TNewStaticText;
    
34. 
    
35. procedure CompListOnClick(Sender: TObject);
    
36. begin
    
37. // 点击组件列表后的反应
    
38. Bmp.Stretch:= true;
    
39. if WizardForm.ComponentsList.Selected[0] then
    
40.   begin
    
41.   info.Caption:= '这是组件 1，必需安装。';
    
42.   bmp.Bitmap.LoadFromFile(ExpandConstant('{tmp}\image0.bmp'));
    
43.   end;
    
44. if WizardForm.ComponentsList.Selected[1] then
    
45.   begin
    
46.   info.Caption:= '这是组件 2，随便您。';
    
47.   bmp.Bitmap.LoadFromFile(ExpandConstant('{tmp}\image1.bmp'));
    
48.   end;
    
49. if WizardForm.ComponentsList.Selected[2] then
    
50.   begin
    
51.   info.Caption:= '这是组件 3，看着办吧。';
    
52.   bmp.Bitmap.LoadFromFile(ExpandConstant('{tmp}\image2.bmp'));
    
53.   end;
    
54. if WizardForm.ComponentsList.Selected[3] then
    
55.   begin
    
56.   info.Caption:= '这是组件 4，可有可无。';
    
57.   bmp.Bitmap.LoadFromFile(ExpandConstant('{tmp}\image3.bmp'));
    
58.   end;
    
59. if WizardForm.ComponentsList.Selected[4] then
    
60.   begin
    
61.   info.Caption:= '这是组件 5，没得说，好东西。';
    
62.   bmp.Bitmap.LoadFromFile(ExpandConstant('{tmp}\image4.bmp'));
    
63.   end;
    
64. end;
    
65. 
    
66. procedure InitializeWizard();
    
67. begin
    
68.   // 释放图像文件
    
69.   ExtractTemporaryFile('image0.bmp');
    
70.   ExtractTemporaryFile('image1.bmp');
    
71.   ExtractTemporaryFile('image2.bmp');
    
72.   ExtractTemporaryFile('image3.bmp');
    
73.   ExtractTemporaryFile('image4.bmp');
    
74.   // 调整组件列表的大小
    
75.   WizardForm.TYPESCOMBO.Visible:= false;
    
76.   WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height + WizardForm.ComponentsList.Top - WizardForm.TYPESCOMBO.Top;
    
77.   WizardForm.ComponentsList.Top := WizardForm.TYPESCOMBO.Top;
    
78.   WizardForm.ComponentsList.Width := ScaleX(200);
    
79.   WizardForm.ComponentsList.OnClick:= @CompListOnClick;
    
80.   // 创建描述位图
    
81.   Bmp:= TBitmapImage.Create(WizardForm);
    
82.   Bmp.Top:=WizardForm.ComponentsList.Top;
    
83.   Bmp.Left:=ScaleX(220);
    
84.   Bmp.Width:=ScaleX(200);
    
85.   Bmp.Height:=ScaleY(140);
    
86.   Bmp.BackColor:= WizardForm.Color;
    
87.   Bmp.Parent:= WizardForm.SelectComponentsPage;
    
88.   // 创建描述文字
    
89.   Info:= TNewStaticText.Create(WizardForm);
    
90.   Info.Top:= Bmp.Top + ScaleY(160);
    
91.   Info.Left:= Bmp.Left + ScaleX(10);
    
92.   Info.Width:= ScaleX(200);
    
93.   Info.Height:= ScaleY(25);
    
94.   Info.Caption:= '把光标放到某个组件可显示说明...';
    
95.   Info.Font.Color:= clRed;
    
96.   Info.Parent:= WizardForm.SelectComponentsPage;
    
97. end;

复制代码