extrasyn: Less hints and warnings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6230 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/extrasyn/SyneditHighlighters/SynHighlighterLua.pas

@@ -1432,7 +1432,7 @@ end;
 
 procedure TSynLuaSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynLuaSyn.GetRange: Pointer;

components/extrasyn/SyneditHighlighters/SynHighlighterProlog.pas

@@ -1853,7 +1853,7 @@ end;
 
 procedure TSynPrologSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 procedure TSynPrologSyn.AndSymbolProc;

components/extrasyn/SyneditHighlighters/synhighlighteradsp21xx.pas

@@ -1391,7 +1391,7 @@ end;
 
 procedure TSynADSP21xxSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 procedure TSynADSP21xxSyn.ResetRange;

components/extrasyn/SyneditHighlighters/synhighlighterasm.pas

@@ -141,7 +141,7 @@ type
 implementation
 
 uses
-  SynEditStrConst, SynEditStrConstExtra;
+  SynEditStrConst;
 
 var
   Identifiers: array[#0..#255] of ByteBool;

components/extrasyn/SyneditHighlighters/synhighlightercac.pas

@@ -1132,7 +1132,7 @@ end;
 
 procedure TSynCACSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynCACSyn.IsFilterStored: Boolean;

components/extrasyn/SyneditHighlighters/synhighlightercache.pas

@@ -1565,7 +1565,7 @@ end;
 
 procedure TSynCacheSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 //------------------------------------------------------------------------------

components/extrasyn/SyneditHighlighters/synhighlightercobol.pas

@@ -2324,7 +2324,7 @@ end;
 
 procedure TSynCobolSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynCobolSyn.GetRange: Pointer;

components/extrasyn/SyneditHighlighters/synhighlightercs.pas

@@ -1509,7 +1509,7 @@ end;
 
 procedure TSynCSSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynCSSyn.GetIdentChars: TSynIdentChars;

components/extrasyn/SyneditHighlighters/synhighlighterdml.pas

@@ -1829,7 +1829,7 @@ end;
 
 procedure TSynDmlSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 procedure TSynDmlSyn.ResetRange;

components/extrasyn/SyneditHighlighters/synhighlighterdot.pas

@@ -1363,7 +1363,7 @@ end;
 
 procedure TSynDOTSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynDOTSyn.GetRange: Pointer;

components/extrasyn/SyneditHighlighters/synhighlightereiffel.pas

@@ -1408,7 +1408,7 @@ end;
 
 procedure TSynEiffelSyn.SetRange(Value :Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynEiffelSyn.GetRange :Pointer;

components/extrasyn/SyneditHighlighters/synhighlightergalaxy.pas

@@ -416,7 +416,7 @@ end;
 
 procedure TSynGalaxySyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 procedure TSynGalaxySyn.SetKeyWords(const Value: TStrings);

components/extrasyn/SyneditHighlighters/synhighlightergeneral.pas

@@ -676,7 +676,7 @@ end;
 
 procedure TSynGeneralSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 procedure TSynGeneralSyn.SetKeyWords(const Value: TStrings);

components/extrasyn/SyneditHighlighters/synhighlightergws.pas

@@ -1026,7 +1026,7 @@ end;
 
 procedure TSynGWScriptSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynGWScriptSyn.GetIdentChars: TSynIdentChars;

components/extrasyn/SyneditHighlighters/synhighlighterhaskell.pas

@@ -1109,7 +1109,7 @@ end;
 
 procedure TSynHaskellSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynHaskellSyn.GetIdentChars: TSynIdentChars;

components/extrasyn/SyneditHighlighters/synhighlighterhp48.pas

@@ -804,7 +804,7 @@ end;
 
 procedure TSynHP48Syn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 procedure TSynHP48Syn.ResetRange;

components/extrasyn/SyneditHighlighters/synhighlighteridl.pas

@@ -909,7 +909,7 @@ end;
 
 procedure TSynIdlSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynIdlSyn.GetRange: Pointer;

components/extrasyn/SyneditHighlighters/synhighlighterldraw.pas

@@ -564,7 +564,7 @@ end;
 
 procedure TSynLDRSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynLDRSyn.GetRange: Pointer;

components/extrasyn/SyneditHighlighters/synhighlightermodelica.pas

@@ -943,7 +943,7 @@ end;
 
 procedure TSynModelicaSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynModelicaSyn.GetIdentChars: TSynIdentChars;

components/extrasyn/SyneditHighlighters/synhighlighterrc.pas

@@ -1133,7 +1133,7 @@ end;
 
 procedure TSynRCSyn.SetRange(value: pointer);
 begin
-  fRange:= TRangeState(PtrInt(value));
+  fRange:= TRangeState(PtrUInt(value));
 end;
 
 procedure TSynRCSyn.EnumUserSettings(Settings: TStrings);

components/extrasyn/SyneditHighlighters/synhighlighterruby.pas

@@ -59,7 +59,6 @@ uses
   QSynEditHighlighter,
 {$ELSE}
   Graphics,
-  SynEditTypes,
   SynEditHighlighter,
 {$ENDIF}
   SysUtils,
@@ -180,7 +179,6 @@ uses
   QSynEditMiscProcs,
   QSynEditStrConst;
 {$ELSE}
-  SynEditMiscProcs,
   SynEditStrConst, SynEditStrConstExtra;
 {$ENDIF}
 
@@ -743,7 +741,7 @@ begin
     fHeredocChecksum := RangePointer.Checksum;
   end;
 {$ELSE}
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 {$ENDIF}
 end;
 

components/extrasyn/SyneditHighlighters/synhighlightersdd.pas

@@ -670,7 +670,7 @@ end; { ResetRange }
 procedure TSynSDDSyn.SetRange(Value: Pointer);
 begin
   inherited;
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end; { SetRange }
 
 

components/extrasyn/SyneditHighlighters/synhighlightersml.pas

@@ -939,7 +939,7 @@ end;
 
 procedure TSynSMLSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynSMLSyn.GetRange: Pointer;

components/extrasyn/SyneditHighlighters/synhighlighterst.pas

@@ -1117,7 +1117,7 @@ end;
 
 procedure TSynSTSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 procedure TSynSTSyn.ResetRange;

components/extrasyn/SyneditHighlighters/synhighlightertcltk.pas

@@ -58,7 +58,6 @@ uses
   QSynEditHighlighter,
 {$ELSE}
   Graphics,
-  SynEditTypes,
   SynEditHighlighter,
 {$ENDIF}
   SysUtils,
@@ -168,7 +167,7 @@ uses
 {$IFDEF SYN_CLX}
   QSynEditStrConst;
 {$ELSE}
-  SynEditStrConst, SynEditStrConstExtra;
+  SynEditStrConst;
 {$ENDIF}
 
 const
@@ -680,7 +679,7 @@ end;
 
 procedure TSynTclTkSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 procedure TSynTclTkSyn.SetKeyWords(const Value: TStrings);

components/extrasyn/SyneditHighlighters/synhighlighterunreal.pas

@@ -55,7 +55,6 @@ uses
   QSynEditTypes,
 {$ELSE}
   Graphics,
-  Registry,
   SynEditHighlighter,
   SynEditTypes,
 {$ENDIF}
@@ -1756,7 +1755,7 @@ end;
 
 procedure TSynUnrealSyn.SetRange(Value: Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 procedure TSynUnrealSyn.EnumUserSettings(settings: TStrings);

components/extrasyn/SyneditHighlighters/synhighlighteruri.pas

@@ -197,7 +197,7 @@ const
   Reserved = [';', '/', '?', ':', '@', '&', '=', '+', '$', ',', '%', '#'];
   URIChars = Reserved + Unreserved;
   NeverAtEnd = Mark - [''''] + Reserved - ['/', '$'];
-  URIBreakChars = [#0..#255] - URIChars - [#0..#32];
+//  URIBreakChars = [#0..#255] - URIChars - [#0..#32];
   EMailAddressChars = ['.', '_', '-', '@'] + AlphaNum;
   NeverAtEMailAddressEnd = ['.', '@'];
 
@@ -207,7 +207,7 @@ var
 procedure MakeHashTable;
 var
   c: Char;
-  u: Byte;
+  u: Integer;
 begin
   FillChar(HashTable, sizeof(HashTable), 0);
 

components/extrasyn/SyneditHighlighters/synhighlightervbscript.pas

@@ -58,7 +58,6 @@ uses
   QSynEditTypes,
 {$ELSE}
   Graphics,
-  Registry,
   SynEditHighlighter,
   SynEditTypes,
 {$ENDIF}

components/extrasyn/SyneditHighlighters/synhighlightervrml97.pas

@@ -4941,7 +4941,7 @@ end;
 
 procedure TSynVrml97Syn.SetRange(Value :Pointer);
 begin
-  fRange := TRangeState(PtrInt(Value));
+  fRange := TRangeState(PtrUInt(Value));
 end;
 
 function TSynVrml97Syn.GetIdentChars :TSynIdentChars;

components/extrasyn/TestHighlighters/TestSynHighlighter.lpi

@@ -54,9 +54,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="111"/>
+        <TopLine Value="65"/>
-        <CursorPos X="50" Y="133"/>
+        <CursorPos X="35" Y="137"/>
         <UsageCount Value="62"/>
         <Bookmarks Count="1">
           <Item0 Y="137" ID="2"/>
@@ -806,7 +807,6 @@
       </Unit108>
       <Unit109>
         <Filename Value="..\SyneditHighlighters\synhighlightergnuplot.pas"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="3"/>
         <TopLine Value="823"/>
         <CursorPos Y="856"/>

components/extrasyn/extrahighlighters.lpk

@@ -3,7 +3,7 @@
   <Package Version="4">
     <PathDelim Value="\"/>
     <Name Value="ExtraHighlighters"/>
-    <Author Value="Various authors see each highlighter source file for more info."/>
+    <Author Value="Various authors, see each highlighter source file for more info."/>
     <CompilerOptions>
       <Version Value="11"/>
       <PathDelim Value="\"/>
@@ -11,6 +11,11 @@
         <OtherUnitFiles Value="SyneditHighlighters"/>
         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
+      <Other>
+        <CompilerMessages>
+          <IgnoredMessages idx5027="True" idx5024="True" idx4055="True"/>
+        </CompilerMessages>
+      </Other>
     </CompilerOptions>
     <Description Value="Extra highlighters for synedit"/>
     <License Value="MPL GPL dual license."/>

components/extrasyn/extrahighlighters_dsgn.lpk

@@ -4,7 +4,7 @@
     <PathDelim Value="\"/>
     <Name Value="ExtraHighlighters_Dsgn"/>
     <Type Value="DesignTime"/>
-    <Author Value="various authors see each highlighter file from more info."/>
+    <Author Value="various authors, see each highlighter file for more info."/>
     <CompilerOptions>
       <Version Value="11"/>
       <PathDelim Value="\"/>
@@ -15,16 +15,12 @@
     <Description Value="Extra highlighters for synedit"/>
     <License Value="MPL, LGPL DUAL license."/>
     <Version Major="1"/>
-    <Files Count="2">
+    <Files Count="1">
       <Item1>
         <Filename Value="uhighlighterreg.pas"/>
         <HasRegisterProc Value="True"/>
         <UnitName Value="uHighlighterReg"/>
       </Item1>
-      <Item2>
-        <Filename Value="images.lrs"/>
-        <Type Value="LRS"/>
-      </Item2>
     </Files>
     <RequiredPkgs Count="2">
       <Item1>