论坛风格切换切换到宽版
  • 2304阅读
  • 1回复

inno setup怎样修改“下一步”按钮字体颜色 [复制链接]

上一主题 下一主题
离线liznzn
 

发帖
4
金钱
40
威望
4
只看楼主 倒序阅读 0 发表于: 2015-04-29
想修改“下一步”按钮字体颜色,但是无论怎么改还是原来的黑色。。。



请问各位大神,怎样才能修改按钮字体颜色(用的是编辑器)


代码如下

#define MyAppName "test"
#define MyAppVersion "1.5"
#define MyAppPublisher "我的公司"
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"


[Setup]
; 注意: AppId 的值是唯一识别这个程序的标志。
; 不要在其他程序中使用相同的 AppId 值。
; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
AppId={{E3AA4F91-0B15-4164-980C-ED02B88B81AE}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\我的程序
DefaultGroupName=我的程序
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes


[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked


[Files]
Source: "Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; 注意: 不要在任何共享的系统文件使用 "Flags: ignoreversion"


[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon


[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent


[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D003010B400000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E74486569676874034C010B436C69656E74576964746803F1010D4578706C6963697457696474680301020E4578706C696369744865696768740372010D506978656C73506572496E636802600A54657874486569676874020C00F10A544E6577427574746F6E0A4E657874427574746F6E0A466F6E742E436F6C6F720705636C5265640A506172656E74466F6E7408000000


[Code]
{ RedesignWizardFormBegin } // 不要删除这一行代码。
// 不要修改这一段代码,它是自动生成的。
procedure RedesignWizardForm;
begin
  with WizardForm.NextButton do
  begin
    Font.Color := clRed;
    ParentFont := False;
  end;


{ ReservationBegin }
  // 这一部分是提供给你的,你可以在这里输入一些补充代码。


{ ReservationEnd }
end;
// 不要修改这一段代码,它是自动生成的。
{ RedesignWizardFormEnd } // 不要删除这一行代码。


procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

离线spser

发帖
30
金钱
300
威望
30
只看该作者 1 发表于: 2015-05-02
Button标签应该是改不了,

可以将原标签隐藏, 自己放个label标签上去, 自己写动作.