paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 15:58:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codetools defines editor: clean up

Browse Source 
git-svn-id: trunk@49790 -
This commit is contained in:
mattias 2015-09-08 22:06:39 +00:00
parent b29be5112c
commit 95f4ac00c3
2 changed files with 23 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
ide/codetoolsdefines.lfm
View File

@ -5,14 +5,14 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Width = 544 Width = 544
BorderIcons = [biSystemMenu, biMaximize] BorderIcons = [biSystemMenu, biMaximize]
Caption = 'CodeToolsDefinesEditor' Caption = 'CodeToolsDefinesEditor'
ClientHeight = 500 ClientHeight = 479
ClientWidth = 544 ClientWidth = 544
KeyPreview = True KeyPreview = True
Menu = MainMenu Menu = MainMenu
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = CodeToolsDefinesEditorKeyDown OnKeyDown = CodeToolsDefinesEditorKeyDown
OnKeyUp = CodeToolsDefinesEditorKeyUp OnKeyUp = CodeToolsDefinesEditorKeyUp
OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.5' LCLVersion = '1.5'
object DefineTreeView: TTreeView object DefineTreeView: TTreeView
@ -22,6 +22,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
Width = 532 Width = 532
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
DefaultItemHeight = 18
ReadOnly = True ReadOnly = True
TabOrder = 0 TabOrder = 0
OnSelectionChanged = DefineTreeViewSelectionChanged OnSelectionChanged = DefineTreeViewSelectionChanged
@ -29,36 +30,36 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object SelectedItemGroupBox: TGroupBox object SelectedItemGroupBox: TGroupBox
Left = 6 Left = 6
Height = 313 Height = 293
Top = 146 Top = 146
Width = 532 Width = 532
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'SelectedItemGroupBox' Caption = 'SelectedItemGroupBox'
ClientHeight = 294 ClientHeight = 276
ClientWidth = 528 ClientWidth = 528
TabOrder = 2 TabOrder = 2
object NameLabel: TLabel object NameLabel: TLabel
Left = 10 Left = 10
Height = 17 Height = 15
Top = 26 Top = 26
Width = 77 Width = 61
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'NameLabel' Caption = 'NameLabel'
ParentColor = False ParentColor = False
end end
object DescriptionLabel: TLabel object DescriptionLabel: TLabel
Left = 10 Left = 10
Height = 17 Height = 15
Top = 53 Top = 53
Width = 115 Width = 93
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'DescriptionLabel' Caption = 'DescriptionLabel'
ParentColor = False ParentColor = False
end end
object TypeLabel: TLabel object TypeLabel: TLabel
Left = 6 Left = 6
Height = 17 Height = 15
Top = 6 Top = 6
Width = 516 Width = 516
Align = alTop Align = alTop
@ -68,16 +69,16 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object VariableLabel: TLabel object VariableLabel: TLabel
Left = 10 Left = 10
Height = 17 Height = 15
Top = 78 Top = 78
Width = 94 Width = 74
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'VariableLabel' Caption = 'VariableLabel'
ParentColor = False ParentColor = False
end end
object ValueNoteBook: TPageControl object ValueNoteBook: TPageControl
Left = 6 Left = 6
Height = 182 Height = 164
Top = 106 Top = 106
Width = 516 Width = 516
ActivePage = ValueAsTextPage ActivePage = ValueAsTextPage
@ -89,11 +90,11 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
OnChange = ValueNoteBookPageChanged OnChange = ValueNoteBookPageChanged
object ValueAsTextPage: TTabSheet object ValueAsTextPage: TTabSheet
Caption = 'ValueAsTextPage' Caption = 'ValueAsTextPage'
ClientHeight = 151 ClientHeight = 135
ClientWidth = 512 ClientWidth = 512
inline ValueAsTextSynEdit: TSynEdit inline ValueAsTextSynEdit: TSynEdit
Left = 0 Left = 0
Height = 151 Height = 135
Top = 0 Top = 0
Width = 512 Width = 512
Align = alClient Align = alClient
@ -620,7 +621,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object ValueAsPathsPage: TTabSheet object ValueAsPathsPage: TTabSheet
Caption = 'ValueAsPathsPage' Caption = 'ValueAsPathsPage'
ClientHeight = 151 ClientHeight = 135
ClientWidth = 512 ClientWidth = 512
inline ValueAsFilePathsSynEdit: TSynEdit inline ValueAsFilePathsSynEdit: TSynEdit
AnchorSideRight.Control = DeleteFilePathBitBtn AnchorSideRight.Control = DeleteFilePathBitBtn
@ -1195,7 +1196,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object NameEdit: TEdit object NameEdit: TEdit
Left = 128 Left = 128
Height = 27 Height = 25
Top = 23 Top = 23
Width = 394 Width = 394
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -1205,7 +1206,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object DescriptionEdit: TEdit object DescriptionEdit: TEdit
Left = 128 Left = 128
Height = 27 Height = 25
Top = 50 Top = 50
Width = 394 Width = 394
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -1215,7 +1216,7 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object VariableEdit: TEdit object VariableEdit: TEdit
Left = 128 Left = 128
Height = 27 Height = 25
Top = 76 Top = 76
Width = 394 Width = 394
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -1234,8 +1235,8 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 29 Height = 28
Top = 465 Top = 445
Width = 532 Width = 532
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True

4
ide/codetoolsdefines.pas
View File

@ -180,7 +180,7 @@ type
Shift: TShiftState); Shift: TShiftState);
procedure DefineTreeViewSelectionChanged(Sender: TObject); procedure DefineTreeViewSelectionChanged(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure OKButtonClick(Sender: TObject); procedure OKButtonClick(Sender: TObject);
// value notebook // value notebook
@ -297,7 +297,7 @@ begin
IDEDialogLayoutList.SaveLayout(Self); IDEDialogLayoutList.SaveLayout(Self);
end; end;
procedure TCodeToolsDefinesEditor.FormShow(Sender: TObject); procedure TCodeToolsDefinesEditor.FormCreate(Sender: TObject);
begin begin
ButtonPanel1.OKButton.Caption:= lisOk; ButtonPanel1.OKButton.Caption:= lisOk;
ButtonPanel1.CancelButton.Caption:= lisCancel; ButtonPanel1.CancelButton.Caption:= lisCancel;