paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 22:36:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: designer: fixed Change class dialog

Browse Source 
git-svn-id: trunk@50351 -
This commit is contained in:
mattias 2015-11-16 22:42:34 +00:00
parent ec191f98de
commit bf5fbcb10a
2 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
designer/changeclassdialog.lfm
View File

@ -5,7 +5,6 @@ object ChangeClassDlg: TChangeClassDlg
Width = 470
ActiveControl = NewClassComboBox
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsToolWindow
Caption = 'ChangeClassDlg'
ClientHeight = 350
ClientWidth = 470
@ -14,13 +13,13 @@ object ChangeClassDlg: TChangeClassDlg
LCLVersion = '1.5'
object OldGroupBox: TGroupBox
Left = 6
Height = 299
Height = 304
Top = 6
Width = 228
Align = alClient
BorderSpacing.Around = 6
Caption = 'OldGroupBox'
ClientHeight = 280
ClientHeight = 287
ClientWidth = 224
TabOrder = 0
object OldClassLabel: TLabel
@ -29,7 +28,7 @@ object ChangeClassDlg: TChangeClassDlg
Left = 6
Height = 15
Top = 6
Width = 101
Width = 83
BorderSpacing.Around = 6
Caption = 'OldClassLabel'
Font.Style = [fsBold]
@ -45,25 +44,27 @@ object ChangeClassDlg: TChangeClassDlg
AnchorSideBottom.Control = OldGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 247
Height = 254
Top = 27
Width = 212
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ClickOnSelChange = False
ItemHeight = 0
ScrollWidth = 210
TabOrder = 0
TopIndex = -1
end
end
object NewGroupBox: TGroupBox
Left = 240
Height = 299
Height = 304
Top = 6
Width = 224
Align = alRight
BorderSpacing.Around = 6
Caption = 'NewGroupBox'
ClientHeight = 280
ClientHeight = 287
ClientWidth = 220
TabOrder = 1
object NewClassComboBox: TComboBox
@ -72,7 +73,7 @@ object ChangeClassDlg: TChangeClassDlg
AnchorSideRight.Control = NewGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 25
Height = 27
Top = 2
Width = 208
Anchors = [akTop, akLeft, akRight]
@ -96,8 +97,8 @@ object ChangeClassDlg: TChangeClassDlg
AnchorSideBottom.Control = NewGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 244
Top = 30
Height = 249
Top = 32
Width = 208
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
@ -106,13 +107,15 @@ object ChangeClassDlg: TChangeClassDlg
BorderSpacing.Bottom = 6
ClickOnSelChange = False
ItemHeight = 0
ScrollWidth = 206
TabOrder = 1
TopIndex = -1
end
end
object BtnPanel: TButtonPanel
Left = 6
Height = 33
Top = 311
Height = 28
Top = 316
Width = 458
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True

1
designer/changeclassdialog.pas
View File

@ -78,7 +78,6 @@ type
property NewClass: TClass read FNewClass write SetNewClass;
end;
function ShowChangeClassDialog(ADesigner: TIDesigner;
APersistent: TPersistent): TModalResult;
function ChangePersistentClass(ADesigner: TIDesigner;