pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Set the form's "ActiveControl".

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3205 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-06-20 12:40:00 +00:00
parent 6905fc5069
commit f9aede8d35
20 changed files with 799 additions and 490 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
wst/trunk/type_lib_edtr/uargedit.lfm
View File

@ -1,14 +1,14 @@
object fArgEdit: TfArgEdit
Left = 809
Left = 807
Height = 393
Top = 203
Top = 178
Width = 400
BorderStyle = bsSizeToolWin
Caption = 'fArgEdit'
ClientHeight = 393
ClientWidth = 400
Position = poMainFormCenter
LCLVersion = '0.9.29'
LCLVersion = '1.2.2.0'
object Panel1: TPanel
Left = 0
Height = 50
@ -57,17 +57,17 @@ object fArgEdit: TfArgEdit
ClientWidth = 392
object Label1: TLabel
Left = 20
Height = 14
Height = 13
Top = 26
Width = 28
Width = 27
Caption = 'Name'
ParentColor = False
end
object Label2: TLabel
Left = 20
Height = 14
Height = 13
Top = 95
Width = 25
Width = 24
Caption = 'Type'
ParentColor = False
end

1
wst/trunk/type_lib_edtr/uargedit.pas
View File

@ -148,6 +148,7 @@ begin
FUpdateType := AUpdateType;
FObject := AObject;
LoadFromObject();
ActiveControl := edtName;
Result := ( ShowModal() = mrOK );
if Result then begin
SaveToObject();

295
wst/trunk/type_lib_edtr/ufarrayedit.lfm
View File

@ -9,8 +9,9 @@ object fArrayEdit: TfArrayEdit
ClientHeight = 375
ClientWidth = 392
Position = poMainFormCenter
LCLVersion = '0.9.26.2'
LCLVersion = '1.2.2.0'
object Panel1: TPanel
Left = 0
Height = 50
Top = 325
Width = 392
@ -51,45 +52,46 @@ object fArrayEdit: TfArrayEdit
end
end
object PC: TPageControl
Left = 0
Height = 325
Top = 0
Width = 392
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 1
OnChange = PCChange
OnPageChanged = PCChange
object TabSheet1: TTabSheet
Caption = 'Array definition'
ClientHeight = 299
ClientWidth = 384
object Label1: TLabel
Left = 20
Height = 14
Height = 13
Top = 21
Width = 28
Width = 27
Caption = 'Name'
ParentColor = False
end
object Label2: TLabel
Left = 20
Height = 14
Height = 13
Top = 102
Width = 66
Width = 65
Caption = 'Element Type'
ParentColor = False
end
object Label3: TLabel
Left = 20
Height = 14
Height = 13
Top = 170
Width = 69
Width = 68
Caption = 'Element Name'
ParentColor = False
end
object edtName: TEdit
Left = 20
Height = 23
Height = 21
Top = 42
Width = 337
Anchors = [akTop, akLeft, akRight]
@ -109,13 +111,13 @@ object fArrayEdit: TfArrayEdit
Left = 20
Height = 17
Top = 226
Width = 329
Width = 338
Caption = 'Embedded ( items are expanded directly in the enclosing element )'
TabOrder = 3
end
object edtElementName: TEdit
Left = 20
Height = 23
Height = 21
Top = 186
Width = 337
Anchors = [akTop, akLeft, akRight]
@ -126,7 +128,7 @@ object fArrayEdit: TfArrayEdit
Left = 20
Height = 17
Top = 258
Width = 344
Width = 351
Caption = 'Collection ( Pascal type will derive from TObjectCollectionRemotable )'
TabOrder = 4
end
@ -135,7 +137,7 @@ object fArrayEdit: TfArrayEdit
Caption = 'XSD'
ClientHeight = 299
ClientWidth = 384
object edtSourceXSD: TSynEdit
inline edtSourceXSD: TSynEdit
Left = 13
Height = 272
Top = 10
@ -149,339 +151,400 @@ object fArrayEdit: TfArrayEdit
ParentFont = False
TabOrder = 0
BookMarkOptions.Xoffset = 42
BookMarkOptions.OnChange = nil
Gutter.RightOffset = 0
Gutter.Width = 10
Gutter.LeftOffset = 0
Gutter.ShowCodeFolding = True
Gutter.CodeFoldingWidth = 10
Gutter.ShowChanges = True
Gutter.ShowLineNumbers = True
Gutter.Width = 67
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Highlighter = SynXMLSyn1
Keystrokes = <
item
Command = 3
Command = ecUp
ShortCut = 38
end
item
Command = 103
Command = ecSelUp
ShortCut = 8230
end
item
Command = 211
Command = ecScrollUp
ShortCut = 16422
end
item
Command = 4
Command = ecDown
ShortCut = 40
end
item
Command = 104
Command = ecSelDown
ShortCut = 8232
end
item
Command = 212
Command = ecScrollDown
ShortCut = 16424
end
item
Command = 1
Command = ecLeft
ShortCut = 37
end
item
Command = 101
Command = ecSelLeft
ShortCut = 8229
end
item
Command = 5
Command = ecWordLeft
ShortCut = 16421
end
item
Command = 105
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = 2
Command = ecRight
ShortCut = 39
end
item
Command = 102
Command = ecSelRight
ShortCut = 8231
end
item
Command = 6
Command = ecWordRight
ShortCut = 16423
end
item
Command = 106
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = 10
Command = ecPageDown
ShortCut = 34
end
item
Command = 110
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = 14
Command = ecPageBottom
ShortCut = 16418
end
item
Command = 114
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = 9
Command = ecPageUp
ShortCut = 33
end
item
Command = 109
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = 13
Command = ecPageTop
ShortCut = 16417
end
item
Command = 113
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = 7
Command = ecLineStart
ShortCut = 36
end
item
Command = 107
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = 15
Command = ecEditorTop
ShortCut = 16420
end
item
Command = 115
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = 8
Command = ecLineEnd
ShortCut = 35
end
item
Command = 108
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = 16
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = 116
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = 223
Command = ecToggleMode
ShortCut = 45
end
item
Command = 201
Command = ecCopy
ShortCut = 16429
end
item
Command = 604
Command = ecPaste
ShortCut = 8237
end
item
Command = 502
Command = ecDeleteChar
ShortCut = 46
end
item
Command = 603
Command = ecCut
ShortCut = 8238
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = 504
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = 601
Command = ecUndo
ShortCut = 32776
end
item
Command = 602
Command = ecRedo
ShortCut = 40968
end
item
Command = 509
Command = ecLineBreak
ShortCut = 13
end
item
Command = 199
Command = ecSelectAll
ShortCut = 16449
end
item
Command = 201
Command = ecCopy
ShortCut = 16451
end
item
Command = 610
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = 509
Command = ecLineBreak
ShortCut = 16461
end
item
Command = 510
Command = ecInsertLine
ShortCut = 16462
end
item
Command = 503
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = 611
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = 604
Command = ecPaste
ShortCut = 16470
end
item
Command = 603
Command = ecCut
ShortCut = 16472
end
item
Command = 507
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = 506
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = 601
Command = ecUndo
ShortCut = 16474
end
item
Command = 602
Command = ecRedo
ShortCut = 24666
end
item
Command = 301
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = 302
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = 303
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = 304
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = 305
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = 306
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = 307
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = 308
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = 309
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = 310
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = 351
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = 352
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = 353
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = 354
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = 355
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = 356
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = 357
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = 358
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = 359
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = 360
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = 231
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = 232
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = 233
Command = ecLineSelect
ShortCut = 24652
end
item
Command = 612
Command = ecTab
ShortCut = 9
end
item
Command = 613
Command = ecShiftTab
ShortCut = 8201
end
item
Command = 250
Command = ecMatchBracket
ShortCut = 24642
end>
MouseActions = <>
MouseTextActions = <>
MouseSelActions = <>
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ReadOnly = True
SelectedColor.OnChange = nil
SelectedColor.FrameEdges = sfeAround
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
IncrementColor.FrameEdges = sfeAround
HighlightAllColor.FrameEdges = sfeAround
BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.FrameEdges = sfeAround
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
FoldedCodeColor.FrameEdges = sfeAround
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
MouseLinkColor.FrameEdges = sfeAround
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
LineHighlightColor.FrameEdges = sfeAround
inline SynLeftGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 24
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 27
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
MarkupInfo.FrameEdges = sfeAround
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
MouseActions = <>
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
MarkupInfo.FrameEdges = sfeAround
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
MouseActions = <>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MarkupInfo.FrameEdges = sfeAround
MouseActionsExpanded = <>
MouseActionsCollapsed = <>
end
end
end
end
object tsDependencies: TTabSheet
@ -522,13 +585,11 @@ object fArrayEdit: TfArrayEdit
top = 185
object actOK: TAction
Caption = 'OK'
DisableIfNoHandler = True
OnExecute = actOKExecute
OnUpdate = actOKUpdate
end
object actApply: TAction
Caption = 'Apply'
DisableIfNoHandler = True
OnExecute = actApplyExecute
OnUpdate = actOKUpdate
end
@ -536,19 +597,19 @@ object fArrayEdit: TfArrayEdit
object SynXMLSyn1: TSynXMLSyn
DefaultFilter = 'Documents XML (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd'
Enabled = False
ElementAttri.FrameColor = clNone
AttributeAttri.FrameColor = clNone
NamespaceAttributeAttri.FrameColor = clNone
AttributeValueAttri.FrameColor = clNone
NamespaceAttributeValueAttri.FrameColor = clNone
TextAttri.FrameColor = clNone
CDATAAttri.FrameColor = clNone
EntityRefAttri.FrameColor = clNone
ProcessingInstructionAttri.FrameColor = clNone
CommentAttri.FrameColor = clNone
DocTypeAttri.FrameColor = clNone
SpaceAttri.FrameColor = clNone
SymbolAttri.FrameColor = clNone
ElementAttri.FrameEdges = sfeAround
AttributeAttri.FrameEdges = sfeAround
NamespaceAttributeAttri.FrameEdges = sfeAround
AttributeValueAttri.FrameEdges = sfeAround
NamespaceAttributeValueAttri.FrameEdges = sfeAround
TextAttri.FrameEdges = sfeAround
CDATAAttri.FrameEdges = sfeAround
EntityRefAttri.FrameEdges = sfeAround
ProcessingInstructionAttri.FrameEdges = sfeAround
CommentAttri.FrameEdges = sfeAround
DocTypeAttri.FrameEdges = sfeAround
SpaceAttri.FrameEdges = sfeAround
SymbolAttri.FrameEdges = sfeAround
WantBracesParsed = False
left = 266
top = 227

1
wst/trunk/type_lib_edtr/ufarrayedit.pas
View File

@ -238,6 +238,7 @@ begin
FUpdateType := AUpdateType;
FObject := AObject;
LoadFromObject();
ActiveControl := edtName;
Result := ( ShowModal() = mrOK );
if Result or FApplied then begin
SaveToObject();

77
wst/trunk/type_lib_edtr/ufclassedit.lfm
View File

@ -1,14 +1,14 @@
object fClassEdit: TfClassEdit
Left = 539
Left = 538
Height = 556
Top = 169
Top = 149
Width = 552
BorderStyle = bsSizeToolWin
Caption = 'fClassEdit'
ClientHeight = 556
ClientWidth = 552
Position = poDesktopCenter
LCLVersion = '1.0.1.4'
LCLVersion = '1.2.2.0'
object Panel1: TPanel
Left = 0
Height = 50
@ -63,47 +63,47 @@ object fClassEdit: TfClassEdit
OnChange = PCChange
object TabSheet1: TTabSheet
Caption = 'Compound Object'
ClientHeight = 471
ClientWidth = 546
ClientHeight = 480
ClientWidth = 544
object Label1: TLabel
Left = 4
Height = 18
Height = 13
Top = 18
Width = 40
Width = 27
Caption = 'Name'
ParentColor = False
end
object Label2: TLabel
Left = 4
Height = 18
Height = 13
Top = 59
Width = 87
Width = 66
Caption = 'Inheritts from'
ParentColor = False
end
object edtName: TEdit
Left = 92
Height = 27
Height = 21
Top = 18
Width = 442
Width = 440
Anchors = [akTop, akLeft, akRight]
TabOrder = 0
end
object GroupBox1: TGroupBox
Left = 4
Height = 296
Height = 305
Top = 98
Width = 531
Width = 529
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = ' Properties '
ClientHeight = 277
ClientWidth = 527
ClientHeight = 287
ClientWidth = 525
TabOrder = 2
object edtProp: TListView
Left = 0
Height = 277
Height = 287
Top = 0
Width = 527
Width = 525
Align = alClient
BorderWidth = 2
Columns = <
@ -130,7 +130,7 @@ object fClassEdit: TfClassEdit
object Button3: TButton
Left = 4
Height = 25
Top = 404
Top = 413
Width = 100
Action = actPropAdd
Anchors = [akLeft, akBottom]
@ -140,7 +140,7 @@ object fClassEdit: TfClassEdit
object Button4: TButton
Left = 116
Height = 25
Top = 404
Top = 413
Width = 100
Action = actPropEdit
Anchors = [akLeft, akBottom]
@ -150,7 +150,7 @@ object fClassEdit: TfClassEdit
object Button5: TButton
Left = 228
Height = 25
Top = 404
Top = 413
Width = 100
Action = actPropDelete
Anchors = [akLeft, akBottom]
@ -159,18 +159,18 @@ object fClassEdit: TfClassEdit
end
object edtParent: TComboBox
Left = 92
Height = 31
Height = 21
Top = 58
Width = 442
Width = 440
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
ItemHeight = 13
Style = csDropDownList
TabOrder = 1
end
object Button7: TButton
Left = 374
Left = 372
Height = 25
Top = 404
Top = 413
Width = 70
Action = actMoveUp
Anchors = [akRight, akBottom]
@ -178,9 +178,9 @@ object fClassEdit: TfClassEdit
TabOrder = 6
end
object Button8: TButton
Left = 454
Left = 452
Height = 25
Top = 404
Top = 413
Width = 70
Action = actMoveDown
Anchors = [akRight, akBottom]
@ -188,18 +188,18 @@ object fClassEdit: TfClassEdit
TabOrder = 7
end
object Button9: TButton
Left = 374
Left = 372
Height = 25
Top = 433
Top = 442
Width = 70
Action = actMoveFirst
Anchors = [akRight, akBottom]
TabOrder = 8
end
object Button10: TButton
Left = 454
Left = 452
Height = 25
Top = 433
Top = 442
Width = 70
Action = actMoveLast
Anchors = [akRight, akBottom]
@ -631,6 +631,7 @@ object fClassEdit: TfClassEdit
ShiftMask = [ssShift, ssAlt, ssCtrl]
Command = emcMouseLink
end>
MouseTextActions = <>
MouseSelActions = <
item
ClickDir = cdDown
@ -638,17 +639,31 @@ object fClassEdit: TfClassEdit
end>
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ReadOnly = True
SelectedColor.FrameEdges = sfeAround
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
IncrementColor.FrameEdges = sfeAround
HighlightAllColor.FrameEdges = sfeAround
BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.FrameEdges = sfeAround
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
FoldedCodeColor.FrameEdges = sfeAround
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
MouseLinkColor.FrameEdges = sfeAround
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
LineHighlightColor.FrameEdges = sfeAround
inline SynLeftGutterPartList1: TSynGutterPartList
end
end

1
wst/trunk/type_lib_edtr/ufclassedit.pas
View File

@ -516,6 +516,7 @@ begin
try
PrepareParentCombo();
LoadFromObject();
ActiveControl := edtName;
Result := FApplied or ( ShowModal() = mrOK );
if Result then begin
try

268
wst/trunk/type_lib_edtr/ufenumedit.lfm
View File

@ -9,31 +9,32 @@ object fEnumEdit: TfEnumEdit
ClientHeight = 368
ClientWidth = 400
Position = poMainFormCenter
LCLVersion = '0.9.25'
LCLVersion = '1.2.2.0'
object PC: TPageControl
Left = 0
Height = 318
Top = 0
Width = 400
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 0
OnChange = PCChange
OnPageChanged = PCChange
object TabSheet1: TTabSheet
Caption = 'Enumeration'
ClientHeight = 292
ClientWidth = 392
object Label1: TLabel
Left = 4
Height = 14
Height = 13
Top = 18
Width = 28
Width = 27
Caption = 'Name'
ParentColor = False
end
object edtName: TEdit
Left = 68
Height = 23
Height = 21
Top = 18
Width = 312
Anchors = [akTop, akLeft, akRight]
@ -50,7 +51,9 @@ object fEnumEdit: TfEnumEdit
ClientWidth = 373
TabOrder = 1
object edtItems: TMemo
Left = 0
Height = 213
Top = 0
Width = 373
Align = alClient
ScrollBars = ssBoth
@ -62,7 +65,7 @@ object fEnumEdit: TfEnumEdit
Caption = 'XSD'
ClientHeight = 292
ClientWidth = 392
object edtSourceXSD: TSynEdit
inline edtSourceXSD: TSynEdit
Left = 13
Height = 272
Top = 10
@ -71,336 +74,405 @@ object fEnumEdit: TfEnumEdit
Font.Height = -20
Font.Name = 'courier'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
BookMarkOptions.Xoffset = 42
Gutter.DigitCount = 2
Gutter.ShowLineNumbers = True
Gutter.Width = 10
Gutter.ShowCodeFolding = True
Gutter.Width = 67
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Highlighter = SynXMLSyn1
Keystrokes = <
item
Command = 3
Command = ecUp
ShortCut = 38
end
item
Command = 103
Command = ecSelUp
ShortCut = 8230
end
item
Command = 211
Command = ecScrollUp
ShortCut = 16422
end
item
Command = 4
Command = ecDown
ShortCut = 40
end
item
Command = 104
Command = ecSelDown
ShortCut = 8232
end
item
Command = 212
Command = ecScrollDown
ShortCut = 16424
end
item
Command = 1
Command = ecLeft
ShortCut = 37
end
item
Command = 101
Command = ecSelLeft
ShortCut = 8229
end
item
Command = 5
Command = ecWordLeft
ShortCut = 16421
end
item
Command = 105
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = 2
Command = ecRight
ShortCut = 39
end
item
Command = 102
Command = ecSelRight
ShortCut = 8231
end
item
Command = 6
Command = ecWordRight
ShortCut = 16423
end
item
Command = 106
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = 10
Command = ecPageDown
ShortCut = 34
end
item
Command = 110
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = 14
Command = ecPageBottom
ShortCut = 16418
end
item
Command = 114
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = 9
Command = ecPageUp
ShortCut = 33
end
item
Command = 109
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = 13
Command = ecPageTop
ShortCut = 16417
end
item
Command = 113
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = 7
Command = ecLineStart
ShortCut = 36
end
item
Command = 107
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = 15
Command = ecEditorTop
ShortCut = 16420
end
item
Command = 115
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = 8
Command = ecLineEnd
ShortCut = 35
end
item
Command = 108
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = 16
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = 116
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = 223
Command = ecToggleMode
ShortCut = 45
end
item
Command = 201
Command = ecCopy
ShortCut = 16429
end
item
Command = 604
Command = ecPaste
ShortCut = 8237
end
item
Command = 502
Command = ecDeleteChar
ShortCut = 46
end
item
Command = 603
Command = ecCut
ShortCut = 8238
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = 504
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = 601
Command = ecUndo
ShortCut = 32776
end
item
Command = 602
Command = ecRedo
ShortCut = 40968
end
item
Command = 509
Command = ecLineBreak
ShortCut = 13
end
item
Command = 199
Command = ecSelectAll
ShortCut = 16449
end
item
Command = 201
Command = ecCopy
ShortCut = 16451
end
item
Command = 610
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = 509
Command = ecLineBreak
ShortCut = 16461
end
item
Command = 510
Command = ecInsertLine
ShortCut = 16462
end
item
Command = 503
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = 611
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = 604
Command = ecPaste
ShortCut = 16470
end
item
Command = 603
Command = ecCut
ShortCut = 16472
end
item
Command = 507
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = 506
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = 601
Command = ecUndo
ShortCut = 16474
end
item
Command = 602
Command = ecRedo
ShortCut = 24666
end
item
Command = 301
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = 302
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = 303
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = 304
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = 305
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = 306
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = 307
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = 308
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = 309
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = 310
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = 351
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = 352
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = 353
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = 354
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = 355
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = 356
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = 357
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = 358
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = 359
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = 360
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = 231
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = 232
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = 233
Command = ecLineSelect
ShortCut = 24652
end
item
Command = 612
Command = ecTab
ShortCut = 9
end
item
Command = 613
Command = ecShiftTab
ShortCut = 8201
end
item
Command = 250
Command = ecMatchBracket
ShortCut = 24642
end>
MouseActions = <>
MouseTextActions = <>
MouseSelActions = <>
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ReadOnly = True
SelectedColor.FrameEdges = sfeAround
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
IncrementColor.FrameEdges = sfeAround
HighlightAllColor.FrameEdges = sfeAround
BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.FrameEdges = sfeAround
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
FoldedCodeColor.FrameEdges = sfeAround
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
MouseLinkColor.FrameEdges = sfeAround
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
LineHighlightColor.FrameEdges = sfeAround
inline SynLeftGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 24
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 27
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
MarkupInfo.FrameEdges = sfeAround
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
MouseActions = <>
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
MarkupInfo.FrameEdges = sfeAround
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
MouseActions = <>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MarkupInfo.FrameEdges = sfeAround
MouseActionsExpanded = <>
MouseActionsCollapsed = <>
end
end
end
end
object tsDependencies: TTabSheet
@ -437,6 +509,7 @@ object fEnumEdit: TfEnumEdit
end
end
object Panel1: TPanel
Left = 0
Height = 50
Top = 318
Width = 400
@ -483,13 +556,11 @@ object fEnumEdit: TfEnumEdit
top = 120
object actOK: TAction
Caption = 'OK'
DisableIfNoHandler = True
OnExecute = actOKExecute
OnUpdate = actOKUpdate
end
object actApply: TAction
Caption = 'Apply'
DisableIfNoHandler = True
OnExecute = actApplyExecute
OnUpdate = actOKUpdate
end
@ -497,6 +568,19 @@ object fEnumEdit: TfEnumEdit
object SynXMLSyn1: TSynXMLSyn
DefaultFilter = 'Documents XML (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd'
Enabled = False
ElementAttri.FrameEdges = sfeAround
AttributeAttri.FrameEdges = sfeAround
NamespaceAttributeAttri.FrameEdges = sfeAround
AttributeValueAttri.FrameEdges = sfeAround
NamespaceAttributeValueAttri.FrameEdges = sfeAround
TextAttri.FrameEdges = sfeAround
CDATAAttri.FrameEdges = sfeAround
EntityRefAttri.FrameEdges = sfeAround
ProcessingInstructionAttri.FrameEdges = sfeAround
CommentAttri.FrameEdges = sfeAround
DocTypeAttri.FrameEdges = sfeAround
SpaceAttri.FrameEdges = sfeAround
SymbolAttri.FrameEdges = sfeAround
WantBracesParsed = False
left = 266
top = 227

1
wst/trunk/type_lib_edtr/ufenumedit.pas
View File

@ -242,6 +242,7 @@ begin
FUpdateType := AUpdateType;
FObject := AObject;
LoadFromObject();
ActiveControl := edtName;
Result := FApplied or ( ShowModal() = mrOK );
if Result then begin
SaveToObject();

18
wst/trunk/type_lib_edtr/ufpropedit.lfm
View File

@ -1,7 +1,7 @@
object fPropEdit: TfPropEdit
Left = 486
Left = 485
Height = 326
Top = 236
Top = 207
Width = 324
HorzScrollBar.Page = 323
VertScrollBar.Page = 325
@ -11,7 +11,7 @@ object fPropEdit: TfPropEdit
ClientHeight = 326
ClientWidth = 324
Position = poDesktopCenter
LCLVersion = '0.9.31'
LCLVersion = '1.2.2.0'
object Panel1: TPanel
Left = 0
Height = 50
@ -60,17 +60,17 @@ object fPropEdit: TfPropEdit
ClientWidth = 316
object Label1: TLabel
Left = 20
Height = 14
Height = 13
Top = 24
Width = 28
Width = 27
Caption = 'Name'
ParentColor = False
end
object Label2: TLabel
Left = 20
Height = 14
Height = 13
Top = 98
Width = 25
Width = 24
Caption = 'Type'
ParentColor = False
end
@ -94,7 +94,7 @@ object fPropEdit: TfPropEdit
Left = 20
Height = 17
Top = 170
Width = 106
Width = 108
Caption = 'Attribute Property'
TabOrder = 2
end
@ -102,7 +102,7 @@ object fPropEdit: TfPropEdit
Left = 20
Height = 17
Top = 218
Width = 103
Width = 105
Caption = 'Optional property'
Font.Style = [fsItalic]
ParentFont = False

1
wst/trunk/type_lib_edtr/ufpropedit.pas
View File

@ -252,6 +252,7 @@ begin
FUpdateType := AUpdateType;
FObject := AObject;
LoadFromObject();
Self.ActiveControl := edtName;
Result := ( ShowModal() = mrOK );
if Result then begin
SaveToObject();

286
wst/trunk/type_lib_edtr/ufrecordedit.lfm
View File

@ -8,31 +8,32 @@ object fRecordEdit: TfRecordEdit
ClientHeight = 542
ClientWidth = 559
Position = poDesktopCenter
LCLVersion = '0.9.26.2'
LCLVersion = '1.2.2.0'
object PC: TPageControl
Left = 0
Height = 492
Top = 0
Width = 559
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 0
OnChange = PCChange
OnPageChanged = PCChange
object TabSheet1: TTabSheet
Caption = 'Record Type'
ClientHeight = 466
ClientWidth = 551
object Label1: TLabel
Left = 20
Height = 14
Height = 13
Top = 34
Width = 28
Width = 27
Caption = 'Name'
ParentColor = False
end
object edtName: TEdit
Left = 76
Height = 23
Height = 21
Top = 34
Width = 451
Anchors = [akTop, akLeft, akRight]
@ -49,7 +50,9 @@ object fRecordEdit: TfRecordEdit
ClientWidth = 503
TabOrder = 1
object edtFields: TListView
Left = 0
Height = 302
Top = 0
Width = 503
Align = alClient
Columns = <
@ -127,7 +130,7 @@ object fRecordEdit: TfRecordEdit
Caption = 'XSD'
ClientHeight = 466
ClientWidth = 551
object edtSourceXSD: TSynEdit
inline edtSourceXSD: TSynEdit
Left = 12
Height = 432
Top = 18
@ -141,337 +144,400 @@ object fRecordEdit: TfRecordEdit
ParentFont = False
TabOrder = 0
BookMarkOptions.Xoffset = 42
Gutter.RightOffset = 0
Gutter.Width = 10
Gutter.LeftOffset = 0
Gutter.ShowCodeFolding = True
Gutter.CodeFoldingWidth = 10
Gutter.ShowChanges = True
Gutter.ShowLineNumbers = True
Gutter.Width = 67
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Highlighter = SynXMLSyn1
Keystrokes = <
item
Command = 3
Command = ecUp
ShortCut = 38
end
item
Command = 103
Command = ecSelUp
ShortCut = 8230
end
item
Command = 211
Command = ecScrollUp
ShortCut = 16422
end
item
Command = 4
Command = ecDown
ShortCut = 40
end
item
Command = 104
Command = ecSelDown
ShortCut = 8232
end
item
Command = 212
Command = ecScrollDown
ShortCut = 16424
end
item
Command = 1
Command = ecLeft
ShortCut = 37
end
item
Command = 101
Command = ecSelLeft
ShortCut = 8229
end
item
Command = 5
Command = ecWordLeft
ShortCut = 16421
end
item
Command = 105
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = 2
Command = ecRight
ShortCut = 39
end
item
Command = 102
Command = ecSelRight
ShortCut = 8231
end
item
Command = 6
Command = ecWordRight
ShortCut = 16423
end
item
Command = 106
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = 10
Command = ecPageDown
ShortCut = 34
end
item
Command = 110
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = 14
Command = ecPageBottom
ShortCut = 16418
end
item
Command = 114
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = 9
Command = ecPageUp
ShortCut = 33
end
item
Command = 109
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = 13
Command = ecPageTop
ShortCut = 16417
end
item
Command = 113
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = 7
Command = ecLineStart
ShortCut = 36
end
item
Command = 107
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = 15
Command = ecEditorTop
ShortCut = 16420
end
item
Command = 115
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = 8
Command = ecLineEnd
ShortCut = 35
end
item
Command = 108
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = 16
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = 116
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = 223
Command = ecToggleMode
ShortCut = 45
end
item
Command = 201
Command = ecCopy
ShortCut = 16429
end
item
Command = 604
Command = ecPaste
ShortCut = 8237
end
item
Command = 502
Command = ecDeleteChar
ShortCut = 46
end
item
Command = 603
Command = ecCut
ShortCut = 8238
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = 504
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = 601
Command = ecUndo
ShortCut = 32776
end
item
Command = 602
Command = ecRedo
ShortCut = 40968
end
item
Command = 509
Command = ecLineBreak
ShortCut = 13
end
item
Command = 199
Command = ecSelectAll
ShortCut = 16449
end
item
Command = 201
Command = ecCopy
ShortCut = 16451
end
item
Command = 610
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = 509
Command = ecLineBreak
ShortCut = 16461
end
item
Command = 510
Command = ecInsertLine
ShortCut = 16462
end
item
Command = 503
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = 611
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = 604
Command = ecPaste
ShortCut = 16470
end
item
Command = 603
Command = ecCut
ShortCut = 16472
end
item
Command = 507
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = 506
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = 601
Command = ecUndo
ShortCut = 16474
end
item
Command = 602
Command = ecRedo
ShortCut = 24666
end
item
Command = 301
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = 302
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = 303
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = 304
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = 305
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = 306
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = 307
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = 308
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = 309
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = 310
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = 351
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = 352
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = 353
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = 354
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = 355
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = 356
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = 357
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = 358
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = 359
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = 360
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = 231
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = 232
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = 233
Command = ecLineSelect
ShortCut = 24652
end
item
Command = 612
Command = ecTab
ShortCut = 9
end
item
Command = 613
Command = ecShiftTab
ShortCut = 8201
end
item
Command = 250
Command = ecMatchBracket
ShortCut = 24642
end>
MouseActions = <>
MouseTextActions = <>
MouseSelActions = <>
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ReadOnly = True
SelectedColor.FrameEdges = sfeAround
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
IncrementColor.FrameEdges = sfeAround
HighlightAllColor.FrameEdges = sfeAround
BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.FrameEdges = sfeAround
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
FoldedCodeColor.FrameEdges = sfeAround
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
MouseLinkColor.FrameEdges = sfeAround
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
LineHighlightColor.FrameEdges = sfeAround
inline SynLeftGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 24
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 27
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
MarkupInfo.FrameEdges = sfeAround
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
MouseActions = <>
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
MarkupInfo.FrameEdges = sfeAround
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
MouseActions = <>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MarkupInfo.FrameEdges = sfeAround
MouseActionsExpanded = <>
MouseActionsCollapsed = <>
end
end
end
end
object tsDependencies: TTabSheet
@ -508,6 +574,7 @@ object fRecordEdit: TfRecordEdit
end
end
object Panel1: TPanel
Left = 0
Height = 50
Top = 492
Width = 559
@ -552,42 +619,35 @@ object fRecordEdit: TfRecordEdit
top = 208
object actOK: TAction
Caption = 'OK'
DisableIfNoHandler = True
OnExecute = actOKExecute
OnUpdate = actOKUpdate
end
object actPropAdd: TAction
Caption = 'New Property'
DisableIfNoHandler = True
OnExecute = actPropAddExecute
end
object actPropEdit: TAction
Caption = 'Edit Property'
DisableIfNoHandler = True
OnExecute = actPropEditExecute
OnUpdate = actPropEditUpdate
end
object actPropDelete: TAction
Caption = 'Delete Property'
DisableIfNoHandler = True
OnExecute = actPropDeleteExecute
OnUpdate = actPropEditUpdate
end
object actApply: TAction
Caption = 'Apply'
DisableIfNoHandler = True
OnExecute = actApplyExecute
OnUpdate = actOKUpdate
end
object actMoveDown: TAction
Caption = 'Move Down'
DisableIfNoHandler = True
OnExecute = actMoveDownExecute
OnUpdate = actMoveDownUpdate
end
object actMoveUp: TAction
Caption = 'Move Up'
DisableIfNoHandler = True
OnExecute = actMoveUpExecute
OnUpdate = actMoveUpUpdate
end
@ -622,19 +682,19 @@ object fRecordEdit: TfRecordEdit
object SynXMLSyn1: TSynXMLSyn
DefaultFilter = 'Documents XML (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd'
Enabled = False
ElementAttri.FrameColor = clNone
AttributeAttri.FrameColor = clNone
NamespaceAttributeAttri.FrameColor = clNone
AttributeValueAttri.FrameColor = clNone
NamespaceAttributeValueAttri.FrameColor = clNone
TextAttri.FrameColor = clNone
CDATAAttri.FrameColor = clNone
EntityRefAttri.FrameColor = clNone
ProcessingInstructionAttri.FrameColor = clNone
CommentAttri.FrameColor = clNone
DocTypeAttri.FrameColor = clNone
SpaceAttri.FrameColor = clNone
SymbolAttri.FrameColor = clNone
ElementAttri.FrameEdges = sfeAround
AttributeAttri.FrameEdges = sfeAround
NamespaceAttributeAttri.FrameEdges = sfeAround
AttributeValueAttri.FrameEdges = sfeAround
NamespaceAttributeValueAttri.FrameEdges = sfeAround
TextAttri.FrameEdges = sfeAround
CDATAAttri.FrameEdges = sfeAround
EntityRefAttri.FrameEdges = sfeAround
ProcessingInstructionAttri.FrameEdges = sfeAround
CommentAttri.FrameEdges = sfeAround
DocTypeAttri.FrameEdges = sfeAround
SpaceAttri.FrameEdges = sfeAround
SymbolAttri.FrameEdges = sfeAround
WantBracesParsed = False
left = 238
top = 199

1
wst/trunk/type_lib_edtr/ufrecordedit.pas
View File

@ -354,6 +354,7 @@ begin
end;
try
LoadFromObject();
ActiveControl := edtName;
Result := FApplied or ( ShowModal() = mrOK );
if Result then begin
try

2
wst/trunk/type_lib_edtr/ufrmsaveoption.lfm
View File

@ -1,7 +1,7 @@
object frmSaveOptions: TfrmSaveOptions
Left = 459
Height = 338
Top = 273
Top = 240
Width = 402
ActiveControl = edtInterface
BorderStyle = bsSizeToolWin

272
wst/trunk/type_lib_edtr/uftypealiasedit.lfm
View File

@ -9,8 +9,9 @@ object fTypeAliasEdit: TfTypeAliasEdit
ClientHeight = 300
ClientWidth = 400
Position = poScreenCenter
LCLVersion = '0.9.25'
LCLVersion = '1.2.2.0'
object Panel1: TPanel
Left = 0
Height = 50
Top = 250
Width = 400
@ -52,37 +53,38 @@ object fTypeAliasEdit: TfTypeAliasEdit
end
end
object PC: TPageControl
Left = 0
Height = 250
Top = 0
Width = 400
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 1
OnChange = PCChange
OnPageChanged = PCChange
object TabSheet1: TTabSheet
Caption = 'Type Alias'
ClientHeight = 224
ClientWidth = 392
object Label1: TLabel
Left = 20
Height = 14
Height = 13
Top = 26
Width = 28
Width = 27
Caption = 'Name'
ParentColor = False
end
object Label2: TLabel
Left = 20
Height = 14
Height = 13
Top = 114
Width = 51
Width = 50
Caption = 'Base Type'
ParentColor = False
end
object edtName: TEdit
Left = 20
Height = 23
Height = 21
Top = 42
Width = 344
Anchors = [akTop, akLeft, akRight]
@ -103,7 +105,7 @@ object fTypeAliasEdit: TfTypeAliasEdit
Caption = 'XSD'
ClientHeight = 224
ClientWidth = 392
object edtSourceXSD: TSynEdit
inline edtSourceXSD: TSynEdit
Left = 13
Height = 200
Top = 10
@ -112,338 +114,405 @@ object fTypeAliasEdit: TfTypeAliasEdit
Font.Height = -20
Font.Name = 'courier'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
BookMarkOptions.Xoffset = 42
BookMarkOptions.OnChange = nil
Gutter.DigitCount = 2
Gutter.ShowLineNumbers = True
Gutter.Width = 10
Gutter.ShowCodeFolding = True
Gutter.Width = 67
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Highlighter = SynXMLSyn1
Keystrokes = <
item
Command = 3
Command = ecUp
ShortCut = 38
end
item
Command = 103
Command = ecSelUp
ShortCut = 8230
end
item
Command = 211
Command = ecScrollUp
ShortCut = 16422
end
item
Command = 4
Command = ecDown
ShortCut = 40
end
item
Command = 104
Command = ecSelDown
ShortCut = 8232
end
item
Command = 212
Command = ecScrollDown
ShortCut = 16424
end
item
Command = 1
Command = ecLeft
ShortCut = 37
end
item
Command = 101
Command = ecSelLeft
ShortCut = 8229
end
item
Command = 5
Command = ecWordLeft
ShortCut = 16421
end
item
Command = 105
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = 2
Command = ecRight
ShortCut = 39
end
item
Command = 102
Command = ecSelRight
ShortCut = 8231
end
item
Command = 6
Command = ecWordRight
ShortCut = 16423
end
item
Command = 106
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = 10
Command = ecPageDown
ShortCut = 34
end
item
Command = 110
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = 14
Command = ecPageBottom
ShortCut = 16418
end
item
Command = 114
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = 9
Command = ecPageUp
ShortCut = 33
end
item
Command = 109
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = 13
Command = ecPageTop
ShortCut = 16417
end
item
Command = 113
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = 7
Command = ecLineStart
ShortCut = 36
end
item
Command = 107
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = 15
Command = ecEditorTop
ShortCut = 16420
end
item
Command = 115
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = 8
Command = ecLineEnd
ShortCut = 35
end
item
Command = 108
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = 16
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = 116
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = 223
Command = ecToggleMode
ShortCut = 45
end
item
Command = 201
Command = ecCopy
ShortCut = 16429
end
item
Command = 604
Command = ecPaste
ShortCut = 8237
end
item
Command = 502
Command = ecDeleteChar
ShortCut = 46
end
item
Command = 603
Command = ecCut
ShortCut = 8238
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = 504
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = 601
Command = ecUndo
ShortCut = 32776
end
item
Command = 602
Command = ecRedo
ShortCut = 40968
end
item
Command = 509
Command = ecLineBreak
ShortCut = 13
end
item
Command = 199
Command = ecSelectAll
ShortCut = 16449
end
item
Command = 201
Command = ecCopy
ShortCut = 16451
end
item
Command = 610
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = 509
Command = ecLineBreak
ShortCut = 16461
end
item
Command = 510
Command = ecInsertLine
ShortCut = 16462
end
item
Command = 503
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = 611
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = 604
Command = ecPaste
ShortCut = 16470
end
item
Command = 603
Command = ecCut
ShortCut = 16472
end
item
Command = 507
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = 506
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = 601
Command = ecUndo
ShortCut = 16474
end
item
Command = 602
Command = ecRedo
ShortCut = 24666
end
item
Command = 301
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = 302
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = 303
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = 304
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = 305
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = 306
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = 307
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = 308
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = 309
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = 310
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = 351
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = 352
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = 353
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = 354
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = 355
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = 356
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = 357
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = 358
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = 359
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = 360
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = 231
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = 232
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = 233
Command = ecLineSelect
ShortCut = 24652
end
item
Command = 612
Command = ecTab
ShortCut = 9
end
item
Command = 613
Command = ecShiftTab
ShortCut = 8201
end
item
Command = 250
Command = ecMatchBracket
ShortCut = 24642
end>
MouseActions = <>
MouseTextActions = <>
MouseSelActions = <>
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ReadOnly = True
SelectedColor.OnChange = nil
SelectedColor.FrameEdges = sfeAround
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
IncrementColor.FrameEdges = sfeAround
HighlightAllColor.FrameEdges = sfeAround
BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.FrameEdges = sfeAround
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
FoldedCodeColor.FrameEdges = sfeAround
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
MouseLinkColor.FrameEdges = sfeAround
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
LineHighlightColor.FrameEdges = sfeAround
inline SynLeftGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 24
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 27
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
MarkupInfo.FrameEdges = sfeAround
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
MouseActions = <>
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
MarkupInfo.FrameEdges = sfeAround
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
MouseActions = <>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MarkupInfo.FrameEdges = sfeAround
MouseActionsExpanded = <>
MouseActionsCollapsed = <>
end
end
end
end
object tsDependencies: TTabSheet
@ -484,13 +553,11 @@ object fTypeAliasEdit: TfTypeAliasEdit
top = 120
object actOK: TAction
Caption = 'OK'
DisableIfNoHandler = True
OnExecute = actOKExecute
OnUpdate = actOKUpdate
end
object actApply: TAction
Caption = 'Apply'
DisableIfNoHandler = True
OnExecute = actApplyExecute
OnUpdate = actOKUpdate
end
@ -498,6 +565,19 @@ object fTypeAliasEdit: TfTypeAliasEdit
object SynXMLSyn1: TSynXMLSyn
DefaultFilter = 'Documents XML (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd'
Enabled = False
ElementAttri.FrameEdges = sfeAround
AttributeAttri.FrameEdges = sfeAround
NamespaceAttributeAttri.FrameEdges = sfeAround
AttributeValueAttri.FrameEdges = sfeAround
NamespaceAttributeValueAttri.FrameEdges = sfeAround
TextAttri.FrameEdges = sfeAround
CDATAAttri.FrameEdges = sfeAround
EntityRefAttri.FrameEdges = sfeAround
ProcessingInstructionAttri.FrameEdges = sfeAround
CommentAttri.FrameEdges = sfeAround
DocTypeAttri.FrameEdges = sfeAround
SpaceAttri.FrameEdges = sfeAround
SymbolAttri.FrameEdges = sfeAround
WantBracesParsed = False
left = 200
top = 168

1
wst/trunk/type_lib_edtr/uftypealiasedit.pas
View File

@ -213,6 +213,7 @@ begin
try
PrepareParentCombo();
LoadFromObject();
ActiveControl := edtName;
Result := FApplied or ( ShowModal() = mrOK );
if Result then begin
try

2
wst/trunk/type_lib_edtr/uinterfaceedit.lfm
View File

@ -1,7 +1,7 @@
object fInterfaceEdit: TfInterfaceEdit
Left = 283
Height = 564
Top = 133
Top = 117
Width = 531
HorzScrollBar.Page = 530
VertScrollBar.Page = 563

1
wst/trunk/type_lib_edtr/uinterfaceedit.pas
View File

@ -289,6 +289,7 @@ begin
end;
try
LoadFromObject();
ActiveControl := edtName;
Result := ( ShowModal() = mrOK );
if Result then begin
SaveToObject();

44
wst/trunk/type_lib_edtr/uprocedit.lfm
View File

@ -1,14 +1,14 @@
object fProcEdit: TfProcEdit
Left = 329
Height = 543
Top = 143
Top = 126
Width = 522
BorderStyle = bsSizeToolWin
Caption = 'fProcEdit'
ClientHeight = 543
ClientWidth = 522
Position = poMainFormCenter
LCLVersion = '1.0.1.4'
LCLVersion = '1.2.2.0'
object PageControl1: TPageControl
Left = 0
Height = 493
@ -20,40 +20,40 @@ object fProcEdit: TfProcEdit
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '&Operation'
ClientHeight = 458
ClientWidth = 516
ClientHeight = 467
ClientWidth = 514
object Label1: TLabel
Left = 12
Height = 18
Height = 13
Top = 26
Width = 40
Width = 27
Caption = 'Name'
ParentColor = False
end
object edtName: TEdit
Left = 112
Height = 27
Height = 21
Top = 26
Width = 390
Width = 388
Anchors = [akTop, akLeft, akRight]
TabOrder = 0
Text = 'edtName'
end
object GroupBox1: TGroupBox
Left = 11
Height = 295
Height = 304
Top = 114
Width = 491
Width = 489
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = ' Parametters '
ClientHeight = 276
ClientWidth = 487
ClientHeight = 286
ClientWidth = 485
TabOrder = 3
object edtParams: TListView
Left = 0
Height = 276
Height = 286
Top = 0
Width = 487
Width = 485
Align = alClient
Columns = <
item
@ -77,9 +77,9 @@ object fProcEdit: TfProcEdit
end
object edtFunction: TCheckBox
Left = 12
Height = 22
Height = 17
Top = 74
Width = 127
Width = 99
Caption = 'Function returns'
OnClick = edtFunctionClick
OnEditingDone = edtFunctionEditingDone
@ -87,18 +87,18 @@ object fProcEdit: TfProcEdit
end
object edtResultType: TComboBox
Left = 112
Height = 31
Height = 21
Top = 74
Width = 390
Width = 388
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
ItemHeight = 13
Style = csDropDownList
TabOrder = 2
end
object Button3: TButton
Left = 12
Height = 25
Top = 420
Top = 429
Width = 108
Action = actNewArg
Anchors = [akLeft, akBottom]
@ -108,7 +108,7 @@ object fProcEdit: TfProcEdit
object Button4: TButton
Left = 132
Height = 25
Top = 420
Top = 429
Width = 108
Action = actUpdateArgument
Anchors = [akLeft, akBottom]
@ -118,7 +118,7 @@ object fProcEdit: TfProcEdit
object Button5: TButton
Left = 248
Height = 25
Top = 420
Top = 429
Width = 108
Action = actDeleteArgument
Anchors = [akLeft, akBottom]

1
wst/trunk/type_lib_edtr/uprocedit.pas
View File

@ -341,6 +341,7 @@ begin
FOldReturnType := TPasFunctionType(FObject.ProcType).ResultEl.ResultType;
PrepareResultCombo();
LoadFromObject();
ActiveControl := edtName;
Result := ( ShowModal() = mrOK );
if Result then begin
try

2
wst/trunk/type_lib_edtr/uwsttypelibraryedit.lfm
View File

@ -1,7 +1,7 @@
object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
Left = 287
Height = 644
Top = 261
Top = 196
Width = 833
AllowDropFiles = True
Caption = '[Web Services Toolkit ] Type Library Editor'