[Dark_Delphin]

Всем привет.

Дайте пожалуйста пример Сплэш картинки png для скрипта.

Заранее благодарен.

[SoulSide]

Дайте пожалуйста пример Сплэш картинки png для скрипта. »

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

Код:

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

[Files]
Source: isgsg.dll; DestDir: {tmp}; Flags: dontcopy nocompression
Source: splash.png; DestDir: {tmp}; Flags: dontcopy nocompression

[*Code]
procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

procedure Splash();
begin
ExtractTemporaryFile('Splash.png');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);
end;

procedure InitializeWizard();
begin
Splash();
end;

[insombia]

как называется флаг для компонентов что его можно снять и поставить(галочка)

[R.i.m.s.k.y.]

insombia,
WizardForm.ComponentsList.Checked[N] := True - выбрать компонент номер N
WizardForm.ComponentsList.ItemEnabled[N] := False - сделатьк компонент номер N неактивным (будет засвечен и недоступен для выбора)

[insombia]

R.i.m.s.k.y. а по проще можно?типа как Flags: Exclusive

[R.i.m.s.k.y.]

insombia,

Flags This parameter is a set of extra options. Multiple options may be used by separating them by spaces. The following options are supported: checkablealone Specifies that the component can be checked when none of its children are. By default, if no Components parameter directly references the component, unchecking all of the component's children will cause the component to become unchecked. dontinheritcheck Specifies that the component should not automatically become checked when its parent is checked. Has no effect on top-level components, and cannot be combined with the exclusive flag. exclusive Instructs Setup that this component is mutually exclusive with sibling components that also have the exclusive flag. fixed Instructs Setup that this component can not be manually selected or unselected by the end user during installation. restart Instructs Setup to ask the user to restart the system if this component is installed, regardless of whether this is necessary (for example because of [Files] section entries with the restartreplace flag). Like AlwaysRestart but per component. disablenouninstallwarning Instructs Setup not to warn the user that this component will not be uninstalled after he/she deselected this component when it's already installed on his/her machine. Depending on the complexity of your components, you can try to use the [InstallDelete] section and this flag to automatically 'uninstall' deselected components.

[insombia]

нашел disablenouninstallwarning называется

[R.i.m.s.k.y.]

как называется флаг для компонентов что его можно снять и поставить(галочка) »

нашел disablenouninstallwarning называется »

[insombia]

ой checkablealone,перепутал

[Johny777]

Gnom_aka_Lexander, El Sanchez, ваши выкатывающиеся панели очень классные, но есть один недостаток - после завершения таймера не выгружается оперативка
те после каждого выката прибавляется по 4кб при закате по 4 = 8кб на один закат/выкат


поэтому я прикинул создать похожий код без использования таймеров (на основе циклов с задержкой)
но проблема с закатом во время выката и наоборот
вот ранняя версия (пока что ещё примитивная)

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

Код:

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

[   Code]
var
  SettingPanel   : TPanel;
  Flag           : boolean;
  Stop: boolean;
  

function GetTickCount: DWORD; external 'GetTickCount@kernel32.dll stdcall';

procedure Delay(dwMilliseconds: Longint);
var
  iStart, iStop: DWORD;
begin
  iStart := GetTickCount;
  repeat
    iStop := GetTickCount;
    Application.ProcessMessages;
  until (iStop - iStart) >= DWORD(dwMilliseconds);
end;

procedure Roll(Ctrl:TControl);
begin
  if Ctrl.Top < 0 then
  begin
    repeat
      Ctrl.Top := Ctrl.Top + ScaleY(1);
      Delay(1);
      if Stop then
      begin
        Stop := False;

        Break;
        Exit;
      end;
    until Ctrl.Top = 0;
    Exit;
  end;
  
  if Ctrl.Top > -Ctrl.Height then
  begin
    repeat
      Ctrl.Top := Ctrl.Top - ScaleY(1);
      Delay(0);
      if Stop then
      begin
        Stop := False;

        Break;
        Exit;
      end;
    until Ctrl.Top = -Ctrl.Height;
    Exit;
  end;
end;

procedure HideShow(Sender: TObject);
begin
  Roll(SettingPanel);
end;



procedure InitializeWizard();
 begin
  Flag:= False;
  Stop := 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;

просьба:
кто-нибудь помогите пожалуйста исправить глючность прерывания движения