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

1
designer/changeclassdialog.pas
View File

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