mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 20:39:23 +02:00
IDE: run params dlg: update preview on switch tab
git-svn-id: trunk@60693 -
This commit is contained in:
parent
f4f3307ca9
commit
9a22507cdb
@ -21,6 +21,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
|||||||
BorderSpacing.Bottom = 6
|
BorderSpacing.Bottom = 6
|
||||||
TabIndex = 0
|
TabIndex = 0
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
OnChange = NotebookChange
|
||||||
object GeneralPage: TTabSheet
|
object GeneralPage: TTabSheet
|
||||||
Caption = 'GeneralPage'
|
Caption = 'GeneralPage'
|
||||||
ClientHeight = 367
|
ClientHeight = 367
|
||||||
|
@ -162,6 +162,7 @@ type
|
|||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure HelpButtonClick(Sender: TObject);
|
procedure HelpButtonClick(Sender: TObject);
|
||||||
procedure ModesComboBoxChange(Sender: TObject);
|
procedure ModesComboBoxChange(Sender: TObject);
|
||||||
|
procedure NotebookChange(Sender: TObject);
|
||||||
procedure OkButtonClick(Sender: TObject);
|
procedure OkButtonClick(Sender: TObject);
|
||||||
procedure HostApplicationBrowseBtnClick(Sender: TObject);
|
procedure HostApplicationBrowseBtnClick(Sender: TObject);
|
||||||
procedure NewModeButtonClick(Sender: TObject);
|
procedure NewModeButtonClick(Sender: TObject);
|
||||||
@ -953,6 +954,11 @@ begin
|
|||||||
LoadFromOptionsMode(SelectedMode);
|
LoadFromOptionsMode(SelectedMode);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TRunParamsOptsDlg.NotebookChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UpdatePreview;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TRunParamsOptsDlg.LoadFromOptionsMode(const AMode: TRunParamsOptionsMode);
|
procedure TRunParamsOptsDlg.LoadFromOptionsMode(const AMode: TRunParamsOptionsMode);
|
||||||
var
|
var
|
||||||
List: THistoryList;
|
List: THistoryList;
|
||||||
|
Loading…
Reference in New Issue
Block a user