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

5
designer/changeclassdialog.pas
View File

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