pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix TJvWizardCustomPage.Done and TJvWizardCustomPage.Enter not calling FOnPage or FOnPageEnter, respectively (https://sourceforge.net/p/lazarus-ccr/bugs/39/).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7150 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-09-14 09:57:58 +00:00
parent 71b069b35b
commit ba972e4bee
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/jvcllaz/run/JvWizard/jvwizard.pas
View File

@ -2501,13 +2501,13 @@ end;
procedure TJvWizardCustomPage.Done; procedure TJvWizardCustomPage.Done;
begin begin
Refresh; // !!! Force the page to repaint itself immediately. Refresh; // !!! Force the page to repaint itself immediately.
if Assigned(FOnPage) and Enabled and not ([csDesigning, csDestroying] * ComponentState = []) then if Assigned(FOnPage) and Enabled and ([csDesigning, csDestroying] * ComponentState = []) then
FOnPage(Self); FOnPage(Self);
end; end;
procedure TJvWizardCustomPage.Enter(const FromPage: TJvWizardCustomPage); procedure TJvWizardCustomPage.Enter(const FromPage: TJvWizardCustomPage);
begin begin
if Assigned(FOnEnterPage) and Enabled and not ([csDesigning, csDestroying] * ComponentState = []) then if Assigned(FOnEnterPage) and Enabled and ([csDesigning, csDestroying] * ComponentState = []) then
FOnEnterPage(Self, FromPage); FOnEnterPage(Self, FromPage);
end; end;