[Gnom_aka_Lexander]

Ну, и нет пределов совершенству, как говорит Seregа, - в одной процедуре таймера сделал, до кучи - как говорится, пользуйте, как лучше нравится

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

Код:

[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 MyTimer;
begin
  case Flag of
  True :
    begin
      if SettingPanel.Top = 0 then
        KillTimer(WizardForm.Handle, Timer);
      if SettingPanel.Top < 0 then SettingPanel.Top := SettingPanel.Top + ScaleY(3);
    end;
  False :
    begin
      if SettingPanel.Top = ScaleY(-315) then
        KillTimer(WizardForm.Handle, Timer);
      if SettingPanel.Top > ScaleY(-315) then SettingPanel.Top := SettingPanel.Top - ScaleY(3);
    end;
  end;
end;

procedure HideShow(Sender: TObject);
begin
  KillTimer(WizardForm.Handle, Timer);
  Timer := SetTimer(WizardForm.Handle, 1, 5 , CallbackAddr('MyTimer'));
  case Flag of
    True : TButton(Sender).Caption:='Show';
    False : TButton(Sender).Caption:='Hide';
  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;

для оптимизации или простоты? »

нет, это дескриптор таймера, по ид он не убивается, вроде.

[Johny777]

Лександер,
ну та что на одной процедуре отличается от предыдущей тем, что её нельзя начать закатывать во время выката, а ту с двумя можно!
и везде SettingPanel.Top = -315 кажись правильнее будет записать SettingPanel.Top = ScaleY(-315)

El Sanchez,
думаю этим примерам прямая дорога в шапку, в "Ссылки на примеры скриптов"

[Gnom_aka_Lexander]

Johny777, поправил, теперь можно на ходу менять направление
В одной процедуре - просто меньше шансов запутаться в дальнейшем.

кажись правильнее будет записать SettingPanel.Top = ScaleY(-315) »

совершенно верно.

[El Sanchez]

Johny777, нужно рассчитывать интервал таймера и сдвиг контрола в зависимости от размеров самого контрола. Если у меня, к примеру, панель высотой в 2 пикселя и надо все это дела выкатить/закатить за, скажем, 1 сек., то фиксированный сдвиг в 3 пикселя и фиксированный интервал таймера в 5 мс не катят. Убил полдня на алгоритм, вот вариант.

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

Код:

[code]
var
    SettingPanel: TPanel;
    hBtn: TButton;
    //iStartTime: Integer; //debug
    iTimer, iRollInfo: Integer;

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


procedure TimerProc(hwnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);
var
    iLen, iStep: Integer;
begin
    iLen := iRollInfo and $FFFF;
    iStep := (iRollInfo and $FF0000) shr $10;
    case iRollInfo shr $18 of
        $0: begin
                if SettingPanel.Left >= -iStep then
                begin
                    KillTimer(0, iTimer);
                    hBtn.Enabled := True;
                end;
                SettingPanel.Left := SettingPanel.Left + iStep;
                //WizardForm.Caption := 'time: ' + IntToStr(dwTime-iStartTime) + '; length: ' + IntToStr(SettingPanel.Left); //debug
            end;
        $1: begin
                if SettingPanel.Left <= -iLen + iStep then
                begin
                    KillTimer(0, iTimer);
                    hBtn.Enabled := True;
                end;
                SettingPanel.Left := SettingPanel.Left - iStep;
                //WizardForm.Caption := 'time: ' + IntToStr(dwTime-iStartTime) + '; length: ' + IntToStr(SettingPanel.Left); //debug
            end;
        $2: begin
                if SettingPanel.Top >= -iStep then
                begin
                    KillTimer(0, iTimer);
                    hBtn.Enabled := True;
                end;
                SettingPanel.Top := SettingPanel.Top + iStep;
                //WizardForm.Caption := 'time: ' + IntToStr(dwTime-iStartTime) + '; length: ' + IntToStr(SettingPanel.Top); //debug
            end;
        $3: begin
                if SettingPanel.Top <= -iLen + iStep then
                begin
                    KillTimer(0, iTimer);
                    hBtn.Enabled := True;
                end;
                SettingPanel.Top := SettingPanel.Top - iStep;
                //WizardForm.Caption := 'time: ' + IntToStr(dwTime-iStartTime) + '; length: ' + IntToStr(SettingPanel.Top); //debug
            end;
    end;
end;

procedure RollControl(Ctrl: TControl; dwTime, dwFlag: DWORD);
//  Ctrl    :   control
//  dwTime  :   rolling time, ms
//  dwFlag  :   roll type ($0 - left to right, $1 - right to left, $2 - top to bottom, $3 - bottom to top)
var
    iLen, iStep: Integer;
    iKoeff: Extended;
begin
    iLen := (dwFlag shr $1 xor $1)*Ctrl.Width + (dwFlag shr $1)*Ctrl.Height;
    repeat
        iStep := iStep + 1;
        iKoeff := (iStep * dwTime)/(iLen * 1000/64);
    until iKoeff >= 1;
    //
    if iRollInfo = 0 then iRollInfo := (dwFlag shl $18) or (iStep shl $10) or iLen else iRollInfo := iRollInfo xor $1000000;
    iTimer := SetTimer(0, 0, Trunc(iKoeff)*1000/64, CallbackAddr('TimerProc'));
end;

procedure HideShow(Sender: TObject);
begin
    //iStartTime := GetTickCount; //debug
    RollControl(SettingPanel, 1000, $2);
    TButton(Sender).Enabled := False;
end;

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

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

[Johny777]

Убил полдня на алгоритм »

опять же "неоценимая помощь"
Спасибо!

очень удобно то, что в процедуре настраивать ничего не нужно
записал в "HideShow" "$0"
(у меня ведь выкат слева)

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

а в закомментированных строках с препиской //debug на конце можно вписать изменение названия кнопки/выпадающего меню (у меня)
(MnuItem.Caption := ExpandConstant('{cm:Console0}'); MnuItem.Caption := ExpandConstant('{cm:Console1}'))
В общем разобрался немного! :
если попытаться закатить панель в процессе выката, то у неё слетают тормоза

[bugmenotagain]

какой выбрать уровень сжатия
fast
normal
max
ultra
чтобы данные не повредить чрезмерным сжатием

и галочку ставить "уплотненное сжатие файлов"?

[Johny777]

чтобы данные не повредить чрезмерным сжатием »

а такое бывает?
хз, тк не интересовался особо, но вроде прекомп может повредить и то при условиях...
но, что стоит в справке= одобрено
те сжимай как хош
вот например настройка на максимальное сжатие стандартными (встроенными. а инно использует lzma/lzma2 алгоритмы = 7Zip архиватор) средствами

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

Compression=lzma2/ultra64
LZMAUseSeparateProcess=yes
LZMAMatchFinder=BT
LZMANumFastBytes=273
LZMADictionarySize=262144
///LZMADictionarySize=131072
InternalCompressLevel=ultra64
///SolidCompression=true
MergeDuplicateFiles=true

только словарь настрой тестами под себя
также если есть "тяжёлые" компоненты, то не используй SolidCompression=true, который может повысить уровень сжатия
и учти, что чем выше сжатие, тем дольше распаковка
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

и галочку ставить "уплотненное сжатие файлов"? »

есть классный GUI для создания скриптов "Inno Script Studio"
https://www.kymoto.org/inno-script-studio/download
попробуй

[bugmenotagain]

только словарь настрой тестами под себя »

что такое словарь и как его настораивать

[Johny777]

что такое словарь »

в гугл забей "словарь архиватора"

и как его настораивать »

2 строки
используй одну из них
LZMADictionarySize=262144 ///(этот когда много мелких файлов)
LZMADictionarySize=131072
тесты покажут при каком сильнее жмёт

[bugmenotagain]

все эти программы для inno setup которые Я скачал однотипные и примитивные. нет нормального графического оформления, настройка страниц, отключение деинсталляции для определенных компонентов и еще много чего.

2 строки используй одну из них LZMADictionarySize=262144 ///(этот когда много мелких файлов) LZMADictionarySize=131072 тесты покажут при каком сильнее жмёт »

не проще FreeArc'ом сжать? говорят мощная штука