Скрипты Inno Setup. Помощь и советы [часть 7]

[Dodakaedr]

Ну так добавь свойства Border и будет радость))). »
Спс. Действительно сработало. Как теперь еще кнопку свернуть вывести?
И получается твой код нужен когда хочешь вывести только кнопку закрыть, но при этом не скрывая системное меню, а для вывода только кнопки закрыть без системного меню достаточно borderstyle :=bsdialog;

[Dinvin4ester]

Ребята,почему долго идет процесс установки?Сжимал игру на 980 мб,а ставится как батла 4..
Вот скрипт - http://multi-up.com/964088. »
Так что ребят,никто не подскажет что не так ?

[audiofeel]

привет. кто знает пример как поставить свой курсор., на кнопки и чекбоксы поставил через ботву а на саму форму "рабочих" примеров не нашел

[Ivan_009]

привет. кто знает пример как поставить свой курсор., на кнопки и чекбоксы поставил через ботву а на саму форму "рабочих" примеров не нашел »

audiofeel, Пример:

procedure InitializeWizard;
begin
with WizardForm do begin
ClientWidth:=ScaleX(650);
ClientHeight:=ScaleY(400);
Position:=poScreenCenter;
OuterNotebook.Hide;
InnerNotebook.Hide;
Bevel.Hide;
end;

with WizardForm.NextButton do
begin
SetBounds(ScaleX(400), ScaleY(300), ScaleX(81), ScaleY(30));
Cursor:= crHand;
end;

with WizardForm.BackButton do
begin
SetBounds(ScaleX(300), ScaleY(300), ScaleX(81), ScaleY(30));
Cursor:= crHand;
end;

with WizardForm.CancelButton do
begin
SetBounds(ScaleX(530), ScaleY(300), ScaleX(81), ScaleY(30));
Cursor:= crHand;
end;
end;

[innot20]

Здравствуйте, подскажите пожалуйста как менять значение конфига json, при выборе определённого компонента »

[Ivan_009]

innot20, Жми сюда: http://forum.oszone.net/thread-278998-23.html :offtopic:

[Dodakaedr]

Ivan_009, как задать еще и на чекбоксы на странице допольнительных задач?

[Ivan_009]

как задать еще и на чекбоксы на странице допольнительных задач? »

Dodakaedr, Пример:

var
Check1, Check2, Check3: TCheckBox;
CheckLabel1, CheckLabel2, CheckLabel3: TLabel;

procedure Check1Click(Sender: TObject);
begin
Check2.Checked:= Check1.Checked; //Подставляем значение
Check3.Checked:= Check1.Checked;
Check2.Enabled:= Check1.Checked;
Check3.Enabled:= Check1.Checked;
end;

procedure InitializeWizard;
begin
Check1:= TCheckBox.Create(WizardForm);
Check1.SetBounds(20, 100, 16, 16);
Check1.Checked:=True;
Check1.OnClick:=@Check1Click
Check1.Parent:=WizardForm.SelectDirPage;
Check1.Cursor:= crHand;

CheckLabel1:= TLabel.Create(WizardForm)
CheckLabel1.SetBounds(37, 100, 100, 20);
CheckLabel1.Transparent:=True;
CheckLabel1.Caption:='Доп. програмное обеспечение';
CheckLabel1.Parent:=WizardForm.SelectDirPage;

Check2:= TCheckBox.Create(WizardForm);
Check2.SetBounds(40, 130, 16, 16);
Check2.Checked:=True;
Check2.Parent:=WizardForm.SelectDirPage;
Check2.Cursor:= crHand;

CheckLabel2:= TLabel.Create(WizardForm)
CheckLabel2.SetBounds(57, 130, 100, 20);
CheckLabel2.Transparent:=True;
CheckLabel2.Caption:='Обновить DirectX';
CheckLabel2.Parent:=WizardForm.SelectDirPage;

Check3:= TCheckBox.Create(WizardForm);
Check3.SetBounds(40, 160, 16, 16);
Check3.Checked:=True;
Check3.Parent:=WizardForm.SelectDirPage;
Check3.Cursor:= crHand;

CheckLabel3:= TLabel.Create(WizardForm)
CheckLabel3.SetBounds(57, 160, 100, 20);
CheckLabel3.Transparent:=True;
CheckLabel3.Caption:='Еще что-нибудь';
CheckLabel3.Parent:=WizardForm.SelectDirPage;

end;

[Dodakaedr]

Ivan_009, код будет работать если чекбоксы выводятся через секцию tasks?

[Ivan_009]

код будет работать если чекбоксы выводятся через секцию tasks »

Dodakaedr, Окей:

Пример:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: text; Description: Язык субтитров; Types: full; Flags: fixed
Name: text\rus; Description: Русский; Flags: exclusive;
Name: text\eng; Description: Английский; Flags: exclusive;
Name: voice; Description: Язык озвучки; Types: full; Flags: fixed
Name: voice\rus; Description: Русский; Flags: exclusive;
Name: voice\eng; Description: Английский; Flags: exclusive;

[Tasks]
Name: DirectX; Description: Microsoft DirectX;
Name: VCRedist; Description: Microsoft VCRedist;

Name: DesktopIcon; Description: Ярлык На Рабочем Столе;
Name: StartMenuIcon; Description: Ярлык В Меню Пуск;

[Code]
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID =wpSelectComponents) then
Result:= True;
end;

procedure RedesignWizardForm;
begin
WizardForm.ComponentsList.Parent := WizardForm.SelectTasksPage;
WizardForm.ComponentsList.SetBounds(ScaleX(0),ScaleY(37),ScaleX(207),ScaleY(192));
WizardForm.ComponentsList.Cursor:= crHand;

WizardForm.TasksList.SetBounds(ScaleX(210),ScaleY( 37),ScaleX(207),ScaleY(192));
WizardForm.TasksList.BorderStyle := bsSingle;
WizardForm.TasksList.Cursor:= crHand;
WizardForm.TasksList.Color := clWhite;
end;

procedure InitializeWizard();
begin
RedesignWizardForm;
end;

[Dodakaedr]

Ivan_009, супер:)

[Stealthmax]

Спс. Действительно сработало. Как теперь еще кнопку свернуть вывести? »
А вот здесь ты не одинок). Таких желающих много. Вариантов 2, я использую скин, поэтому особо не парюсь, но если скин не устраивает, то милости прошу в гости к Johny777 (http://forum.oszone.net/post-2081356-1608.html), ну а второй вариант- это скин. Других решений не встречал. Много кто изгалялся над этой проблемой))).

[Dodakaedr]

я использую скин »
Интересно! Можешь показать?

[Ivan_009]

Интересно! Можешь показать »

Dodakaedr, Вот пример: http://rghost.ru/53745223

[Dodakaedr]

Ivan_009, попробую к своему инсталу это прикрутить)))

[Dodakaedr]

Ivan_009, Stealthmax, жаль что не ко всем скинам это подходит..

[audiofeel]

Ivan_009,
да, это я знаю, я имел ввиду "свой" курсор - то есть 'cursor.cur'
через = function LoadCursorFromFile(FileName: String): Cardinal; external 'LoadCursorFromFileA@user32 stdcall';
на кнопки делал так = BtnSetCursor(CancelButton,LoadCursorFromFile(ExpandConstant('{tmp}\cursor2.cur')));
а на саму форму как, ????

[Ivan_009]

audiofeel, Короче не мучайся вот пример... :)

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
RawDataResource=MyCursor:cursor.ani

[Code]
function LoadCursorFromFile(FileName: String): Cardinal;
external 'LoadCursorFromFileA@user32 stdcall';

const
MyCursor = 101;
RT_RCDATA = 10;

var
hcur: Cardinal;
ResStream: TResourceStream;

procedure InitializeWizard;
begin
with WizardForm do begin
ClientWidth:=ScaleX(650);
ClientHeight:=ScaleY(400);
Position:=poScreenCenter;
OuterNotebook.Hide;
InnerNotebook.Hide;
Bevel.Hide;
Cursor := MyCursor;
end;

ResStream := TResourceStream.Create(HInstance, '_IS_MYCURSOR', RT_RCDATA);
try
ResStream.SaveToFile(ExpandConstant('{tmp}\cursor.ani'));
hcur := LoadCursorFromFile(ExpandConstant('{tmp}\cursor.ani'));
Screen.Cursors[MyCursor] := hcur;
finally
ResStream.Free;
end;

with WizardForm.NextButton do
begin
SetBounds(ScaleX(400), ScaleY(300), ScaleX(81), ScaleY(30));
Cursor := MyCursor;
end;

with WizardForm.BackButton do
begin
SetBounds(ScaleX(300), ScaleY(300), ScaleX(81), ScaleY(30));
Cursor := MyCursor;
end;

with WizardForm.CancelButton do
begin
SetBounds(ScaleX(530), ScaleY(300), ScaleX(81), ScaleY(30));
Cursor := MyCursor;
end;
end;

procedure DeinitializeSetup();
begin
DeleteObject(hcur);
end;


На форму и кнопки...

Рядом кинь сам курсор cursor.ani

[audiofeel]

Ivan_009, audiofeel, Короче не мучайся вот пример... »
:unsure:

я по другому не много делал - вроде работает = http://rghost.ru/53748629

#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
SolidCompression=yes
Compression=lzma/ultra
OutputDir=Output

[Files]
Source: cursor.ani; Flags: dontcopy

[Code]
function LoadCursorFromFile(FileName: String): Cardinal; external 'LoadCursorFromFile{#A}@user32 stdcall';
function DeleteObject(p1: Longword): BOOL; external 'DeleteObject@gdi32.dll stdcall';

const
MyCursor = 101;

var
hcur: Cardinal;

function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\cursor.ani')) then ExtractTemporaryFile('cursor.ani');
Result := True;
end;

procedure InitializeWizard();
begin
with WizardForm do begin
Cursor := MyCursor;
end;
hcur := LoadCursorFromFile(ExpandConstant('{tmp}\cursor.ani'));
Screen.Cursors[MyCursor] := hcur;
end;

procedure DeinitializeSetup();
begin
DeleteObject(hcur);
end;

[Ivan_009]

я по другому не много делал - вроде работает »

Можно и так... :)

Только я забыл в конце дописать:

procedure DeinitializeSetup();
begin
DeleteObject(hcur);
end;