paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf, String Grid Editor dialog: removed unused label

Browse Source
This commit is contained in:
Maxim Ganetsky 2022-03-22 01:31:01 +03:00
parent 5d06e0f042
commit 55e4cf3288
2 changed files with 98 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

213
components/ideintf/lazstringgridedit.lfm
View File

@ -1,56 +1,39 @@
object StringGridEditorDlg: TStringGridEditorDlg object StringGridEditorDlg: TStringGridEditorDlg
Left = 527 Left = 527
Height = 433 Height = 541
Top = 240 Top = 240
Width = 644 Width = 805
Caption = 'StringGridEditorDlg' Caption = 'StringGridEditorDlg'
ClientHeight = 433 ClientHeight = 541
ClientWidth = 644 ClientWidth = 805
Constraints.MinHeight = 270 Constraints.MinHeight = 338
DesignTimePPI = 120
OnActivate = FormActivate OnActivate = FormActivate
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0'
object GroupBox: TGroupBox object GroupBox: TGroupBox
AnchorSideBottom.Control = BtnOK AnchorSideBottom.Control = BtnOK
Left = 6 Left = 8
Height = 383 Height = 479
Top = 6 Top = 8
Width = 632 Width = 789
Align = alClient Align = alClient
Anchors = [akRight] Anchors = [akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 8
Caption = 'String Grid' Caption = 'String Grid'
ClientHeight = 363 ClientHeight = 454
ClientWidth = 628 ClientWidth = 785
TabOrder = 0 TabOrder = 0
object LabelMove: TLabel
AnchorSideLeft.Control = StringGrid
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox
AnchorSideRight.Side = asrBottom
Left = 628
Height = 10000
Top = 187
Width = 0
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
Caption = 'Move Cols/Rows'
ParentColor = False
WordWrap = True
end
object StringGrid: TStringGrid object StringGrid: TStringGrid
AnchorSideRight.Control = LoadSavePanel AnchorSideRight.Control = LoadSavePanel
Left = 6 Left = 8
Height = 317 Height = 396
Top = 40 Top = 50
Width = 616 Width = 769
Align = alLeft Align = alLeft
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 8
FixedCols = 0 FixedCols = 0
FixedRows = 0 FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goSmoothScroll] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goSmoothScroll]
@ -61,7 +44,7 @@ object StringGridEditorDlg: TStringGridEditorDlg
AnchorSideTop.Control = GroupBox AnchorSideTop.Control = GroupBox
AnchorSideRight.Control = GroupBox AnchorSideRight.Control = GroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 628 Left = 785
Height = 0 Height = 0
Top = 0 Top = 0
Width = 0 Width = 0
@ -72,21 +55,21 @@ object StringGridEditorDlg: TStringGridEditorDlg
end end
object PanelEdit: TPanel object PanelEdit: TPanel
Left = 0 Left = 0
Height = 34 Height = 42
Top = 0 Top = 0
Width = 628 Width = 785
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 34 ClientHeight = 42
ClientWidth = 628 ClientWidth = 785
TabOrder = 2 TabOrder = 2
object BtnAddRow: TSpeedButton object BtnAddRow: TSpeedButton
Left = 6 Left = 8
Height = 34 Height = 42
Top = 0 Top = 0
Width = 34 Width = 42
Align = alLeft Align = alLeft
BorderSpacing.Left = 6 BorderSpacing.Left = 8
Glyph.Data = { Glyph.Data = {
36090000424D3609000000000000360000002800000018000000180000000100 36090000424D3609000000000000360000002800000018000000180000000100
2000000000000009000064000000640000000000000000000000000000000000 2000000000000009000064000000640000000000000000000000000000000000
@ -168,10 +151,10 @@ object StringGridEditorDlg: TStringGridEditorDlg
ParentShowHint = False ParentShowHint = False
end end
object BtnDelRow: TSpeedButton object BtnDelRow: TSpeedButton
Left = 40 Left = 50
Height = 34 Height = 42
Top = 0 Top = 0
Width = 34 Width = 42
Align = alLeft Align = alLeft
Glyph.Data = { Glyph.Data = {
36090000424D3609000000000000360000002800000018000000180000000100 36090000424D3609000000000000360000002800000018000000180000000100
@ -254,10 +237,10 @@ object StringGridEditorDlg: TStringGridEditorDlg
ParentShowHint = False ParentShowHint = False
end end
object BtnRowUp: TSpeedButton object BtnRowUp: TSpeedButton
Left = 76 Left = 94
Height = 34 Height = 42
Top = 0 Top = 0
Width = 34 Width = 42
Align = alLeft Align = alLeft
BorderSpacing.Left = 2 BorderSpacing.Left = 2
Glyph.Data = { Glyph.Data = {
@ -341,10 +324,10 @@ object StringGridEditorDlg: TStringGridEditorDlg
ParentShowHint = False ParentShowHint = False
end end
object BtnRowDown: TSpeedButton object BtnRowDown: TSpeedButton
Left = 110 Left = 136
Height = 34 Height = 42
Top = 0 Top = 0
Width = 34 Width = 42
Align = alLeft Align = alLeft
Glyph.Data = { Glyph.Data = {
36090000424D3609000000000000360000002800000018000000180000000100 36090000424D3609000000000000360000002800000018000000180000000100
@ -427,12 +410,12 @@ object StringGridEditorDlg: TStringGridEditorDlg
ParentShowHint = False ParentShowHint = False
end end
object BtnAddCol: TSpeedButton object BtnAddCol: TSpeedButton
Left = 152 Left = 188
Height = 34 Height = 42
Top = 0 Top = 0
Width = 34 Width = 42
Align = alLeft Align = alLeft
BorderSpacing.Left = 8 BorderSpacing.Left = 10
Glyph.Data = { Glyph.Data = {
36090000424D3609000000000000360000002800000018000000180000000100 36090000424D3609000000000000360000002800000018000000180000000100
2000000000000009000064000000640000000000000000000000000000000000 2000000000000009000064000000640000000000000000000000000000000000
@ -514,10 +497,10 @@ object StringGridEditorDlg: TStringGridEditorDlg
ParentShowHint = False ParentShowHint = False
end end
object BtnDelCol: TSpeedButton object BtnDelCol: TSpeedButton
Left = 186 Left = 230
Height = 34 Height = 42
Top = 0 Top = 0
Width = 34 Width = 42
Align = alLeft Align = alLeft
Glyph.Data = { Glyph.Data = {
36090000424D3609000000000000360000002800000018000000180000000100 36090000424D3609000000000000360000002800000018000000180000000100
@ -600,10 +583,10 @@ object StringGridEditorDlg: TStringGridEditorDlg
ParentShowHint = False ParentShowHint = False
end end
object BtnColLeft: TSpeedButton object BtnColLeft: TSpeedButton
Left = 222 Left = 274
Height = 34 Height = 42
Top = 0 Top = 0
Width = 34 Width = 42
Align = alLeft Align = alLeft
BorderSpacing.Left = 2 BorderSpacing.Left = 2
Glyph.Data = { Glyph.Data = {
@ -687,10 +670,10 @@ object StringGridEditorDlg: TStringGridEditorDlg
ParentShowHint = False ParentShowHint = False
end end
object BtnColRight: TSpeedButton object BtnColRight: TSpeedButton
Left = 256 Left = 316
Height = 34 Height = 42
Top = 0 Top = 0
Width = 34 Width = 42
Align = alLeft Align = alLeft
Glyph.Data = { Glyph.Data = {
36090000424D3609000000000000360000002800000018000000180000000100 36090000424D3609000000000000360000002800000018000000180000000100
@ -775,40 +758,40 @@ object StringGridEditorDlg: TStringGridEditorDlg
object BtnLoad: TButton object BtnLoad: TButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 393 Left = 503
Height = 22 Height = 26
Top = 6 Top = 8
Width = 75 Width = 94
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 8
Caption = 'Load...' Caption = 'Load...'
Constraints.MinWidth = 75 Constraints.MinWidth = 94
OnClick = BtnLoadClick OnClick = BtnLoadClick
TabOrder = 0 TabOrder = 0
end end
object BtnSave: TButton object BtnSave: TButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 474 Left = 605
Height = 22 Height = 26
Top = 6 Top = 8
Width = 68 Width = 79
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 8
Caption = 'BtnSave' Caption = 'BtnSave'
OnClick = BtnSaveClick OnClick = BtnSaveClick
TabOrder = 1 TabOrder = 1
end end
object BtnClean: TButton object BtnClean: TButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 548 Left = 692
Height = 22 Height = 26
Top = 6 Top = 8
Width = 74 Width = 85
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 8
Caption = 'BtnClean' Caption = 'BtnClean'
OnClick = BtnCleanClick OnClick = BtnCleanClick
TabOrder = 2 TabOrder = 2
@ -817,70 +800,70 @@ object StringGridEditorDlg: TStringGridEditorDlg
end end
object BtnPanel: TPanel object BtnPanel: TPanel
Left = 0 Left = 0
Height = 38 Height = 46
Top = 395 Top = 495
Width = 644 Width = 805
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 38 ClientHeight = 46
ClientWidth = 644 ClientWidth = 805
TabOrder = 1 TabOrder = 1
object BtnHelp: TBitBtn object BtnHelp: TBitBtn
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 563 Left = 703
Height = 26 Height = 30
Top = 6 Top = 8
Width = 75 Width = 94
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 8
Caption = '&Help' Caption = '&Help'
Constraints.MinWidth = 75 Constraints.MinWidth = 94
Kind = bkHelp Kind = bkHelp
TabOrder = 0 TabOrder = 0
end end
object BtnApply: TBitBtn object BtnApply: TBitBtn
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 482 Left = 601
Height = 26 Height = 30
Top = 6 Top = 8
Width = 75 Width = 94
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 8
Caption = '&Apply' Caption = '&Apply'
Constraints.MinWidth = 75 Constraints.MinWidth = 94
OnClick = BtnApplyClick OnClick = BtnApplyClick
TabOrder = 1 TabOrder = 1
end end
object BtnCancel: TBitBtn object BtnCancel: TBitBtn
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 394 Left = 499
Height = 26 Height = 30
Top = 6 Top = 8
Width = 82 Width = 94
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 8
Caption = 'Cancel' Caption = 'Cancel'
Constraints.MinWidth = 75 Constraints.MinWidth = 94
Kind = bkCancel Kind = bkCancel
ModalResult = 2 ModalResult = 2
TabOrder = 2 TabOrder = 2
end end
object BtnOK: TBitBtn object BtnOK: TBitBtn
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 313 Left = 397
Height = 26 Height = 30
Top = 6 Top = 8
Width = 75 Width = 94
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 8
Caption = '&OK' Caption = '&OK'
Constraints.MinWidth = 75 Constraints.MinWidth = 94
Default = True Default = True
Kind = bkOK Kind = bkOK
ModalResult = 1 ModalResult = 1
@ -890,13 +873,13 @@ object StringGridEditorDlg: TStringGridEditorDlg
object OpenDialog: TOpenDialog object OpenDialog: TOpenDialog
Title = 'Open' Title = 'Open'
FilterIndex = 0 FilterIndex = 0
Left = 135 Left = 169
Top = 243 Top = 304
end end
object SaveDialog: TSaveDialog object SaveDialog: TSaveDialog
Title = 'Save' Title = 'Save'
FilterIndex = 0 FilterIndex = 0
Left = 176 Left = 220
Top = 243 Top = 304
end end
end end

2
components/ideintf/lazstringgridedit.pas
View File

@ -30,7 +30,6 @@ type
BtnSave: TButton; BtnSave: TButton;
BtnClean: TButton; BtnClean: TButton;
GroupBox: TGroupBox; GroupBox: TGroupBox;
LabelMove: TLabel;
OpenDialog: TOpenDialog; OpenDialog: TOpenDialog;
BtnPanel: TPanel; BtnPanel: TPanel;
LoadSavePanel: TPanel; LoadSavePanel: TPanel;
@ -108,7 +107,6 @@ begin
BtnApply.Caption := sccsSGEdtApply; BtnApply.Caption := sccsSGEdtApply;
BtnLoad.Caption := sccsSGEdtLoad; BtnLoad.Caption := sccsSGEdtLoad;
BtnSave.Caption := sccsSGEdtSave; BtnSave.Caption := sccsSGEdtSave;
LabelMove.Caption := sccsSGEdtMoveRowsCols;
BtnHelp.Caption:=cActionListEditorHelpCategory; BtnHelp.Caption:=cActionListEditorHelpCategory;
BtnCancel.Caption:=oiStdActDataSetCancel1Hint; BtnCancel.Caption:=oiStdActDataSetCancel1Hint;