[Ivan_009]

Как сделать такие края через ботву...Если можно пример...Заранее спасибо...

[nik1967]

Как сделать такие края в инсталляторе без ботвы..... »

Как сделать такие края через ботву.. »

Чё, издеваешься? http://forum.oszone.net/post-1972601.html#post1972601 Какая фиг разница - с ботвой, без ботвы...

[Ivan_009]

nik1967, мне нужно чтобы с прозрачностью...

[Ivan_009]

Как текструировать кнопку при нажатии на которую появлялся логотип png...

[vint56]

помогите дописать пожалуйста действие к нопкам Ok и Back

читать дальше »

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application


[code]
var
BrowseDialogTitle,BrowseDialogTitle1,BrowseDialogLabel:Tlabel;
DirBrowseSetting: TButton;
DirBrowseSettingPage, SetParameters: Boolean;
Edit: TNewEdit;
DirTreeView : TFolderTreeView;
Browse, OK, NO, back, new : TButton;

MainPanelBig1,MainPanelBig2: TPanel;
MainPanelBigBevel,BevelForm,BevelForm1,BevelForm2: TBevel;


procedure Okclick(Sender: TObject);
begin
//WizardForm.Enabled:=True;
WizardForm.DirEdit.Text:=AddBackslash(Edit.Text);
end;

procedure BackClick(Sender: TObject);
begin
Edit.Text:=AddBackslash(ExpandConstant('{pf}\')+'My Application');
DirTreeView.ChangeDirectory(AddBackslash(ExpandConstant('{pf}\')), True);
end;

procedure NOclick(Sender: TObject);
begin
WizardForm.Enabled:=true;
end;


procedure DirFolderChange(Sender: TObject);
Begin
Edit.Text:=AddBackslash(DirTreeView.Directory) + 'My Application';
end;

procedure FormClose(Sender: TObject; var Action: TCloseAction);
begin
WizardForm.Enabled:=true;
end;

procedure DirBrowseSettingOnClick(Sender: TObject);
begin
if DirBrowseSettingPage = False then begin
DirBrowseSetting.Hide;
WizardForm.NextButton.Hide;

BrowseDialogTitle := TLabel.Create(WizardForm);
BrowseDialogTitle.SetBounds(ScaleX(19),ScaleY(5),ScaleX(135),ScaleY(16));
BrowseDialogTitle.Font.Style:=[fsBold];
BrowseDialogTitle.Font.Size:= 10;
BrowseDialogTitle.Transparent := True;
BrowseDialogTitle.Parent := WizardForm;
BrowseDialogTitle.Caption := 'Обзор папок';
BrowseDialogTitle.Font.Name := 'Tahoma';
BrowseDialogTitle.Font.Height := -13;

BrowseDialogTitle1 := TLabel.Create(WizardForm);
BrowseDialogTitle1.SetBounds(ScaleX(30),ScaleY(25),ScaleX(365),ScaleY(13));
BrowseDialogTitle1.Transparent := True;
BrowseDialogTitle1.Parent := WizardForm;
BrowseDialogTitle1.Caption := 'В какую папку Вы хотите установить игру?';

MainPanelBig1 := TPanel.Create(WizardForm);
MainPanelBig1.Parent := WizardForm;
MainPanelBig1.SetBounds(ScaleX(20),ScaleY(69),ScaleX(541),ScaleY(261));
MainPanelBig1.Caption := '';

MainPanelBig2 := TPanel.Create(WizardForm);
MainPanelBig2.Parent := MainPanelBig1;
MainPanelBig2.SetBounds(ScaleX(10),ScaleY(11),ScaleX(520),ScaleY(239));
MainPanelBig2.BevelOuter := bvLowered;
MainPanelBig2.Caption := '';

MainPanelBigBevel := TBevel.Create(WizardForm);
MainPanelBigBevel.Style := bsRaised;
MainPanelBigBevel.Parent := MainPanelBig2;
MainPanelBigBevel.SetBounds(ScaleX(9),ScaleY(10),ScaleX(500),ScaleY(220));

Edit:= TNewEdit.Create(WizardForm);
Edit.SetBounds(ScaleX(20),ScaleY(20),ScaleX(480),ScaleY(21));
Edit.Text:=WizardForm.DirEdit.text;
Edit.Parent:= MainPanelBig2;
Edit.Font.Color:=clBlack;

DirTreeView:= TFolderTreeView.Create(WizardForm);
DirTreeView.SetBounds(ScaleX(20),ScaleY(50),ScaleX(480),ScaleY(170));
DirTreeView.OnChange:=@DirFolderChange;
DirTreeView.Parent:=MainPanelBig2;

DirTreeView.ChangeDirectory(AddBackslash(WizardForm.dirEdit.Text), true);
Edit.Text:=(DirTreeView.Directory);

BrowseDialogLabel := TLabel.Create(WizardForm);
BrowseDialogLabel.SetBounds(ScaleX(130),ScaleY(335),ScaleX(365),ScaleY(13));
BrowseDialogLabel.Transparent := True;
BrowseDialogLabel.Parent := WizardForm;
BrowseDialogLabel.Caption := 'Выберите папку из списка и нажмите «OK».';

Back:=tbutton.create(WizardForm)
with back do begin
SetBounds(ScaleX(16),ScaleY(351),ScaleX(100),ScaleY(30));
parent:=WizardForm;
Caption:='Сброс';
onclick:=@BackClick;
end;

Ok:=tbutton.create(WizardForm)
with ok do begin
SetBounds(ScaleX(126),ScaleY(351),ScaleX(100),ScaleY(30));
parent:=WizardForm;
Caption:='OK';
onclick:=@OKclick;
end;

No:=tbutton.create(WizardForm)
with no do begin
SetBounds(ScaleX(236),ScaleY(351),ScaleX(100),ScaleY(30));
parent:=WizardForm;
Caption:='Отмена';
onclick:=@NOclick;
end;


DirBrowseSettingPage:= True;
end else begin
BrowseDialogTitle.Hide;
BrowseDialogTitle1.Hide;
BrowseDialogLabel.Hide;

MainPanelBig1.Hide;
MainPanelBig2.Hide;
MainPanelBigBevel.Hide;

DirBrowseSettingPage:= False;
SetParameters:= True;
DirBrowseSetting.Caption:= 'Обзор...';
end;
end;



procedure InitializeWizard();
begin
WizardForm.ClientWidth:=ScaleX(580);
WizardForm.ClientHeight:=ScaleY(410);
WizardForm.Center;
WizardForm.OuterNotebook.Hide;
WizardForm.InnerNotebook.Hide;
WizardForm.Color := clMenu;

WizardForm.NextButton.SetBounds(ScaleX(460),ScaleY(374),ScaleX(110),ScaleY(30));
WizardForm.CancelButton.SetBounds(ScaleX(487),ScaleY(500),ScaleX(110),ScaleY(30));
WizardForm.BackButton.SetBounds(ScaleX(344),ScaleY(374),ScaleX(110),ScaleY(30));
WizardForm.Bevel.SetBounds(ScaleX(0),ScaleY(365),ScaleX(580),ScaleY(2));
WizardForm.Bevel.Parent := WizardForm;
WizardForm.Bevel.BringToFront;
WizardForm.Bevel1.SetBounds(ScaleX(0),ScaleY(47),ScaleX(580),ScaleY(2));
WizardForm.Bevel1.Parent := WizardForm;
WizardForm.Bevel1.BringToFront;

DirBrowseSetting := TNewButton.Create(WizardForm);
with DirBrowseSetting do
begin
Name := 'DirBrowseSetting';
Parent := WizardForm;
SetBounds(ScaleX(100),ScaleY(375),ScaleX(110),ScaleY(30));
Caption := 'Настройки';
OnClick:= @DirBrowseSettingOnClick;
end;
end;

[nik1967]

vint56, зачем усложнять? Проще сделать через дополнительную страницу.
P.S. Закос решил сделать под наш инсталл?

[HElmo]

Почему при запуске инсталятора он создает две папки Mods, как мне надо и Modsscrips, в которую распаковывает эту папку. Почему так?

Код:

Source: "D:\GAMES\World of tanks\World_of_Tanks\res_mods\0.7.5\system\*"; DestDir: "{app}\system"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Skybox

[MogilShik2007]

Johny777, твой предыдущий скрипт выдает ошибку вместе с моим(((

[SatHan]

Подскажите пожалуйста. как поменять скорость выкатки/закатки окна побыстрее? код от сюда

читать дальше »

Код:

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

[#code]
var
  SettingPanel   : TPanel;
  Flag           : boolean;
  Timer          : LongWord;

function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

procedure Timer1;
begin
  if SettingPanel.Top < 0 then SettingPanel.Top := SettingPanel.Top + ScaleY(3);
  if SettingPanel.Top = 0 then KillTimer(WizardForm.Handle, Timer);
end;

procedure Timer2;
begin
  if SettingPanel.Top > -315 then SettingPanel.Top := SettingPanel.Top - ScaleY(3);
  if SettingPanel.Top = -315 then KillTimer(WizardForm.Handle, Timer);
end;


procedure HideShow(Sender: TObject);
begin
  KillTimer(WizardForm.Handle, Timer);
  case Flag of
  True :
    begin
      Timer := SetTimer(WizardForm.Handle, 1, 5 , CallbackAddr('Timer2'));
      TButton(Sender).Caption:='Show';
    end;
  False :
    begin
      Timer := SetTimer(WizardForm.Handle, 1, 5 , CallbackAddr('Timer1'));
      TButton(Sender).Caption:='Hide';
    end;
  end;
  Flag:= not Flag;
end;


procedure InitializeWizard();
 begin
  Flag:= False;

  SettingPanel := TPanel.Create(WizardForm);
  with SettingPanel do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(0),ScaleY(-315),ScaleX(497),ScaleY(313));
    ParentBackground := False;
  end;

  with TButton.Create(WizardForm) do
  begin
    OnClick:= @HideShow;
    SetBounds(ScaleX(40),ScaleY(327),ScaleX(75),ScaleY(25))
    Caption:='Show';
    Parent:= WizardForm;
  end;
end;

теперь ни копипастой »

проверил. копипастой вставляется и мышью и через клаву ctrl+v.

[Johny777]

SatHan,

как поменять скорость выкатки/закатки окна побыстрее? »

Timer := SetTimer(WizardForm.Handle, 1, 5 , CallbackAddr('Timer1'));
в таймере выполняется процедура Timer1
5 - частота обновления таймера (в миллисекундах (в 1 секунде 1000)). Иначе говоря выполнения указанной процедуры
в самой процедуре стоит

....панель.сверху := панель.свеху + 3 пикселя
SettingPanel.Top := SettingPanel.Top + ScaleY(3);

те мы каждые пять миллисекунд двигаем панель на 3 пикселя

MogilShik2007,

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  ErrorCode: Integer;
begin
  если (этап установки = после нажатия на кнопку завершить) и (такой_чекбокс.отмечен) то Запустить(расшифровать константу(расположение экзешника)). парамеьров нет, рабочая папка, спрятать консольное окно, не ждать, Переменная в которую пишется код ошибки))
  if (CurStep = ssDone) and (Run_CheckBox.Checked = True) then Exec(ExpandConstant('{app}\{#MyAppExeName}'), '', ExpandConstant('{app}'), SW_HIDE, ewNoWait, ErrorCode);
end;