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

jvcllaz: Fix TJvWizard crashing when several RouteMaps are available.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6998 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-06-03 22:55:30 +00:00
parent 77e6fbbd04
commit 6a7d2e10fa
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/jvcllaz/run/JvWizard/jvwizardroutemapsteps.pas
View File

@ -249,6 +249,9 @@ var
S: string; S: string;
LDrawProperties: Cardinal; LDrawProperties: Cardinal;
begin begin
if PageIndex = -1 then
exit;
LRect := ClientRect; LRect := ClientRect;
TotalPageCount := DetectPageCount(ActivePageIndex); TotalPageCount := DetectPageCount(ActivePageIndex);
Canvas.Brush.Color := Color; Canvas.Brush.Color := Color;