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

Designer, ChangeClassDialog: add space before class name + some layout fine-tuning.

Browse Source 
git-svn-id: trunk@44809 -
This commit is contained in:
juha 2014-04-26 11:55:39 +00:00
parent 72678bdaef
commit f8592da384
2 changed files with 34 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
designer/changeclassdialog.lfm
View File

@ -9,27 +9,25 @@ object ChangeClassDlg: TChangeClassDlg
ClientHeight = 350
ClientWidth = 470
OnCreate = ChangeClassDlgCreate
LCLVersion = '0.9.29'
LCLVersion = '1.3'
object OldGroupBox: TGroupBox
Left = 6
Height = 306
Height = 299
Top = 6
Width = 228
Align = alClient
BorderSpacing.Around = 6
Caption = 'OldGroupBox'
ClientHeight = 288
ClientHeight = 280
ClientWidth = 224
TabOrder = 0
object OldClassLabel: TLabel
AnchorSideLeft.Control = OldGroupBox
AnchorSideTop.Control = OldGroupBox
Left = 6
Height = 14
Top = 9
Width = 78
BorderSpacing.Top = 3
BorderSpacing.Bottom = 4
Height = 15
Top = 6
Width = 101
BorderSpacing.Around = 6
Caption = 'OldClassLabel'
Font.Style = [fsBold]
@ -45,8 +43,8 @@ object ChangeClassDlg: TChangeClassDlg
AnchorSideBottom.Control = OldGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 249
Top = 33
Height = 247
Top = 27
Width = 212
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
@ -57,13 +55,13 @@ object ChangeClassDlg: TChangeClassDlg
end
object NewGroupBox: TGroupBox
Left = 240
Height = 306
Height = 299
Top = 6
Width = 224
Align = alRight
BorderSpacing.Around = 6
Caption = 'NewGroupBox'
ClientHeight = 288
ClientHeight = 280
ClientWidth = 220
TabOrder = 1
object NewClassComboBox: TComboBox
@ -72,14 +70,16 @@ object ChangeClassDlg: TChangeClassDlg
AnchorSideRight.Control = NewGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 21
Top = 6
Height = 25
Top = 2
Width = 208
Anchors = [akTop, akLeft, akRight]
AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Around = 6
ItemHeight = 13
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Right = 6
ItemHeight = 0
OnEditingDone = NewClassComboBoxEditingDone
OnKeyUp = NewClassComboBoxKeyUp
TabOrder = 0
@ -94,11 +94,14 @@ object ChangeClassDlg: TChangeClassDlg
AnchorSideBottom.Control = NewGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 249
Top = 33
Height = 244
Top = 30
Width = 208
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ClickOnSelChange = False
ItemHeight = 0
TabOrder = 1
@ -106,9 +109,17 @@ object ChangeClassDlg: TChangeClassDlg
end
object BtnPanel: TButtonPanel
Left = 6
Height = 26
Top = 318
Height = 33
Top = 311
Width = 458
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 2
ShowButtons = [pbOK, pbCancel]
ShowBevel = False

5
designer/changeclassdialog.pas
View File

@ -273,7 +273,7 @@ begin
end;
PersistentName:=APersistent.ClassName;
if APersistent is TComponent then begin
PersistentName:=TComponent(APersistent).Name+':'+PersistentName;
PersistentName:=TComponent(APersistent).Name+': '+PersistentName;
end else begin
ShowAbortMessage(lisCanOnlyChangeTheClassOfTComponents);
exit;
@ -340,8 +340,7 @@ begin
FillAncestorListBox(ThePersistent.ClassType,OldAncestorsListBox);
if ThePersistent<>nil then begin
if ThePersistent is TComponent then
OldClassLabel.Caption:=
TComponent(ThePersistent).Name+':'+ThePersistent.ClassName
OldClassLabel.Caption:=TComponent(ThePersistent).Name+': '+ThePersistent.ClassName
else
OldClassLabel.Caption:=ThePersistent.ClassName;
Caption:=Format(lisCCDChangeClassOf, [OldClassLabel.Caption]);