From 9a22507cdbc0c4bcf03ed686b2d0fc0faced6be2 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 16 Mar 2019 11:50:16 +0000
Subject: [PATCH] IDE: run params dlg: update preview on switch tab

git-svn-id: trunk@60693 -
---
 ide/runparamsopts.lfm | 1 +
 ide/runparamsopts.pas | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/ide/runparamsopts.lfm b/ide/runparamsopts.lfm
index 163806b9be..d2e97a0c40 100644
--- a/ide/runparamsopts.lfm
+++ b/ide/runparamsopts.lfm
@@ -21,6 +21,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
     BorderSpacing.Bottom = 6
     TabIndex = 0
     TabOrder = 1
+    OnChange = NotebookChange
     object GeneralPage: TTabSheet
       Caption = 'GeneralPage'
       ClientHeight = 367
diff --git a/ide/runparamsopts.pas b/ide/runparamsopts.pas
index 3dc6343660..a29fe90bf5 100644
--- a/ide/runparamsopts.pas
+++ b/ide/runparamsopts.pas
@@ -162,6 +162,7 @@ type
     procedure FormCreate(Sender: TObject);
     procedure HelpButtonClick(Sender: TObject);
     procedure ModesComboBoxChange(Sender: TObject);
+    procedure NotebookChange(Sender: TObject);
     procedure OkButtonClick(Sender: TObject);
     procedure HostApplicationBrowseBtnClick(Sender: TObject);
     procedure NewModeButtonClick(Sender: TObject);
@@ -953,6 +954,11 @@ begin
     LoadFromOptionsMode(SelectedMode);
 end;
 
+procedure TRunParamsOptsDlg.NotebookChange(Sender: TObject);
+begin
+  UpdatePreview;
+end;
+
 procedure TRunParamsOptsDlg.LoadFromOptionsMode(const AMode: TRunParamsOptionsMode);
 var
   List: THistoryList;