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

fcl-passrc now uses TFPList instead of TList.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2162 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2011-11-26 17:54:55 +00:00
parent 1dd3ca859b
commit 6bbca25247
20 changed files with 304 additions and 235 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
wst/trunk/tests/test_suite/test_parsers.pas
View File

@@ -358,7 +358,7 @@ procedure TTest_CustomXsdParser.SimpleType_Enum();
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
enumType : TPasEnumType;
enumVal : TPasEnumValue;
@@ -407,7 +407,7 @@ procedure TTest_CustomXsdParser.SimpleType_Enum_Embedded();
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
enumType : TPasEnumType;
enumVal : TPasEnumValue;
@@ -446,7 +446,7 @@ procedure TTest_CustomXsdParser.SimpleType_AliasToNativeType();
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
aliasType : TPasAliasType;
begin
@@ -513,7 +513,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
aliasType : TPasAliasType;
i : Integer;
@@ -688,7 +688,7 @@ var
var
mdl : TPasModule;
clsType : TPasClassType;
ls : TList;
ls : TList2;
elt : TPasElement;
i : Integer;
prpLs : TList;
@@ -757,7 +757,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
i : Integer;
prpLs : TList;
@@ -981,7 +981,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
i : Integer;
prpLs : TList;
@@ -1056,7 +1056,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
aliasType : TPasAliasType;
i : Integer;
@@ -1116,7 +1116,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
aliasType : TPasAliasType;
i : Integer;
@@ -1172,7 +1172,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
aliasType : TPasAliasType;
i : Integer;
@@ -1231,7 +1231,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
aliasType : TPasAliasType;
i : Integer;
@@ -1290,7 +1290,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
aliasType : TPasAliasType;
i : Integer;
@@ -1385,7 +1385,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
i : Integer;
prpLs : TList;
@@ -1470,7 +1470,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
arrayType : TPasArrayType;
i : Integer;
@@ -1543,7 +1543,7 @@ procedure TTest_CustomXsdParser.ComplexType_ArraySequence_ItemName_Schema();
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
arrayType : TPasArrayType;
begin
@@ -1589,7 +1589,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
arrayType : TPasArrayType;
i : Integer;
@@ -1662,7 +1662,7 @@ procedure TTest_CustomXsdParser.ComplexType_Array_soaparray();
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
arrayType : TPasArrayType;
begin
@@ -1711,7 +1711,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
arrayType : TPasArrayType;
i : Integer;
@@ -1932,7 +1932,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
i : Integer;
prpLs : TList;
@@ -2007,7 +2007,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
i : Integer;
prpLs : TList;
@@ -2265,7 +2265,7 @@ const
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
ls : TList;
ls : TList2;
elt, prpElt : TPasElement;
prp : TPasProperty;
baseType, scdClass : TPasClassType;
@@ -2303,7 +2303,7 @@ procedure TTest_CustomXsdParser.schema_include();
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
ls : TList;
ls : TList2;
elt, prpElt : TPasElement;
prp : TPasProperty;
baseType, scdClass : TPasClassType;
@@ -2335,7 +2335,7 @@ procedure TTest_CustomXsdParser.schema_include_parent_no_types();
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
ls : TList;
ls : TList2;
elt, prpElt : TPasElement;
prp : TPasProperty;
baseType, scdClass : TPasClassType;
@@ -2382,7 +2382,7 @@ procedure TTest_CustomXsdParser.schema_include_circular1();
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
ls : TList;
ls : TList2;
elt, prpElt : TPasElement;
prp : TPasProperty;
baseType, scdClass : TPasClassType;
@@ -2411,7 +2411,7 @@ procedure TTest_CustomXsdParser.schema_include_circular2();
var
tr : TwstPasTreeContainer;
mdl : TPasModule;
ls : TList;
ls : TList2;
elt, prpElt : TPasElement;
prp : TPasProperty;
baseType, scdClass : TPasClassType;
@@ -2459,7 +2459,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
aliasType : TPasAliasType;
i : Integer;
@@ -2548,7 +2548,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
aliasType : TPasAliasType;
i : Integer;
@@ -2624,7 +2624,7 @@ var
var
mdl : TPasModule;
ls : TList;
ls : TList2;
elt : TPasElement;
aliasType : TPasAliasType;
i : Integer;

6
wst/trunk/type_lib_edtr/edit_helper.pas
View File

@@ -523,7 +523,7 @@ class function TClassUpdater.CloneObject(
procedure CloneProperties(ASource, ADest : TPasClassType);
var
ls : TList;
ls : TList2;
k : Integer;
locSource, locDest : TPasProperty;
begin
@@ -783,7 +783,7 @@ procedure InternalFillList(
var
i : Integer;
sym : TPasElement;
decList : TList;
decList : TList2;
begin
decList := AContainer.CurrentModule.InterfaceSection.Declarations;
for i := 0 to Pred(decList.Count) do begin
@@ -830,7 +830,7 @@ procedure InternalFillTypeList(ALs : TStrings; AContainer : TwstPasTreeContainer
var
i, j : Integer;
sym : TPasElement;
moduleList, decList : TList;
moduleList, decList : TList2;
mdl : TPasModule;
locExtName : string;
begin

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

@@ -70,7 +70,7 @@ var
b : Boolean;
i : Integer;
locArg : TPasArgument;
argList : TList;
argList : TList2;
locName : string;
begin
locName := edtName.Text;

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

@@ -1,7 +1,7 @@
object fClassEdit: TfClassEdit
Left = 640
Left = 642
Height = 556
Top = 167
Top = 169
Width = 552
BorderStyle = bsSizeToolWin
Caption = 'fClassEdit'
@@ -225,7 +225,7 @@ object fClassEdit: TfClassEdit
ParentFont = False
TabOrder = 0
BookMarkOptions.Xoffset = 42
Gutter.Width = 67
Gutter.Width = 0
Gutter.MouseActions = <
item
Shift = []
@@ -249,6 +249,30 @@ object fClassEdit: TfClassEdit
Option = 0
Priority = 0
end>
RightGutter.Width = 0
RightGutter.MouseActions = <
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 13
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbRight
ClickCount = ccSingle
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end>
Highlighter = SynXMLSyn1
Keystrokes = <
item
@@ -696,6 +720,8 @@ object fClassEdit: TfClassEdit
end>
ReadOnly = True
BracketHighlightStyle = sbhsBoth
inline SynLeftGutterPartList1: TSynGutterPartList
end
end
end
object tsDependencies: TTabSheet
@@ -809,6 +835,19 @@ object fClassEdit: TfClassEdit
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 = 210
top = 171

271
wst/trunk/type_lib_edtr/ufclassedit.lrs
View File

@@ -1,6 +1,8 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfClassEdit','FORMDATA',[
'TPF0'#11'TfClassEdit'#10'fClassEdit'#4'Left'#3#128#2#6'Height'#3','#2#3'Top'
+#3#167#0#5'Width'#3'('#2#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#10
'TPF0'#11'TfClassEdit'#10'fClassEdit'#4'Left'#3#130#2#6'Height'#3','#2#3'Top'
+#3#169#0#5'Width'#3'('#2#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#10
+'fClassEdit'#12'ClientHeight'#3','#2#11'ClientWidth'#3'('#2#8'Position'#7#15
+'poDesktopCenter'#10'LCLVersion'#6#6'0.9.29'#0#6'TPanel'#6'Panel1'#4'Left'#2
+#0#6'Height'#2'2'#3'Top'#3#250#1#5'Width'#3'('#2#5'Align'#7#8'alBottom'#12'C'
@@ -57,130 +59,143 @@ LazarusResources.Add('TfClassEdit','FORMDATA',[
+'t'#7'akRight'#8'akBottom'#0#11'Font.Height'#2#236#9'Font.Name'#6#7'courier'
+#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#16'fqNonAntialiased'#11'Pare'
+'ntColor'#8#10'ParentFont'#8#8'TabOrder'#2#0#23'BookMarkOptions.Xoffset'#2'*'
+#12'Gutter.Width'#2'C'#19'Gutter.MouseActions'#14#1#5'Shift'#11#0#9'ShiftMas'
+'k'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdD'
+'own'#7'Command'#2#13#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shi'
+'ft'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccSing'
+'le'#8'ClickDir'#7#4'cdUp'#7'Command'#2#12#9'MoveCaret'#8#6'Option'#2#0#8'Pr'
+'iority'#2#0#0#0#11'Highlighter'#7#10'SynXMLSyn1'#10'Keystrokes'#14#1#7'Comm'
,'and'#7#4'ecUp'#8'ShortCut'#2'&'#0#1#7'Command'#7#7'ecSelUp'#8'ShortCut'#3'&'
+' '#0#1#7'Command'#7#10'ecScrollUp'#8'ShortCut'#3'&@'#0#1#7'Command'#7#6'ecD'
+'own'#8'ShortCut'#2'('#0#1#7'Command'#7#9'ecSelDown'#8'ShortCut'#3'( '#0#1#7
+'Command'#7#12'ecScrollDown'#8'ShortCut'#3'(@'#0#1#7'Command'#7#6'ecLeft'#8
+'ShortCut'#2'%'#0#1#7'Command'#7#9'ecSelLeft'#8'ShortCut'#3'% '#0#1#7'Comman'
+'d'#7#10'ecWordLeft'#8'ShortCut'#3'%@'#0#1#7'Command'#7#13'ecSelWordLeft'#8
+'ShortCut'#3'%`'#0#1#7'Command'#7#7'ecRight'#8'ShortCut'#2''''#0#1#7'Command'
+#7#10'ecSelRight'#8'ShortCut'#3''' '#0#1#7'Command'#7#11'ecWordRight'#8'Shor'
+'tCut'#3'''@'#0#1#7'Command'#7#14'ecSelWordRight'#8'ShortCut'#3'''`'#0#1#7'C'
+'ommand'#7#10'ecPageDown'#8'ShortCut'#2'"'#0#1#7'Command'#7#13'ecSelPageDown'
+#8'ShortCut'#3'" '#0#1#7'Command'#7#12'ecPageBottom'#8'ShortCut'#3'"@'#0#1#7
+'Command'#7#15'ecSelPageBottom'#8'ShortCut'#3'"`'#0#1#7'Command'#7#8'ecPageU'
+'p'#8'ShortCut'#2'!'#0#1#7'Command'#7#11'ecSelPageUp'#8'ShortCut'#3'! '#0#1#7
+'Command'#7#9'ecPageTop'#8'ShortCut'#3'!@'#0#1#7'Command'#7#12'ecSelPageTop'
+#8'ShortCut'#3'!`'#0#1#7'Command'#7#11'ecLineStart'#8'ShortCut'#2'$'#0#1#7'C'
+'ommand'#7#14'ecSelLineStart'#8'ShortCut'#3'$ '#0#1#7'Command'#7#11'ecEditor'
+'Top'#8'ShortCut'#3'$@'#0#1#7'Command'#7#14'ecSelEditorTop'#8'ShortCut'#3'$`'
+#0#1#7'Command'#7#9'ecLineEnd'#8'ShortCut'#2'#'#0#1#7'Command'#7#12'ecSelLin'
+'eEnd'#8'ShortCut'#3'# '#0#1#7'Command'#7#14'ecEditorBottom'#8'ShortCut'#3'#'
+'@'#0#1#7'Command'#7#17'ecSelEditorBottom'#8'ShortCut'#3'#`'#0#1#7'Command'#7
+#12'ecToggleMode'#8'ShortCut'#2'-'#0#1#7'Command'#7#6'ecCopy'#8'ShortCut'#3
+'-@'#0#1#7'Command'#7#7'ecPaste'#8'ShortCut'#3'- '#0#1#7'Command'#7#12'ecDel'
+'eteChar'#8'ShortCut'#2'.'#0#1#7'Command'#7#5'ecCut'#8'ShortCut'#3'. '#0#1#7
+'Command'#7#16'ecDeleteLastChar'#8'ShortCut'#2#8#0#1#7'Command'#7#16'ecDelet'
+'eLastChar'#8'ShortCut'#3#8' '#0#1#7'Command'#7#16'ecDeleteLastWord'#8'Short'
+'Cut'#3#8'@'#0#1#7'Command'#7#6'ecUndo'#8'ShortCut'#4#8#128#0#0#0#1#7'Comman'
+'d'#7#6'ecRedo'#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#7#11'ecLineBreak'#8'S'
+'hortCut'#2#13#0#1#7'Command'#7#11'ecSelectAll'#8'ShortCut'#3'A@'#0#1#7'Comm'
+'and'#7#6'ecCopy'#8'ShortCut'#3'C@'#0#1#7'Command'#7#13'ecBlockIndent'#8'Sho'
+'rtCut'#3'I`'#0#1#7'Command'#7#11'ecLineBreak'#8'ShortCut'#3'M@'#0#1#7'Comma'
+'nd'#7#12'ecInsertLine'#8'ShortCut'#3'N@'#0#1#7'Command'#7#12'ecDeleteWord'#8
+'ShortCut'#3'T@'#0#1#7'Command'#7#15'ecBlockUnindent'#8'ShortCut'#3'U`'#0#1#7
+'Command'#7#7'ecPaste'#8'ShortCut'#3'V@'#0#1#7'Command'#7#5'ecCut'#8'ShortCu'
+'t'#3'X@'#0#1#7'Command'#7#12'ecDeleteLine'#8'ShortCut'#3'Y@'#0#1#7'Command'
+#7#11'ecDeleteEOL'#8'ShortCut'#3'Y`'#0#1#7'Command'#7#6'ecUndo'#8'ShortCut'#3
+'Z@'#0#1#7'Command'#7#6'ecRedo'#8'ShortCut'#3'Z`'#0#1#7'Command'#7#13'ecGoto'
+'Marker0'#8'ShortCut'#3'0@'#0#1#7'Command'#7#13'ecGotoMarker1'#8'ShortCut'#3
+'1@'#0#1#7'Command'#7#13'ecGotoMarker2'#8'ShortCut'#3'2@'#0#1#7'Command'#7#13
+'ecGotoMarker3'#8'ShortCut'#3'3@'#0#1#7'Command'#7#13'ecGotoMarker4'#8'Short'
+'Cut'#3'4@'#0#1#7'Command'#7#13'ecGotoMarker5'#8'ShortCut'#3'5@'#0#1#7'Comma'
+'nd'#7#13'ecGotoMarker6'#8'ShortCut'#3'6@'#0#1#7'Command'#7#13'ecGotoMarker7'
+#8'ShortCut'#3'7@'#0#1#7'Command'#7#13'ecGotoMarker8'#8'ShortCut'#3'8@'#0#1#7
+'Command'#7#13'ecGotoMarker9'#8'ShortCut'#3'9@'#0#1#7'Command'#7#12'ecSetMar'
+'ker0'#8'ShortCut'#3'0`'#0#1#7'Command'#7#12'ecSetMarker1'#8'ShortCut'#3'1`'
+#0#1#7'Command'#7#12'ecSetMarker2'#8'ShortCut'#3'2`'#0#1#7'Command'#7#12'ecS'
+'etMarker3'#8'ShortCut'#3'3`'#0#1#7'Command'#7#12'ecSetMarker4'#8'ShortCut'#3
+'4`'#0#1#7'Command'#7#12'ecSetMarker5'#8'ShortCut'#3'5`'#0#1#7'Command'#7#12
+'ecSetMarker6'#8'ShortCut'#3'6`'#0#1#7'Command'#7#12'ecSetMarker7'#8'ShortCu'
+'t'#3'7`'#0#1#7'Command'#7#12'ecSetMarker8'#8'ShortCut'#3'8`'#0#1#7'Command'
+#7#12'ecSetMarker9'#8'ShortCut'#3'9`'#0#1#7'Command'#7#14'ecNormalSelect'#8
+'ShortCut'#3'N`'#0#1#7'Command'#7#14'ecColumnSelect'#8'ShortCut'#3'C`'#0#1#7
+'Command'#7#12'ecLineSelect'#8'ShortCut'#3'L`'#0#1#7'Command'#7#5'ecTab'#8'S'
+'hortCut'#2#9#0#1#7'Command'#7#10'ecShiftTab'#8'ShortCut'#3#9' '#0#1#7'Comma'
+'nd'#7#14'ecMatchBracket'#8'ShortCut'#3'B`'#0#0#12'MouseActions'#14#1#5'Shif'
+'t'#11#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'Clic'
+'kCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#1#9'MoveCaret'#9
+#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#7'ssShift'#0#9'ShiftMask'#11#7
+'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'Cl'
+'ickDir'#7#6'cdDown'#7'Command'#2#1#9'MoveCaret'#9#6'Option'#2#1#8'Priority'
+#2#0#0#1#5'Shift'#11#5'ssAlt'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Butt'
+'on'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Comm'
+'and'#2#3#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#7'ssS'
+'hift'#5'ssAlt'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'
+#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#3#9'MoveC'
,'aret'#9#6'Option'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6
+'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'C'
+'ommand'#2#12#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0
+#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccDouble'#8'Clic'
+'kDir'#7#6'cdDown'#7'Command'#2#6#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2
+#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7
+#8'ccTriple'#8'ClickDir'#7#6'cdDown'#7'Command'#2#7#9'MoveCaret'#9#6'Option'
+#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLef'
+'t'#10'ClickCount'#7#6'ccQuad'#8'ClickDir'#7#6'cdDown'#7'Command'#2#8#9'Move'
+'Caret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6
+'Button'#7#8'mbMiddle'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7
+'Command'#2#10#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#6
+'ssCtrl'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#6'ssCtrl'#0#6'Button'#7#6'mbL'
+'eft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#11#9'M'
+'oveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#15'MouseSelActions'#14#1#5'Sh'
+'ift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSing'
+'le'#8'ClickDir'#7#6'cdDown'#7'Command'#2#9#9'MoveCaret'#8#6'Option'#2#0#8'P'
+'riority'#2#0#0#0#8'ReadOnly'#9#21'BracketHighlightStyle'#7#8'sbhsBoth'#0#0#0
+#9'TTabSheet'#14'tsDependencies'#7'Caption'#6#7'Used by'#12'ClientHeight'#3
+#215#1#11'ClientWidth'#3' '#2#0#9'TTreeView'#12'tvDependency'#4'Left'#2#20#6
+'Height'#3#177#1#3'Top'#2#18#5'Width'#3#242#1#7'Anchors'#11#5'akTop'#6'akLef'
+'t'#7'akRight'#8'akBottom'#0#17'DefaultItemHeight'#2#15#8'ReadOnly'#9#16'Rig'
+'htClickSelect'#9#8'TabOrder'#2#0#7'Options'#11#17'tvoAutoItemHeight'#16'tvo'
+'HideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#19'tvoRightClickSe'
+'lect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0
+#0#0#0#9'TTabSheet'#15'tsDocumentation'#7'Caption'#6#13'Documentation'#12'Cl'
+'ientHeight'#3#215#1#11'ClientWidth'#3' '#2#0#5'TMemo'#16'edtDocumentation'#4
+'Left'#2#12#6'Height'#3#178#1#3'Top'#2#18#5'Width'#3#2#2#7'Anchors'#11#5'akT'
+'op'#6'akLeft'#7'akRight'#8'akBottom'#0#10'ScrollBars'#7#10'ssAutoBoth'#8'Ta'
+'bOrder'#2#0#8'WordWrap'#8#0#0#0#0#11'TActionList'#11'ActionList1'#4'left'#3
+#248#0#3'top'#3#232#0#0#7'TAction'#5'actOK'#7'Caption'#6#2'OK'#9'OnExecute'#7
+#12'actOKExecute'#8'OnUpdate'#7#11'actOKUpdate'#0#0#7'TAction'#10'actPropAdd'
+#7'Caption'#6#12'New Property'#9'OnExecute'#7#17'actPropAddExecute'#0#0#7'TA'
+'ction'#11'actPropEdit'#7'Caption'#6#13'Edit Property'#9'OnExecute'#7#18'act'
+'PropEditExecute'#8'OnUpdate'#7#17'actPropEditUpdate'#0#0#7'TAction'#13'actP'
+'ropDelete'#7'Caption'#6#15'Delete Property'#9'OnExecute'#7#20'actPropDelete'
+'Execute'#8'OnUpdate'#7#17'actPropEditUpdate'#0#0#7'TAction'#8'actApply'#7'C'
+'aption'#6#5'Apply'#9'OnExecute'#7#15'actApplyExecute'#8'OnUpdate'#7#11'actO'
+'KUpdate'#0#0#7'TAction'#9'actMoveUp'#7'Caption'#6#7'Move Up'#9'OnExecute'#7
+#16'actMoveUpExecute'#8'OnUpdate'#7#15'actMoveUpUpdate'#0#0#7'TAction'#11'ac'
+'tMoveDown'#7'Caption'#6#9'Move Down'#9'OnExecute'#7#18'actMoveDownExecute'#8
+'OnUpdate'#7#17'actMoveDownUpdate'#0#0#7'TAction'#12'actMoveFirst'#7'Caption'
+#6#10'Move First'#9'OnExecute'#7#19'actMoveFirstExecute'#8'OnUpdate'#7#15'ac'
+'tMoveUpUpdate'#0#0#7'TAction'#11'actMoveLast'#7'Caption'#6#9'Move Last'#9'O'
+'nExecute'#7#18'actMoveLastExecute'#8'OnUpdate'#7#17'actMoveDownUpdate'#0#0#0
+#10'TPopupMenu'#10'PopupMenu1'#4'left'#2'i'#3'top'#3#186#0#0#9'TMenuItem'#9
+'MenuItem1'#6'Action'#7#10'actPropAdd'#7'OnClick'#7#17'actPropAddExecute'#0#0
+#9'TMenuItem'#9'MenuItem2'#6'Action'#7#11'actPropEdit'#7'OnClick'#7#18'actPr'
+'opEditExecute'#0#0#9'TMenuItem'#9'MenuItem3'#6'Action'#7#13'actPropDelete'#7
+'OnClick'#7#20'actPropDeleteExecute'#0#0#9'TMenuItem'#9'MenuItem4'#7'Caption'
+#6#1'-'#0#0#9'TMenuItem'#9'MenuItem5'#6'Action'#7#9'actMoveUp'#7'OnClick'#7
+#16'actMoveUpExecute'#0#0#9'TMenuItem'#9'MenuItem6'#6'Action'#7#11'actMoveDo'
+'wn'#7'OnClick'#7#18'actMoveDownExecute'#0#0#0#10'TSynXMLSyn'#10'SynXMLSyn1'
+#13'DefaultFilter'#6'MDocuments XML (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*'
+'.xsd;*.xsl;*.xslt;*.dtd'#7'Enabled'#8#16'WantBracesParsed'#8#4'left'#3#210#0
+#3'top'#3#171#0#0#0#0
+#12'Gutter.Width'#2#0#19'Gutter.MouseActions'#14#1#5'Shift'#11#0#9'ShiftMask'
+#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'
+#7'Command'#2#13#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11
+#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccSingle'#8'C'
+'lickDir'#7#4'cdUp'#7'Command'#2#12#9'MoveCaret'#8#6'Option'#2#0#8'Priority'
+#2#0#0#0#17'RightGutter.Width'#2#0#24'RightGutter.MouseActions'#14#1#5'Shift'
,#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'Cl'
+'ickDir'#7#6'cdDown'#7'Command'#2#13#9'MoveCaret'#8#6'Option'#2#0#8'Priority'
+#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCoun'
+'t'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#12#9'MoveCaret'#8#6'Opt'
+'ion'#2#0#8'Priority'#2#0#0#0#11'Highlighter'#7#10'SynXMLSyn1'#10'Keystrokes'
+#14#1#7'Command'#7#4'ecUp'#8'ShortCut'#2'&'#0#1#7'Command'#7#7'ecSelUp'#8'Sh'
+'ortCut'#3'& '#0#1#7'Command'#7#10'ecScrollUp'#8'ShortCut'#3'&@'#0#1#7'Comma'
+'nd'#7#6'ecDown'#8'ShortCut'#2'('#0#1#7'Command'#7#9'ecSelDown'#8'ShortCut'#3
+'( '#0#1#7'Command'#7#12'ecScrollDown'#8'ShortCut'#3'(@'#0#1#7'Command'#7#6
+'ecLeft'#8'ShortCut'#2'%'#0#1#7'Command'#7#9'ecSelLeft'#8'ShortCut'#3'% '#0#1
+#7'Command'#7#10'ecWordLeft'#8'ShortCut'#3'%@'#0#1#7'Command'#7#13'ecSelWord'
+'Left'#8'ShortCut'#3'%`'#0#1#7'Command'#7#7'ecRight'#8'ShortCut'#2''''#0#1#7
+'Command'#7#10'ecSelRight'#8'ShortCut'#3''' '#0#1#7'Command'#7#11'ecWordRigh'
+'t'#8'ShortCut'#3'''@'#0#1#7'Command'#7#14'ecSelWordRight'#8'ShortCut'#3'''`'
+#0#1#7'Command'#7#10'ecPageDown'#8'ShortCut'#2'"'#0#1#7'Command'#7#13'ecSelP'
+'ageDown'#8'ShortCut'#3'" '#0#1#7'Command'#7#12'ecPageBottom'#8'ShortCut'#3
+'"@'#0#1#7'Command'#7#15'ecSelPageBottom'#8'ShortCut'#3'"`'#0#1#7'Command'#7
+#8'ecPageUp'#8'ShortCut'#2'!'#0#1#7'Command'#7#11'ecSelPageUp'#8'ShortCut'#3
+'! '#0#1#7'Command'#7#9'ecPageTop'#8'ShortCut'#3'!@'#0#1#7'Command'#7#12'ecS'
+'elPageTop'#8'ShortCut'#3'!`'#0#1#7'Command'#7#11'ecLineStart'#8'ShortCut'#2
+'$'#0#1#7'Command'#7#14'ecSelLineStart'#8'ShortCut'#3'$ '#0#1#7'Command'#7#11
+'ecEditorTop'#8'ShortCut'#3'$@'#0#1#7'Command'#7#14'ecSelEditorTop'#8'ShortC'
+'ut'#3'$`'#0#1#7'Command'#7#9'ecLineEnd'#8'ShortCut'#2'#'#0#1#7'Command'#7#12
+'ecSelLineEnd'#8'ShortCut'#3'# '#0#1#7'Command'#7#14'ecEditorBottom'#8'Short'
+'Cut'#3'#@'#0#1#7'Command'#7#17'ecSelEditorBottom'#8'ShortCut'#3'#`'#0#1#7'C'
+'ommand'#7#12'ecToggleMode'#8'ShortCut'#2'-'#0#1#7'Command'#7#6'ecCopy'#8'Sh'
+'ortCut'#3'-@'#0#1#7'Command'#7#7'ecPaste'#8'ShortCut'#3'- '#0#1#7'Command'#7
+#12'ecDeleteChar'#8'ShortCut'#2'.'#0#1#7'Command'#7#5'ecCut'#8'ShortCut'#3'.'
+' '#0#1#7'Command'#7#16'ecDeleteLastChar'#8'ShortCut'#2#8#0#1#7'Command'#7#16
+'ecDeleteLastChar'#8'ShortCut'#3#8' '#0#1#7'Command'#7#16'ecDeleteLastWord'#8
+'ShortCut'#3#8'@'#0#1#7'Command'#7#6'ecUndo'#8'ShortCut'#4#8#128#0#0#0#1#7'C'
+'ommand'#7#6'ecRedo'#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#7#11'ecLineBreak'
+#8'ShortCut'#2#13#0#1#7'Command'#7#11'ecSelectAll'#8'ShortCut'#3'A@'#0#1#7'C'
+'ommand'#7#6'ecCopy'#8'ShortCut'#3'C@'#0#1#7'Command'#7#13'ecBlockIndent'#8
+'ShortCut'#3'I`'#0#1#7'Command'#7#11'ecLineBreak'#8'ShortCut'#3'M@'#0#1#7'Co'
+'mmand'#7#12'ecInsertLine'#8'ShortCut'#3'N@'#0#1#7'Command'#7#12'ecDeleteWor'
+'d'#8'ShortCut'#3'T@'#0#1#7'Command'#7#15'ecBlockUnindent'#8'ShortCut'#3'U`'
+#0#1#7'Command'#7#7'ecPaste'#8'ShortCut'#3'V@'#0#1#7'Command'#7#5'ecCut'#8'S'
+'hortCut'#3'X@'#0#1#7'Command'#7#12'ecDeleteLine'#8'ShortCut'#3'Y@'#0#1#7'Co'
+'mmand'#7#11'ecDeleteEOL'#8'ShortCut'#3'Y`'#0#1#7'Command'#7#6'ecUndo'#8'Sho'
+'rtCut'#3'Z@'#0#1#7'Command'#7#6'ecRedo'#8'ShortCut'#3'Z`'#0#1#7'Command'#7
+#13'ecGotoMarker0'#8'ShortCut'#3'0@'#0#1#7'Command'#7#13'ecGotoMarker1'#8'Sh'
+'ortCut'#3'1@'#0#1#7'Command'#7#13'ecGotoMarker2'#8'ShortCut'#3'2@'#0#1#7'Co'
+'mmand'#7#13'ecGotoMarker3'#8'ShortCut'#3'3@'#0#1#7'Command'#7#13'ecGotoMark'
+'er4'#8'ShortCut'#3'4@'#0#1#7'Command'#7#13'ecGotoMarker5'#8'ShortCut'#3'5@'
+#0#1#7'Command'#7#13'ecGotoMarker6'#8'ShortCut'#3'6@'#0#1#7'Command'#7#13'ec'
+'GotoMarker7'#8'ShortCut'#3'7@'#0#1#7'Command'#7#13'ecGotoMarker8'#8'ShortCu'
+'t'#3'8@'#0#1#7'Command'#7#13'ecGotoMarker9'#8'ShortCut'#3'9@'#0#1#7'Command'
+#7#12'ecSetMarker0'#8'ShortCut'#3'0`'#0#1#7'Command'#7#12'ecSetMarker1'#8'Sh'
+'ortCut'#3'1`'#0#1#7'Command'#7#12'ecSetMarker2'#8'ShortCut'#3'2`'#0#1#7'Com'
+'mand'#7#12'ecSetMarker3'#8'ShortCut'#3'3`'#0#1#7'Command'#7#12'ecSetMarker4'
+#8'ShortCut'#3'4`'#0#1#7'Command'#7#12'ecSetMarker5'#8'ShortCut'#3'5`'#0#1#7
+'Command'#7#12'ecSetMarker6'#8'ShortCut'#3'6`'#0#1#7'Command'#7#12'ecSetMark'
+'er7'#8'ShortCut'#3'7`'#0#1#7'Command'#7#12'ecSetMarker8'#8'ShortCut'#3'8`'#0
+#1#7'Command'#7#12'ecSetMarker9'#8'ShortCut'#3'9`'#0#1#7'Command'#7#14'ecNor'
+'malSelect'#8'ShortCut'#3'N`'#0#1#7'Command'#7#14'ecColumnSelect'#8'ShortCut'
+#3'C`'#0#1#7'Command'#7#12'ecLineSelect'#8'ShortCut'#3'L`'#0#1#7'Command'#7#5
+'ecTab'#8'ShortCut'#2#9#0#1#7'Command'#7#10'ecShiftTab'#8'ShortCut'#3#9' '#0
+#1#7'Command'#7#14'ecMatchBracket'#8'ShortCut'#3'B`'#0#0#12'MouseActions'#14
+#1#5'Shift'#11#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'
+#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#1#9'MoveC'
+'aret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#7'ssShift'#0#9'ShiftM'
+'ask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSi'
+'ngle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#1#9'MoveCaret'#9#6'Option'#2#1#8
,'Priority'#2#0#0#1#5'Shift'#11#5'ssAlt'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'
+#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'
+#7'Command'#2#3#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11
+#7'ssShift'#5'ssAlt'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'm'
+'bLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#3#9
+'MoveCaret'#9#6'Option'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11
+#0#6'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'
+#7'Command'#2#12#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11
+#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccDouble'#8'Cl'
+'ickDir'#7#6'cdDown'#7'Command'#2#6#9'MoveCaret'#9#6'Option'#2#0#8'Priority'
+#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'
+#7#8'ccTriple'#8'ClickDir'#7#6'cdDown'#7'Command'#2#7#9'MoveCaret'#9#6'Optio'
+'n'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mb'
+'Left'#10'ClickCount'#7#6'ccQuad'#8'ClickDir'#7#6'cdDown'#7'Command'#2#8#9'M'
+'oveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11
+#0#6'Button'#7#8'mbMiddle'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDo'
+'wn'#7'Command'#2#10#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shif'
+'t'#11#6'ssCtrl'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#6'ssCtrl'#0#6'Button'
+#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2
+#11#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#15'MouseSelActions'#14#1
+#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'cc'
+'Single'#8'ClickDir'#7#6'cdDown'#7'Command'#2#9#9'MoveCaret'#8#6'Option'#2#0
+#8'Priority'#2#0#0#0#8'ReadOnly'#9#21'BracketHighlightStyle'#7#8'sbhsBoth'#0
+#244#18'TSynGutterPartList'#22'SynLeftGutterPartList1'#0#0#0#0#9'TTabSheet'
+#14'tsDependencies'#7'Caption'#6#7'Used by'#12'ClientHeight'#3#215#1#11'Clie'
+'ntWidth'#3' '#2#0#9'TTreeView'#12'tvDependency'#4'Left'#2#20#6'Height'#3#177
+#1#3'Top'#2#18#5'Width'#3#242#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
+'akBottom'#0#17'DefaultItemHeight'#2#15#8'ReadOnly'#9#16'RightClickSelect'#9
+#8'TabOrder'#2#0#7'Options'#11#17'tvoAutoItemHeight'#16'tvoHideSelection'#21
+'tvoKeepCollapsedNodes'#11'tvoReadOnly'#19'tvoRightClickSelect'#14'tvoShowBu'
+'ttons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#0#9'TTabSheet'
+#15'tsDocumentation'#7'Caption'#6#13'Documentation'#12'ClientHeight'#3#215#1
+#11'ClientWidth'#3' '#2#0#5'TMemo'#16'edtDocumentation'#4'Left'#2#12#6'Heigh'
+'t'#3#178#1#3'Top'#2#18#5'Width'#3#2#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak'
+'Right'#8'akBottom'#0#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#8'Word'
+'Wrap'#8#0#0#0#0#11'TActionList'#11'ActionList1'#4'left'#3#248#0#3'top'#3#232
+#0#0#7'TAction'#5'actOK'#7'Caption'#6#2'OK'#9'OnExecute'#7#12'actOKExecute'#8
+'OnUpdate'#7#11'actOKUpdate'#0#0#7'TAction'#10'actPropAdd'#7'Caption'#6#12'N'
+'ew Property'#9'OnExecute'#7#17'actPropAddExecute'#0#0#7'TAction'#11'actProp'
+'Edit'#7'Caption'#6#13'Edit Property'#9'OnExecute'#7#18'actPropEditExecute'#8
+'OnUpdate'#7#17'actPropEditUpdate'#0#0#7'TAction'#13'actPropDelete'#7'Captio'
+'n'#6#15'Delete Property'#9'OnExecute'#7#20'actPropDeleteExecute'#8'OnUpdate'
+#7#17'actPropEditUpdate'#0#0#7'TAction'#8'actApply'#7'Caption'#6#5'Apply'#9
+'OnExecute'#7#15'actApplyExecute'#8'OnUpdate'#7#11'actOKUpdate'#0#0#7'TActio'
+'n'#9'actMoveUp'#7'Caption'#6#7'Move Up'#9'OnExecute'#7#16'actMoveUpExecute'
+#8'OnUpdate'#7#15'actMoveUpUpdate'#0#0#7'TAction'#11'actMoveDown'#7'Caption'
+#6#9'Move Down'#9'OnExecute'#7#18'actMoveDownExecute'#8'OnUpdate'#7#17'actMo'
+'veDownUpdate'#0#0#7'TAction'#12'actMoveFirst'#7'Caption'#6#10'Move First'#9
+'OnExecute'#7#19'actMoveFirstExecute'#8'OnUpdate'#7#15'actMoveUpUpdate'#0#0#7
+'TAction'#11'actMoveLast'#7'Caption'#6#9'Move Last'#9'OnExecute'#7#18'actMov'
+'eLastExecute'#8'OnUpdate'#7#17'actMoveDownUpdate'#0#0#0#10'TPopupMenu'#10'P'
+'opupMenu1'#4'left'#2'i'#3'top'#3#186#0#0#9'TMenuItem'#9'MenuItem1'#6'Action'
+#7#10'actPropAdd'#7'OnClick'#7#17'actPropAddExecute'#0#0#9'TMenuItem'#9'Menu'
+'Item2'#6'Action'#7#11'actPropEdit'#7'OnClick'#7#18'actPropEditExecute'#0#0#9
+'TMenuItem'#9'MenuItem3'#6'Action'#7#13'actPropDelete'#7'OnClick'#7#20'actPr'
+'opDeleteExecute'#0#0#9'TMenuItem'#9'MenuItem4'#7'Caption'#6#1'-'#0#0#9'TMen'
+'uItem'#9'MenuItem5'#6'Action'#7#9'actMoveUp'#7'OnClick'#7#16'actMoveUpExecu'
+'te'#0#0#9'TMenuItem'#9'MenuItem6'#6'Action'#7#11'actMoveDown'#7'OnClick'#7
+#18'actMoveDownExecute'#0#0#0#10'TSynXMLSyn'#10'SynXMLSyn1'#13'DefaultFilter'
+#6'MDocuments XML (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;'
+'*.dtd'#7'Enabled'#8#23'ElementAttri.FrameEdges'#7#9'sfeAround'#25'Attribute'
+'Attri.FrameEdges'#7#9'sfeAround"NamespaceAttributeAttri.FrameEdges'#7#9'sfe'
+'Around'#30'AttributeValueAttri.FrameEdges'#7#9'sfeAround''NamespaceAttribut'
+'eValueAttri.FrameEdges'#7#9'sfeAround'#20'TextAttri.FrameEdges'#7#9'sfeArou'
,'nd'#21'CDATAAttri.FrameEdges'#7#9'sfeAround'#25'EntityRefAttri.FrameEdges'#7
+#9'sfeAround%ProcessingInstructionAttri.FrameEdges'#7#9'sfeAround'#23'Commen'
+'tAttri.FrameEdges'#7#9'sfeAround'#23'DocTypeAttri.FrameEdges'#7#9'sfeAround'
+#21'SpaceAttri.FrameEdges'#7#9'sfeAround'#22'SymbolAttri.FrameEdges'#7#9'sfe'
+'Around'#16'WantBracesParsed'#8#4'left'#3#210#0#3'top'#3#171#0#0#0#0
]);

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

@@ -240,7 +240,7 @@ procedure TfClassEdit.MovePropertyItem(AItem: TPasProperty; const ANewIndex: Int
function FindNewMemberPosition() : Integer;
var
k, kcounter : Integer;
mlist : TList;
mlist : TList2;
begin
Result := 0;
kcounter := 0;
@@ -280,7 +280,7 @@ procedure InternalFillList(
var
i, j : Integer;
sym : TPasElement;
modulList, decList : TList;
modulList, decList : TList2;
mdl : TPasModule;
ok : Boolean;
locExtName : string;

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

@@ -1,7 +1,7 @@
object fPropEdit: TfPropEdit
Left = 977
Left = 979
Height = 326
Top = 144
Top = 146
Width = 324
HorzScrollBar.Page = 323
VertScrollBar.Page = 325

4
wst/trunk/type_lib_edtr/ufpropedit.lrs
View File

@@ -1,8 +1,8 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfPropEdit','FORMDATA',[
'TPF0'#10'TfPropEdit'#9'fPropEdit'#4'Left'#3#209#3#6'Height'#3'F'#1#3'Top'#3
+#144#0#5'Width'#3'D'#1#18'HorzScrollBar.Page'#3'C'#1#18'VertScrollBar.Page'#3
'TPF0'#10'TfPropEdit'#9'fPropEdit'#4'Left'#3#211#3#6'Height'#3'F'#1#3'Top'#3
+#146#0#5'Width'#3'D'#1#18'HorzScrollBar.Page'#3'C'#1#18'VertScrollBar.Page'#3
+'E'#1#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7
+'Caption'#6#9'fPropEdit'#12'ClientHeight'#3'F'#1#11'ClientWidth'#3'D'#1#8'Po'
+'sition'#7#15'poDesktopCenter'#10'LCLVersion'#6#6'0.9.29'#0#6'TPanel'#6'Pane'

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

@@ -54,7 +54,7 @@ type
private
procedure LoadFromObject();
procedure SaveToObject();
function GetMembers() : TList;
function GetMembers() : TList2;
function IsClassType() : Boolean;
public
function UpdateObject(
@@ -224,7 +224,7 @@ begin
FSymbolTable.SetPropertyAsAttribute(locObj,edtAttribute.Checked);
end;
function TfPropEdit.GetMembers() : TList;
function TfPropEdit.GetMembers() : TList2;
begin
if ClassObject.InheritsFrom(TPasClassType) then
Result := TPasClassType(ClassObject).Members

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

@@ -175,7 +175,7 @@ procedure TfRecordEdit.MovePropertyItem(AItem: TPasVariable; const ANewIndex: In
function FindNewMemberPosition() : Integer;
var
k, kcounter : Integer;
mlist : TList;
mlist : TList2;
begin
Result := 0;
kcounter := 0;

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

@@ -116,7 +116,7 @@ var
b : Boolean;
i : Integer;
locProc : TPasProcedure;
memberList : TList;
memberList : TList2;
locName : string;
begin
locName := edtName.Text;
@@ -204,7 +204,7 @@ var
i : Integer;
prp : TPasArgument;
extName : string;
argList : TList;
argList : TList2;
begin
edtName.Text := '';
edtParams.Clear();
@@ -231,7 +231,7 @@ procedure TfProcEdit.SaveToObject();
procedure CopyArgs(AFrom,ATo : TPasProcedureType);
var
argList : TList;
argList : TList2;
arg, newArg : TPasArgument;
k, ck : Integer;
begin

12
wst/trunk/type_lib_edtr/view_helper.pas
View File

@@ -258,7 +258,7 @@ var
procedure ScanClassType(AItem : TPasClassType);
var
k : PtrInt;
pl : TList;
pl : TList2;
m : TPasElement;
p : TPasProperty;
begin
@@ -289,7 +289,7 @@ var
procedure ScanRecordType(AItem : TPasRecordType);
var
k : PtrInt;
pl : TList;
pl : TList2;
m : TPasElement;
p : TPasVariable;
begin
@@ -313,7 +313,7 @@ var
var
i, c : PtrInt;
list : TList;
list : TList2;
e : TPasType;
begin
list := ATree.CurrentModule.InterfaceSection.Types;
@@ -711,7 +711,7 @@ var
objPtr : ISymbolPainter;
{constNode,} typNode, intfNode : TTreeNode;
objItm : TPasElement;
decList : TList;
decList : TList2;
begin
locObj := AObj as TPasModule;
Result := inherited Paint(AContainer, locObj, AParent);
@@ -758,7 +758,7 @@ var
ss : string;
pmr : TPasArgument;
locMthd : TPasProcedure;
memberList : TList;
memberList : TList2;
begin
locMthd := AObj as TPasProcedure;
Result := AddChildNode(AParent,AContainer.GetExternalName(locMthd));
@@ -799,7 +799,7 @@ var
locObj : TPasClassType;
locMthd : TPasProcedure;
i : Integer;
memberList : TList;
memberList : TList2;
bindingsNode : TTreeNode;
b : TwstBinding;
begin

58
wst/trunk/ws_helper/generator.pas
View File

@@ -433,7 +433,7 @@ Var
i,c : Integer;
intf : TPasClassType;
elt : TPasElement;
ls : TList;
ls : TList2;
binding : TwstBinding;
intfEasy : TPasClassType;
HandleEasyIntf : Boolean;
@@ -515,7 +515,7 @@ var
Var
prmCnt,k : Integer;
prm : TPasArgument;
prms : TList;
prms : TList2;
Begin
Indent();
prms := AMthd.ProcType.Args;
@@ -555,7 +555,7 @@ var
procedure WriteMethods();
var
k : Integer;
mthds : TList;
mthds : TList2;
elt : TPasElement;
begin
if ( GetElementCount(AIntf.Members,TPasProcedure) = 0 ) then
@@ -652,7 +652,7 @@ Var
Var
prmCnt,k : Integer;
prm : TPasArgument;
prms : TList;
prms : TList2;
Begin
prms := AMthd.ProcType.Args;
prmCnt := prms.Count;
@@ -687,7 +687,7 @@ Var
procedure WriteEasyMethodImp(AMthd : TPasProcedure);
var
prms : TList;
prms : TList2;
origineRes : TPasResultElement;
origineResProp : TPasProperty;
@@ -901,7 +901,7 @@ Var
prmCnt,k : Integer;
prm : TPasArgument;
resPrm : TPasResultElement;
prms : TList;
prms : TList2;
Begin
prms := AMthd.ProcType.Args;
prmCnt := prms.Count;
@@ -1010,7 +1010,7 @@ Var
procedure WriteMethods();
var
k : Integer;
mthds : TList;
mthds : TList2;
elt : TPasElement;
begin
WriteTypeInfoMethod();
@@ -1119,7 +1119,7 @@ end;
var
m : TPasModule;
k, currentModuleIndex : Integer;
mdlList : TList;
mdlList : TList2;
mdl : TPasModule;
begin
Result := '';
@@ -1246,7 +1246,7 @@ procedure TBinderGenerator.GenerateIntf(AIntf: TPasClassType);
procedure WriteMethods();
var
k : Integer;
mbrs : TList;
mbrs : TList2;
elt : TPasElement;
begin
if ( GetElementCount(AIntf.Members,TPasProcedure) > 0 ) then begin
@@ -1333,7 +1333,7 @@ Var
Var
prmCnt,k : Integer;
prm : TPasArgument;
prms : TList;
prms : TList2;
resElt : TPasResultElement;
strBuff : string;
Begin
@@ -1496,7 +1496,7 @@ Var
Var
k : Integer;
mtd : TPasProcedure;
mtds : TList;
mtds : TList2;
Begin
NewLine();
WriteLn('constructor %s.Create();',[strClassName]);
@@ -1520,7 +1520,7 @@ Var
procedure WriteMethods();
var
k : Integer;
mtds : TList;
mtds : TList2;
mtd : TPasProcedure;
begin
mtds := AIntf.Members;
@@ -1618,7 +1618,7 @@ procedure TBinderGenerator.Execute();
Var
i,c : Integer;
intf : TPasClassType;
typeList : TList;
typeList : TList2;
elt : TPasElement;
begin
GenerateUnitHeader();
@@ -1700,7 +1700,7 @@ procedure TImplementationGenerator.GenerateIntf(AIntf: TPasClassType);
var
prmCnt,k : Integer;
prm : TPasArgument;
prms : TList;
prms : TList2;
begin
Indent();
prms := AMthd.ProcType.Args;
@@ -1737,7 +1737,7 @@ procedure TImplementationGenerator.GenerateIntf(AIntf: TPasClassType);
procedure WriteMethods();
var
k : Integer;
mtds : TList;
mtds : TList2;
elt : TPasElement;
begin
if ( GetElementCount(AIntf.Members,TPasProcedure) > 0 ) then begin
@@ -1792,7 +1792,7 @@ var
procedure WriteMethodDec(AMthd : TPasProcedure);
var
prmCnt,k : Integer;
prms : TList;
prms : TList2;
prm : TPasArgument;
begin
prms := AMthd.ProcType.Args;
@@ -1836,7 +1836,7 @@ var
procedure WriteMethods();
var
k : Integer;
mbrs : TList;
mbrs : TList2;
elt : TPasElement;
mtd : TPasProcedure;
begin
@@ -1909,7 +1909,7 @@ Var
i,c : Integer;
intf : TPasClassType;
elt : TPasElement;
typeList : TList;
typeList : TList2;
begin
GenerateUnitHeader();
GenerateUnitImplementationHeader();
@@ -2268,7 +2268,7 @@ procedure TInftGenerator.GenerateIntf(AIntf: TPasClassType);
var
prmCnt,k : Integer;
prm : TPasArgument;
prms : TList;
prms : TList2;
begin
Indent();
prms := AMthd.ProcType.Args;
@@ -2305,7 +2305,7 @@ procedure TInftGenerator.GenerateIntf(AIntf: TPasClassType);
procedure WriteMethods();
var
k : Integer;
mbrs : TList;
mbrs : TList2;
elt : TPasElement;
begin
IncIndent();
@@ -2936,7 +2936,7 @@ procedure TInftGenerator.GenerateCustomMetadatas();
procedure WriteServiceDatas(ABinding : TwstBinding);
var
k : Integer;
opList : TList;
opList : TList2;
elt : TPasElement;
begin
if not IsStrEmpty(ABinding.Address) then begin
@@ -3007,10 +3007,10 @@ end;
procedure TInftGenerator.InternalExecute();
procedure SortRecords(AList : TList);
procedure SortRecords(AList : TList2);
var
j, k : PtrInt;
ordr_ls, mbrLs, locLs : TList;
ordr_ls, mbrLs, locLs : TList2;
locMemberType : TPasType;
rec, locRec : TPasRecordType;
locStack : TStack;
@@ -3019,10 +3019,10 @@ procedure TInftGenerator.InternalExecute();
if ( AList.Count > 0 ) then begin
locStack := nil;
locLs := nil;
ordr_ls := TList.Create();
ordr_ls := TList2.Create();
try
locStack := TStack.Create();
locLs := TList.Create();
locLs := TList2.Create();
for j := 0 to Pred(AList.Count) do begin
rec := TPasRecordType(AList[j]);
if ( ordr_ls.IndexOf(rec) = -1 ) then begin
@@ -3075,10 +3075,10 @@ var
clssTyp : TPasClassType;
gnrClssLst : TObjectList;
objLst : TObjectList;
typeList : TList;
typeList : TList2;
elt : TPasElement;
classAncestor : TPasElement;
tmpList : TList;
tmpList : TList2;
intfCount : PtrInt;
locBinding : TwstBinding;
begin
@@ -3124,7 +3124,7 @@ begin
end;
end;
tmpList := TList.Create();
tmpList := TList2.Create();
for i := 0 to c do begin
elt := TPasElement(typeList[i]);
if elt.InheritsFrom(TPasRecordType) then begin
@@ -3260,7 +3260,7 @@ procedure TInftGenerator.Execute();
var
oldCurrent, mdl : TPasModule;
i : PtrInt;
mdlList : TList;
mdlList : TList2;
oldCS : Boolean;
oldNamesKinds : TElementNameKinds;
begin

8
wst/trunk/ws_helper/metadata_generator.pas
View File

@@ -54,7 +54,7 @@ uses
procedure TMetadataGenerator.GenerateHeader();
var
c, i, k : LongInt;
typeList : TList;
typeList : TList2;
elt : TPasElement;
begin
FStream.WriteAnsiStr(sWST_SIGNATURE);
@@ -90,7 +90,7 @@ procedure TMetadataGenerator.GenerateIntfMetadata(AIntf: TPasClassType);
var
j, k : LongInt;
argLst : TList;
argLst : TList2;
begin
argLst := AMeth.ProcType.Args;
k := argLst.Count;
@@ -110,7 +110,7 @@ procedure TMetadataGenerator.GenerateIntfMetadata(AIntf: TPasClassType);
var
i, c : LongInt;
mbrs : TList;
mbrs : TList2;
elt : TPasElement;
begin
FStream.WriteAnsiStr(AIntf.Name);
@@ -137,7 +137,7 @@ procedure TMetadataGenerator.Execute();
Var
i,c : Integer;
intf : TPasClassType;
typeList : TList;
typeList : TList2;
elt : TPasElement;
begin
GenerateHeader();

39
wst/trunk/ws_helper/pascal_parser_intf.pas
View File

@@ -41,6 +41,21 @@ type
{$IFEND}
type
{$UNDEF wst_use_fplist}
{$IFDEF FPC}
{$IF Defined(FPC_VERSION) and
( (FPC_VERSION > 2) or
( (FPC_VERSION = 2) and (FPC_RELEASE > 6) )
)
}
{$DEFINE wst_use_fplist}
{$IFEND}
{$ENDIF FPC}
{$IFDEF wst_use_fplist}
TList2 = TFPList;
{$ELSE wst_use_fplist}
TList2 = TList;
{$ENDIF wst_use_fplist}
TElementNameKind = ( elkDeclaredName, elkName );
TElementNameKinds = set of TElementNameKind;
@@ -225,7 +240,7 @@ type
) : TPasArgument;
function FindMember(AClass : TPasClassType; const AName : string) : TPasElement ; overload;
function FindMember(AClass : TPasRecordType; const AName : string) : TPasElement ; overload;
function GetElementCount(AList : TList; AElementClass : TPTreeElement):Integer ;
function GetElementCount(AList : TList2; AElementClass : TPTreeElement):Integer ;
function GetUltimeType(AType : TPasType) : TPasType;
function MakeInternalSymbolNameFrom(const AName : string) : string ;
@@ -515,7 +530,7 @@ begin
end;
end;
function GetElementCount(AList : TList; AElementClass : TPTreeElement):Integer ;
function GetElementCount(AList : TList2; AElementClass : TPTreeElement):Integer ;
var
i : Integer;
begin
@@ -535,7 +550,7 @@ function GetParameterIndex(
const AStartPos : Integer
) : Integer;
var
pl : TList;
pl : TList2;
i : Integer;
begin
pl := AProcType.Args;
@@ -568,7 +583,7 @@ begin
end;
end;
function InternalFindMember(AMemberList : TList; const AName : string) : TPasElement ;
function InternalFindMember(AMemberList : TList2; const AName : string) : TPasElement ;
var
i : Integer;
begin
@@ -615,7 +630,7 @@ var
ct : TPasClassType;
c, i : Integer;
m : TPasModule;
ls : TList;
ls : TList2;
begin
if ( ATree.CurrentModule <> nil ) then begin
m := ATree.CurrentModule;
@@ -770,7 +785,7 @@ function TwstPasTreeContainer.FindElementInModule(
const ANameKinds : TElementNameKinds
): TPasElement;
var
decs : TList;
decs : TList2;
i, c : Integer;
begin
Result := nil;
@@ -834,7 +849,7 @@ function TwstPasTreeContainer.FindElement(
): TPasElement;
var
i : Integer;
mls : TList;
mls : TList2;
mdl : TPasModule;
begin
Result := FindElementInModule(AName,CurrentModule,ANameKinds);
@@ -855,7 +870,7 @@ end;
function TwstPasTreeContainer.FindModule(const AName: String): TPasModule;
var
i , c : Integer;
mdl : TList;
mdl : TList2;
begin
Result := nil;
mdl := Package.Modules;
@@ -871,8 +886,8 @@ function TwstPasTreeContainer.IsEnumItemNameUsed(const AName: string;AModule: TP
var
i, c, j : Integer;
elt : TPasElement;
enumList : TList;
typeList : TList;
enumList : TList2;
typeList : TList2;
begin
Result := False;
typeList := AModule.InterfaceSection.Declarations;
@@ -979,7 +994,7 @@ procedure TwstPasTreeContainer.FreeProperties(AObject: TPasElement);
procedure FreeClassProps(AObj : TPasClassType);
var
ls : TList;
ls : TList2;
k : PtrInt;
begin
ls := AObj.Members;
@@ -990,7 +1005,7 @@ procedure TwstPasTreeContainer.FreeProperties(AObject: TPasElement);
procedure FreeRecordFields(AObj : TPasRecordType);
var
ls : TList;
ls : TList2;
k : PtrInt;
begin
ls := AObj.Members;

2
wst/trunk/ws_helper/ws_parser_imp.pas
View File

@@ -257,7 +257,7 @@ var
typNode : TDOMNode;
begin
if not AEltNode.HasChildNodes() then begin;
raise EXsdParserException.Create(SERR_InvalidTypeDef_NoChild);
raise EXsdParserException.Create(AEltNode.NodeName+' : '+SERR_InvalidTypeDef_NoChild);
end;
typName := ATypeName;
if IsStrEmpty(typName) then begin

4
wst/trunk/ws_helper/wsdl_generator.pas
View File

@@ -147,7 +147,7 @@ procedure TWsdlGenerator.GenerateTypes(ASymTable : TwstPasTreeContainer);
var
i : PtrInt;
mdl : TPasModule;
mdlLs : TList;
mdlLs : TList2;
g : IGenerator;
begin
mdlLs := ASymTable.Package.Modules;
@@ -450,7 +450,7 @@ end;
procedure TWsdlGenerator.Execute(ASymTable : TwstPasTreeContainer; AModuleName : string);
var
locMainModule : TPasModule;
decList : TList;
decList : TList2;
j, c : PtrInt;
sym : TPasElement;
ps : TPasClassType;

6
wst/trunk/ws_helper/wsdl_parser.pas
View File

@@ -346,7 +346,7 @@ procedure TWsdlParser.Execute(const AMode: TParserMode; const AModuleName: strin
typeCursor : IObjectCursor;
schmNode, tmpNode : TDOMNode;
s : string;
typeList : TList;
typeList : TList2;
locXsdParser : IXsdPaser;
begin
if Assigned(FSchemaCursor) then begin
@@ -422,7 +422,7 @@ procedure TWsdlParser.Execute(const AMode: TParserMode; const AModuleName: strin
locPrs : IParserContext;
k : PtrInt;
locModule : TPasModule;
locIntfUsesList : TList;
locIntfUsesList : TList2;
begin
locIntfUsesList := FModule.InterfaceSection.UsesList;
for k := 0 to Pred(FXsdParsers.Count) do begin
@@ -702,7 +702,7 @@ function TWsdlParser.ParseOperation(
procedure ParseOutputMessage();
function FindIndexOfResultArg(AArgList : TList) : PtrInt;
function FindIndexOfResultArg(AArgList : TList2) : PtrInt;
const RESULT_ARG_NAMES : array[0..5] of string = ( 'result', 'return', '_result', 'result_', '_return', 'return_' );
var
p, q : PtrInt;

2
wst/trunk/ws_helper/xsd_generator.pas
View File

@@ -1282,7 +1282,7 @@ var
tri : TPasElement;
g : IXsdTypeHandler;
gr : IXsdTypeHandlerRegistry;
typeList : TList;
typeList : TList2;
mdl : TPasModule;
begin
if ( ASymTable = nil ) then

4
wst/trunk/ws_helper/xsd_parser.pas
View File

@@ -359,7 +359,7 @@ var
locOldCurrentModule : TPasModule;
locLocator, locTempLocator : IDocumentLocator;
locContext : IParserContext;
locUsesList : TList;
locUsesList : TList2;
locModule : TPasModule;
locName, s : string;
i : Integer;
@@ -839,7 +839,7 @@ var
locContinue : Boolean;
locLocator, loctempLocator : IDocumentLocator;
locContext : IParserContext;
locUsesList : TList;
locUsesList : TList2;
locModule : TPasModule;
locName, s : string;
i : Integer;