ShouldSkipPage Inno Setup :: 4programmers.net

Rejestracja:około 13 lat
Ostatnio:prawie 9 lat
Postów:22

Czy da się uruchomić funkcję ShouldSkipPage dopiero po wciśnięciu przycisku "Nowy" na jednej ze stron instalatora? Tak by nie była zależna od przycisku next ale od przycisku "Nowy".

Kopiuj

[code]
var
  Strona1: TWizardPage;
  NowyButton: TButton;
procedure NowyButtonOnClick(Sender: TObject);
begin
end;

procedure InitializeWizard();
begin
Strona1 := CreateCustomPage(wpselectdir, 'Strona1', 'Text');

 NowyButton:= TButton.create(Wizardform);
 with NowyButton do
 begin
  NowyButton.Left := 20
  NowyButton.Top := WizardForm.CancelButton.Top;
  NowyButton.Width := WizardForm.CancelButton.Width;
  NowyButton.Height := WizardForm.CancelButton.Height;
  NowyButton.Caption := 'Nowy';
  NowyButton.OnClick := @NowyButtonOnClick;
  NowyButton.Parent := WizardForm
end;
end;

function ShouldSkipPage(PageID: Integer): Boolean; //Jeśli przycisk "nowy"=kliknięty funkcja pomija strony
begin
  if  (PageID = wpWelcome) or (PageID = wpSelectDir) then
  begin
    result := True;
    exit;
  end;
  result := false;
end;

kAzek 2012-08-11 11:48

hmm nie wiem może nie rozumiem o co chodzi ale wydaje mi się ze możesz dać zmienną globalną która przyjmie określoną wartość po naciśnięciu przycisku nowy a w funkcji ShouldSkipPage sprawdzać wartość tej zmiennej.

marcin55246 2012-08-11 20:35

Pytanie tylko jaką zmienną dać i jaką wartość ma przejąć. Nie znam niestety żadnych wartości dotyczących tej funkcji. Jeszcze jedno pytanie jak nazywa się przycisk instalacji w instalatorze? Skoro przycisk "dalej" to (wizardform.nextbutton) to jaką nazwę ma przycisk instalacji? Chyba ze tylko Caption na odpowiedniej stronie jest zmieniane to proszę to zignorować.

flowCRANE 2012-08-11 22:21

Szukaj pod "WizardForm.InstallButton";

marcin55246 2012-08-11 22:46

Szukałem i doszedłem do wniosku, że "WizardForm.InstallButton" nie istnieje bo nigdzie nie mogę tego znaleźć. Raczej jest to tylko zmieniony caption przycisku dalej.

flowCRANE

2012-08-11 10:04

flowCRANE2012-08-11 10:04

Moderator Delphi/Pascal

Rejestracja:ponad 13 lat
Ostatnio:około 2 godziny
Lokalizacja:Tuchów
Postów:12175

Nie znam się na InnoSetup bo nigdy z niego nie korzystałem (wolałem samodzielnie tworzyć instalatory - bardzo fajna zabawa), ale mam tylko jedną uwagę co do tego kodu:

Kopiuj

function ShouldSkipPage(PageID: Integer): Boolean; //Jeśli przycisk "nowy"=kliknięty funkcja pomija strony
begin
  if  (PageID = wpWelcome) or (PageID = wpSelectDir) then
  begin
    result := True;
    exit;
  end;
  result := false;
end;

Można go skrócić do jednej linii:

Kopiuj

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := (PageID = wpWelcome) or (PageID = wpSelectDir);
end;

lub tak:

Kopiuj

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := PageID in [wpWelcome, wpSelectDir];
end;

edytowany 3x, ostatnio: flowCRANE 2012-08-11 10:26

marcin55246

2012-08-11 20:36

marcin552462012-08-11 20:36

Rejestracja:około 13 lat
Ostatnio:prawie 9 lat
Postów:22

Furious Programming ta pierwsza opcja działa ale ta druga monituję błąd "Type Mismatch". A czy można zrobić tak aby po naciśnięciu przycisku przeniosło do mojej strony?

flowCRANE 2012-08-11 22:02

Hmmm, u mnie taka konstrukcja zadziałała... Odnośnie przechodzenia do Twojej strony - jaka procedura realizuje zmianę stron? W niej właśnie musisz się przenieść do Twojej;

marcin55246 2012-08-11 22:18

No właśnie tylko jaka to procedura...? nie mam pojęcia.

flowCRANE 2012-08-11 22:19

Ja nie mam InnoSetup i nigdy z niego nie korzystałem, ale na pewno JEST - poszukaj tylko;

marogo

2012-08-12 20:20

marogo2012-08-12 20:20

Rejestracja:prawie 17 lat
Ostatnio:14 dni

Może podam przykładowy kod, z którego mechanizmy możesz wykorzystać, bo nie wiem, co tam dokładnie chcesz zrobić:

Kopiuj

[Code]
var
  Strona1: TWizardPage;
  NowyButton: TButton;
  BtnNowyClicked: Boolean;//globalna zmienna logiczna określająca, że przycisk "Nowy" został już kliknięty

procedure NowyButtonOnClick(Sender: TObject); //przechwycenie kliknięcia przycisku "Nowy"
begin
  If WizardForm.CurPageID=Strona1.ID {wpSelectSir} then //jeśli kliknąłeś przycisk "Nowy" gdy aktywna była Twoja strona {wyboru folderu}
    MsgBox('Kliknąłeś przycisk "Nowy" gdy Twoja strona jest widoczna!', mbInformation, MB_OK);  
  BtnNowyClicked:=true; //włączenie aktywności funkcji ShouldSkipPage (pominięcie 1 strony i wyboru folderu)
end;
 
procedure InitializeWizard();
begin
  BtnNowyClicked:=false; //początkowy stan flagi określającej, że przycisk "Nowy" został już kliknięty

  Strona1 := CreateCustomPage(wpselectdir, 'Strona1', 'Text');
 
  NowyButton:= TButton.create(WizardForm);
  with NowyButton do
  begin
    NowyButton.Left := 20;
    NowyButton.Top := WizardForm.CancelButton.Top;
    NowyButton.Width := WizardForm.CancelButton.Width;
    NowyButton.Height := WizardForm.CancelButton.Height;
    NowyButton.Caption := 'Nowy';
    NowyButton.OnClick := @NowyButtonOnClick;
    NowyButton.Parent := WizardForm;
  end;
end;
 
function ShouldSkipPage(PageID: Integer): Boolean; //jeśli funkcja zwróci true, strona o ID=PageID nie będzie wyświetlana
begin
  Result := BtnNowyClicked and ((PageID=wpWelcome)or(PageID=wpSelectDir));//Jeśli przycisk "Nowy" został kliknięty, nie będzie wyświetlana 1 strona i wyboru folderu
end;

function NextButtonClick(CurPageID: Integer): Boolean; //przechwycenie kliknięcia przycisku "Next" (lub "Install")
Begin
  If CurPageID=wpReady then //jeśli kliknięto przycisk "Next" gdy ma Caption "Install"
  Begin
    MsgBox('Kliknąłeś przycisk "Install"', mbInformation, MB_OK);  
    Result:=false; //np. jeśli ma być zablokowane rozpoczęcie instalacji (brak reakcji na kliknięcie przycisku "Install")
  End
  else Result:=true; //w tej sytuacji kliknięcie przycisku "Next" wywoła właściwą akcję, czyli przeskok na następną stronę)
End;

Mam nadzieję, że to się kompiluje, bo pisałem z pamięci. ;)

marcin55246 2012-08-13 00:51

Masz dobrą pamięć. ;-) Ale jest jeden mały haczyk dlatego, że gdy kliknę "nowy" to dopiero next przenosi mnie na moją stronę. A chodzi oto by to "nowy" przeniósł od razu na moją stronę.

marcin55246

2012-08-13 01:02

marcin552462012-08-13 01:02

Rejestracja:około 13 lat
Ostatnio:prawie 9 lat
Postów:22

Wymyśliłem też troszkę inną drogę by osiągnąć pożądany efekt.

Kopiuj

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[code]
var
  Strona1: TWizardPage;
  NowyButton, Nowy1Button, Nowy2Button, Nowy3Button: TButton;
  label1, label2: Tlabel;

procedure konfiguracjaOnClick(Sender: TObject);    
begin
NowyButton.hide
nowy2button.show
Nowy2Button.left:=100
Nowy1Button.Show
Nowy1Button.left:=nowybutton.left
Nowy3Button.hide
Wizardform.WelcomeLabel1.Hide;
Wizardform.WelcomeLabel2.Hide;
Wizardform.wizardbitmapimage.hide
Wizardform.diredit.Show
Wizardform.DirBrowseButton.show
Wizardform.DirBrowseButton.Parent:= WizardForm.welcomepage;
label1.show;
wizardform.dirbrowsebutton.show
end;

procedure WsteczOnClick(Sender: TObject);    
begin
NowyButton.Show
Nowy1Button.hide
Nowy1Button.left:=nowybutton.left
Nowy2Button.hide
label1.hide
Wizardform.DirBrowseButton.hide
Wizardform.diredit.hide
Wizardform.wizardbitmapimage.show
Wizardform.WelcomeLabel1.show;
Wizardform.WelcomeLabel2.show;
end;

procedure DalejOnClick(Sender: TObject);    
begin
Nowy3Button.Show
Nowy3Button.left:= NowyButton.left
Nowy2Button.hide
NowyButton.Hide
Nowy1Button.Hide
Wizardform.diredit.Hide
Wizardform.diredit.parent:=Wizardform.welcomepage
Wizardform.diredit.left:= 40
Wizardform.diredit.top:= 160
Wizardform.DirBrowseButton.Hide
label1.Hide
label2.show
end;

procedure Wstecz2OnClick(Sender: TObject);   
begin
label2.hide
nowy3button.hide
Wizardform.diredit.Show
Wizardform.diredit.parent:=Wizardform.welcomepage
Wizardform.diredit.left:= 40
Wizardform.diredit.top:= 160
Wizardform.DirBrowseButton.show
label1.show;
wizardform.dirbrowsebutton.show
nowy1button.show
nowy2button.show
end;

procedure InitializeWizard();
begin
WizardForm.Position:=poscreencenter;
Strona1 := CreateCustomPage(wpselectdir, 'Strona1', 'Text');
 
 NowyButton:= TButton.create(Wizardform);
 with NowyButton do
 begin
  NowyButton.Left := 20
  NowyButton.Top := WizardForm.CancelButton.Top;
  NowyButton.Width := WizardForm.CancelButton.Width;
  NowyButton.Height := WizardForm.CancelButton.Height;
  NowyButton.Caption := 'Dalej';
  NowyButton.OnClick := @konfiguracjaOnClick;
  NowyButton.Parent := WizardForm
end;

 Nowy1Button:= TButton.create(Wizardform);
 with Nowy1Button do
 begin
  Nowy1Button.Left := 120
  Nowy1Button.Top := WizardForm.CancelButton.Top;
  Nowy1Button.Width := WizardForm.CancelButton.Width;
  Nowy1Button.Height := WizardForm.CancelButton.Height;
  Nowy1Button.Caption := 'Wstecz';
  Nowy1Button.OnClick := @WsteczOnClick;
  Nowy1Button.Parent := WizardForm
end;

 Nowy2Button:= TButton.create(Wizardform);
 with Nowy2Button do
 begin
  Nowy2Button.Left := 200
  Nowy2Button.Top := WizardForm.CancelButton.Top;
  Nowy2Button.Width := WizardForm.CancelButton.Width;
  Nowy2Button.Height := WizardForm.CancelButton.Height;
  Nowy2Button.Caption := 'Dalej';
  Nowy2Button.OnClick := @DalejOnClick;
  Nowy2Button.Parent := WizardForm
end;

 Nowy3Button:= TButton.create(Wizardform);
 with Nowy3Button do
 begin
  Nowy3Button.Left := 240
  Nowy3Button.Top := WizardForm.CancelButton.Top;
  Nowy3Button.Width := WizardForm.CancelButton.Width;
  Nowy3Button.Height := WizardForm.CancelButton.Height;
  Nowy3Button.Caption := 'Wstecz';
  Nowy3Button.OnClick := @Wstecz2OnClick;
  Nowy3Button.Parent := WizardForm
end;

label1:= Tlabel.create(Wizardform);
 with label1 do
 begin
  AutoSize:=False;
  WordWrap:=True;
  Left := 40
  Top := 120
  Width := 200
  Caption := 'Konfiguracja.';
  Parent := WizardForm.welcomepage
  transparent:= true;
  font.size:= 15
  font.style:= [fsBold]
  height:= 30
end;

label2:= Tlabel.create(Wizardform);
 with label2 do
 begin
   AutoSize:=False;
  WordWrap:=True;
  Left := 40
  Top := 120
  Width := 500
  Caption := 'Instalowanie dodatkowych programów.';
  Parent := WizardForm.welcomepage          
  transparent:= true;
  font.size:= 15
  height:= 30
  font.style:= [fsBold]
end;
nowy1button.hide
nowy3button.hide
nowy2button.hide
label1.hide
label2.hide
Wizardform.diredit.hide
wizardform.dirbrowsebutton.hide
wizardform.dirbrowsebutton.left:= 380
wizardform.dirbrowsebutton.top:= 160
Wizardform.diredit.parent:=Wizardform.welcomepage
Wizardform.diredit.left:= 40
Wizardform.diredit.top:= 160
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if (PageID =wpLicense) or (PageID =wpInfoBefore)or(PageID =wpUserInfo)or(PageID =wpSelectDir)or(PageID =wpSelectComponents)or(PageID =wpSelectProgramGroup)or(PageID =wpSelectTasks)or(PageID =wpReady)then
  Result:= True;
end;

Procedure CurPageChanged(CurPageID: Integer);
 begin
if CurPageID = wpWelcome then
begin
WizardForm.nextbutton.Caption:= 'Na stronę'
end;
end;

edytowany 1x, ostatnio: marcin55246 2012-08-13 01:02

marogo

2012-08-13 07:51

marogo2012-08-13 07:51

Rejestracja:prawie 17 lat
Ostatnio:14 dni

Co do przełączenia na Twoją stronę po kliknięciu przycisku "Nowy":

Kopiuj

Procedure ScrollToStrona1; 
Begin
 If WizardForm.CurPageID<=wpSelectDir then //jeśli jesteś na którejś ze stron przed Twoją stroną
   While WizardForm.CurPageID<>Strona1.ID do //pętla przewijania stron w przód aż będzie aktywna Twoja strona
     WizardForm.NextButton.OnClick(WizardForm.NextButton);
 If WizardForm.CurPageID>=wpSelectComponents then //jeśli jesteś na którejś ze stron po Twojej stronie
   While WizardForm.CurPageID<>Strona1.ID do //pętla przewijania stron w tył aż będzie aktywna Twoja strona
     WizardForm.BackButton.OnClick(WizardForm.BackButton);
End;

procedure NowyButtonOnClick(Sender: TObject); //przechwycenie kliknięcia przycisku "Nowy"
begin 
  BtnNowyClicked:=true; //włączenie aktywności funkcji ShouldSkipPage (pominięcie 1 strony i wyboru folderu)
  ScrollToStrona1; //przewinięcie na stronę Strona1
end;

marcin55246 2012-08-13 11:37

Dokładnie oto mi chodziło. Dziękuję ;)

Liczba odpowiedzi na stronę

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.

Utwórz konto

ShouldSkipPage Inno Setup

marcin55246

flowCRANE

marcin55246

marogo

marcin55246

marogo

React Frontend Developer

PHP + Codeigniter 4 programista, aplikacja do fakturowania

DevOps Engineer - migracja serwerów (Kubernetes,Docker,RoR)

Praca dla programistów

Forum dyskusyjne

Sprawy administracyjne

O nas

Skontaktuj się z nami