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

ide: change class dialog: simplify look, apply changes on return key press

Browse Source 
git-svn-id: trunk@22632 -
This commit is contained in:
paul 2009-11-17 03:14:40 +00:00
parent d3644a32b1
commit f8141283a2
3 changed files with 94 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
designer/changeclassdialog.lfm
View File

@ -3,14 +3,13 @@ object ChangeClassDlg: TChangeClassDlg
Height = 350
Top = 163
Width = 470
ActiveControl = OldAncestorsListBox
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsToolWindow
Caption = 'ChangeClassDlg'
ClientHeight = 350
ClientWidth = 470
OnCreate = ChangeClassDlgCreate
LCLVersion = '0.9.27'
LCLVersion = '0.9.29'
object OldGroupBox: TGroupBox
Left = 6
Height = 306
@ -23,37 +22,37 @@ object ChangeClassDlg: TChangeClassDlg
ClientWidth = 224
TabOrder = 0
object OldClassLabel: TLabel
AnchorSideLeft.Control = OldGroupBox
AnchorSideTop.Control = OldGroupBox
Left = 6
Height = 14
Top = 2
Width = 67
Top = 9
Width = 78
BorderSpacing.Top = 3
BorderSpacing.Bottom = 4
BorderSpacing.Around = 6
Caption = 'OldClassLabel'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object OldAncestorGroupBox: TGroupBox
object OldAncestorsListBox: TListBox
AnchorSideLeft.Control = OldGroupBox
AnchorSideTop.Control = OldClassLabel
AnchorSideTop.Side = asrBottom
Left = 0
Height = 266
Top = 22
Width = 224
Align = alBottom
AnchorSideRight.Control = OldGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = OldGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 249
Top = 33
Width = 212
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6
Caption = 'OldAncestorGroupBox'
ClientHeight = 248
ClientWidth = 220
BorderSpacing.Around = 6
ClickOnSelChange = False
ItemHeight = 0
TabOrder = 0
object OldAncestorsListBox: TListBox
Left = 0
Height = 248
Top = 0
Width = 220
Align = alClient
ClickOnSelChange = False
ItemHeight = 0
TabOrder = 0
end
end
end
object NewGroupBox: TGroupBox
@ -68,40 +67,41 @@ object ChangeClassDlg: TChangeClassDlg
ClientWidth = 220
TabOrder = 1
object NewClassComboBox: TComboBox
AnchorSideLeft.Control = NewGroupBox
AnchorSideTop.Control = NewGroupBox
AnchorSideRight.Control = NewGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 21
Top = 6
Width = 208
Align = alTop
Anchors = [akTop, akLeft, akRight]
AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Around = 6
ItemHeight = 13
ItemWidth = 0
OnEditingDone = NewClassComboBoxEditingDone
OnKeyUp = NewClassComboBoxKeyUp
TabOrder = 0
Text = 'NewClassComboBox'
end
object NewAncestorGroupBox: TGroupBox
Left = 0
Height = 255
object NewAncestorsListBox: TListBox
AnchorSideLeft.Control = NewGroupBox
AnchorSideTop.Control = NewClassComboBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = NewGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = NewGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 249
Top = 33
Width = 220
Align = alClient
Caption = 'NewAncestorGroupBox'
ClientHeight = 237
ClientWidth = 216
Width = 208
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ClickOnSelChange = False
ItemHeight = 0
TabOrder = 1
object NewAncestorsListBox: TListBox
Left = 0
Height = 237
Top = 0
Width = 216
Align = alClient
ClickOnSelChange = False
ItemHeight = 0
TabOrder = 0
end
end
end
object BtnPanel: TButtonPanel

73
designer/changeclassdialog.lrs
View File

@ -2,37 +2,44 @@
LazarusResources.Add('TChangeClassDlg','FORMDATA',[
'TPF0'#15'TChangeClassDlg'#14'ChangeClassDlg'#4'Left'#3'#'#1#6'Height'#3'^'#1
+#3'Top'#3#163#0#5'Width'#3#214#1#13'ActiveControl'#7#19'OldAncestorsListBox'
+#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7#12'b'
+'sToolWindow'#7'Caption'#6#14'ChangeClassDlg'#12'ClientHeight'#3'^'#1#11'Cli'
+'entWidth'#3#214#1#8'OnCreate'#7#20'ChangeClassDlgCreate'#10'LCLVersion'#6#6
+'0.9.27'#0#9'TGroupBox'#11'OldGroupBox'#4'Left'#2#6#6'Height'#3'2'#1#3'Top'#2
+#6#5'Width'#3#228#0#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Ca'
+'ption'#6#11'OldGroupBox'#12'ClientHeight'#3' '#1#11'ClientWidth'#3#224#0#8
+'TabOrder'#2#0#0#6'TLabel'#13'OldClassLabel'#4'Left'#2#6#6'Height'#2#14#3'To'
+'p'#2#2#5'Width'#2'C'#7'Caption'#6#13'OldClassLabel'#11'ParentColor'#8#0#0#9
+'TGroupBox'#19'OldAncestorGroupBox'#21'AnchorSideTop.Control'#7#13'OldClassL'
+'abel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#10#1#3
+'Top'#2#22#5'Width'#3#224#0#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6
+'akLeft'#7'akRight'#8'akBottom'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#19
+'OldAncestorGroupBox'#12'ClientHeight'#3#248#0#11'ClientWidth'#3#220#0#8'Tab'
+'Order'#2#0#0#8'TListBox'#19'OldAncestorsListBox'#4'Left'#2#0#6'Height'#3#248
+#0#3'Top'#2#0#5'Width'#3#220#0#5'Align'#7#8'alClient'#16'ClickOnSelChange'#8
+#10'ItemHeight'#2#0#8'TabOrder'#2#0#0#0#0#0#9'TGroupBox'#11'NewGroupBox'#4'L'
+'eft'#3#240#0#6'Height'#3'2'#1#3'Top'#2#6#5'Width'#3#224#0#5'Align'#7#7'alRi'
+'ght'#20'BorderSpacing.Around'#2#6#7'Caption'#6#11'NewGroupBox'#12'ClientHei'
+'ght'#3' '#1#11'ClientWidth'#3#220#0#8'TabOrder'#2#1#0#9'TComboBox'#16'NewCl'
+'assComboBox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#6#5'Width'#3#208#0#5'Align'
+#7#5'alTop'#12'AutoComplete'#9#16'AutoCompleteText'#11#12'cbactEnabled'#22'c'
+'bactEndOfLineComplete'#20'cbactSearchAscending'#0#20'BorderSpacing.Around'#2
+#6#10'ItemHeight'#2#13#9'ItemWidth'#2#0#13'OnEditingDone'#7#27'NewClassCombo'
+'BoxEditingDone'#8'TabOrder'#2#0#4'Text'#6#16'NewClassComboBox'#0#0#9'TGroup'
+'Box'#19'NewAncestorGroupBox'#4'Left'#2#0#6'Height'#3#255#0#3'Top'#2'!'#5'Wi'
+'dth'#3#220#0#5'Align'#7#8'alClient'#7'Caption'#6#19'NewAncestorGroupBox'#12
+'ClientHeight'#3#237#0#11'ClientWidth'#3#216#0#8'TabOrder'#2#1#0#8'TListBox'
+#19'NewAncestorsListBox'#4'Left'#2#0#6'Height'#3#237#0#3'Top'#2#0#5'Width'#3
+#216#0#5'Align'#7#8'alClient'#16'ClickOnSelChange'#8#10'ItemHeight'#2#0#8'Ta'
+'bOrder'#2#0#0#0#0#0#12'TButtonPanel'#8'BtnPanel'#4'Left'#2#6#6'Height'#2#26
+#3'Top'#3'>'#1#5'Width'#3#202#1#8'TabOrder'#2#2#11'ShowButtons'#11#4'pbOK'#8
+'pbCancel'#0#9'ShowBevel'#8#0#0#0
+#3'Top'#3#163#0#5'Width'#3#214#1#11'BorderIcons'#11#12'biSystemMenu'#10'biMi'
+'nimize'#0#11'BorderStyle'#7#12'bsToolWindow'#7'Caption'#6#14'ChangeClassDlg'
+#12'ClientHeight'#3'^'#1#11'ClientWidth'#3#214#1#8'OnCreate'#7#20'ChangeClas'
+'sDlgCreate'#10'LCLVersion'#6#6'0.9.29'#0#9'TGroupBox'#11'OldGroupBox'#4'Lef'
+'t'#2#6#6'Height'#3'2'#1#3'Top'#2#6#5'Width'#3#228#0#5'Align'#7#8'alClient'
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#11'OldGroupBox'#12'ClientHeight'#3
+' '#1#11'ClientWidth'#3#224#0#8'TabOrder'#2#0#0#6'TLabel'#13'OldClassLabel'
+#22'AnchorSideLeft.Control'#7#11'OldGroupBox'#21'AnchorSideTop.Control'#7#11
+'OldGroupBox'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#9#5'Width'#2'N'#17'BorderS'
+'pacing.Top'#2#3#20'BorderSpacing.Bottom'#2#4#20'BorderSpacing.Around'#2#6#7
+'Caption'#6#13'OldClassLabel'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8
+#10'ParentFont'#8#0#0#8'TListBox'#19'OldAncestorsListBox'#22'AnchorSideLeft.'
+'Control'#7#11'OldGroupBox'#21'AnchorSideTop.Control'#7#13'OldClassLabel'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#11'OldGrou'
+'pBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7
+#11'OldGroupBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Heig'
+'ht'#3#249#0#3'Top'#2'!'#5'Width'#3#212#0#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#16'ClickOnSelChange'#8
+#10'ItemHeight'#2#0#8'TabOrder'#2#0#0#0#0#9'TGroupBox'#11'NewGroupBox'#4'Lef'
+'t'#3#240#0#6'Height'#3'2'#1#3'Top'#2#6#5'Width'#3#224#0#5'Align'#7#7'alRigh'
+'t'#20'BorderSpacing.Around'#2#6#7'Caption'#6#11'NewGroupBox'#12'ClientHeigh'
+'t'#3' '#1#11'ClientWidth'#3#220#0#8'TabOrder'#2#1#0#9'TComboBox'#16'NewClas'
+'sComboBox'#22'AnchorSideLeft.Control'#7#11'NewGroupBox'#21'AnchorSideTop.Co'
+'ntrol'#7#11'NewGroupBox'#23'AnchorSideRight.Control'#7#11'NewGroupBox'#20'A'
+'nchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#6#5
+'Width'#3#208#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#12'AutoComplet'
+'e'#9#16'AutoCompleteText'#11#12'cbactEnabled'#22'cbactEndOfLineComplete'#20
+'cbactSearchAscending'#0#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#13
+'OnEditingDone'#7#27'NewClassComboBoxEditingDone'#7'OnKeyUp'#7#21'NewClassCo'
+'mboBoxKeyUp'#8'TabOrder'#2#0#4'Text'#6#16'NewClassComboBox'#0#0#8'TListBox'
+#19'NewAncestorsListBox'#22'AnchorSideLeft.Control'#7#11'NewGroupBox'#21'Anc'
+'horSideTop.Control'#7#16'NewClassComboBox'#18'AnchorSideTop.Side'#7#9'asrBo'
+'ttom'#23'AnchorSideRight.Control'#7#11'NewGroupBox'#20'AnchorSideRight.Side'
+#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#11'NewGroupBox'#21'AnchorSide'
+'Bottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#249#0#3'Top'#2'!'#5'Wid'
+'th'#3#208#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'Bo'
+'rderSpacing.Around'#2#6#16'ClickOnSelChange'#8#10'ItemHeight'#2#0#8'TabOrde'
+'r'#2#1#0#0#0#12'TButtonPanel'#8'BtnPanel'#4'Left'#2#6#6'Height'#2#26#3'Top'
+#3'>'#1#5'Width'#3#202#1#8'TabOrder'#2#2#11'ShowButtons'#11#4'pbOK'#8'pbCanc'
+'el'#0#9'ShowBevel'#8#0#0#0
]);

15
designer/changeclassdialog.pas
View File

@ -36,7 +36,7 @@ interface
uses
Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, Buttons, AVGLvlTree, LFMTrees, CodeCache, CodeToolManager,
StdCtrls, Buttons, AVGLvlTree, LFMTrees, CodeCache, CodeToolManager, LCLType,
// IDE
SrcEditorIntf, PropEdits, LazarusIDEStrConsts, ComponentReg, ComponentEditors,
FormEditingIntf, CheckLFMDlg, Project, MainIntf, ExtCtrls, ButtonPanel;
@ -48,15 +48,15 @@ type
TChangeClassDlg = class(TForm)
BtnPanel: TButtonPanel;
NewClassComboBox: TComboBox;
NewAncestorGroupBox: TGroupBox;
NewAncestorsListBox: TListBox;
OldAncestorGroupBox: TGroupBox;
OldAncestorsListBox: TListBox;
OldClassLabel: TLabel;
NewGroupBox: TGroupBox;
OldGroupBox: TGroupBox;
procedure ChangeClassDlgCreate(Sender: TObject);
procedure NewClassComboBoxEditingDone(Sender: TObject);
procedure NewClassComboBoxKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
FClasses: TAvgLvlTree;
FNewClass: TClass;
@ -301,8 +301,6 @@ procedure TChangeClassDlg.ChangeClassDlgCreate(Sender: TObject);
begin
OldGroupBox.Caption:=lisOldClass;
NewGroupBox.Caption:=lisNewClass;
OldAncestorGroupBox.Caption:=lisOldAncestors;
NewAncestorGroupBox.Caption:=lisNewAncestors;
end;
procedure TChangeClassDlg.NewClassComboBoxEditingDone(Sender: TObject);
@ -310,6 +308,13 @@ begin
UpdateNewInfo;
end;
procedure TChangeClassDlg.NewClassComboBoxKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
UpdateNewInfo;
end;
procedure TChangeClassDlg.SetThePersistent(const AValue: TPersistent);
begin
if FThePersistent=AValue then exit;