From 10ac72edd54f68111f31e16100ab6f629e0a0f81 Mon Sep 17 00:00:00 2001 From: inoussa Date: Sun, 20 Jul 2014 16:01:03 +0000 Subject: [PATCH] Set form Position to "poDesktopCenter", so in IDE the edition's forms stay visible. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3348 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- wst/trunk/type_lib_edtr/uargedit.lfm | 22 +++++------ wst/trunk/type_lib_edtr/ubindingedit.lfm | 22 ++++++----- wst/trunk/type_lib_edtr/ufarrayedit.lfm | 32 +++++++-------- wst/trunk/type_lib_edtr/ufclassedit.lfm | 37 ++++++++--------- wst/trunk/type_lib_edtr/ufenumedit.lfm | 16 ++++---- wst/trunk/type_lib_edtr/ufrecordedit.lfm | 25 ++++++------ wst/trunk/type_lib_edtr/ufrmsaveoption.lfm | 44 ++++++++++----------- wst/trunk/type_lib_edtr/uftypealiasedit.lfm | 18 ++++----- wst/trunk/type_lib_edtr/uinterfaceedit.lfm | 26 ++++++------ wst/trunk/type_lib_edtr/umoduleedit.lfm | 18 +++++---- wst/trunk/type_lib_edtr/uprocedit.lfm | 39 +++++++++--------- 11 files changed, 154 insertions(+), 145 deletions(-) diff --git a/wst/trunk/type_lib_edtr/uargedit.lfm b/wst/trunk/type_lib_edtr/uargedit.lfm index 4da57fcd1..a5f2900f4 100644 --- a/wst/trunk/type_lib_edtr/uargedit.lfm +++ b/wst/trunk/type_lib_edtr/uargedit.lfm @@ -7,7 +7,7 @@ object fArgEdit: TfArgEdit Caption = 'fArgEdit' ClientHeight = 393 ClientWidth = 400 - Position = poMainFormCenter + Position = poDesktopCenter LCLVersion = '1.2.2.0' object Panel1: TPanel Left = 0 @@ -53,27 +53,27 @@ object fArgEdit: TfArgEdit TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Argument' - ClientHeight = 317 + ClientHeight = 315 ClientWidth = 392 object Label1: TLabel Left = 20 - Height = 13 + Height = 15 Top = 26 - Width = 27 + Width = 32 Caption = 'Name' ParentColor = False end object Label2: TLabel Left = 20 - Height = 13 + Height = 15 Top = 95 - Width = 24 + Width = 26 Caption = 'Type' ParentColor = False end object edtName: TEdit Left = 20 - Height = 21 + Height = 23 Top = 47 Width = 352 Anchors = [akTop, akLeft, akRight] @@ -82,17 +82,17 @@ object fArgEdit: TfArgEdit end object edtType: TComboBox Left = 20 - Height = 21 + Height = 23 Top = 114 Width = 352 Anchors = [akTop, akLeft, akRight] - ItemHeight = 13 + ItemHeight = 15 Style = csDropDownList TabOrder = 1 end object edtModifier: TRadioGroup Left = 20 - Height = 133 + Height = 131 Top = 157 Width = 352 Anchors = [akTop, akLeft, akRight, akBottom] @@ -106,7 +106,7 @@ object fArgEdit: TfArgEdit ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 - ClientHeight = 115 + ClientHeight = 113 ClientWidth = 348 Columns = 2 Items.Strings = ( diff --git a/wst/trunk/type_lib_edtr/ubindingedit.lfm b/wst/trunk/type_lib_edtr/ubindingedit.lfm index bfabb4c89..f93cea368 100644 --- a/wst/trunk/type_lib_edtr/ubindingedit.lfm +++ b/wst/trunk/type_lib_edtr/ubindingedit.lfm @@ -10,9 +10,10 @@ object fBindingEdit: TfBindingEdit Caption = 'fBindingEdit' ClientHeight = 335 ClientWidth = 400 - Position = poMainFormCenter - LCLVersion = '0.9.25' + Position = poDesktopCenter + LCLVersion = '1.2.2.0' object Panel1: TPanel + Left = 0 Height = 50 Top = 285 Width = 400 @@ -45,7 +46,9 @@ object fBindingEdit: TfBindingEdit end end object PageControl1: TPageControl + Left = 0 Height = 285 + Top = 0 Width = 400 ActivePage = TabSheet1 Align = alClient @@ -53,21 +56,21 @@ object fBindingEdit: TfBindingEdit TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Interface Binding' - ClientHeight = 259 + ClientHeight = 257 ClientWidth = 392 object Label1: TLabel Left = 12 - Height = 14 + Height = 15 Top = 26 - Width = 28 + Width = 32 Caption = 'Name' ParentColor = False end object Label2: TLabel Left = 12 - Height = 14 + Height = 15 Top = 98 - Width = 40 + Width = 42 Caption = 'Address' ParentColor = False end @@ -91,7 +94,7 @@ object fBindingEdit: TfBindingEdit end object edtStyle: TRadioGroup Left = 12 - Height = 81 + Height = 79 Top = 165 Width = 352 Anchors = [akTop, akLeft, akRight, akBottom] @@ -105,7 +108,7 @@ object fBindingEdit: TfBindingEdit ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 - ClientHeight = 63 + ClientHeight = 61 ClientWidth = 348 Columns = 2 Items.Strings = ( @@ -121,7 +124,6 @@ object fBindingEdit: TfBindingEdit top = 100 object actOK: TAction Caption = 'OK' - DisableIfNoHandler = True OnExecute = actOKExecute OnUpdate = actOKUpdate end diff --git a/wst/trunk/type_lib_edtr/ufarrayedit.lfm b/wst/trunk/type_lib_edtr/ufarrayedit.lfm index b1fe3e7e0..64703f812 100644 --- a/wst/trunk/type_lib_edtr/ufarrayedit.lfm +++ b/wst/trunk/type_lib_edtr/ufarrayedit.lfm @@ -8,7 +8,7 @@ object fArrayEdit: TfArrayEdit Caption = 'fArrayEdit' ClientHeight = 375 ClientWidth = 392 - Position = poMainFormCenter + Position = poDesktopCenter LCLVersion = '1.2.2.0' object Panel1: TPanel Left = 0 @@ -63,35 +63,35 @@ object fArrayEdit: TfArrayEdit OnChange = PCChange object TabSheet1: TTabSheet Caption = 'Array definition' - ClientHeight = 299 + ClientHeight = 297 ClientWidth = 384 object Label1: TLabel Left = 20 - Height = 13 + Height = 15 Top = 21 - Width = 27 + Width = 32 Caption = 'Name' ParentColor = False end object Label2: TLabel Left = 20 - Height = 13 + Height = 15 Top = 102 - Width = 65 + Width = 72 Caption = 'Element Type' ParentColor = False end object Label3: TLabel Left = 20 - Height = 13 + Height = 15 Top = 170 - Width = 68 + Width = 78 Caption = 'Element Name' ParentColor = False end object edtName: TEdit Left = 20 - Height = 21 + Height = 23 Top = 42 Width = 337 Anchors = [akTop, akLeft, akRight] @@ -99,25 +99,25 @@ object fArrayEdit: TfArrayEdit end object edtElementType: TComboBox Left = 20 - Height = 21 + Height = 23 Top = 122 Width = 337 Anchors = [akTop, akLeft, akRight] - ItemHeight = 13 + ItemHeight = 15 Style = csDropDownList TabOrder = 1 end object edtEmbedded: TCheckBox Left = 20 - Height = 17 + Height = 19 Top = 226 - Width = 338 + Width = 371 Caption = 'Embedded ( items are expanded directly in the enclosing element )' TabOrder = 3 end object edtElementName: TEdit Left = 20 - Height = 21 + Height = 23 Top = 186 Width = 337 Anchors = [akTop, akLeft, akRight] @@ -126,9 +126,9 @@ object fArrayEdit: TfArrayEdit end object edtCollection: TCheckBox Left = 20 - Height = 17 + Height = 19 Top = 258 - Width = 351 + Width = 391 Caption = 'Collection ( Pascal type will derive from TObjectCollectionRemotable )' TabOrder = 4 end diff --git a/wst/trunk/type_lib_edtr/ufclassedit.lfm b/wst/trunk/type_lib_edtr/ufclassedit.lfm index 100b4b3cf..617e56250 100644 --- a/wst/trunk/type_lib_edtr/ufclassedit.lfm +++ b/wst/trunk/type_lib_edtr/ufclassedit.lfm @@ -63,27 +63,27 @@ object fClassEdit: TfClassEdit OnChange = PCChange object TabSheet1: TTabSheet Caption = 'Compound Object' - ClientHeight = 480 + ClientHeight = 478 ClientWidth = 544 object Label1: TLabel Left = 4 - Height = 13 + Height = 15 Top = 18 - Width = 27 + Width = 32 Caption = 'Name' ParentColor = False end object Label2: TLabel Left = 4 - Height = 13 + Height = 15 Top = 59 - Width = 66 + Width = 72 Caption = 'Inheritts from' ParentColor = False end object edtName: TEdit Left = 92 - Height = 21 + Height = 23 Top = 18 Width = 440 Anchors = [akTop, akLeft, akRight] @@ -91,17 +91,17 @@ object fClassEdit: TfClassEdit end object GroupBox1: TGroupBox Left = 4 - Height = 305 + Height = 303 Top = 98 Width = 529 Anchors = [akTop, akLeft, akRight, akBottom] Caption = ' Properties ' - ClientHeight = 287 + ClientHeight = 285 ClientWidth = 525 TabOrder = 2 object edtProp: TListView Left = 0 - Height = 287 + Height = 285 Top = 0 Width = 525 Align = alClient @@ -121,6 +121,7 @@ object fClassEdit: TfClassEdit end> HideSelection = False PopupMenu = PopupMenu1 + ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport @@ -130,7 +131,7 @@ object fClassEdit: TfClassEdit object Button3: TButton Left = 4 Height = 25 - Top = 413 + Top = 411 Width = 100 Action = actPropAdd Anchors = [akLeft, akBottom] @@ -140,7 +141,7 @@ object fClassEdit: TfClassEdit object Button4: TButton Left = 116 Height = 25 - Top = 413 + Top = 411 Width = 100 Action = actPropEdit Anchors = [akLeft, akBottom] @@ -150,7 +151,7 @@ object fClassEdit: TfClassEdit object Button5: TButton Left = 228 Height = 25 - Top = 413 + Top = 411 Width = 100 Action = actPropDelete Anchors = [akLeft, akBottom] @@ -159,18 +160,18 @@ object fClassEdit: TfClassEdit end object edtParent: TComboBox Left = 92 - Height = 21 + Height = 23 Top = 58 Width = 440 Anchors = [akTop, akLeft, akRight] - ItemHeight = 13 + ItemHeight = 15 Style = csDropDownList TabOrder = 1 end object Button7: TButton Left = 372 Height = 25 - Top = 413 + Top = 411 Width = 70 Action = actMoveUp Anchors = [akRight, akBottom] @@ -180,7 +181,7 @@ object fClassEdit: TfClassEdit object Button8: TButton Left = 452 Height = 25 - Top = 413 + Top = 411 Width = 70 Action = actMoveDown Anchors = [akRight, akBottom] @@ -190,7 +191,7 @@ object fClassEdit: TfClassEdit object Button9: TButton Left = 372 Height = 25 - Top = 442 + Top = 440 Width = 70 Action = actMoveFirst Anchors = [akRight, akBottom] @@ -199,7 +200,7 @@ object fClassEdit: TfClassEdit object Button10: TButton Left = 452 Height = 25 - Top = 442 + Top = 440 Width = 70 Action = actMoveLast Anchors = [akRight, akBottom] diff --git a/wst/trunk/type_lib_edtr/ufenumedit.lfm b/wst/trunk/type_lib_edtr/ufenumedit.lfm index e71f2b7cc..d2cd37fab 100644 --- a/wst/trunk/type_lib_edtr/ufenumedit.lfm +++ b/wst/trunk/type_lib_edtr/ufenumedit.lfm @@ -8,7 +8,7 @@ object fEnumEdit: TfEnumEdit Caption = 'fEnumEdit' ClientHeight = 368 ClientWidth = 400 - Position = poMainFormCenter + Position = poDesktopCenter LCLVersion = '1.2.2.0' object PC: TPageControl Left = 0 @@ -22,19 +22,19 @@ object fEnumEdit: TfEnumEdit OnChange = PCChange object TabSheet1: TTabSheet Caption = 'Enumeration' - ClientHeight = 292 + ClientHeight = 290 ClientWidth = 392 object Label1: TLabel Left = 4 - Height = 13 + Height = 15 Top = 18 - Width = 27 + Width = 32 Caption = 'Name' ParentColor = False end object edtName: TEdit Left = 68 - Height = 21 + Height = 23 Top = 18 Width = 312 Anchors = [akTop, akLeft, akRight] @@ -42,17 +42,17 @@ object fEnumEdit: TfEnumEdit end object GroupBox1: TGroupBox Left = 4 - Height = 231 + Height = 229 Top = 51 Width = 377 Anchors = [akTop, akLeft, akRight, akBottom] Caption = ' Items ' - ClientHeight = 213 + ClientHeight = 211 ClientWidth = 373 TabOrder = 1 object edtItems: TMemo Left = 0 - Height = 213 + Height = 211 Top = 0 Width = 373 Align = alClient diff --git a/wst/trunk/type_lib_edtr/ufrecordedit.lfm b/wst/trunk/type_lib_edtr/ufrecordedit.lfm index b6c0cb21b..284fc121a 100644 --- a/wst/trunk/type_lib_edtr/ufrecordedit.lfm +++ b/wst/trunk/type_lib_edtr/ufrecordedit.lfm @@ -21,19 +21,19 @@ object fRecordEdit: TfRecordEdit OnChange = PCChange object TabSheet1: TTabSheet Caption = 'Record Type' - ClientHeight = 466 + ClientHeight = 464 ClientWidth = 551 object Label1: TLabel Left = 20 - Height = 13 + Height = 15 Top = 34 - Width = 27 + Width = 32 Caption = 'Name' ParentColor = False end object edtName: TEdit Left = 76 - Height = 21 + Height = 23 Top = 34 Width = 451 Anchors = [akTop, akLeft, akRight] @@ -41,17 +41,17 @@ object fRecordEdit: TfRecordEdit end object GroupBox1: TGroupBox Left = 20 - Height = 320 + Height = 318 Top = 82 Width = 507 Anchors = [akTop, akLeft, akRight, akBottom] Caption = ' Fields ' - ClientHeight = 302 + ClientHeight = 300 ClientWidth = 503 TabOrder = 1 object edtFields: TListView Left = 0 - Height = 302 + Height = 300 Top = 0 Width = 503 Align = alClient @@ -70,6 +70,7 @@ object fRecordEdit: TfRecordEdit end> HideSelection = False PopupMenu = PopupMenu1 + ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport @@ -78,7 +79,7 @@ object fRecordEdit: TfRecordEdit object Button3: TButton Left = 20 Height = 25 - Top = 418 + Top = 416 Width = 100 Action = actPropAdd Anchors = [akLeft, akBottom] @@ -88,7 +89,7 @@ object fRecordEdit: TfRecordEdit object Button4: TButton Left = 132 Height = 25 - Top = 418 + Top = 416 Width = 100 Action = actPropEdit Anchors = [akLeft, akBottom] @@ -98,7 +99,7 @@ object fRecordEdit: TfRecordEdit object Button5: TButton Left = 244 Height = 25 - Top = 418 + Top = 416 Width = 100 Action = actPropDelete Anchors = [akLeft, akBottom] @@ -108,7 +109,7 @@ object fRecordEdit: TfRecordEdit object Button7: TButton Left = 383 Height = 25 - Top = 418 + Top = 416 Width = 70 Action = actMoveUp Anchors = [akRight, akBottom] @@ -118,7 +119,7 @@ object fRecordEdit: TfRecordEdit object Button8: TButton Left = 458 Height = 25 - Top = 418 + Top = 416 Width = 70 Action = actMoveDown Anchors = [akRight, akBottom] diff --git a/wst/trunk/type_lib_edtr/ufrmsaveoption.lfm b/wst/trunk/type_lib_edtr/ufrmsaveoption.lfm index 3c3818847..d3818bd1b 100644 --- a/wst/trunk/type_lib_edtr/ufrmsaveoption.lfm +++ b/wst/trunk/type_lib_edtr/ufrmsaveoption.lfm @@ -8,7 +8,7 @@ object frmSaveOptions: TfrmSaveOptions Caption = 'Export file options ...' ClientHeight = 338 ClientWidth = 402 - Position = poMainFormCenter + Position = poDesktopCenter LCLVersion = '1.2.2.0' object Panel1: TPanel Left = 0 @@ -54,9 +54,9 @@ object frmSaveOptions: TfrmSaveOptions TabOrder = 0 object Label1: TLabel Left = 16 - Height = 13 + Height = 15 Top = 16 - Width = 80 + Width = 88 Caption = 'Output directory' ParentColor = False end @@ -72,35 +72,35 @@ object frmSaveOptions: TfrmSaveOptions TabOrder = 2 object edtInterface: TCheckBox Left = 14 - Height = 17 + Height = 19 Top = 16 - Width = 65 + Width = 66 Caption = 'Interface' TabOrder = 0 end object edtProxy: TCheckBox Left = 14 - Height = 17 - Top = 53 - Width = 48 + Height = 19 + Top = 51 + Width = 49 Anchors = [akLeft, akBottom] Caption = 'Proxy' TabOrder = 2 end object edtImplementation: TCheckBox - Left = 230 - Height = 17 + Left = 219 + Height = 19 Top = 14 - Width = 94 + Width = 105 Anchors = [akTop, akRight] Caption = 'Implementation' TabOrder = 1 end object edtBinder: TCheckBox - Left = 230 - Height = 17 - Top = 53 - Width = 50 + Left = 226 + Height = 19 + Top = 51 + Width = 54 Anchors = [akRight, akBottom] Caption = 'Binder' TabOrder = 3 @@ -108,7 +108,7 @@ object frmSaveOptions: TfrmSaveOptions end object edtOutputDir: TEdit Left = 16 - Height = 21 + Height = 23 Top = 38 Width = 336 Anchors = [akTop, akLeft, akRight] @@ -147,18 +147,18 @@ object frmSaveOptions: TfrmSaveOptions end object edtWrappedParams: TCheckBox Left = 16 - Height = 17 - Top = 198 - Width = 292 + Height = 19 + Top = 196 + Width = 308 Anchors = [akLeft, akBottom] Caption = 'Generate easy access interface for wrapped parameters' TabOrder = 3 end object edtDocAsComments: TCheckBox Left = 16 - Height = 17 - Top = 224 - Width = 204 + Height = 19 + Top = 222 + Width = 226 Anchors = [akLeft, akBottom] Caption = 'Generate documentation as comments' TabOrder = 4 diff --git a/wst/trunk/type_lib_edtr/uftypealiasedit.lfm b/wst/trunk/type_lib_edtr/uftypealiasedit.lfm index 5b3787e88..869f138dd 100644 --- a/wst/trunk/type_lib_edtr/uftypealiasedit.lfm +++ b/wst/trunk/type_lib_edtr/uftypealiasedit.lfm @@ -8,7 +8,7 @@ object fTypeAliasEdit: TfTypeAliasEdit Caption = 'fTypeAliasEdit' ClientHeight = 300 ClientWidth = 400 - Position = poScreenCenter + Position = poDesktopCenter LCLVersion = '1.2.2.0' object Panel1: TPanel Left = 0 @@ -64,27 +64,27 @@ object fTypeAliasEdit: TfTypeAliasEdit OnChange = PCChange object TabSheet1: TTabSheet Caption = 'Type Alias' - ClientHeight = 224 + ClientHeight = 222 ClientWidth = 392 object Label1: TLabel Left = 20 - Height = 13 + Height = 15 Top = 26 - Width = 27 + Width = 32 Caption = 'Name' ParentColor = False end object Label2: TLabel Left = 20 - Height = 13 + Height = 15 Top = 114 - Width = 50 + Width = 53 Caption = 'Base Type' ParentColor = False end object edtName: TEdit Left = 20 - Height = 21 + Height = 23 Top = 42 Width = 344 Anchors = [akTop, akLeft, akRight] @@ -92,11 +92,11 @@ object fTypeAliasEdit: TfTypeAliasEdit end object edtBaseType: TComboBox Left = 20 - Height = 21 + Height = 23 Top = 130 Width = 344 Anchors = [akTop, akLeft, akRight] - ItemHeight = 13 + ItemHeight = 15 Style = csDropDownList TabOrder = 1 end diff --git a/wst/trunk/type_lib_edtr/uinterfaceedit.lfm b/wst/trunk/type_lib_edtr/uinterfaceedit.lfm index e8211973c..348d8e9e2 100644 --- a/wst/trunk/type_lib_edtr/uinterfaceedit.lfm +++ b/wst/trunk/type_lib_edtr/uinterfaceedit.lfm @@ -57,19 +57,19 @@ object fInterfaceEdit: TfInterfaceEdit TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Interface definition' - ClientHeight = 488 + ClientHeight = 486 ClientWidth = 523 object Label1: TLabel Left = 20 - Height = 13 + Height = 15 Top = 26 - Width = 27 + Width = 32 Caption = 'Name' ParentColor = False end object edtName: TEdit Left = 60 - Height = 21 + Height = 23 Top = 26 Width = 443 Anchors = [akTop, akLeft, akRight] @@ -77,29 +77,31 @@ object fInterfaceEdit: TfInterfaceEdit end object GroupBox1: TGroupBox Left = 20 - Height = 368 + Height = 366 Top = 74 Width = 484 Anchors = [akTop, akLeft, akRight, akBottom] Caption = ' Methods ' - ClientHeight = 350 + ClientHeight = 348 ClientWidth = 480 TabOrder = 1 object trvMethods: TTreeView Left = 0 - Height = 350 + Height = 348 Top = 0 Width = 480 Align = alClient - DefaultItemHeight = 16 + DefaultItemHeight = 18 PopupMenu = PopupMenu1 + ReadOnly = True TabOrder = 0 + Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw] end end object Button3: TButton Left = 20 Height = 25 - Top = 450 + Top = 448 Width = 99 Action = actNewMethod Anchors = [akLeft, akBottom] @@ -109,7 +111,7 @@ object fInterfaceEdit: TfInterfaceEdit object Button4: TButton Left = 132 Height = 25 - Top = 450 + Top = 448 Width = 107 Action = actUpdateOperation Anchors = [akLeft, akBottom] @@ -119,7 +121,7 @@ object fInterfaceEdit: TfInterfaceEdit object Button5: TButton Left = 252 Height = 25 - Top = 450 + Top = 448 Width = 104 Action = actDeleteOperation Anchors = [akLeft, akBottom] @@ -129,7 +131,7 @@ object fInterfaceEdit: TfInterfaceEdit object Button6: TButton Left = 396 Height = 25 - Top = 450 + Top = 448 Width = 107 Action = actBindingEdit Anchors = [akRight, akBottom] diff --git a/wst/trunk/type_lib_edtr/umoduleedit.lfm b/wst/trunk/type_lib_edtr/umoduleedit.lfm index f0d434500..49cdc955c 100644 --- a/wst/trunk/type_lib_edtr/umoduleedit.lfm +++ b/wst/trunk/type_lib_edtr/umoduleedit.lfm @@ -10,9 +10,10 @@ object fModuleEdit: TfModuleEdit Caption = 'Module properties' ClientHeight = 300 ClientWidth = 400 - Position = poMainFormCenter - LCLVersion = '0.9.25' + Position = poDesktopCenter + LCLVersion = '1.2.2.0' object Panel1: TPanel + Left = 0 Height = 50 Top = 250 Width = 400 @@ -43,7 +44,9 @@ object fModuleEdit: TfModuleEdit end end object PageControl1: TPageControl + Left = 0 Height = 250 + Top = 0 Width = 400 ActivePage = TabSheet1 Align = alClient @@ -51,21 +54,21 @@ object fModuleEdit: TfModuleEdit TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Module' - ClientHeight = 224 + ClientHeight = 222 ClientWidth = 392 object Label1: TLabel Left = 20 - Height = 14 + Height = 15 Top = 39 - Width = 28 + Width = 32 Caption = 'Name' ParentColor = False end object Label2: TLabel Left = 20 - Height = 14 + Height = 15 Top = 127 - Width = 56 + Width = 62 Caption = 'Namespace' ParentColor = False end @@ -94,7 +97,6 @@ object fModuleEdit: TfModuleEdit top = 126 object actOK: TAction Caption = 'OK' - DisableIfNoHandler = True OnExecute = actOKExecute OnUpdate = actOKUpdate end diff --git a/wst/trunk/type_lib_edtr/uprocedit.lfm b/wst/trunk/type_lib_edtr/uprocedit.lfm index 23239190e..f7c70aa35 100644 --- a/wst/trunk/type_lib_edtr/uprocedit.lfm +++ b/wst/trunk/type_lib_edtr/uprocedit.lfm @@ -7,7 +7,7 @@ object fProcEdit: TfProcEdit Caption = 'fProcEdit' ClientHeight = 543 ClientWidth = 522 - Position = poMainFormCenter + Position = poDesktopCenter LCLVersion = '1.2.2.0' object PageControl1: TPageControl Left = 0 @@ -20,38 +20,38 @@ object fProcEdit: TfProcEdit TabOrder = 0 object TabSheet1: TTabSheet Caption = '&Operation' - ClientHeight = 467 + ClientHeight = 465 ClientWidth = 514 object Label1: TLabel Left = 12 - Height = 13 + Height = 15 Top = 26 - Width = 27 + Width = 32 Caption = 'Name' ParentColor = False end object edtName: TEdit - Left = 112 - Height = 21 + Left = 144 + Height = 23 Top = 26 - Width = 388 + Width = 356 Anchors = [akTop, akLeft, akRight] TabOrder = 0 Text = 'edtName' end object GroupBox1: TGroupBox Left = 11 - Height = 304 + Height = 302 Top = 114 Width = 489 Anchors = [akTop, akLeft, akRight, akBottom] Caption = ' Parametters ' - ClientHeight = 286 + ClientHeight = 284 ClientWidth = 485 TabOrder = 3 object edtParams: TListView Left = 0 - Height = 286 + Height = 284 Top = 0 Width = 485 Align = alClient @@ -70,6 +70,7 @@ object fProcEdit: TfProcEdit end item end> + ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport @@ -77,28 +78,28 @@ object fProcEdit: TfProcEdit end object edtFunction: TCheckBox Left = 12 - Height = 17 + Height = 19 Top = 74 - Width = 99 + Width = 107 Caption = 'Function returns' OnClick = edtFunctionClick OnEditingDone = edtFunctionEditingDone TabOrder = 1 end object edtResultType: TComboBox - Left = 112 - Height = 21 + Left = 144 + Height = 23 Top = 74 - Width = 388 + Width = 356 Anchors = [akTop, akLeft, akRight] - ItemHeight = 13 + ItemHeight = 15 Style = csDropDownList TabOrder = 2 end object Button3: TButton Left = 12 Height = 25 - Top = 429 + Top = 427 Width = 108 Action = actNewArg Anchors = [akLeft, akBottom] @@ -108,7 +109,7 @@ object fProcEdit: TfProcEdit object Button4: TButton Left = 132 Height = 25 - Top = 429 + Top = 427 Width = 108 Action = actUpdateArgument Anchors = [akLeft, akBottom] @@ -118,7 +119,7 @@ object fProcEdit: TfProcEdit object Button5: TButton Left = 248 Height = 25 - Top = 429 + Top = 427 Width = 108 Action = actDeleteArgument Anchors = [akLeft, akBottom]