From f0b1725ce4a673e3781b7dea26eb28ff70507a01 Mon Sep 17 00:00:00 2001 From: Roland Bengtsson Date: Fri, 6 Dec 2024 22:42:43 +0200 Subject: [PATCH] #20 Cleanup of dfm properties. --- Source/BoldAbout.dfm | 7 +- Source/BoldDbEvolutorForm.dfm | 2 - Source/BoldDerivationExpressionsEditor.dfm | 22 +- ...ExternalPersistenceHandleSQLPropEditor.dfm | 2 - Source/BoldGridRTColEditor.dfm | 6 +- Source/BoldMMTVDefGenGUI.dfm | 6 +- Source/BoldMMTVEditor.dfm | 31 ++- Source/BoldMMTVMemo.dfm | 16 +- Source/BoldNodeDescriptionEditor.dfm | 2 - Source/BoldOLLEdmmain.dfm | Bin 10156 -> 10125 bytes Source/BoldOclPropEditor.dfm | 57 ++---- Source/BoldQueryUserDlg.dfm | 2 - Source/BoldSystemDebuggerForm.dfm | 22 -- Source/BoldTypeNameEditor.dfm | 12 -- Source/BoldTypeNameSelector.dfm | 2 - Source/BoldUMLAddTV.dfm | 5 +- Source/BoldUMLConstraintEditor.dfm | 3 - Source/BoldUMLDTDData.dfm | 3 - Source/BoldUMLModelDataModule.dfm | 4 +- Source/BoldUMLModelEditForm.dfm | 190 ------------------ .../BoldUMLModelEditorHandlesDataModule.dfm | 2 +- Source/BoldUMLModelValidationForm.dfm | 172 +++------------- Source/BoldUMLTaggedValuesEditor.dfm | 8 - Source/BoldUMLUsesEditorForm.dfm | 13 +- Source/BoldWACustomAttrForm1.dfm | 112 +++++------ Source/BoldWAInputFormUnit.dfm | 3 - Source/BoldWAMainForm.dfm | 4 - Source/BoldWASubClassForm1.dfm | 14 +- Source/BoldWAValueSetDlg.dfm | 6 +- Source/BoldWAValueSetForm1.dfm | 24 +-- 30 files changed, 158 insertions(+), 594 deletions(-) diff --git a/Source/BoldAbout.dfm b/Source/BoldAbout.dfm index 73f6dac0..1dc13015 100644 --- a/Source/BoldAbout.dfm +++ b/Source/BoldAbout.dfm @@ -21,7 +21,7 @@ object frmAboutBold: TfrmAboutBold Top = 6 Width = 385 Height = 380 - ActivePage = TabSheetRegistration + ActivePage = TabAbout MultiLine = True TabOrder = 0 object TabAbout: TTabSheet @@ -864,7 +864,6 @@ object frmAboutBold: TfrmAboutBold SortType = stText TabOrder = 0 ViewStyle = vsReport - OnDblClick = ListViewRevisionDblClick end end object TabSheetRegistration: TTabSheet @@ -3061,7 +3060,6 @@ object frmAboutBold: TfrmAboutBold StateImages = ImageList2 TabOrder = 1 ViewStyle = vsReport - OnDblClick = btnLicenseDetailsClick end object BtnSaveDeploymentKeys: TBitBtn Left = 196 @@ -3169,7 +3167,6 @@ object frmAboutBold: TfrmAboutBold Height = 25 Caption = '&Open License Key...' TabOrder = 0 - OnClick = btnLicenseDetailsClick end end end @@ -3480,13 +3477,11 @@ object frmAboutBold: TfrmAboutBold end object PopupMenuRevision: TPopupMenu Images = ImageList1 - OnPopup = PopupMenuRevisionPopup Left = 4 Top = 392 object PopupOpenModule: TMenuItem Caption = '&Open' ImageIndex = 0 - OnClick = ListViewRevisionDblClick end end object SaveDialogRunLic: TSaveDialog diff --git a/Source/BoldDbEvolutorForm.dfm b/Source/BoldDbEvolutorForm.dfm index abf72854..393a223e 100644 --- a/Source/BoldDbEvolutorForm.dfm +++ b/Source/BoldDbEvolutorForm.dfm @@ -37,7 +37,6 @@ object frmBoldDbEvolutor: TfrmBoldDbEvolutor 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000} - OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate @@ -45,7 +44,6 @@ object frmBoldDbEvolutor: TfrmBoldDbEvolutor DesignSize = ( 460 387) - PixelsPerInch = 96 TextHeight = 13 object PageControl1: TPageControl Left = 4 diff --git a/Source/BoldDerivationExpressionsEditor.dfm b/Source/BoldDerivationExpressionsEditor.dfm index dbf41018..5fc7ca4e 100644 --- a/Source/BoldDerivationExpressionsEditor.dfm +++ b/Source/BoldDerivationExpressionsEditor.dfm @@ -1,10 +1,10 @@ object frmBoldDerivationExpressionsEditor: TfrmBoldDerivationExpressionsEditor Left = 219 Top = 184 - Width = 361 - Height = 232 BorderIcons = [biSystemMenu] Caption = 'Expressions editor' + ClientHeight = 193 + ClientWidth = 345 Color = clBtnFace Constraints.MinHeight = 100 Font.Charset = DEFAULT_CHARSET @@ -37,23 +37,21 @@ object frmBoldDerivationExpressionsEditor: TfrmBoldDerivationExpressionsEditor 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000} - OldCreateOrder = False OnClose = FormClose - PixelsPerInch = 96 TextHeight = 13 object pnMain: TPanel Left = 0 Top = 0 - Width = 353 - Height = 164 + Width = 345 + Height = 152 Align = alClient BevelOuter = bvNone TabOrder = 0 object BoldMemo1: TBoldMemo Left = 0 Top = 0 - Width = 353 - Height = 164 + Width = 345 + Height = 152 Align = alClient Alignment = taLeftJustify BoldHandle = brhTaggedValue @@ -70,17 +68,17 @@ object frmBoldDerivationExpressionsEditor: TfrmBoldDerivationExpressionsEditor end object pnButtons: TPanel Left = 0 - Top = 164 - Width = 353 + Top = 152 + Width = 345 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 1 DesignSize = ( - 353 + 345 41) object btClose: TButton - Left = 269 + Left = 261 Top = 8 Width = 81 Height = 25 diff --git a/Source/BoldExternalPersistenceHandleSQLPropEditor.dfm b/Source/BoldExternalPersistenceHandleSQLPropEditor.dfm index 641127bf..12a9cef0 100644 --- a/Source/BoldExternalPersistenceHandleSQLPropEditor.dfm +++ b/Source/BoldExternalPersistenceHandleSQLPropEditor.dfm @@ -11,9 +11,7 @@ object BoldExternalPersistenceHandleSQLPropEditorForm: TBoldExternalPersistenceH Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] - OldCreateOrder = False Position = poScreenCenter - PixelsPerInch = 96 TextHeight = 13 object CheckListBox1: TCheckListBox Left = 8 diff --git a/Source/BoldGridRTColEditor.dfm b/Source/BoldGridRTColEditor.dfm index e744edd7..85601858 100644 --- a/Source/BoldGridRTColEditor.dfm +++ b/Source/BoldGridRTColEditor.dfm @@ -56,10 +56,8 @@ object frmRTColEditor: TfrmRTColEditor Align = alBottom BevelOuter = bvNone TabOrder = 2 - ExplicitTop = 264 - ExplicitWidth = 368 object Panel2: TPanel - Left = 280 + Left = 272 Top = 0 Width = 88 Height = 40 @@ -104,8 +102,6 @@ object frmRTColEditor: TfrmRTColEditor Align = alRight BevelOuter = bvNone TabOrder = 1 - ExplicitLeft = 136 - ExplicitHeight = 264 object Label1: TLabel Left = 8 Top = 8 diff --git a/Source/BoldMMTVDefGenGUI.dfm b/Source/BoldMMTVDefGenGUI.dfm index 544f741d..aa1695dd 100644 --- a/Source/BoldMMTVDefGenGUI.dfm +++ b/Source/BoldMMTVDefGenGUI.dfm @@ -1,17 +1,15 @@ object Form1: TForm1 Left = 326 Top = 195 - Width = 333 - Height = 196 Caption = 'Form1' + ClientHeight = 157 + ClientWidth = 317 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] - OldCreateOrder = False - PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 120 diff --git a/Source/BoldMMTVEditor.dfm b/Source/BoldMMTVEditor.dfm index 1869f212..0a51d6f8 100644 --- a/Source/BoldMMTVEditor.dfm +++ b/Source/BoldMMTVEditor.dfm @@ -1,10 +1,10 @@ object frmBoldMMTVEdit: TfrmBoldMMTVEdit Left = 363 Top = 149 - Width = 522 - Height = 419 Anchors = [akLeft, akTop, akRight] Caption = 'Bold Tagged Value Editor' + ClientHeight = 360 + ClientWidth = 506 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -12,33 +12,28 @@ object frmBoldMMTVEdit: TfrmBoldMMTVEdit Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 - OldCreateOrder = False OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy - PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 145 Top = 0 - Width = 3 - Height = 354 - Cursor = crHSplit + Height = 341 Beveled = True end object StatusBar1: TStatusBar Left = 0 - Top = 354 - Width = 514 + Top = 341 + Width = 506 Height = 19 Panels = <> - SimplePanel = False end object tvModelElements: TTreeView Left = 0 Top = 0 Width = 145 - Height = 354 + Height = 341 Align = alLeft Indent = 19 TabOrder = 1 @@ -48,8 +43,8 @@ object frmBoldMMTVEdit: TfrmBoldMMTVEdit object Panel1: TPanel Left = 148 Top = 0 - Width = 366 - Height = 354 + Width = 358 + Height = 341 Align = alClient BevelOuter = bvNone Caption = 'Panel1' @@ -57,8 +52,8 @@ object frmBoldMMTVEdit: TfrmBoldMMTVEdit object tcTaggedValues: TTabControl Left = 0 Top = 0 - Width = 366 - Height = 354 + Width = 358 + Height = 341 Align = alClient TabOrder = 0 Tabs.Strings = ( @@ -69,8 +64,8 @@ object frmBoldMMTVEdit: TfrmBoldMMTVEdit object vleTaggedValues: TValueListEditor Left = 4 Top = 24 - Width = 358 - Height = 326 + Width = 350 + Height = 313 Align = alClient TabOrder = 0 TitleCaptions.Strings = ( @@ -80,7 +75,7 @@ object frmBoldMMTVEdit: TfrmBoldMMTVEdit OnStringsChange = vleTaggedValuesStringsChange ColWidths = ( 150 - 202) + 194) end end end diff --git a/Source/BoldMMTVMemo.dfm b/Source/BoldMMTVMemo.dfm index f890701b..8d436d31 100644 --- a/Source/BoldMMTVMemo.dfm +++ b/Source/BoldMMTVMemo.dfm @@ -1,9 +1,9 @@ object frmMemoEdit: TfrmMemoEdit Left = 397 Top = 213 - Width = 310 - Height = 235 Caption = ' - Bold tagged value editor' + ClientHeight = 196 + ClientWidth = 294 Color = clBtnFace Constraints.MinHeight = 58 Constraints.MinWidth = 171 @@ -12,14 +12,12 @@ object frmMemoEdit: TfrmMemoEdit Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] - OldCreateOrder = False - PixelsPerInch = 96 TextHeight = 13 object memoTheMemo: TMemo Left = 0 Top = 0 - Width = 302 - Height = 183 + Width = 294 + Height = 171 Cursor = crIBeam Align = alClient BevelOuter = bvNone @@ -30,14 +28,14 @@ object frmMemoEdit: TfrmMemoEdit end object Panel1: TPanel Left = 0 - Top = 183 - Width = 302 + Top = 171 + Width = 294 Height = 25 Align = alBottom BevelOuter = bvNone TabOrder = 1 DesignSize = ( - 302 + 294 25) object Button1: TButton Left = 224 diff --git a/Source/BoldNodeDescriptionEditor.dfm b/Source/BoldNodeDescriptionEditor.dfm index fb21b583..c2d0e8f7 100644 --- a/Source/BoldNodeDescriptionEditor.dfm +++ b/Source/BoldNodeDescriptionEditor.dfm @@ -64,8 +64,6 @@ object FormNodeEditor: TFormNodeEditor Align = alRight BevelOuter = bvNone TabOrder = 1 - ExplicitLeft = 328 - ExplicitHeight = 360 object btnAddNodeDescription: TButton Left = 8 Top = 8 diff --git a/Source/BoldOLLEdmmain.dfm b/Source/BoldOLLEdmmain.dfm index 6bb1aa87ae0f813b14aeeeeeed478b28e3ef6634..fc960d309a4f42f78ea1edb9084d1b76e31105f0 100644 GIT binary patch delta 93 zcmZ4E-|MgVpNk>H#n<1*hrvLgR-J(%B*4vpEhHruD8dRRH#$sWo-8J@dUKNK7N*UP u92G2+LnNn6t`p?ioGzfqxcL%uKFj6~!CTCmck--bo_tWEbMp(yBfJ1qT_3mr delta 128 zcmeD6U*qrapNk>H#n<1*hrvK#jyeNFNPwFGTS!VSP=pms^7-eaI2WZRmZbU@rKA>d zu=u2=l`!96U=GPIU|z$pQE?LUW>4OHmd!%!6)c-4iLPVbtihwmxOs=*E#}Q}EL)f+ e$FXot-pjmjvV&yjWP4t&$z9x2HlLI{!V3WM4k?2G diff --git a/Source/BoldOclPropEditor.dfm b/Source/BoldOclPropEditor.dfm index 2adb4c9e..bddf884d 100644 --- a/Source/BoldOclPropEditor.dfm +++ b/Source/BoldOclPropEditor.dfm @@ -49,8 +49,6 @@ object BoldOclPropEditForm: TBoldOclPropEditForm Align = alBottom BevelOuter = bvNone TabOrder = 1 - ExplicitTop = 319 - ExplicitWidth = 720 object imgModelErrors: TImage Left = 8 Top = 0 @@ -2180,7 +2178,7 @@ object BoldOclPropEditForm: TBoldOclPropEditForm OnClick = imgModelErrorsClick end object pnlOKCancel: TPanel - Left = 434 + Left = 430 Top = 0 Width = 286 Height = 33 @@ -2227,26 +2225,24 @@ object BoldOclPropEditForm: TBoldOclPropEditForm BorderWidth = 5 Caption = 'TabControlPanel' TabOrder = 0 - ExplicitWidth = 720 - ExplicitHeight = 319 object SplitterRight: TSplitter - Left = 489 + Left = 485 Top = 5 Width = 6 - Height = 309 + Height = 308 Align = alRight end object SplitterLeft: TSplitter Left = 225 Top = 5 Width = 6 - Height = 309 + Height = 308 end object ExprEditPageControl: TPageControl Left = 231 Top = 5 - Width = 258 - Height = 309 + Width = 254 + Height = 308 ActivePage = ExpressionPage Align = alClient TabOrder = 0 @@ -2256,24 +2252,24 @@ object BoldOclPropEditForm: TBoldOclPropEditForm object pnlClient: TPanel Left = 0 Top = 0 - Width = 250 - Height = 281 + Width = 246 + Height = 280 Align = alClient BevelOuter = bvNone Caption = 'Panel1' TabOrder = 0 object Splitter2: TSplitter Left = 0 - Top = 161 - Width = 250 + Top = 160 + Width = 246 Height = 6 Cursor = crVSplit Align = alBottom end object ExpParserPanel: TPanel Left = 0 - Top = 167 - Width = 250 + Top = 166 + Width = 246 Height = 114 Align = alBottom BevelOuter = bvNone @@ -2282,7 +2278,7 @@ object BoldOclPropEditForm: TBoldOclPropEditForm object pnlEditButtons: TPanel Left = 0 Top = 0 - Width = 250 + Width = 246 Height = 37 Align = alTop BevelOuter = bvNone @@ -2308,7 +2304,7 @@ object BoldOclPropEditForm: TBoldOclPropEditForm OnClick = SyntaxcbClick end object Clear: TButton - Left = 164 + Left = 160 Top = 4 Width = 81 Height = 25 @@ -2316,10 +2312,9 @@ object BoldOclPropEditForm: TBoldOclPropEditForm Caption = '&Clear' TabOrder = 1 OnClick = ClearClick - ExplicitLeft = 168 end object RemoveLast: TButton - Left = 72 + Left = 68 Top = 4 Width = 81 Height = 25 @@ -2327,7 +2322,6 @@ object BoldOclPropEditForm: TBoldOclPropEditForm Caption = '&Remove Last' TabOrder = 0 OnClick = RemoveLastClick - ExplicitLeft = 76 end end object ParserMessages: TMemo @@ -2348,7 +2342,6 @@ object BoldOclPropEditForm: TBoldOclPropEditForm ScrollBars = ssBoth TabOrder = 1 WantReturns = False - ExplicitWidth = 250 end end object EditPanel: TPanel @@ -2360,16 +2353,14 @@ object BoldOclPropEditForm: TBoldOclPropEditForm BevelOuter = bvNone Caption = 'Panel2' TabOrder = 1 - ExplicitWidth = 250 - ExplicitHeight = 161 object EditMemo: TMemo Left = 0 Top = 0 - Width = 250 - Height = 161 + Width = 246 + Height = 160 Align = alClient Constraints.MinHeight = 50 - Constraints.MinWidth = 250 + Constraints.MinWidth = 246 PopupMenu = MRUPopupMenu ScrollBars = ssBoth TabOrder = 0 @@ -2392,14 +2383,13 @@ object BoldOclPropEditForm: TBoldOclPropEditForm ActivePage = OclVariablesTabSheet Align = alLeft TabOrder = 1 - ExplicitHeight = 309 object OclVariablesTabSheet: TTabSheet Caption = 'OCL Variables' object pnlOclVariables: TPanel Left = 0 Top = 0 Width = 212 - Height = 281 + Height = 280 Align = alClient BevelOuter = bvNone TabOrder = 0 @@ -2407,7 +2397,7 @@ object BoldOclPropEditForm: TBoldOclPropEditForm Left = 0 Top = 0 Width = 212 - Height = 281 + Height = 280 Style = lbOwnerDrawFixed Align = alClient Constraints.MinWidth = 140 @@ -2429,15 +2419,13 @@ object BoldOclPropEditForm: TBoldOclPropEditForm ActivePage = ExpressionTypeTabSheet Align = alRight TabOrder = 2 - ExplicitLeft = 495 - ExplicitHeight = 309 object ExpressionTypeTabSheet: TTabSheet Caption = 'Available expressions' object pnlRightSide: TPanel Left = 0 Top = 0 Width = 212 - Height = 281 + Height = 280 Align = alClient BevelOuter = bvNone TabOrder = 0 @@ -2445,7 +2433,7 @@ object BoldOclPropEditForm: TBoldOclPropEditForm Left = 0 Top = 21 Width = 212 - Height = 243 + Height = 242 Style = lbOwnerDrawFixed Align = alClient Constraints.MinWidth = 140 @@ -2465,7 +2453,6 @@ object BoldOclPropEditForm: TBoldOclPropEditForm Align = alBottom BevelOuter = bvNone TabOrder = 1 - ExplicitTop = 264 object Derivedcb: TCheckBox Left = 2 Top = 0 diff --git a/Source/BoldQueryUserDlg.dfm b/Source/BoldQueryUserDlg.dfm index 567f91b2..b26cb6eb 100644 --- a/Source/BoldQueryUserDlg.dfm +++ b/Source/BoldQueryUserDlg.dfm @@ -11,9 +11,7 @@ object frmBoldQueryUser: TfrmBoldQueryUser Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] - OldCreateOrder = True Position = poScreenCenter - PixelsPerInch = 96 TextHeight = 13 object lblQuestion: TLabel Left = 24 diff --git a/Source/BoldSystemDebuggerForm.dfm b/Source/BoldSystemDebuggerForm.dfm index 26d0b5a7..5d454cea 100644 --- a/Source/BoldSystemDebuggerForm.dfm +++ b/Source/BoldSystemDebuggerForm.dfm @@ -23,7 +23,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm Height = 372 Align = alRight AutoSnap = False - ExplicitLeft = 290 end object Splitter1: TSplitter Left = 142 @@ -32,7 +31,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm Height = 372 Align = alRight AutoSnap = False - ExplicitLeft = 146 end object Panel3: TPanel Left = 0 @@ -42,8 +40,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm Align = alClient BevelOuter = bvNone TabOrder = 0 - ExplicitWidth = 146 - ExplicitHeight = 373 DesignSize = ( 142 372) @@ -66,8 +62,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm BoldRowProperties.Expression = '' DragMode = dmAutomatic TabOrder = 0 - ExplicitWidth = 142 - ExplicitHeight = 353 end end object Panel4: TPanel @@ -78,8 +72,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm Align = alRight BevelOuter = bvNone TabOrder = 1 - ExplicitLeft = 150 - ExplicitHeight = 373 DesignSize = ( 140 372) @@ -102,7 +94,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm BoldRowProperties.Expression = '' DragMode = dmAutomatic TabOrder = 0 - ExplicitHeight = 313 end object btnUpdateDirtyObjects: TButton Left = 52 @@ -114,7 +105,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm Enabled = False TabOrder = 1 OnClick = btnUpdateDirtyObjectsClick - ExplicitTop = 342 end end object Panel1: TPanel @@ -125,8 +115,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm Align = alRight BevelOuter = bvNone TabOrder = 2 - ExplicitLeft = 294 - ExplicitHeight = 373 DesignSize = ( 338 372) @@ -144,7 +132,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm Height = 13 Anchors = [akLeft, akBottom] Caption = 'Shared Strings' - ExplicitTop = 284 end object Label2: TLabel Left = 184 @@ -163,7 +150,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm Caption = 'Update' TabOrder = 2 OnClick = btnUpdateMemoryInfoClick - ExplicitTop = 342 end object mmoMemoryInfo: TMemo Left = 0 @@ -179,7 +165,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm ParentFont = False ScrollBars = ssBoth TabOrder = 0 - ExplicitHeight = 256 end object mmoSharedStrings: TMemo Left = 0 @@ -188,7 +173,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm Height = 33 Anchors = [akLeft, akRight, akBottom] TabOrder = 1 - ExplicitTop = 300 end object Panel2: TPanel Left = 184 @@ -266,7 +250,6 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm TabOrder = 4 OnDragDrop = Panel2DragDrop OnDragOver = Panel2DragOver - ExplicitHeight = 153 end object btnUpdateDatabase: TButton Left = 212 @@ -278,29 +261,24 @@ object BoldSystemDebuggerFrm: TBoldSystemDebuggerFrm Enabled = False TabOrder = 5 OnClick = btnUpdateDatabaseClick - ExplicitTop = 342 end end object blhClasses: TBoldListHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 RootHandle = brhSystem Left = 24 Top = 32 end object bchDirtyObjects: TBoldCursorHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 RootHandle = brhDirtyObjects AutoFirst = False Left = 184 Top = 32 end object brhSystem: TBoldReferenceHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 Left = 24 Top = 64 end object brhDirtyObjects: TBoldReferenceHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 Left = 152 Top = 32 end diff --git a/Source/BoldTypeNameEditor.dfm b/Source/BoldTypeNameEditor.dfm index 3935efdf..43cc06ee 100644 --- a/Source/BoldTypeNameEditor.dfm +++ b/Source/BoldTypeNameEditor.dfm @@ -65,7 +65,6 @@ object BoldTypeNameEditorForm: TBoldTypeNameEditorForm 6666666666766F66666666666666666666666666667776666666} NumGlyphs = 2 OnClick = btnDownClick - ExplicitTop = 360 end object btnUp: TSpeedButton Left = 8 @@ -88,7 +87,6 @@ object BoldTypeNameEditorForm: TBoldTypeNameEditorForm 6666666666766F666666666666666666666666666667F6666666} NumGlyphs = 2 OnClick = btnUpClick - ExplicitTop = 360 end object StringGrid1: TStringGrid Left = 0 @@ -103,8 +101,6 @@ object BoldTypeNameEditorForm: TBoldTypeNameEditorForm Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goEditing] PopupMenu = PopupMenu1 TabOrder = 0 - ExplicitWidth = 1017 - ExplicitHeight = 349 ColWidths = ( 99 92 @@ -129,8 +125,6 @@ object BoldTypeNameEditorForm: TBoldTypeNameEditorForm Caption = '&Add' TabOrder = 1 OnClick = btnAddClick - ExplicitLeft = 665 - ExplicitTop = 360 end object btnDelete: TButton Left = 745 @@ -141,8 +135,6 @@ object BoldTypeNameEditorForm: TBoldTypeNameEditorForm Caption = '&Delete' TabOrder = 2 OnClick = btnDeleteClick - ExplicitLeft = 753 - ExplicitTop = 360 end object btnOK: TButton Left = 833 @@ -154,8 +146,6 @@ object BoldTypeNameEditorForm: TBoldTypeNameEditorForm Default = True ModalResult = 1 TabOrder = 3 - ExplicitLeft = 841 - ExplicitTop = 360 end object btnCancel: TButton Left = 921 @@ -166,8 +156,6 @@ object BoldTypeNameEditorForm: TBoldTypeNameEditorForm Caption = 'Cancel' ModalResult = 2 TabOrder = 4 - ExplicitLeft = 929 - ExplicitTop = 360 end object MainMenu1: TMainMenu Images = ImageList1 diff --git a/Source/BoldTypeNameSelector.dfm b/Source/BoldTypeNameSelector.dfm index f172dd68..f3e08183 100644 --- a/Source/BoldTypeNameSelector.dfm +++ b/Source/BoldTypeNameSelector.dfm @@ -63,8 +63,6 @@ object frmBoldTypeNameSelector: TfrmBoldTypeNameSelector Align = alBottom BevelOuter = bvNone TabOrder = 1 - ExplicitTop = 287 - ExplicitWidth = 344 DesignSize = ( 336 40) diff --git a/Source/BoldUMLAddTV.dfm b/Source/BoldUMLAddTV.dfm index 281f295b..0cca3ab5 100644 --- a/Source/BoldUMLAddTV.dfm +++ b/Source/BoldUMLAddTV.dfm @@ -36,11 +36,12 @@ object frmBoldUMLAddTV: TfrmBoldUMLAddTV 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000} - OldCreateOrder = False Position = poDefault OnClose = FormClose OnShow = FormShow - PixelsPerInch = 96 + DesignSize = ( + 272 + 140) TextHeight = 13 object GroupBox1: TGroupBox Left = 8 diff --git a/Source/BoldUMLConstraintEditor.dfm b/Source/BoldUMLConstraintEditor.dfm index f2decac8..644a7c38 100644 --- a/Source/BoldUMLConstraintEditor.dfm +++ b/Source/BoldUMLConstraintEditor.dfm @@ -52,7 +52,6 @@ object frmBoldUMLConstraintEditor: TfrmBoldUMLConstraintEditor Images = ImageList1 List = True TabOrder = 0 - ExplicitWidth = 390 object btAdd: TToolButton Left = 0 Top = 0 @@ -132,7 +131,6 @@ object frmBoldUMLConstraintEditor: TfrmBoldUMLConstraintEditor 300) end object blhElementConstraint: TBoldListHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 RootHandle = brhCurrentElement RootTypeName = 'UMLConstraint' Expression = 'constraint' @@ -140,7 +138,6 @@ object frmBoldUMLConstraintEditor: TfrmBoldUMLConstraintEditor Top = 132 end object brhCurrentElement: TBoldReferenceHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 StaticValueTypeName = 'UMLModelElement' Left = 252 Top = 72 diff --git a/Source/BoldUMLDTDData.dfm b/Source/BoldUMLDTDData.dfm index 6a09d65b..12208671 100644 --- a/Source/BoldUMLDTDData.dfm +++ b/Source/BoldUMLDTDData.dfm @@ -1,7 +1,4 @@ object dmUML13DTD: TdmUML13DTD - OldCreateOrder = False - Left = 291 - Top = 196 Height = 150 Width = 215 object UML13DTD: TBoldTemplateHolder diff --git a/Source/BoldUMLModelDataModule.dfm b/Source/BoldUMLModelDataModule.dfm index 0d82abc5..000a59ee 100644 --- a/Source/BoldUMLModelDataModule.dfm +++ b/Source/BoldUMLModelDataModule.dfm @@ -1,6 +1,6 @@ object dmModelEdit: TdmModelEdit - Height = 226 - Width = 202 + Height = 255 + Width = 216 object bmlUMLModel: TBoldModel TypeNameHandle = BoldTypeNameHandle1 UMLModelMode = ummNone diff --git a/Source/BoldUMLModelEditForm.dfm b/Source/BoldUMLModelEditForm.dfm index 0b1c848c..0cba356f 100644 --- a/Source/BoldUMLModelEditForm.dfm +++ b/Source/BoldUMLModelEditForm.dfm @@ -53,7 +53,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Width = 6 Height = 541 Beveled = True - ExplicitHeight = 542 end object TBoldLabel Left = 120 @@ -386,7 +385,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Align = alTop Beveled = True OnCanResize = Splitter2CanResize - ExplicitWidth = 607 end object sbModel: TScrollBox Left = 0 @@ -596,7 +594,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 0 - ExplicitWidth = 287 end object tbxModelDelhpiName: TBoldEdit Left = 120 @@ -618,7 +615,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 2 - ExplicitWidth = 287 end object tbxModelExpressionName: TBoldEdit Left = 120 @@ -640,7 +636,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 3 - ExplicitWidth = 287 end object tbxModelPMapperName: TBoldEdit Left = 120 @@ -665,7 +660,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 15 Visible = False - ExplicitWidth = 287 end object tbxModelInterfaceUses: TBoldEdit Left = 120 @@ -689,7 +683,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 4 - ExplicitWidth = 271 end object tbxModelImplementationUses: TBoldEdit Left = 120 @@ -713,7 +706,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 6 - ExplicitWidth = 271 end object btInterfaceUses: TButton Left = 382 @@ -732,7 +724,6 @@ object BoldModelEditFrm: TBoldModelEditFrm ParentFont = False TabOrder = 5 OnClick = btInterfaceUsesClick - ExplicitLeft = 390 end object btImplementationUses: TButton Left = 382 @@ -751,7 +742,6 @@ object BoldModelEditFrm: TBoldModelEditFrm ParentFont = False TabOrder = 7 OnClick = btImplementationUsesClick - ExplicitLeft = 390 end object bcbModelUseXFiles: TBoldCheckBox Left = 406 @@ -770,7 +760,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'U&se X files' ReadOnly = False TabOrder = 14 - ExplicitLeft = 414 end object bcbModelUseTimestamp: TBoldCheckBox Left = 406 @@ -789,7 +778,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Use timestamp' ReadOnly = False TabOrder = 16 - ExplicitLeft = 414 end object bcbUseGlobalId: TBoldCheckBox Left = 406 @@ -806,7 +794,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Use global id' ReadOnly = False TabOrder = 17 - ExplicitLeft = 414 end object bcbUseReadOnly: TBoldCheckBox Left = 406 @@ -825,7 +812,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Use readonly' ReadOnly = False TabOrder = 18 - ExplicitLeft = 414 end object tbxModelStereotype: TBoldEdit Left = 120 @@ -847,7 +833,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 1 - ExplicitWidth = 287 end object tbxModelConstraints: TBoldEdit Left = 120 @@ -874,7 +859,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 10 Visible = False - ExplicitWidth = 271 end object btModelConstraintEditor: TButton Left = 382 @@ -894,7 +878,6 @@ object BoldModelEditFrm: TBoldModelEditFrm TabOrder = 11 Visible = False OnClick = btModelConstraintEditorClick - ExplicitLeft = 390 end object edModelGUID: TBoldEdit Left = 120 @@ -917,7 +900,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 12 Visible = False - ExplicitWidth = 287 end object edModelTypeLibVersion: TBoldEdit Left = 120 @@ -940,7 +922,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 13 Visible = False - ExplicitWidth = 287 end object bcbUseClockLog: TBoldCheckBox Left = 406 @@ -959,7 +940,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Use clock lo&g' ReadOnly = False TabOrder = 19 - ExplicitLeft = 414 end object bcbGenerateMultiplicityConstraints: TBoldCheckBox Left = 406 @@ -978,7 +958,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Use multiplicity constraints' ReadOnly = False TabOrder = 20 - ExplicitLeft = 414 end object cmbModelOptimisticLocking: TBoldComboBox Left = 120 @@ -1021,7 +1000,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 8 - ExplicitWidth = 287 end end object pcModelTabs: TPageControl @@ -1032,8 +1010,6 @@ object BoldModelEditFrm: TBoldModelEditFrm ActivePage = TabSheet2 Align = alClient TabOrder = 1 - ExplicitWidth = 607 - ExplicitHeight = 177 object TabSheet1: TTabSheet HelpContext = 87 Caption = '&Classes' @@ -1315,7 +1291,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Cursor = crVSplit Align = alTop Beveled = True - ExplicitWidth = 607 end object sbClass: TScrollBox Left = 0 @@ -1521,7 +1496,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 0 - ExplicitWidth = 291 end object tbxClassDelphiName: TBoldEdit Left = 120 @@ -1544,7 +1518,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 14 Visible = False - ExplicitWidth = 291 end object tbxClassExpressionName: TBoldEdit Left = 120 @@ -1567,7 +1540,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 15 Visible = False - ExplicitWidth = 291 end object tbxClassTableName: TBoldEdit Left = 120 @@ -1590,7 +1562,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 17 Visible = False - ExplicitWidth = 291 end object tbxClassFileName: TBoldEdit Left = 120 @@ -1614,7 +1585,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 4 - ExplicitWidth = 291 end object bcbClassPersistent: TBoldCheckBox Left = 406 @@ -1630,7 +1600,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Pe&rsistent' ReadOnly = False TabOrder = 18 - ExplicitLeft = 418 end object bcbClassAbstract: TBoldCheckBox Left = 406 @@ -1646,7 +1615,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'A&bstract' ReadOnly = False TabOrder = 19 - ExplicitLeft = 418 end object bcbClassImported: TBoldCheckBox Left = 406 @@ -1662,7 +1630,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Importe&d' ReadOnly = False TabOrder = 20 - ExplicitLeft = 418 end object cmbClassPMapperName: TBoldComboBox Left = 120 @@ -1683,7 +1650,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] TabOrder = 16 Visible = False - ExplicitWidth = 291 end object cmbSuperClass: TBoldComboBox Left = 120 @@ -1724,7 +1690,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 7 - ExplicitWidth = 291 end object tbxClassStereotype: TBoldEdit Left = 120 @@ -1746,7 +1711,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 1 - ExplicitWidth = 291 end object tbxClassConstraint: TBoldEdit Left = 120 @@ -1771,7 +1735,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 10 Visible = False - ExplicitWidth = 275 end object btClassConstraintEditor: TButton Left = 382 @@ -1791,7 +1754,6 @@ object BoldModelEditFrm: TBoldModelEditFrm TabOrder = 11 Visible = False OnClick = btModelConstraintEditorClick - ExplicitLeft = 394 end object tbxClassDerivationExpressions: TBoldEdit Left = 120 @@ -1814,7 +1776,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 8 Visible = False - ExplicitWidth = 275 end object btShowDerivationExpressionsEditor: TButton Left = 382 @@ -1834,7 +1795,6 @@ object BoldModelEditFrm: TBoldModelEditFrm TabOrder = 9 Visible = False OnClick = btShowDerivationExpressionsEditorClick - ExplicitLeft = 394 end object tbxClassUnitName: TBoldEdit Left = 120 @@ -1858,7 +1818,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 3 - ExplicitWidth = 291 end object edClassDefaultStringRep: TBoldEdit Left = 120 @@ -1882,7 +1841,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 5 - ExplicitWidth = 275 end object btClassDefaultStringRep: TButton Left = 382 @@ -1901,7 +1859,6 @@ object BoldModelEditFrm: TBoldModelEditFrm ParentFont = False TabOrder = 6 OnClick = btClassDefaultStringRepClick - ExplicitLeft = 394 end object edClassGUID: TBoldEdit Left = 120 @@ -1924,7 +1881,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 12 Visible = False - ExplicitWidth = 291 end object cmbClassOptimisticLocking: TBoldComboBox Left = 120 @@ -1959,7 +1915,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Remove Superclass on unboldify' ReadOnly = False TabOrder = 21 - ExplicitLeft = 418 end object bcbRemoveOnUnboldify: TBoldCheckBox Left = 406 @@ -1975,7 +1930,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Remove class on unboldify' ReadOnly = False TabOrder = 22 - ExplicitLeft = 418 end object bcbIsRootClass: TBoldCheckBox Left = 406 @@ -1988,7 +1942,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Is Root Class' ReadOnly = False TabOrder = 23 - ExplicitLeft = 418 end end object pcClassTabs: TPageControl @@ -1999,8 +1952,6 @@ object BoldModelEditFrm: TBoldModelEditFrm ActivePage = TabSheet3 Align = alClient TabOrder = 1 - ExplicitWidth = 607 - ExplicitHeight = 113 object TabSheet3: TTabSheet HelpContext = 64 Caption = 'Attrib&utes' @@ -2644,7 +2595,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 0 - ExplicitWidth = 262 end object tbxAttributeDelphiName: TBoldEdit Left = 120 @@ -2669,7 +2619,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 10 Visible = False - ExplicitWidth = 262 end object tbxAttributeExpressionName: TBoldEdit Left = 120 @@ -2692,7 +2641,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 11 Visible = False - ExplicitWidth = 262 end object tbxAttributeColumnName: TBoldEdit Left = 120 @@ -2717,7 +2665,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 13 Visible = False - ExplicitWidth = 262 end object bcbAttributePersistent: TBoldCheckBox Left = 377 @@ -2735,7 +2682,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Persistent' ReadOnly = False TabOrder = 16 - ExplicitLeft = 389 end object bcbAttributeDelayedFetch: TBoldCheckBox Left = 377 @@ -2755,7 +2701,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Enabled = False ReadOnly = False TabOrder = 20 - ExplicitLeft = 389 end object bcbAttributeAllowNull: TBoldCheckBox Left = 377 @@ -2772,7 +2717,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = '&Allow null' ReadOnly = False TabOrder = 17 - ExplicitLeft = 389 end object bcbAttributeDerived: TBoldCheckBox Left = 377 @@ -2788,7 +2732,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = '&Derived' ReadOnly = False TabOrder = 18 - ExplicitLeft = 389 end object tbxAttributeLength: TBoldEdit Left = 120 @@ -2812,7 +2755,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 4 - ExplicitWidth = 262 end object cmbAttributeBoldType: TBoldComboBox Left = 120 @@ -2833,7 +2775,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] Sorted = True TabOrder = 2 - ExplicitWidth = 262 end object cmbAttributePMapperName: TBoldComboBox Left = 120 @@ -2854,7 +2795,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Sorted = True TabOrder = 12 Visible = False - ExplicitWidth = 262 end object cmbTVAttributeKind: TBoldComboBox Left = 120 @@ -2876,7 +2816,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] TabOrder = 14 Visible = False - ExplicitWidth = 262 end object gbDelphiFeatures: TGroupBox Left = 40 @@ -2887,7 +2826,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Attribute kind Delphi features' TabOrder = 15 Visible = False - ExplicitWidth = 353 DesignSize = ( 341 83) @@ -2943,7 +2881,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 1 - ExplicitWidth = 262 end object cmbTVDPWrite: TBoldComboBox Left = 80 @@ -2962,7 +2899,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 2 - ExplicitWidth = 262 end end object tbxAttributeDerivationOCL: TBoldEdit @@ -2986,7 +2922,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 5 Visible = False - ExplicitWidth = 246 end object tbxAttributeStereotype: TBoldEdit Left = 120 @@ -3008,7 +2943,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 1 - ExplicitWidth = 262 end object cmbAttributeVisibility: TBoldComboBox Left = 120 @@ -3029,7 +2963,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 3 - ExplicitWidth = 262 end object tbxAttributeInitialValue: TBoldEdit Left = 120 @@ -3054,7 +2987,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 9 Visible = False - ExplicitWidth = 262 end object tbxAttributeConstraint: TBoldEdit Left = 120 @@ -3079,7 +3011,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 7 Visible = False - ExplicitWidth = 246 end object btAttributeConstraintEditor: TButton Left = 353 @@ -3099,7 +3030,6 @@ object BoldModelEditFrm: TBoldModelEditFrm TabOrder = 8 Visible = False OnClick = btModelConstraintEditorClick - ExplicitLeft = 365 end object bcbAttributeReverseDerive: TBoldCheckBox Left = 377 @@ -3117,7 +3047,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Enabled = False ReadOnly = False TabOrder = 19 - ExplicitLeft = 389 end object btAttributeShowDerivExprEditor: TButton Left = 353 @@ -3137,7 +3066,6 @@ object BoldModelEditFrm: TBoldModelEditFrm TabOrder = 6 Visible = False OnClick = btAttributeShowDerivExprEditorClick - ExplicitLeft = 365 end end object tabOperation: TTabSheet @@ -3151,7 +3079,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Cursor = crVSplit Align = alTop Beveled = True - ExplicitWidth = 607 end object sbOperation: TScrollBox Left = 0 @@ -3288,7 +3215,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 0 - ExplicitWidth = 254 end object tbxOperationDelphiName: TBoldEdit Left = 120 @@ -3313,7 +3239,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 7 Visible = False - ExplicitWidth = 254 end object tbxOperationExpressionName: TBoldEdit Left = 120 @@ -3336,7 +3261,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 8 Visible = False - ExplicitWidth = 254 end object cmbOwnerScope: TBoldComboBox Left = 120 @@ -3357,7 +3281,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 3 - ExplicitWidth = 254 end object cmbDelphiFunctionType: TBoldComboBox Left = 120 @@ -3376,7 +3299,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 4 - ExplicitWidth = 254 end object tbxOperationStereotype: TBoldEdit Left = 120 @@ -3398,7 +3320,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 1 - ExplicitWidth = 254 end object cmbOperationVisibility: TBoldComboBox Left = 120 @@ -3419,7 +3340,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 2 - ExplicitWidth = 254 end object tbxOperationConstraint: TBoldEdit Left = 120 @@ -3444,7 +3364,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 5 Visible = False - ExplicitWidth = 238 end object btOperationConstraintEditor: TButton Left = 353 @@ -3464,7 +3383,6 @@ object BoldModelEditFrm: TBoldModelEditFrm TabOrder = 6 Visible = False OnClick = btModelConstraintEditorClick - ExplicitLeft = 357 end object cbOperationOverrideInAllSubclasses: TBoldCheckBox Left = 377 @@ -3483,7 +3401,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Override in all s&ubclasses' ReadOnly = False TabOrder = 9 - ExplicitLeft = 381 end end object pcOperationTabs: TPageControl @@ -3607,7 +3524,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Cursor = crVSplit Align = alTop Beveled = True - ExplicitWidth = 607 end object sbAssociation: TScrollBox Left = 0 @@ -3706,7 +3622,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 0 - ExplicitWidth = 291 end object cmbAssociationLinkClass: TBoldComboBox Left = 120 @@ -3750,7 +3665,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 1 - ExplicitWidth = 291 end object tbxAssociationConstraint: TBoldEdit Left = 120 @@ -3775,7 +3689,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 3 Visible = False - ExplicitWidth = 275 end object btAssociationConstraintEditor: TButton Left = 382 @@ -3795,7 +3708,6 @@ object BoldModelEditFrm: TBoldModelEditFrm TabOrder = 4 Visible = False OnClick = btModelConstraintEditorClick - ExplicitLeft = 394 end object bcbAssociationDerived: TBoldCheckBox Left = 406 @@ -3811,7 +3723,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Der&ived' ReadOnly = False TabOrder = 6 - ExplicitLeft = 418 end object bcbPersistent: TBoldCheckBox Left = 406 @@ -3829,7 +3740,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = '&Persistent' ReadOnly = False TabOrder = 5 - ExplicitLeft = 418 end end object pcAssociationTabs: TPageControl @@ -3840,8 +3750,6 @@ object BoldModelEditFrm: TBoldModelEditFrm ActivePage = TabSheet6 Align = alClient TabOrder = 1 - ExplicitWidth = 607 - ExplicitHeight = 378 object TabSheet6: TTabSheet HelpContext = 86 Caption = '&AssociationEnds' @@ -4010,7 +3918,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Cursor = crVSplit Align = alTop Beveled = True - ExplicitWidth = 607 end object sbAssociationEnd: TScrollBox Left = 0 @@ -4194,7 +4101,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 0 - ExplicitWidth = 291 end object tbxAssociationEndDelphiName: TBoldEdit Left = 120 @@ -4217,7 +4123,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 12 Visible = False - ExplicitWidth = 291 end object tbxAssociationEndExpressionName: TBoldEdit Left = 120 @@ -4240,7 +4145,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 13 Visible = False - ExplicitWidth = 291 end object tbxAssociationEndColumnName: TBoldEdit Left = 120 @@ -4263,7 +4167,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 14 Visible = False - ExplicitWidth = 291 end object bcbAssociationEndNavigable: TBoldCheckBox Left = 406 @@ -4279,7 +4182,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'N&avigable' ReadOnly = False TabOrder = 15 - ExplicitLeft = 418 end object bcbAssociationEndMulti: TBoldCheckBox Left = 406 @@ -4295,7 +4197,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'M&ulti' ReadOnly = False TabOrder = 16 - ExplicitLeft = 418 end object bcbAssociationEndOrdered: TBoldCheckBox Left = 406 @@ -4311,7 +4212,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'O&rdered' ReadOnly = False TabOrder = 17 - ExplicitLeft = 418 end object bcbAssociationEndMandatory: TBoldCheckBox Left = 406 @@ -4327,7 +4227,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Mandator&y' ReadOnly = False TabOrder = 18 - ExplicitLeft = 418 end object bcbAssociationEndEmbed: TBoldCheckBox Left = 406 @@ -4344,7 +4243,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'Em&bed' ReadOnly = False TabOrder = 19 - ExplicitLeft = 418 end object cmbAssoEndClass: TBoldComboBox Left = 120 @@ -4363,7 +4261,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 2 - ExplicitWidth = 291 end object tbxAssociationEndStereotype: TBoldEdit Left = 120 @@ -4385,7 +4282,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 1 - ExplicitWidth = 291 end object cmbAggregationKind: TBoldComboBox Left = 120 @@ -4404,7 +4300,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 4 - ExplicitWidth = 291 end object cmbAssoEndVisibility: TBoldComboBox Left = 120 @@ -4425,7 +4320,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 5 - ExplicitWidth = 291 end object cmbAssoEndChangeability: TBoldComboBox Left = 120 @@ -4444,7 +4338,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 6 - ExplicitWidth = 291 end object tbxAssociationEndConstraint: TBoldEdit Left = 120 @@ -4469,7 +4362,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 10 Visible = False - ExplicitWidth = 275 end object btAssociationEndConstraintEditor: TButton Left = 382 @@ -4489,7 +4381,6 @@ object BoldModelEditFrm: TBoldModelEditFrm TabOrder = 11 Visible = False OnClick = btModelConstraintEditorClick - ExplicitLeft = 394 end object cmbMultiplicity: TBoldComboBox Left = 120 @@ -4527,7 +4418,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 7 - ExplicitWidth = 291 end object tbxAssoEndDerivationOCL: TBoldEdit Left = 120 @@ -4550,7 +4440,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 8 Visible = False - ExplicitWidth = 275 end object btAssoEndShowDeriExprEditor: TButton Left = 382 @@ -4570,7 +4459,6 @@ object BoldModelEditFrm: TBoldModelEditFrm TabOrder = 9 Visible = False OnClick = btAssoEndShowDeriExprEditorClick - ExplicitLeft = 394 end end object pcAssociationEndTabs: TPageControl @@ -4581,8 +4469,6 @@ object BoldModelEditFrm: TBoldModelEditFrm ActivePage = TabSheet7 Align = alClient TabOrder = 1 - ExplicitWidth = 607 - ExplicitHeight = 157 object TabSheet7: TTabSheet HelpContext = 50 Caption = '&Qualifiers' @@ -4828,7 +4714,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 0 - ExplicitWidth = 262 end object tbxParameterType: TBoldEdit Left = 120 @@ -4850,7 +4735,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 3 - ExplicitWidth = 262 end object tbxParameterExpressionName: TBoldEdit Left = 120 @@ -4875,7 +4759,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 6 Visible = False - ExplicitWidth = 262 end object bcbIsConst: TBoldCheckBox Left = 377 @@ -4892,7 +4775,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Caption = 'is c&onst' ReadOnly = False TabOrder = 7 - ExplicitLeft = 389 end object cmbParamKind: TBoldComboBox Left = 120 @@ -4913,7 +4795,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Style = csDropDownList Anchors = [akLeft, akTop, akRight] TabOrder = 2 - ExplicitWidth = 262 end object tbxParameterStereotype: TBoldEdit Left = 120 @@ -4935,7 +4816,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 1 - ExplicitWidth = 262 end object tbxParameterConstraint: TBoldEdit Left = 120 @@ -4960,7 +4840,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 4 Visible = False - ExplicitWidth = 246 end object btParameterConstraintEditor: TButton Left = 353 @@ -4980,7 +4859,6 @@ object BoldModelEditFrm: TBoldModelEditFrm TabOrder = 5 Visible = False OnClick = btModelConstraintEditorClick - ExplicitLeft = 365 end end object tabPackage: TTabSheet @@ -4995,7 +4873,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Align = alTop Beveled = True OnCanResize = Splitter2CanResize - ExplicitWidth = 607 end object sbPaCKAGE: TScrollBox Left = 0 @@ -5006,7 +4883,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Align = alTop BorderStyle = bsNone TabOrder = 0 - ExplicitWidth = 607 DesignSize = ( 603 104) @@ -5085,7 +4961,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 0 - ExplicitWidth = 262 end object tbxPackageExpressionName: TBoldEdit Left = 120 @@ -5106,7 +4981,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 2 - ExplicitWidth = 262 end object tbxStereotypeName: TBoldEdit Left = 120 @@ -5127,7 +5001,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 1 - ExplicitWidth = 262 end end object pcPackageTabs: TPageControl @@ -5138,8 +5011,6 @@ object BoldModelEditFrm: TBoldModelEditFrm ActivePage = TabSheet12 Align = alClient TabOrder = 1 - ExplicitWidth = 607 - ExplicitHeight = 402 object TabSheet11: TTabSheet HelpContext = 87 Caption = '&Classes' @@ -5501,7 +5372,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 0 - ExplicitWidth = 262 end object BoldEdit6: TBoldEdit Left = 120 @@ -5523,7 +5393,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 1 Visible = False - ExplicitWidth = 262 end object BoldEdit7: TBoldEdit Left = 120 @@ -5545,7 +5414,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 2 Visible = False - ExplicitWidth = 262 end object BoldEdit8: TBoldEdit Left = 120 @@ -5567,7 +5435,6 @@ object BoldModelEditFrm: TBoldModelEditFrm MaxLength = 0 TabOrder = 3 Visible = False - ExplicitWidth = 262 end end object tabQualifier: TTabSheet @@ -5669,7 +5536,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 0 - ExplicitWidth = 262 end object BoldEdit3: TBoldEdit Left = 120 @@ -5691,7 +5557,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 1 - ExplicitWidth = 262 end object BoldComboBox1: TBoldComboBox Left = 120 @@ -5712,7 +5577,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] Sorted = True TabOrder = 2 - ExplicitWidth = 262 end object BoldEdit4: TBoldEdit Left = 120 @@ -5736,7 +5600,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 3 - ExplicitWidth = 262 end object BoldEdit9: TBoldEdit Left = 120 @@ -5758,7 +5621,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Anchors = [akLeft, akTop, akRight] MaxLength = 0 TabOrder = 4 - ExplicitWidth = 262 end end end @@ -5843,49 +5705,42 @@ object BoldModelEditFrm: TBoldModelEditFrm end end object behModel: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhTreeRoot Expression = 'self->filterOnType(UMLModel)->first' Left = 4 Top = 64 end object behClass: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhCurrentElement Expression = 'self->filterOnType(UMLClass)->first' Left = 4 Top = 96 end object behAttribute: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhCurrentElement Expression = 'self->filterOnType(UMLAttribute)->first' Left = 4 Top = 160 end object behOperation: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhCurrentElement Expression = 'self->filterOnType(UMLOperation)->first' Left = 8 Top = 200 end object behAssociation: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhCurrentElement Expression = 'self->filterOnType(UMLAssociation)->first' Left = 8 Top = 236 end object behAssociationEnd: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhCurrentElement Expression = 'self->filterOnType(UMLAssociationEnd)->first' Left = 8 Top = 272 end object behClassSuperClass: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behClass RootTypeName = 'UMLClassifier' Expression = 'superclass' @@ -6205,62 +6060,53 @@ object BoldModelEditFrm: TBoldModelEditFrm end end object behParameter: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhCurrentElement Expression = 'self->filterOnType(UMLParameter)->first' Left = 4 Top = 356 end object brhTreeRoot: TBoldReferenceHandle - StaticSystemHandle = ServerData.SystemHandle StaticValueTypeName = 'UMLModelElement' Left = 4 Top = 32 end object blhModelClasses: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behModel Expression = 'ownedElement->filterOnType(UMLClass)->orderBy(name)' Left = 38 Top = 64 end object blhModelAssociations: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behModel Expression = 'ownedElement->filterOnType(UMLAssociation)' Left = 72 Top = 64 end object blhClassAttributes: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behClass Expression = 'feature->filterOnType(UMLAttribute)' Left = 36 Top = 128 end object blhClassOperations: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behClass Expression = 'feature->select(oclIsTypeOf(UMLOperation))' Left = 176 Top = 100 end object blhParameters: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behOperation Expression = 'parameter' Left = 40 Top = 200 end object blhAssociationAssociationEnds: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behAssociation Expression = 'connection' Left = 43 Top = 238 end object blhAllClasses: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhTreeRoot Expression = 'UMLClass.allInstances' Left = 47 @@ -7608,7 +7454,6 @@ object BoldModelEditFrm: TBoldModelEditFrm 000000000000} end object blhAssociationEndQualifiers: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behAssociationEnd Expression = 'qualifier' Left = 83 @@ -7630,21 +7475,18 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 529 end object blhAllParameterKind: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootTypeName = 'ParameterDirectionKind' Expression = 'ParameterDirectionKind.allInstances' Left = 111 Top = 201 end object blhAllOwnerScope: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootTypeName = 'ScopeKind' Expression = 'ScopeKind.allInstances' Left = 75 Top = 201 end object behAssociationEndType: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behAssociationEnd RootTypeName = 'UMLAssociationEnd' Expression = 'type' @@ -7660,7 +7502,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 525 end object blhAllSuperclasses: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behClass Expression = 'model.allOwnedElement->filterOnType(UMLCLass)->excluding(self)->' + @@ -7677,38 +7518,32 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 529 end object blhAllAggregationKind: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootTypeName = 'Collection(AggregationKind)' Expression = 'AggregationKind.allinstances' Left = 119 Top = 305 end object blhAllVisibilityKind: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle Expression = 'VisibilityKind.allinstances' Left = 11 Top = 485 end object blhAllChangeabilityKind: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle Expression = 'ChangeableKind.allinstances' Left = 151 Top = 304 end object brhCurrentElement: TBoldReferenceHandle - StaticSystemHandle = ServerData.SystemHandle StaticValueTypeName = 'UMLElement' Left = 100 Top = 32 end object bvhTableMapping: TBoldVariableHandle - StaticSystemHandle = ServerData.SystemHandle ValueTypeName = 'Collection(String)' Left = 71 Top = 97 end object bcrTableMapping: TBoldCursorHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = bvhTableMapping RootTypeName = 'Collection(String)' AutoFirst = False @@ -7716,7 +7551,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 97 end object bchAttributeKind: TBoldCursorHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = bvhAttributeKind RootTypeName = 'Collection(String)' AutoFirst = False @@ -7724,19 +7558,16 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 165 end object bvhAttributeKind: TBoldVariableHandle - StaticSystemHandle = ServerData.SystemHandle ValueTypeName = 'Collection(String)' Left = 139 Top = 161 end object bvhDelphiProperty: TBoldVariableHandle - StaticSystemHandle = ServerData.SystemHandle ValueTypeName = 'Collection(String)' Left = 71 Top = 165 end object bchDelphiProperty: TBoldCursorHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = bvhDelphiProperty RootTypeName = 'Collection(String)' AutoFirst = False @@ -7744,7 +7575,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 165 end object bchDelphiFunctionType: TBoldCursorHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = bvhDelphiFunctionType RootTypeName = 'Collection(String)' AutoFirst = False @@ -7752,13 +7582,11 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 201 end object bvhDelphiFunctionType: TBoldVariableHandle - StaticSystemHandle = ServerData.SystemHandle ValueTypeName = 'Collection(String)' Left = 147 Top = 201 end object bchMultiplicityValues: TBoldCursorHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = bvhMultiplicityValues RootTypeName = 'Collection(String)' AutoFirst = False @@ -7766,7 +7594,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 269 end object bvhMultiplicityValues: TBoldVariableHandle - StaticSystemHandle = ServerData.SystemHandle ValueTypeName = 'Collection(String)' InitialValues.Strings = ( '0..1' @@ -7777,7 +7604,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 269 end object bchDeleteActions: TBoldCursorHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = bvhDeleteActions RootTypeName = 'Collection(String)' AutoFirst = False @@ -7785,20 +7611,17 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 305 end object bvhDeleteActions: TBoldVariableHandle - StaticSystemHandle = ServerData.SystemHandle ValueTypeName = 'Collection(String)' Left = 43 Top = 305 end object blhClassAssociationEnds: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behClass Expression = 'associationEnd.otherEnd' Left = 76 Top = 128 end object bvhOptimisticLocking: TBoldVariableHandle - StaticSystemHandle = ServerData.SystemHandle ValueTypeName = 'Collection(String)' InitialValues.Strings = ( '' @@ -7810,62 +7633,53 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 64 end object bchOptimisticLocking: TBoldCursorHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = bvhOptimisticLocking AutoFirst = False Left = 139 Top = 64 end object behHighestSeverity: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behModel Expression = 'validator.highestSeverity' Left = 107 Top = 437 end object brhPackage: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhCurrentElement Expression = 'self->filterOnType(UMLPackage)->first' Left = 8 Top = 396 end object blhPackageAssociations: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhPackage Expression = 'ownedElement->filterOnType(UMLAssociation)' Left = 83 Top = 390 end object blhPackageClasses: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhPackage Expression = 'ownedElement->filterOnType(UMLClass)' Left = 43 Top = 394 end object blhAllDataTypes: TBoldListHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behModel Expression = 'allOwnedElement->filterOnType(UMLDataType)->orderby(name)' Left = 40 Top = 160 end object brhDataType: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = brhCurrentElement Expression = 'self->filterOnType(UMLDataType)->first' Left = 8 Top = 436 end object brhCopyCut: TBoldReferenceHandle - StaticSystemHandle = ServerData.SystemHandle StaticValueTypeName = 'UMLModelElement' Left = 136 Top = 32 end object behBoldified: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behModel RootTypeName = 'Boolean' Expression = 'taggedValue['#39'_Boldify.boldified'#39'].Value='#39'True'#39 @@ -7884,7 +7698,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 484 end object behClassIsRootClass: TBoldExpressionHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behClass Expression = '(model.taggedValue['#39'_Boldify.boldified'#39'].Value='#39'True'#39') and (gene' + @@ -7915,7 +7728,6 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 93 end object bdhAttributePMapperNames: TBoldDerivedHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = behAttribute RootTypeName = 'Collection(String)' OnDeriveAndSubscribe = bdhAttributePMapperNamesDeriveAndSubscribe @@ -7924,14 +7736,12 @@ object BoldModelEditFrm: TBoldModelEditFrm Top = 148 end object bchAttributePMapperNames: TBoldCursorHandle - StaticSystemHandle = ServerData.SystemHandle RootHandle = bdhAttributePMapperNames RootTypeName = 'Collection(String)' Left = 163 Top = 361 end object bvhAdvancedMode: TBoldVariableHandle - StaticSystemHandle = ServerData.SystemHandle ValueTypeName = 'Boolean' Left = 348 Top = 2 diff --git a/Source/BoldUMLModelEditorHandlesDataModule.dfm b/Source/BoldUMLModelEditorHandlesDataModule.dfm index 49e3fc5c..f5f58ba8 100644 --- a/Source/BoldUMLModelEditorHandlesDataModule.dfm +++ b/Source/BoldUMLModelEditorHandlesDataModule.dfm @@ -376,7 +376,7 @@ object dmBoldUMLModelEditorHandles: TdmBoldUMLModelEditorHandles object behModelClasses: TBoldExpressionHandle RootHandle = behModel Expression = 'classes' - Left = 616 + Left = 624 Top = 48 end object behModelAssociations: TBoldExpressionHandle diff --git a/Source/BoldUMLModelValidationForm.dfm b/Source/BoldUMLModelValidationForm.dfm index eaa99a8c..75e0d2b0 100644 --- a/Source/BoldUMLModelValidationForm.dfm +++ b/Source/BoldUMLModelValidationForm.dfm @@ -1,9 +1,9 @@ object frmValidation: TfrmValidation Left = 458 Top = 198 - Width = 611 - Height = 243 Caption = 'Validation' + ClientHeight = 204 + ClientWidth = 595 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -36,32 +36,31 @@ object frmValidation: TfrmValidation 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000} KeyPreview = True - OldCreateOrder = True Position = poScreenCenter OnClose = FormClose OnKeyDown = FormKeyDown - PixelsPerInch = 96 TextHeight = 13 object BoldGrid1: TBoldGrid Left = 0 Top = 30 - Width = 603 - Height = 167 + Width = 595 + Height = 155 AddNewAtEnd = False Align = alClient BoldAutoColumns = False BoldShowConstraints = False BoldHandle = blhViolations BoldProperties.InternalDrag = False - BoldProperties.NilElementMode = neNone Columns = < item + BoldProperties.Expression = '' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] + LookUpProperties.Expression = '' end item BoldProperties.Expression = 'description' @@ -71,6 +70,7 @@ object frmValidation: TfrmValidation Font.Name = 'MS Sans Serif' Font.Style = [] Title.Caption = 'Description' + LookUpProperties.Expression = '' end item BoldProperties.Expression = 'severity' @@ -80,6 +80,7 @@ object frmValidation: TfrmValidation Font.Name = 'MS Sans Serif' Font.Style = [] Title.Caption = 'Violation' + LookUpProperties.Expression = '' end item BoldProperties.Expression = 'modelElement.name' @@ -89,10 +90,17 @@ object frmValidation: TfrmValidation Font.Name = 'MS Sans Serif' Font.Style = [] Title.Caption = 'Element' + LookUpProperties.Expression = '' end> DefaultRowHeight = 17 EnableColAdjust = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goColMoving] + ParentFont = False PopupMenu = PopupMenu1 TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET @@ -109,21 +117,19 @@ object frmValidation: TfrmValidation end object StatusBar1: TStatusBar Left = 0 - Top = 197 - Width = 603 + Top = 185 + Width = 595 Height = 19 Panels = <> end object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 603 + Width = 595 Height = 30 BorderWidth = 1 ButtonWidth = 92 Caption = 'ToolBar1' - EdgeBorders = [] - Flat = True Images = ilCutCopyPaste List = True ShowCaptions = True @@ -151,6 +157,7 @@ object frmValidation: TfrmValidation Top = 60 end object blhViolations: TBoldListHandle + StaticSystemHandle = dmModelEdit.bshUMLModel RootHandle = behModel Expression = 'validator.violation->orderdescending(severity)' Left = 156 @@ -191,135 +198,7 @@ object frmValidation: TfrmValidation Top = 120 Bitmap = { 494C010105000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 - 0000000000003600000028000000400000003000000001002000000000000030 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003600000028000000400000002000000001002000000000000020 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 @@ -577,12 +456,8 @@ object frmValidation: TfrmValidation 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000424D3E000000000000003E000000 - 2800000040000000300000000100010000000000800100000000000000000000 - 000000000000000000000000FFFFFF0000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000FFFF000000000000E1FF000000000000 + 2800000040000000200000000100010000000000000100000000000000000000 + 000000000000000000000000FFFFFF00FFFF000000000000E1FF000000000000 CCFF000000000000DEFF000000000000DE3F000000000000CC5F000000000000 E1AF000000000000F7AF000000000000F32F000000000000F44F000000000000 F39F000000000000F80F000000000000FFC7000000000000FFE7000000000000 @@ -596,8 +471,7 @@ object frmValidation: TfrmValidation object BoldPlaceableSubscriber1: TBoldPlaceableSubscriber BoldHandle = blhViolations OnReceive = BoldPlaceableSubscriber1Receive - DelayEventsUntilPostNotify = False - Left = 256 + Left = 248 Top = 80 end end diff --git a/Source/BoldUMLTaggedValuesEditor.dfm b/Source/BoldUMLTaggedValuesEditor.dfm index 6a571925..eda638b6 100644 --- a/Source/BoldUMLTaggedValuesEditor.dfm +++ b/Source/BoldUMLTaggedValuesEditor.dfm @@ -65,7 +65,6 @@ object frmBoldUMLTaggedValuesEditor: TfrmBoldUMLTaggedValuesEditor Width = 6 Height = 334 Beveled = True - ExplicitHeight = 347 end object bmValue: TBoldMemo Left = 131 @@ -84,8 +83,6 @@ object frmBoldUMLTaggedValuesEditor: TfrmBoldUMLTaggedValuesEditor MaxLength = 0 ReadOnly = False TabOrder = 0 - ExplicitWidth = 233 - ExplicitHeight = 347 end object lbTagName: TBoldListBox Left = 4 @@ -105,7 +102,6 @@ object frmBoldUMLTaggedValuesEditor: TfrmBoldUMLTaggedValuesEditor end end object bdhAllTools: TBoldDerivedHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 RootHandle = behRoot OnDeriveAndSubscribe = bdhAllToolsDeriveAndSubscribe ValueTypeName = 'Collection(UMLTaggedValue)' @@ -113,14 +109,12 @@ object frmBoldUMLTaggedValuesEditor: TfrmBoldUMLTaggedValuesEditor Top = 100 end object bchAllTools: TBoldCursorHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 RootHandle = bdhAllTools AutoFirst = False Left = 34 Top = 148 end object bdhSelectedTVs: TBoldDerivedHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 RootHandle = bchAllTools OnDeriveAndSubscribe = bdhSelectedTVsDeriveAndSubscribe ValueTypeName = 'Collection(UMLTaggedValue)' @@ -128,7 +122,6 @@ object frmBoldUMLTaggedValuesEditor: TfrmBoldUMLTaggedValuesEditor Top = 104 end object blhSelectedTVs: TBoldListHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 RootHandle = bdhSelectedTVs RootTypeName = 'Collection(UMLTaggedValue)' Expression = 'self->orderby(tag)' @@ -136,7 +129,6 @@ object frmBoldUMLTaggedValuesEditor: TfrmBoldUMLTaggedValuesEditor Top = 152 end object behRoot: TBoldExpressionHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 Left = 84 Top = 52 end diff --git a/Source/BoldUMLUsesEditorForm.dfm b/Source/BoldUMLUsesEditorForm.dfm index ca6bf80b..e164a8cb 100644 --- a/Source/BoldUMLUsesEditorForm.dfm +++ b/Source/BoldUMLUsesEditorForm.dfm @@ -49,10 +49,8 @@ object frmUsesEditor: TfrmUsesEditor Align = alBottom BevelOuter = bvNone TabOrder = 1 - ExplicitTop = 150 - ExplicitWidth = 227 object pnButtons2: TPanel - Left = 42 + Left = 34 Top = 0 Width = 185 Height = 41 @@ -92,8 +90,6 @@ object frmUsesEditor: TfrmUsesEditor Width = 219 Height = 19 Panels = <> - ExplicitTop = 191 - ExplicitWidth = 227 end object pnText: TPanel Left = 0 @@ -104,13 +100,11 @@ object frmUsesEditor: TfrmUsesEditor BevelOuter = bvNone Caption = 'pnText' TabOrder = 0 - ExplicitWidth = 227 - ExplicitHeight = 150 object BoldMemo1: TBoldMemo Left = 0 Top = 0 - Width = 227 - Height = 150 + Width = 219 + Height = 138 Align = alClient Alignment = taLeftJustify BoldHandle = behFormRoot @@ -128,7 +122,6 @@ object frmUsesEditor: TfrmUsesEditor end end object behFormRoot: TBoldReferenceHandle - StaticSystemHandle = dmSnooper.BoldSystemHandle1 Left = 112 Top = 112 end diff --git a/Source/BoldWACustomAttrForm1.dfm b/Source/BoldWACustomAttrForm1.dfm index 2aed31ac..a15202ae 100644 --- a/Source/BoldWACustomAttrForm1.dfm +++ b/Source/BoldWACustomAttrForm1.dfm @@ -1,25 +1,23 @@ object CustomAttrForm1: TCustomAttrForm1 Left = 232 Top = 237 - Width = 547 - Height = 314 HelpContext = 10 Caption = 'CustomAttrForm1' + ClientHeight = 275 + ClientWidth = 531 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] - OldCreateOrder = False OnDestroy = FormDestroy - PixelsPerInch = 96 TextHeight = 13 object PageControl1: TPageControl Left = 0 Top = 0 - Width = 539 - Height = 287 + Width = 531 + Height = 275 ActivePage = tsProperties Align = alClient Style = tsButtons @@ -31,8 +29,8 @@ object CustomAttrForm1: TCustomAttrForm1 object GroupBox1: TGroupBox Left = 0 Top = 0 - Width = 531 - Height = 256 + Width = 523 + Height = 244 Align = alClient Caption = ' Class Definition ' Font.Charset = DEFAULT_CHARSET @@ -145,7 +143,6 @@ object CustomAttrForm1: TCustomAttrForm1 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] - ItemHeight = 0 ParentFont = False TabOrder = 0 OnChange = cbParentChange @@ -218,8 +215,8 @@ object CustomAttrForm1: TCustomAttrForm1 object GroupBox4: TGroupBox Left = 0 Top = 0 - Width = 531 - Height = 256 + Width = 523 + Height = 244 Align = alClient Caption = 'Define new properties' Font.Charset = DEFAULT_CHARSET @@ -232,7 +229,7 @@ object CustomAttrForm1: TCustomAttrForm1 object ToolBar1: TToolBar Left = 2 Top = 15 - Width = 527 + Width = 519 Height = 29 ButtonHeight = 25 Caption = 'ToolBar1' @@ -249,21 +246,19 @@ object CustomAttrForm1: TCustomAttrForm1 TabStop = True object ToolButton2: TToolButton Left = 0 - Top = 2 + Top = 0 Width = 8 Caption = 'ToolButton2' Style = tbsSeparator end object bbPropertyAdd: TBitBtn Left = 8 - Top = 2 + Top = 0 Width = 25 Height = 25 Hint = 'Add (Ctrl + Ins)' Action = ActionStringGridInsert - ParentShowHint = False - ShowHint = True - TabOrder = 0 + ImageIndex = 0 Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF @@ -291,17 +286,18 @@ object CustomAttrForm1: TCustomAttrForm1 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} + ParentShowHint = False + ShowHint = True + TabOrder = 0 end object bbPropertyDelete: TBitBtn Left = 33 - Top = 2 + Top = 0 Width = 25 Height = 25 Hint = 'Delete (Ctrl + Del)' Action = ActionStringGridDelete - ParentShowHint = False - ShowHint = True - TabOrder = 1 + ImageIndex = 1 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 @@ -311,17 +307,16 @@ object CustomAttrForm1: TCustomAttrForm1 7777777777777777777777777777777777777770000000000777777000000000 0777777000000000077777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777} + ParentShowHint = False + ShowHint = True + TabOrder = 1 end object bbPropertyMoveDown: TBitBtn Left = 58 - Top = 2 + Top = 0 Width = 25 Height = 25 Hint = 'Move Down' - ParentShowHint = False - ShowHint = True - TabOrder = 2 - OnClick = bbPropertyMoveDownClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 @@ -336,17 +331,17 @@ object CustomAttrForm1: TCustomAttrForm1 6666666666766F6666666666666006666666666666766F666666666666600666 6666666666766F66666666666666666666666666667776666666} NumGlyphs = 2 + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = bbPropertyMoveDownClick end object bbPropertyMoveUp: TBitBtn Left = 83 - Top = 2 + Top = 0 Width = 25 Height = 25 Hint = 'Move Up' - ParentShowHint = False - ShowHint = True - TabOrder = 3 - OnClick = bbPropertyMoveUpClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 @@ -361,13 +356,17 @@ object CustomAttrForm1: TCustomAttrForm1 66666666676666F666666666667007666666666666766F666666666666600666 6666666666766F666666666666666666666666666667F6666666} NumGlyphs = 2 + ParentShowHint = False + ShowHint = True + TabOrder = 3 + OnClick = bbPropertyMoveUpClick end end object StringGridProperties: TStringGrid Left = 2 Top = 44 - Width = 527 - Height = 210 + Width = 519 + Height = 198 Align = alClient ColCount = 3 DefaultColWidth = 100 @@ -394,7 +393,6 @@ object CustomAttrForm1: TCustomAttrForm1 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] - ItemHeight = 13 ParentFont = False TabOrder = 2 Items.Strings = ( @@ -417,7 +415,6 @@ object CustomAttrForm1: TCustomAttrForm1 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] - ItemHeight = 13 ParentFont = False TabOrder = 3 Items.Strings = ( @@ -532,8 +529,8 @@ object CustomAttrForm1: TCustomAttrForm1 object GroupBox3: TGroupBox Left = 0 Top = 0 - Width = 531 - Height = 256 + Width = 523 + Height = 244 Align = alClient Caption = 'Define new methods ' Font.Charset = DEFAULT_CHARSET @@ -546,7 +543,7 @@ object CustomAttrForm1: TCustomAttrForm1 object ToolBar2: TToolBar Left = 2 Top = 15 - Width = 527 + Width = 519 Height = 29 ButtonHeight = 25 Caption = 'ToolBar2' @@ -573,9 +570,7 @@ object CustomAttrForm1: TCustomAttrForm1 Height = 25 Hint = 'Add (Ctrl + Ins)' Action = ActionStringGridInsert - ParentShowHint = False - ShowHint = True - TabOrder = 0 + ImageIndex = 0 Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF @@ -603,6 +598,9 @@ object CustomAttrForm1: TCustomAttrForm1 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} + ParentShowHint = False + ShowHint = True + TabOrder = 0 end object bbDeleteMethod: TBitBtn Left = 33 @@ -611,9 +609,7 @@ object CustomAttrForm1: TCustomAttrForm1 Height = 25 Hint = 'Delete (Ctrl + Del)' Action = ActionStringGridInsert - ParentShowHint = False - ShowHint = True - TabOrder = 1 + ImageIndex = 0 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 @@ -623,6 +619,9 @@ object CustomAttrForm1: TCustomAttrForm1 7777777777777777777777777777777777777770000000000777777000000000 0777777000000000077777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777} + ParentShowHint = False + ShowHint = True + TabOrder = 1 end object bbMethodMoveDown: TBitBtn Left = 58 @@ -630,10 +629,6 @@ object CustomAttrForm1: TCustomAttrForm1 Width = 25 Height = 25 Hint = 'Move Down' - ParentShowHint = False - ShowHint = True - TabOrder = 2 - OnClick = bbMethodMoveDownClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 @@ -648,6 +643,10 @@ object CustomAttrForm1: TCustomAttrForm1 6666666666766F6666666666666006666666666666766F666666666666600666 6666666666766F66666666666666666666666666667776666666} NumGlyphs = 2 + ParentShowHint = False + ShowHint = True + TabOrder = 2 + OnClick = bbMethodMoveDownClick end object bbMethodMoveUp: TBitBtn Left = 83 @@ -655,10 +654,6 @@ object CustomAttrForm1: TCustomAttrForm1 Width = 25 Height = 25 Hint = 'Move Up' - ParentShowHint = False - ShowHint = True - TabOrder = 3 - OnClick = bbPropertyMoveUpClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 @@ -673,13 +668,17 @@ object CustomAttrForm1: TCustomAttrForm1 66666666676666F666666666667007666666666666766F666666666666600666 6666666666766F666666666666666666666666666667F6666666} NumGlyphs = 2 + ParentShowHint = False + ShowHint = True + TabOrder = 3 + OnClick = bbPropertyMoveUpClick end end object StringGridMethods: TStringGrid Left = 2 Top = 44 - Width = 527 - Height = 210 + Width = 519 + Height = 198 Align = alClient DefaultColWidth = 100 DefaultRowHeight = 21 @@ -712,7 +711,6 @@ object CustomAttrForm1: TCustomAttrForm1 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] - ItemHeight = 13 ParentFont = False TabOrder = 2 Items.Strings = ( @@ -744,7 +742,6 @@ object CustomAttrForm1: TCustomAttrForm1 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] - ItemHeight = 13 ParentFont = False TabOrder = 4 Items.Strings = ( @@ -780,7 +777,6 @@ object CustomAttrForm1: TCustomAttrForm1 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] - ItemHeight = 13 ParentFont = False TabOrder = 6 Items.Strings = ( @@ -813,7 +809,6 @@ object CustomAttrForm1: TCustomAttrForm1 Top = 15 Width = 527 Height = 239 - OnClickCheck = CheckListBoxOverrideClickCheck Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -825,6 +820,7 @@ object CustomAttrForm1: TCustomAttrForm1 ParentShowHint = False ShowHint = False TabOrder = 0 + OnClickCheck = CheckListBoxOverrideClickCheck end end end diff --git a/Source/BoldWAInputFormUnit.dfm b/Source/BoldWAInputFormUnit.dfm index 098ee437..5ce65fdd 100644 --- a/Source/BoldWAInputFormUnit.dfm +++ b/Source/BoldWAInputFormUnit.dfm @@ -49,8 +49,6 @@ object InputForm: TInputForm Align = alBottom BevelOuter = bvNone TabOrder = 0 - ExplicitTop = 273 - ExplicitWidth = 578 object btnCancel: TButton Left = 492 Top = 16 @@ -98,7 +96,6 @@ object InputForm: TInputForm Align = alLeft BevelOuter = bvNone TabOrder = 1 - ExplicitHeight = 273 object Image1: TImage Left = 7 Top = 8 diff --git a/Source/BoldWAMainForm.dfm b/Source/BoldWAMainForm.dfm index 604d427b..297f76ac 100644 --- a/Source/BoldWAMainForm.dfm +++ b/Source/BoldWAMainForm.dfm @@ -50,8 +50,6 @@ object MainForm: TMainForm Align = alBottom BevelOuter = bvNone TabOrder = 1 - ExplicitTop = 255 - ExplicitWidth = 497 object btnCancel: TButton Left = 408 Top = 16 @@ -99,8 +97,6 @@ object MainForm: TMainForm Align = alClient BevelOuter = bvNone TabOrder = 0 - ExplicitWidth = 497 - ExplicitHeight = 255 object Image1: TImage Left = 23 Top = 8 diff --git a/Source/BoldWASubClassForm1.dfm b/Source/BoldWASubClassForm1.dfm index 06274d6e..15c9c825 100644 --- a/Source/BoldWASubClassForm1.dfm +++ b/Source/BoldWASubClassForm1.dfm @@ -22,8 +22,6 @@ object SubClassForm1: TSubClassForm1 Align = alClient Style = tsButtons TabOrder = 0 - ExplicitWidth = 457 - ExplicitHeight = 277 object tsClassDef: TTabSheet HelpContext = 21 Caption = 'Defifnition' @@ -31,16 +29,16 @@ object SubClassForm1: TSubClassForm1 object Panel1: TPanel Left = 0 Top = 0 - Width = 449 - Height = 246 + Width = 441 + Height = 234 Align = alClient BevelOuter = bvNone TabOrder = 0 object GroupBox1: TGroupBox Left = 0 Top = 0 - Width = 449 - Height = 246 + Width = 441 + Height = 234 Align = alClient Caption = 'Class Definition' Font.Charset = DEFAULT_CHARSET @@ -237,8 +235,6 @@ object SubClassForm1: TSubClassForm1 Font.Style = [] ParentFont = False TabOrder = 0 - ExplicitWidth = 449 - ExplicitHeight = 246 object ListViewOverride: TListView Left = 2 Top = 15 @@ -259,8 +255,6 @@ object SubClassForm1: TSubClassForm1 ParentFont = False TabOrder = 0 ViewStyle = vsList - ExplicitWidth = 445 - ExplicitHeight = 229 end object MemoBoldClasses: TMemo Left = 48 diff --git a/Source/BoldWAValueSetDlg.dfm b/Source/BoldWAValueSetDlg.dfm index 6424d54f..bfc792ff 100644 --- a/Source/BoldWAValueSetDlg.dfm +++ b/Source/BoldWAValueSetDlg.dfm @@ -20,8 +20,6 @@ object ValueSetDlg: TValueSetDlg Align = alClient BevelOuter = bvNone TabOrder = 0 - ExplicitWidth = 254 - ExplicitHeight = 202 object lbValueName: TLabel Left = 8 Top = 8 @@ -42,7 +40,7 @@ object ValueSetDlg: TValueSetDlg Left = 8 Top = 24 Width = 160 - Height = 21 + Height = 23 Enabled = False TabOrder = 0 Text = 'Ex: Monday' @@ -68,8 +66,6 @@ object ValueSetDlg: TValueSetDlg Align = alBottom BevelOuter = bvNone TabOrder = 1 - ExplicitTop = 202 - ExplicitWidth = 254 object OkBtn: TButton Left = 76 Top = 8 diff --git a/Source/BoldWAValueSetForm1.dfm b/Source/BoldWAValueSetForm1.dfm index 38a7421e..12e25f55 100644 --- a/Source/BoldWAValueSetForm1.dfm +++ b/Source/BoldWAValueSetForm1.dfm @@ -22,8 +22,6 @@ object ValueSetForm1: TValueSetForm1 Align = alClient Style = tsButtons TabOrder = 0 - ExplicitWidth = 468 - ExplicitHeight = 277 object tsClassDef: TTabSheet HelpContext = 31 Caption = 'Definition' @@ -243,8 +241,8 @@ object ValueSetForm1: TValueSetForm1 object GroupBox2: TGroupBox Left = 0 Top = 0 - Width = 460 - Height = 246 + Width = 452 + Height = 235 Align = alClient Caption = ' Define values ' Font.Charset = DEFAULT_CHARSET @@ -257,7 +255,7 @@ object ValueSetForm1: TValueSetForm1 object ToolBar1: TToolBar Left = 2 Top = 15 - Width = 456 + Width = 448 Height = 29 ButtonHeight = 25 Caption = 'ToolBar1' @@ -275,14 +273,14 @@ object ValueSetForm1: TValueSetForm1 TabStop = True object ToolButton1: TToolButton Left = 0 - Top = 2 + Top = 0 Width = 8 Caption = 'ToolButton1' Style = tbsSeparator end object bbInsert: TBitBtn Left = 8 - Top = 2 + Top = 0 Width = 25 Height = 25 Hint = 'New Value (Ctrl + Ins)' @@ -320,7 +318,7 @@ object ValueSetForm1: TValueSetForm1 end object bbDelete: TBitBtn Left = 33 - Top = 2 + Top = 0 Width = 25 Height = 25 Hint = 'Delete Value (Ctrl+Del)' @@ -340,7 +338,7 @@ object ValueSetForm1: TValueSetForm1 end object bbEdit: TBitBtn Left = 58 - Top = 2 + Top = 0 Width = 25 Height = 25 Hint = 'Edit Value' @@ -366,7 +364,7 @@ object ValueSetForm1: TValueSetForm1 end object bbDown: TBitBtn Left = 83 - Top = 2 + Top = 0 Width = 25 Height = 25 Hint = 'Move Down' @@ -391,7 +389,7 @@ object ValueSetForm1: TValueSetForm1 end object bbUp: TBitBtn Left = 108 - Top = 2 + Top = 0 Width = 25 Height = 25 Hint = 'Move Up' @@ -418,8 +416,8 @@ object ValueSetForm1: TValueSetForm1 object ListViewValues: TListView Left = 2 Top = 44 - Width = 456 - Height = 200 + Width = 448 + Height = 189 Align = alClient BorderStyle = bsNone BorderWidth = 1