Add files via upload

t-edson · May 1, 2019 · 2b5efc0 · 2b5efc0
1 parent 8266247
commit 2b5efc0
Show file tree

Hide file tree

Showing 6 changed files with 32 additions and 16 deletions.
diff --git a/synfacil_adapter_atsynedit/demo/demo.lpi b/synfacil_adapter_atsynedit/demo/demo.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="9"/>
+    <Version Value="11"/>
     <PathDelim Value="\"/>
     <General>
       <SessionStorage Value="InProjectDir"/>
@@ -13,9 +13,6 @@
     <i18n>
       <EnableI18N LFM="False"/>
     </i18n>
-    <VersionInfo>
-      <StringTable ProductVersion=""/>
-    </VersionInfo>
     <BuildModes Count="3">
       <Item1 Name="Default" Default="True"/>
       <Item2 Name="Debug">
@@ -87,17 +84,21 @@
       <Version Value="2"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
-    <RequiredPackages Count="2">
+    <RequiredPackages Count="3">
       <Item1>
-        <PackageName Value="SynEdit"/>
+        <PackageName Value="atsynedit_package"/>
       </Item1>
       <Item2>
-        <PackageName Value="LCL"/>
+        <PackageName Value="SynEdit"/>
       </Item2>
+      <Item3>
+        <PackageName Value="LCL"/>
+      </Item3>
     </RequiredPackages>
     <Units Count="2">
       <Unit0>

diff --git a/synfacil_adapter_atsynedit/demo/demo.lps b/synfacil_adapter_atsynedit/demo/demo.lps
@@ -2,7 +2,7 @@
 <CONFIG>
   <ProjectSession>
     <PathDelim Value="\"/>
-    <Version Value="9"/>
+    <Version Value="11"/>
     <BuildModes Active="Debug"/>
     <Units Count="21">
       <Unit0>
@@ -69,8 +69,8 @@
         <Filename Value="..\synfacil_adapter_atsynedit.pas"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="113"/>
-        <CursorPos X="32" Y="133"/>
+        <TopLine Value="69"/>
+        <CursorPos X="61" Y="96"/>
         <ExtraEditorCount Value="1"/>
         <ExtraEditor1>
           <EditorIndex Value="-1"/>
@@ -168,7 +168,7 @@
         <UsageCount Value="9"/>
       </Unit20>
     </Units>
-    <JumpHistory Count="8" HistoryIndex="7">
+    <JumpHistory Count="11" HistoryIndex="10">
       <Position1>
         <Filename Value="unit1.pas"/>
         <Caret Line="61" Column="26" TopLine="30"/>
@@ -201,6 +201,21 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="15" Column="24"/>
       </Position8>
+      <Position9>
+        <Filename Value="..\synfacil_adapter_atsynedit.pas"/>
+        <Caret Line="127" Column="23" TopLine="106"/>
+      </Position9>
+      <Position10>
+        <Filename Value="..\synfacil_adapter_atsynedit.pas"/>
+      </Position10>
+      <Position11>
+        <Filename Value="..\synfacil_adapter_atsynedit.pas"/>
+        <Caret Line="34" Column="25" TopLine="4"/>
+      </Position11>
     </JumpHistory>
+    <RunParams>
+      <FormatVersion Value="2"/>
+      <Modes Count="0" ActiveMode="default"/>
+    </RunParams>
   </ProjectSession>
 </CONFIG>
diff --git a/synfacil_adapter_atsynedit/demo/demo.res b/synfacil_adapter_atsynedit/demo/demo.res
diff --git a/synfacil_adapter_atsynedit/demo/libeay32.dll b/synfacil_adapter_atsynedit/demo/libeay32.dll
diff --git a/synfacil_adapter_atsynedit/demo/ssleay32.dll b/synfacil_adapter_atsynedit/demo/ssleay32.dll
diff --git a/synfacil_adapter_atsynedit/synfacil_adapter_atsynedit.pas b/synfacil_adapter_atsynedit/synfacil_adapter_atsynedit.pas
@@ -31,7 +31,7 @@   TSynFacilAdapter = class(TATAdapterHilite)
     procedure SetStartRangeForLine(ed: TATSynEdit; lin: integer);
   public
     procedure SetSyntax(const AFilename: string);
-    procedure StringsLog(Sender: TObject; ALine, ALen: integer);
+    procedure StringsLog(Sender: TObject; ALine: integer);
     procedure edScroll(Sender: TObject);
     procedure OnEditorCalcHilite(Sender: TObject;
       var AParts: TATLineParts;
@@ -93,7 +93,7 @@ destructor TSynFacilAdapter.Destroy;
   inherited;
 end;
 
-procedure TSynFacilAdapter.StringsLog(Sender: TObject; ALine, ALen: integer);
+procedure TSynFacilAdapter.StringsLog(Sender: TObject; ALine: integer);
 begin
   if (Aline>=0) and (Aline<firstModified) then firstModified := ALine;
 //  DebugLn('OnLog: ALine=' + IntToStr(ALine) + ' ALen=' + IntToSTr(Alen));