[extpascal] r764 committed - Little update
extp...@googlecode.com
Author: wanderlan.anjos
Date: Fri Dec 16 02:06:31 2011
Log: Little update
http://code.google.com/p/extpascal/source/detail?r=764
Modified:
/trunk/ExtJSWrapper/Ext.pas
/trunk/ExtPascal.pas
/trunk/ExtPascalSamples/ExtPascalSamples.lpi
/trunk/ExtPascalUtils.pas
=======================================
--- /trunk/ExtJSWrapper/Ext.pas Tue May 25 11:40:40 2010
+++ /trunk/ExtJSWrapper/Ext.pas Fri Dec 16 02:06:31 2011
File is too large to display a diff.
=======================================
--- /trunk/ExtPascal.pas Sun Jul 10 09:39:49 2011
+++ /trunk/ExtPascal.pas Fri Dec 16 02:06:31 2011
@@ -234,6 +234,7 @@
THTMLElement = class(TExtObject);
TStyleSheet = class(TExtObject);
TRegExp = type string;
+ TTextNode = class(TExtObject);
TCSSRule = class(TExtObject);
TXMLDocument = class(TExtObject);
TNodeList = class(TExtObjectList);
@@ -267,9 +268,6 @@
TAnything = TExtObject; // doc fault
TNodeLists = class(TExtObjectList); // doc fault
TArrays = TExtObjectList; // doc fault
- TExtDirectExceptionEvent = TEvent; // doc fault Ext 3.0
- TExtDirectEvent = TEvent; // doc fault Ext 3.0
- TExtDirectTransaction = TExtObject; // doc fault Ext 3.0
TDOMElement = TExtObject; // doc fault Ext 3.0
TRecord = TExtObject; // Ext 3.0 RC2
TNull = TExtObject; // Ext 3.0 RC2
=======================================
--- /trunk/ExtPascalSamples/ExtPascalSamples.lpi Mon Jul 11 05:21:53 2011
+++ /trunk/ExtPascalSamples/ExtPascalSamples.lpi Fri Dec 16 02:06:31 2011
@@ -72,7 +72,7 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm
-T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh
$(TargetCmdLine)"/>
</local>
</RunParams>
- <Units Count="21">
+ <Units Count="25">
<Unit0>
<Filename Value="ExtPascalSamples.dpr"/>
<IsPartOfProject Value="True"/>
@@ -80,7 +80,7 @@
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="55" Y="11"/>
- <UsageCount Value="35"/>
+ <UsageCount Value="40"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
@@ -140,23 +140,19 @@
<Unit7>
<Filename Value="..\ExtPascal.pas"/>
<UnitName Value="ExtPascal"/>
- <EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="1287"/>
<CursorPos X="52" Y="1310"/>
<UsageCount Value="13"/>
- <Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit7>
<Unit8>
<Filename Value="..\FCGIApp.pas"/>
<UnitName Value="FCGIApp"/>
- <EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="15"/>
<CursorPos X="55" Y="34"/>
<UsageCount Value="12"/>
- <Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit8>
<Unit9>
@@ -165,21 +161,18 @@
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
- <CursorPos X="7" Y="6"/>
- <UsageCount Value="12"/>
+ <CursorPos X="19" Y="6"/>
+ <UsageCount Value="15"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit9>
<Unit10>
<Filename Value="..\ExtPascalUtils.pas"/>
<UnitName Value="ExtPascalUtils"/>
- <IsVisibleTab Value="True"/>
- <EditorIndex Value="5"/>
<WindowIndex Value="0"/>
<TopLine Value="20"/>
<CursorPos X="11" Y="40"/>
<UsageCount Value="13"/>
- <Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit10>
<Unit11>
@@ -212,10 +205,13 @@
<Unit14>
<Filename Value="..\ExtJSWrapper\Ext.pas"/>
<UnitName Value="Ext"/>
+ <IsVisibleTab Value="True"/>
+ <EditorIndex Value="3"/>
<WindowIndex Value="0"/>
- <TopLine Value="1"/>
- <CursorPos X="11" Y="9"/>
+ <TopLine Value="14"/>
+ <CursorPos X="14" Y="38"/>
<UsageCount Value="10"/>
+ <Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit14>
<Unit15>
@@ -266,132 +262,175 @@
<Unit20>
<Filename Value="..\ExtPascalClasses.pas"/>
<UnitName Value="ExtPascalClasses"/>
- <EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="34"/>
<CursorPos X="1" Y="61"/>
<UsageCount Value="10"/>
- <Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit20>
+ <Unit21>
+ <Filename Value="..\ext-4.0.7\docs\source\Spinner.html"/>
+ <EditorIndex Value="4"/>
+ <WindowIndex Value="0"/>
+ <TopLine Value="1"/>
+ <CursorPos X="116" Y="11"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ <DefaultSyntaxHighlighter Value="HTML"/>
+ </Unit21>
+ <Unit22>
+ <Filename Value="..\ext-4.0.7\docs\extjs\ext-all-debug.js"/>
+ <EditorIndex Value="5"/>
+ <WindowIndex Value="0"/>
+ <TopLine Value="108236"/>
+ <CursorPos X="55" Y="108265"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ <DefaultSyntaxHighlighter Value="JScript"/>
+ </Unit22>
+ <Unit23>
+ <Filename Value="..\ext-4.0.7\ext-all-dev.js"/>
+ <EditorIndex Value="6"/>
+ <WindowIndex Value="0"/>
+ <TopLine Value="108765"/>
+ <CursorPos X="23" Y="108789"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ <DefaultSyntaxHighlighter Value="JScript"/>
+ </Unit23>
+ <Unit24>
+ <Filename Value="BasicTabPanel.pas"/>
+ <UnitName Value="BasicTabPanel"/>
+ <EditorIndex Value="2"/>
+ <WindowIndex Value="0"/>
+ <TopLine Value="1"/>
+ <CursorPos X="1" Y="1"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ <DefaultSyntaxHighlighter Value="Delphi"/>
+ </Unit24>
</Units>
- <JumpHistory Count="29" HistoryIndex="28">
+ <JumpHistory Count="30" HistoryIndex="29">
<Position1>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="286" Column="63" TopLine="286"/>
+ <Filename Value="..\ext-4.0.7\docs\extjs\ext-all-debug.js"/>
+ <Caret Line="103123" Column="27" TopLine="103099"/>
</Position1>
<Position2>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="324" Column="29" TopLine="310"/>
+ <Filename Value="..\ext-4.0.7\docs\extjs\ext-all-debug.js"/>
+ <Caret Line="103834" Column="16" TopLine="103810"/>
</Position2>
<Position3>
- <Filename Value="..\ExtPascalUtils.pas"/>
- <Caret Line="16" Column="17" TopLine="1"/>
+ <Filename Value="..\ext-4.0.7\docs\extjs\ext-all-debug.js"/>
+ <Caret Line="107996" Column="62" TopLine="107972"/>
</Position3>
<Position4>
- <Filename Value="ExtPascalSamples.dpr"/>
- <Caret Line="52" Column="90" TopLine="29"/>
+ <Filename Value="..\ext-4.0.7\ext-all-dev.js"/>
+ <Caret Line="440" Column="19" TopLine="440"/>
</Position4>
<Position5>
- <Filename Value="ExtPascalSamples.dpr"/>
- <Caret Line="11" Column="55" TopLine="1"/>
+ <Filename Value="..\ext-4.0.7\ext-all-dev.js"/>
+ <Caret Line="103181" Column="27" TopLine="103157"/>
</Position5>
<Position6>
- <Filename Value="Session.pas"/>
- <Caret Line="6" Column="7" TopLine="1"/>
+ <Filename Value="..\ext-4.0.7\ext-all-dev.js"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
</Position6>
<Position7>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="62" Column="26" TopLine="50"/>
+ <Filename Value="..\ext-4.0.7\ext-all-dev.js"/>
+ <Caret Line="103181" Column="27" TopLine="103157"/>
</Position7>
<Position8>
- <Filename Value="..\FCGIApp.pas"/>
+ <Filename Value="..\ext-4.0.7\ext-all-dev.js"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position8>
<Position9>
- <Filename Value="..\FCGIApp.pas"/>
- <Caret Line="156" Column="98" TopLine="123"/>
+ <Filename Value="..\ext-4.0.7\ext-all-dev.js"/>
+ <Caret Line="103181" Column="27" TopLine="103157"/>
</Position9>
<Position10>
- <Filename Value="..\FCGIApp.pas"/>
- <Caret Line="274" Column="70" TopLine="240"/>
+ <Filename Value="..\ext-4.0.7\ext-all-dev.js"/>
+ <Caret Line="103874" Column="27" TopLine="103850"/>
</Position10>
<Position11>
- <Filename Value="..\FCGIApp.pas"/>
- <Caret Line="34" Column="23" TopLine="1"/>
+ <Filename Value="..\ext-4.0.7\ext-all-dev.js"/>
+ <Caret Line="104585" Column="16" TopLine="104561"/>
</Position11>
<Position12>
- <Filename Value="..\FCGIApp.pas"/>
- <Caret Line="108" Column="3" TopLine="75"/>
+ <Filename Value="..\ext-4.0.7\ext-all-dev.js"/>
+ <Caret Line="108756" Column="62" TopLine="108732"/>
</Position12>
<Position13>
- <Filename Value="..\FCGIApp.pas"/>
- <Caret Line="616" Column="75" TopLine="596"/>
+ <Filename Value="Session.pas"/>
+ <Caret Line="6" Column="19" TopLine="1"/>
</Position13>
<Position14>
- <Filename Value="..\FCGIApp.pas"/>
- <Caret Line="274" Column="62" TopLine="261"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="29" Column="91" TopLine="1"/>
</Position14>
<Position15>
- <Filename Value="..\FCGIApp.pas"/>
- <Caret Line="34" Column="55" TopLine="15"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="36" Column="20" TopLine="23"/>
</Position15>
<Position16>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="136" Column="26" TopLine="109"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="24" Column="17" TopLine="5"/>
</Position16>
<Position17>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="67" Column="1" TopLine="40"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="97" Column="52" TopLine="87"/>
</Position17>
<Position18>
- <Filename Value="..\ExtPascal.pas"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position18>
<Position19>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="148" Column="49" TopLine="125"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="23" Column="14" TopLine="1"/>
</Position19>
<Position20>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="149" Column="49" TopLine="126"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="29" Column="14" TopLine="5"/>
</Position20>
<Position21>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="1252" Column="31" TopLine="1229"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="38" Column="14" TopLine="14"/>
</Position21>
<Position22>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="1276" Column="30" TopLine="1253"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="83" Column="14" TopLine="59"/>
</Position22>
<Position23>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="1294" Column="68" TopLine="1271"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="102" Column="14" TopLine="78"/>
</Position23>
<Position24>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="1883" Column="56" TopLine="1860"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="127" Column="14" TopLine="103"/>
</Position24>
<Position25>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="1900" Column="56" TopLine="1877"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="167" Column="14" TopLine="143"/>
</Position25>
<Position26>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="1" Column="1" TopLine="1"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="192" Column="14" TopLine="168"/>
</Position26>
<Position27>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="498" Column="25" TopLine="475"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="242" Column="14" TopLine="218"/>
</Position27>
<Position28>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="738" Column="29" TopLine="715"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
</Position28>
<Position29>
- <Filename Value="..\ExtPascal.pas"/>
- <Caret Line="1262" Column="129" TopLine="1239"/>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="23" Column="14" TopLine="1"/>
</Position29>
+ <Position30>
+ <Filename Value="..\ExtJSWrapper\Ext.pas"/>
+ <Caret Line="29" Column="14" TopLine="5"/>
+ </Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
=======================================
--- /trunk/ExtPascalUtils.pas Mon Jul 11 05:21:53 2011
+++ /trunk/ExtPascalUtils.pas Fri Dec 16 02:06:31 2011
@@ -279,11 +279,9 @@
J := 1;
for I := 0 to high(Delims) do begin
J := PosEx(Delims[I], S, J);
+ if J = 0 then exit;
Points[I] := J;
- if J = 0 then
- exit
- else
- inc(J, length(Delims[I]));
+ inc(J, length(Delims[I]));
end;
for I := 0 to high(Delims)-1 do begin
J := Points[I] + length(Delims[I]);