paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 18:00:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: run parameters: replaced TNoteBook with TPageControl

Browse Source 
git-svn-id: trunk@27352 -
This commit is contained in:
mattias 2010-09-13 20:46:23 +00:00
parent 73949a5ee4
commit 628fb8fa0f
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/runparamsopts.lfm
View File

@ -9,16 +9,15 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
ClientWidth = 500
Position = poScreenCenter
LCLVersion = '0.9.29'
object Notebook: TNotebook
object Notebook: TPageControl
Left = 0
Height = 463
Top = 0
Width = 500
Align = alClient
BorderSpacing.Bottom = 6
PageIndex = 1
TabOrder = 0
object GeneralPage: TPage
object GeneralPage: TTabSheet
Caption = 'GeneralPage'
ClientWidth = 498
ClientHeight = 432
@ -210,7 +209,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end
end
end
object EnvVarsPage: TPage
object EnvVarsPage: TTabSheet
Caption = 'EnvVarsPage'
ClientWidth = 492
ClientHeight = 437

6
ide/runparamsopts.pas
View File

@ -139,9 +139,9 @@ type
SystemVariablesGroupBox: TGroupBox;
SystemVariablesListView: TListView;
UserOverridesListView: TListView;
Notebook: TNotebook;
GeneralPage: TPage;
EnvVarsPage: TPage;
Notebook: TPageControl;
GeneralPage: TTabSheet;
EnvVarsPage: TTabSheet;
procedure EnvVarsPageResize(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure OkButtonClick(Sender: TObject);