Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Johny777

Ветеран


Сообщения: 649
Благодарности: 444

Профиль | Отправить PM | Цитировать


t16bz,
выделил жирным шрифтом строку

читать дальше »
Код: Выделить весь код
[Setup]
AppName=DisksInfo
VersionInfoVersion=5.0
AppVerName=DisksInfo
DefaultDirName={pf}\My program
EnableDirDoesntExistWarning=false                             
DefaultGroupName=Programs\Accessories

[Icons]
Name: {group}\Notepad; Filename: notepad.exe

[code]
var
  StartMenuTreeView : TStartMenuFolderTreeView;

Procedure ObjectOnClick(Sender: TObject);
Begin
case TObject(Sender) of
	StartMenuTreeView:	if StartMenuTreeView.Directory <> '' then WizardForm.GroupEdit.Text := StartMenuTreeView.Directory else WizardForm.GroupEdit.Text:= '{#SetupSetting("DefaultGroupName")}'
	WizardForm.NoIconsCheck:	begin WizardForm.GroupEdit.Enabled:= not(WizardForm.GroupEdit.Enabled); StartMenuTreeView.Enabled:= WizardForm.GroupEdit.Enabled; WizardForm.GroupBrowseButton.Enabled:= WizardForm.GroupEdit.Enabled end;
end; End;


Procedure InitializeWizard;
begin
    WizardForm.NoIconsCheck.SetBounds(WizardForm.DiskSpaceLabel.Left + 96, WizardForm.DiskSpaceLabel.Top + 1, WizardForm.NoIconsCheck.Width, WizardForm.NoIconsCheck.Height)
		WizardForm.NoIconsCheck.OnClick:= @ObjectOnClick
		WizardForm.NoIconsCheck.Parent:= WizardForm.SelectProgramGroupPage
		WizardForm.NoIconsCheck.Show

  StartMenuTreeView := TStartMenuFolderTreeView.Create(WizardForm)
  with StartMenuTreeView do
 	begin
	 	SetPaths(ExpandConstant('{userprograms}'), ExpandConstant('{commonprograms}'), ExpandConstant('{userstartup}'), ExpandConstant('{commonstartup}'));
  	SetBounds(ScaleX(0), ScaleY(110), ScaleX(400), ScaleY(100))
	  Parent:= WizardForm.SelectProgramGroupPage
		Cursor:= crHand
		OnChange:=@ObjectOnClick
	end;

  StartMenuTreeView.ChangeDirectory(ExpandConstant('{userprograms}\Programs\Accessories'), True);
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:49, 16-07-2012 | #413