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

Johny777 · Конфигурация компьютера

Цитата El Sanchez:

А можно и без таймеров: »

анимация зачётная, но малость не то
к тому же стиль WS_EX_COMPOSITED нужен был, чтоб окно не мигало, а отказавшись от старой панели работающей через .repaint, из-за которой оно мигало, в нём тоже отпала необходимость (кажется)

Цитата El Sanchez:

можно использовать ф-ию CallbackAddr »

воспользовался (извиняюсь, что только сейчас и при этом поднимаю старое сообщение)
(изменил один из примеров
вот этот

)
и в то время же накосячил!
не хочет закатываться!

зато выкатывается

вот что получилось:

помогите поправить пожалуйста!

Gnom_aka_Lexander · Отправлено: **08:13, 17-05-2012** | #**2062**

Цитата Johny777:

if SettingPanel.Top>-1 »

Цитата Johny777:

SetBounds(ScaleX(0),ScaleY(-315) »

все правильно - создаешь ее как и нужно, а закатываешь только до значения -1. тоесть правильно будет -

Код:

if SettingPanel.Top>-315

Johny777 · Конфигурация компьютера

Лександер,
Спасибо!
поправил

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
и ещё вопрос
закометировал строки с KillTimer в процедуре и всё нормально
правильно ли?
может достаточно просто освобождать таймер при переходе на следующую страницу, а не каждый раз после выката и заката?

Gnom_aka_Lexander · Отправлено: **12:07, 17-05-2012** | #**2064**

скорее так, тогда:

Код:

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

будет более правильно, я думаю. при переходе на следующую страницу, ты можешь получить панель застрявшую на середине хода.

Johny777 · Конфигурация компьютера

Лександер,
поправил

Код:

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

[Files]
Source: compiler:InnoCallback.dll; Flags: dontcopy

[ Code]
var
  SettingPanel: TPanel;
  Flag: boolean;
  hBtn: TButton;

type
  TimerProc = procedure(Sender: TObject);

function CallbackAddr(Callback: TimerProc; ParamCount: Integer): LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
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 Timer(Sender: TObject);
begin
  if SettingPanel.Top<0 then SettingPanel.Top:=ScaleY(SettingPanel.Top + ScaleY(3));
end;

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


procedure HideShow(Sender: TObject);
begin
If not Flag then
  begin
    SetTimer(WizardForm.Handle, 1, 5, CallbackAddr(@Timer, 0));
    //KillTimer(WizardForm.Handle, 0);
    hBtn.Caption:='Hide';
    Flag:= True;
  end
else
  begin
    SetTimer(WizardForm.Handle, 1, 5, CallbackAddr(@Timer2, 0));
    //KillTimer(WizardForm.Handle, 0);
    hBtn.Caption:='Show';
    Flag:= False;
  end;
end;


procedure InitializeWizard();
 begin
  Flag:= False;
  
  SettingPanel := TPanel.Create(WizardForm);
  with SettingPanel do
  begin
    Parent := WizardForm.WelcomePage;
    SetBounds(ScaleX(0),ScaleY(-315),ScaleX(497),ScaleY(313));
    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;


procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectDir then
    KillTimer(WizardForm.Handle, 0);
end;

назначил родителем панели страницу приветствия (для теста перехода)
странным образом при переходе во время выката на wpSelectDir и обратно она не застревает, а как будто бы выкатывается/закатывается "за глазами"
а при быстром переходе продолжает выкатываться, хотя таймер должен был быть освобождён!
может это и есть вся прелесть CallbackAddr

, ведь эта функция числится среди расширенных?

Gnom_aka_Lexander · Отправлено: **12:37, 17-05-2012** | #**2066**

Johny777, нет. во первых у тебя не обозначен идентификатор таймера, во вторых ты запускаешь таймер с nIDEvent равным 1 а закрываешь - 0, тоесть совсем другой таймер.

Цитата Johny777:

может это и есть вся прелесть CallbackAddr , ведь эта функция числится среди расширенных? »

Ты используешь wrapcallback из innocallback.dll а не CallbackAddr из расширенной версии.

Johny777 · Конфигурация компьютера

Лександер,
ясно
вернул единицу на место
могу ли я любое число (скажем 4) в хэндл ставить, чтоб другие таймеры не закрыть случайно?
те SetTimer(WizardForm.Handle, 4, 5 .... и KillTimer(WizardForm.Handle, 4);

Код:

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

bugmenotagain · Конфигурация компьютера

alert30, мне нельзя спросить как запретить создавать unistall?

Gnom_aka_Lexander · Отправлено: **12:47, 17-05-2012** | #**2069**

можно так:

Код:

var
  timer : Integer;
....................................
if SettingPanel.Top=-315 then KillTimer(WizardForm.Handle, timer);
.......................................
SetTimer(WizardForm.Handle, 4, timer...

Вроде ничего не напутал

Цитата bugmenotagain:

мне нельзя спросить как запретить создавать unistall? »

Можно. Один раз. и смысла нет переспрашивать, получив правильный ответ. То, что у тебя не получилось этим ответом воспользоваться - это уже твоя беда все-таки, у меня все как нужно отработало - несколько раз проверил специально.
Johny777
таки я напутал

вот так правильно будет. Заодно сделал на встроенном в расширенную версию каллбеке.

Johny777 · Конфигурация компьютера

Лександер,
вылетало с ошибкой дубликата на слове timer (в процедуре таймер)
переименовал
не читать дальше »

timerA : Integer - для оптимизации или простоты?
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

Цитата Лександер:

вот так правильно будет. Заодно сделал на встроенном в расширенную версию каллбеке. »

вот спасибо!