Создание инсталляторов для модпаков на базе Inno Setup

[woole 5]

 

#define ClientReg "{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1"
#define TestClientReg "{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1"

 

Спасибо большое :)

[Kotyarko_O 1,906]

как можно заменить кнопки "свернуть" и "закрыть" на свои с помощью ботвы?

А никак. Разве что скин редактировать.

 

и как эту команду задать? чтоб он отображался. Ну или что мне потребуется сделать,чтобы он отображался?

Зачем рисовать скролл для одной страницы, на которой одно изображение. Чтобы пользователь мог прокрутить и увидеть целых 20 не поместившихся пикселей?

Урежьте картинку да и всё.

Edited January 26, 2015 by Kotyarko_O

[AtotIK 580]

 

 

А никак

Можно.

[Kotyarko_O 1,906]

Можно.

GetWindow... SetWindow...?

Если да, то догадывался.

Если нет, то не знал)

[Ekspoint 2,122]

Можно.

и как же?

[AtotIK 580]

Создаёшь кнопку, вешаешь на неё ивент.

[~Code~]
function ReleaseCapture: Longint; external '[email protected] stdcall';

var
  MinBtn, CloseBtn: HWND;

procedure MinimizeBtnClick(h:HWND);
begin
  WizardForm.SetFocus;
  ReleaseCapture;
  SendMessage(WizardForm.Handle,$112,61472,0);
end;

procedure CancelBtnClick(h:HWND);
begin
  WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end;

procedure MinExitButtons();
begin
  MinBtn:=BtnCreate(WizardForm.Handle, 595, 12, 13, 11, ExpandConstant('Minimize.png'), 1, False);
  BtnSetEvent(MinBtn, BtnClickEventID, WrapBtnCallback(@MinimizeBtnClick, 1));

  CloseBtn:=BtnCreate(WizardForm.Handle, 610, 8, 13, 11, ExpandConstant('Exit.png'), 1, False);
  BtnSetEvent(CloseBtn, BtnClickEventID, WrapBtnCallback(@CancelBtnClick, 1));
end;

procedure InitializeWizard;
begin
   MinExitButtons();
end;

Набросал на коленке, но вроде работать должно. Не забываем про WizardForm.BorderStyle:=bsNone;

Edited January 26, 2015 by AtotIK

[Ekspoint 2,122]

Создаёшь кнопку, вешаешь на неё ивент.

[~Code~]
function ReleaseCapture: Longint; external '[email protected] stdcall';

var
  MinBtn, CloseBtn: HWND;

procedure MinimizeBtnClick(h:HWND);
begin
  WizardForm.SetFocus;
  ReleaseCapture;
  SendMessage(WizardForm.Handle,$112,61472,0);
end;

procedure CancelBtnClick(h:HWND);
begin
  WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end;

procedure MinExitButtons();
begin
  MinBtn:=BtnCreate(WizardForm.Handle, 595, 12, 13, 11, ExpandConstant('Minimize.png'), 1, False);
  BtnSetEvent(MinBtn, BtnClickEventID, WrapBtnCallback(@MinimizeBtnClick, 1));

  CloseBtn:=BtnCreate(WizardForm.Handle, 610, 8, 13, 11, ExpandConstant('Exit.png'), 1, False);
  BtnSetEvent(CloseBtn, BtnClickEventID, WrapBtnCallback(@CancelBtnClick, 1));
end;

procedure InitializeWizard;
begin
   MinExitButtons();
end;

Набросал на коленке, но вроде работать должно. Не забываем про WizardForm.BorderStyle:=bsNone;

спасиб

Edited January 26, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫

[Ekspoint 2,122]

как сделать так чтобы LoadBGBmpFromFile не скакал при прокрутки колесиком у компонент листа?

и еще,как включить стр PasswordPage на юникоде

Edited January 27, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫

[AtotIK 580]

как сделать так чтобы LoadBGBmpFromFile не скакал при прокрутки колесиком у компонент листа?

Когда создаёшь поток, в который загружается фон, то указываешь для него Position:=0;

[Ekspoint 2,122]

Когда создаёшь поток, в который загружается фон, то указываешь для него Position:=0;

Вот так чтоль?

WizardForm.ComponentsList.LoadBGBmpFromFile(ExpandConstant('{tmp}\подложка для компонентов.bmp'), 0, 0); 

[AtotIK 580]

Вот так чтоль?

Зачем спрашиваешь, если сам знаешь ответ?

 

[~Code]
var
  BGImageStream: TMemoryStream;

procedure CreateStreamBG();
begin
  BGImageStream:=TMemoryStream.Create;
  ExtractTemporaryFileToStream('BMPImage.bmp', BGImageStream);
  BGImageStream.Position:=0;

  WizardForm.ComponentsList.LoadBGBmpFromBitmap(BGImage.Bitmap, WizardForm.ComponentsList.Left, WizardForm.ComponentsList.Top);
end;

procedure InitializeWizard;
begin
  CreateStreamBG();
end;

Edited January 28, 2015 by AtotIK

[Ekspoint 2,122]

Зачем спрашиваешь, если сам знаешь ответ?

 

[~Code]
var
  BGImageStream: TMemoryStream;

procedure CreateStreamBG();
begin
  BGImageStream:=TMemoryStream.Create;
  ExtractTemporaryFileToStream('BMPImage.bmp', BGImageStream);
  BGImageStream.Position:=0;

  WizardForm.ComponentsList.LoadBGBmpFromBitmap(BGImage.Bitmap, WizardForm.ComponentsList.Left, WizardForm.ComponentsList.Top);
end;

procedure InitializeWizard;
begin
  CreateStreamBG();
end;

у меня чёрный фон рисуется почему то, после прокрутки 

а как у ReadyMemo сделать фон?

[young G 23]

/dell

Edited January 31, 2015 by _NesKwi_

[Ekspoint 2,122]

почему ошибка  

[Kotyarko_O 1,906]

, PAnsiChar.

[Ekspoint 2,122]

, PAnsiChar.

ага,спасиб

как заменить тут кнопки на картинки?

какими способами?

'1'

 

'2'

[Kotyarko_O 1,906]

как заменить тут кнопки на картинки?

какими способами?

Создавать формы и срисовывать их с этих окон.

[Ekspoint 2,122]

Создавать формы и срисовывать их с этих окон.

типо,новую форму рисовать,не догнал что то 

[Kotyarko_O 1,906]

типо,новую форму рисовать,не догнал что то 

А что в этих словах сложного?

Создаёшь форму, делаешь её похожей на определённое окно.

[Ekspoint 2,122]

А что в этих словах сложного?

Создаёшь форму, делаешь её похожей на определённое окно.

а как выдернуть это?

про дирт эдит ястно,но как окно диска сделать?

Edited January 31, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫