Inno Setup (создание инсталяционных пакетов). Часть 3

Статус
В этой теме нельзя размещать новые ответы.
RameR

RameR

Новичок
Mailchik,
Сделал так WuzardBitmapImage через WizardForm..
А OuterNotebook спустил вниз и сжал теперь и текст и остальное видно, и bevel тоже не закрывает!
А вопрос по объединение TaskPage с Group!
Просто создал чекбоксы на GroupPage так удобней!Нашел на сборке часто спрашиваемых скриптов 1.4 от Krinkels, Shegorat, nik1967...
А так Спасибо!
 
RameR

RameR

Новичок
Что у SelectProgramGroupPage нельзя размеры изменить??, из за этого у меня CheckBox невидно!
Если сделать родителем WizardForm, его видно, только вот я его show, hide сделать не могу, ибо они у меня создаются:
begin
Icons:= TCheckBox.Create(WizardForm);
with Icons do
begin
Parent := WizardForm.InnerPage;
Width:= ScaleX(14);
Height:= ScaleY(14);
Checked:= False;
Left:= ScaleX(-5);
Top:= ScaleY(550);
end;
lblIcons:= TLabel.Create(WizardForm);
with lblIcons do
begin
Parent := WizardForm.InnerPage;
Caption:='Создать ярлык на рабочем столе';
Width:= ScaleX(140);
Height:= ScaleY(14);
OnClick:= @IconsOnClick;
Left:= ScaleX(15);
Top:= ScaleY(550);
end;
end;
и я не знаю как их через CurPageChanged зделать!!!Выручайтеее!!
 
M

MAKS_MAFIA

Новичок
У меня кое-что получилось, но я не могу поставить галочку на желаемый мне компонент. Что делать подскажите?
 
RameR

RameR

Новичок
SelectDirBitmapImage никак не хочет отображаться на WizardForm даже если стоит Parent:=WizardForm, и тексты тоже, нельзя все элементы сделать на form, а то что их перекрывает скрыть или убрать?
Или проще все на форме заново создать, а те элементы скрыть! Матрешка со слоями уже второй день мозги выносит! форма потом book потом сама page&"!&голова уже кругом....скоро это паскаль урезанный сниться начнется)

SelectDirBitmapImage и еще много чего ограничивает сперва сама page потом этот book, а page не хочет меняться ..вот такой парадокс...
 
Последнее редактирование:
Mailchik

Mailchik

Старожил
Проверенный
RameR, КодКак видно, всё отображается.
 
LexBell

LexBell

Борода
Супер модератор
2ALL Люди. Ну в конце-то концов! Читайте правила. Тем более именно это актуально на 99% форумов. Для благодарности есть-же кнопка. Нажмите на нее, этого вполне достаточно, чтоб не только помогавший увидел, что он действительно помог, но и последующие вопрошающие обратили внимание прежде, чем задать вопрос. Я единственный, кто занимается чисткой тем от подобного мусора. Пожалуйста, не осложняйте мне жизнь, она и так не сахар...
 
M

MAKS_MAFIA

Новичок
У меня тут пишет column 3: semicolon (';') expected
Код: 
if msgwnd = 0 then LabelCurrFileName.Caption:=ExpandConstant('{cm:ExtractedFile} ')+MinimizePathName(CurrentFile, LabelCurrFileName.Font, LabelCurrFileName.Width-ScaleX(100)) else LabelCurrFileName.Caption:= ExpandConstant('{cm:ScanFile}');
Что делать?
 
dark_fen1x

dark_fen1x

Мимокрокодил
есть ли способ генерации случайных символов в tedit и последующее внесение их в .reg файл?
 
LexBell

LexBell

Борода
Супер модератор
dark_fen1x,
[SOURCE="iss"][Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

Код: 
function RandomStr():String; // Если нужно строку из случайного количества случайных символов
var
  i,cnt:integer;
begin
 randomize;
 cnt:= Random(30);// Случайное количество смволов до 30, меняем на нужное
 Result:='';
 for i:=1 to cnt do
  Result:=Result+chr(Random(ord('z')-ord('a')+1) + ord('a'));
end;

//function RandomStr():String; // Если нужно только один случайный символ
//begin
//  Result:=chr(Random(ord('z')-ord('a')+1) + ord('a'));
//end;

procedure InitializeWizard();
begin
  WizardForm.WelcomeLabel1.Caption := RandomStr;
end;[/SOURCE]
 
RameR

RameR

Новичок
Можно ли изменить размер SetupIconFile, которая отображается в верхнем левом углу?
 
RameR

RameR

Новичок
MAKS_MAFIA,
Можно скин поменять через ISSkin + Настроить элементы, их размеры, ранее обсуждалось)
Глйянь Restools Plugin, у меня эти плагины с примерами все понятно, смотря что ты хочешь сделать!?!
Картинки, Splash...сам дизайн меняется скином, покрайней мере я так сделал!
в примере скрипта NFS Undercover v2.3 final+ там практически все есть..
 
Последнее редактирование:
Adil

Adil

Старожил
RameR
sergey3695 написал(а):
Q: Как сменить иконку в левом верхнем углу?
A: Так
[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program

[Files]
Source: Files\1.ico; DestDir: {app};

Код: 
function LoadImage(hInst: THandle; ImageName: PansiChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; 
external 'LoadImageA@user32.dll stdcall delayload';

procedure InitializeWizard(); 
begin 
  ExtractTemporaryFile('1.ico');
  SendMessage(WizardForm.Handle, $0080, 1, LoadImage(0,ExpandConstant('{tmp}')+'\1.ico',1,16,16,$1010)); 
end;[/SPOILER][/QUOTE]

[B]MAKS_MAFIA[/B], если я тебя правильно понил, то через редактор форм (требуется расширенная версия inno setup)
Нажмите для раскрытия...
 
RameR

RameR

Новичок
Adil,
А если уже иконка задана SetupIconFile=.... в [Setup] ее изпользовать можно, только размер поменять ?или только через source и code?
 
Adil

Adil

Старожил
RameR попробуй как написал sergey3695, я сам не проверял

PS: только что проверил, ничего менять не надо
 
Последнее редактирование:
RameR

RameR

Новичок
Adil, Не меняется, больше 16*16 не делает, только меньше!
Хотелось иконку 48*48 как и сама иконка....

Ты где значения менял, чтобы было 32*3??

У меня иконка и так 48X48 пикселей))
Возникла такая ситуация:
Я задал для WelcomeLabel 1 размеры, расположение и шрифт, видна на всех страницах!
Как сделать чтобы на WelcomePage был определенный текст, а вот на SelectDirPage - другой, такое возможно?Заранее thanks...
 
Последнее редактирование:
Adil

Adil

Старожил
RameR, я использовал 32*32, и у меня все отображалось

Добавлено через 28 минут
RameR написал(а):
Adil, Не меняется, больше 16*16 не делает, только меньше!
Хотелось иконку 48*48 как и сама иконка....

Ты где значения менял, чтобы было 32*3??
Нажмите для раскрытия...
В IcoFX менял иконку
 
Adil

Adil

Старожил
RameR написал(а):
Возникла такая ситуация:
Я задал для WelcomeLabel 1 размеры, расположение и шрифт, видна на всех страницах!
Как сделать чтобы на WelcomePage был определенный текст, а вот на SelectDirPage - другой, такое возможно?Заранее thanks...
Нажмите для раскрытия...
Код: 
Procedure HideComponent(CurPageID: Integer); ///Прячешь все компоненты
begin
WelcomeLabel1.Hide;
WelcomeLabel2.Hide;
WizardForm.DirEdit.Hide;
WizardForm.GroupEdit.Hide;
WizardForm.DirBrowseButton.Hide;
WizardForm.GroupBrowseButton.Hide;
SelectDirLabel.Hide;
DirLabel.Hide;
GroupLabel.Hide;
/// и т.д.
end;

procedure ShowComponent(CurPageID: Integer); ///Показываешь их
begin case CurPageID of

  wpWelcome: ///страница приветствия
  begin
  WelcomeLabel1.Show;
  WelcomeLabel2.Show;
  end;

  wpSelectDir: ///страница каталога и т.д.
  begin
  WizardForm.DirEdit.Show;
  WizardForm.GroupEdit.Show;
  WizardForm.DirBrowseButton.Show;
  WizardForm.GroupBrowseButton.Show;
  SelectDirLabel.Show;
  DirLabel.Show;
  GroupLabel.Show;
  end;
end;
end;

///Остальные страницы  
  {wpWelcome = 1;
  wpLicense = 2;
  wpPassword = 3;
  wpInfoBefore = 4;
  wpUserInfo = 5;
  wpSelectDir = 6;
  wpSelectComponents = 7;
  wpSelectProgramGroup = 8;
  wpSelectTasks = 9;
  wpReady = 10;
  wpPreparing = 11;
  wpInstalling = 12;
  wpInfoAfter = 13;
  wpFinished = 14;}

Procedure CurPageChanged(CurPageID: Integer);
Begin
  HideComponent(CurPageID);
  ShowComponent(CurPageID);  
end;
 
Последнее редактирование:
Статус
В этой теме нельзя размещать новые ответы.
Сверху