diff --git a/components/extrasyn/SyneditHighlighters/SynHighlighterLua.pas b/components/extrasyn/SyneditHighlighters/SynHighlighterLua.pas index 1c5884aae..5f74cb20a 100644 --- a/components/extrasyn/SyneditHighlighters/SynHighlighterLua.pas +++ b/components/extrasyn/SyneditHighlighters/SynHighlighterLua.pas @@ -1432,12 +1432,12 @@ end; procedure TSynLuaSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynLuaSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; initialization diff --git a/components/extrasyn/SyneditHighlighters/SynHighlighterProlog.pas b/components/extrasyn/SyneditHighlighters/SynHighlighterProlog.pas index d0d00ebcb..a0fcc91f3 100644 --- a/components/extrasyn/SyneditHighlighters/SynHighlighterProlog.pas +++ b/components/extrasyn/SyneditHighlighters/SynHighlighterProlog.pas @@ -1838,7 +1838,7 @@ end; function TSynPrologSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; procedure TSynPrologSyn.ReSetRange; @@ -1853,7 +1853,7 @@ end; procedure TSynPrologSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; procedure TSynPrologSyn.AndSymbolProc; diff --git a/components/extrasyn/SyneditHighlighters/synhighlighteradsp21xx.pas b/components/extrasyn/SyneditHighlighters/synhighlighteradsp21xx.pas index ef864df57..4f96cd0d1 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighteradsp21xx.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighteradsp21xx.pas @@ -1386,12 +1386,12 @@ end; function TSynADSP21xxSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; procedure TSynADSP21xxSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; procedure TSynADSP21xxSyn.ResetRange; diff --git a/components/extrasyn/SyneditHighlighters/synhighlighterawk.pas b/components/extrasyn/SyneditHighlighters/synhighlighterawk.pas index 34fbae449..145cba8f0 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighterawk.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighterawk.pas @@ -294,7 +294,7 @@ begin StrLCopy(PChar(s), (fLine + Run), (i - Run)); Run := i; if AWKSyntaxList.Find(s, idx) and (AWKSyntaxList.Strings[idx] = s) then begin - fTokenID := TtkTokenKind(AWKSyntaxList.Objects[idx]); + fTokenID := TtkTokenKind(PtrInt(AWKSyntaxList.Objects[idx])); if (fTokenID = tkUnKnown) then begin fTokenID := tkKey; if (fLine[i] = ' ') then begin diff --git a/components/extrasyn/SyneditHighlighters/synhighlightercac.pas b/components/extrasyn/SyneditHighlighters/synhighlightercac.pas index ede220bc8..5b2576026 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightercac.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightercac.pas @@ -1075,7 +1075,7 @@ end; function TSynCACSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; function TSynCACSyn.GetToken: string; @@ -1132,7 +1132,7 @@ end; procedure TSynCACSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynCACSyn.IsFilterStored: Boolean; diff --git a/components/extrasyn/SyneditHighlighters/synhighlightercache.pas b/components/extrasyn/SyneditHighlighters/synhighlightercache.pas index afc514a2d..ad6a80e68 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightercache.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightercache.pas @@ -1508,7 +1508,7 @@ end; function TSynCacheSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; function TSynCacheSyn.GetToken: String; @@ -1565,7 +1565,7 @@ end; procedure TSynCacheSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; //------------------------------------------------------------------------------ diff --git a/components/extrasyn/SyneditHighlighters/synhighlightercobol.pas b/components/extrasyn/SyneditHighlighters/synhighlightercobol.pas index b191855a9..abc6a6642 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightercobol.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightercobol.pas @@ -2324,12 +2324,12 @@ end; procedure TSynCobolSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynCobolSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; initialization diff --git a/components/extrasyn/SyneditHighlighters/synhighlightercs.pas b/components/extrasyn/SyneditHighlighters/synhighlightercs.pas index 69251f860..6b3ec416b 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightercs.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightercs.pas @@ -1442,7 +1442,7 @@ end; function TSynCSSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; function TSynCSSyn.GetToken: String; @@ -1509,7 +1509,7 @@ end; procedure TSynCSSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynCSSyn.GetIdentChars: TSynIdentChars; diff --git a/components/extrasyn/SyneditHighlighters/synhighlighterdml.pas b/components/extrasyn/SyneditHighlighters/synhighlighterdml.pas index 6d47a806c..f25cc13b6 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighterdml.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighterdml.pas @@ -1824,12 +1824,12 @@ end; function TSynDmlSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; procedure TSynDmlSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; procedure TSynDmlSyn.ResetRange; diff --git a/components/extrasyn/SyneditHighlighters/synhighlighterdot.pas b/components/extrasyn/SyneditHighlighters/synhighlighterdot.pas index b1357c3c4..e5f9a2373 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighterdot.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighterdot.pas @@ -1363,12 +1363,12 @@ end; procedure TSynDOTSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynDOTSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; initialization diff --git a/components/extrasyn/SyneditHighlighters/synhighlightereiffel.pas b/components/extrasyn/SyneditHighlighters/synhighlightereiffel.pas index aed61a280..ed9f9816c 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightereiffel.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightereiffel.pas @@ -1408,12 +1408,12 @@ end; procedure TSynEiffelSyn.SetRange(Value :Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynEiffelSyn.GetRange :Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; initialization diff --git a/components/extrasyn/SyneditHighlighters/synhighlightergalaxy.pas b/components/extrasyn/SyneditHighlighters/synhighlightergalaxy.pas index 0b1c6a5ce..b1e3ebf1f 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightergalaxy.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightergalaxy.pas @@ -361,7 +361,7 @@ end; function TSynGalaxySyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; function TSynGalaxySyn.GetToken: String; @@ -416,7 +416,7 @@ end; procedure TSynGalaxySyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; procedure TSynGalaxySyn.SetKeyWords(const Value: TStrings); diff --git a/components/extrasyn/SyneditHighlighters/synhighlightergeneral.pas b/components/extrasyn/SyneditHighlighters/synhighlightergeneral.pas index 496d8f02e..d8cad10b4 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightergeneral.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightergeneral.pas @@ -626,7 +626,7 @@ end; function TSynGeneralSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; function TSynGeneralSyn.GetToken: String; @@ -676,7 +676,7 @@ end; procedure TSynGeneralSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; procedure TSynGeneralSyn.SetKeyWords(const Value: TStrings); diff --git a/components/extrasyn/SyneditHighlighters/synhighlightergws.pas b/components/extrasyn/SyneditHighlighters/synhighlightergws.pas index 18ed11812..fae09efa6 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightergws.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightergws.pas @@ -965,7 +965,7 @@ end; function TSynGWScriptSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; function TSynGWScriptSyn.GetToken: String; @@ -1026,7 +1026,7 @@ end; procedure TSynGWScriptSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynGWScriptSyn.GetIdentChars: TSynIdentChars; diff --git a/components/extrasyn/SyneditHighlighters/synhighlighterhaskell.pas b/components/extrasyn/SyneditHighlighters/synhighlighterhaskell.pas index f9e92ca62..4c685a152 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighterhaskell.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighterhaskell.pas @@ -1049,7 +1049,7 @@ end; function TSynHaskellSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; function TSynHaskellSyn.GetToken: String; @@ -1109,7 +1109,7 @@ end; procedure TSynHaskellSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynHaskellSyn.GetIdentChars: TSynIdentChars; diff --git a/components/extrasyn/SyneditHighlighters/synhighlighterhp48.pas b/components/extrasyn/SyneditHighlighters/synhighlighterhp48.pas index b8f4cdbaf..df563e6b0 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighterhp48.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighterhp48.pas @@ -799,12 +799,12 @@ end; function TSynHP48Syn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; procedure TSynHP48Syn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; procedure TSynHP48Syn.ResetRange; diff --git a/components/extrasyn/SyneditHighlighters/synhighlighteridl.pas b/components/extrasyn/SyneditHighlighters/synhighlighteridl.pas index f752ab422..e45beed71 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighteridl.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighteridl.pas @@ -909,12 +909,12 @@ end; procedure TSynIdlSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynIdlSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; initialization diff --git a/components/extrasyn/SyneditHighlighters/synhighlighterldraw.pas b/components/extrasyn/SyneditHighlighters/synhighlighterldraw.pas index 198fadc01..48dd9c9b7 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighterldraw.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighterldraw.pas @@ -564,12 +564,12 @@ end; procedure TSynLDRSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynLDRSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; initialization diff --git a/components/extrasyn/SyneditHighlighters/synhighlightermodelica.pas b/components/extrasyn/SyneditHighlighters/synhighlightermodelica.pas index 86ec5625f..0b95778e2 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightermodelica.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightermodelica.pas @@ -885,7 +885,7 @@ end; function TSynModelicaSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; function TSynModelicaSyn.GetToken: string; @@ -943,7 +943,7 @@ end; procedure TSynModelicaSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynModelicaSyn.GetIdentChars: TSynIdentChars; diff --git a/components/extrasyn/SyneditHighlighters/synhighlighterrc.pas b/components/extrasyn/SyneditHighlighters/synhighlighterrc.pas index f292c61c8..60737fa5b 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighterrc.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighterrc.pas @@ -1083,7 +1083,7 @@ end; function TSynRCSyn.GetRange: pointer; begin - result:= pointer(fRange); + result:= pointer(PtrInt(fRange)); end; function TSynRCSyn.GetToken: string; @@ -1133,7 +1133,7 @@ end; procedure TSynRCSyn.SetRange(value: pointer); begin - fRange:= TRangeState(value); + fRange:= TRangeState(PtrInt(value)); end; procedure TSynRCSyn.EnumUserSettings(Settings: TStrings); diff --git a/components/extrasyn/SyneditHighlighters/synhighlighterruby.pas b/components/extrasyn/SyneditHighlighters/synhighlighterruby.pas index e8742cef7..22611ba2c 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighterruby.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighterruby.pas @@ -673,7 +673,7 @@ begin end; Result := RangePointer.Ptr; {$ELSE} - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); {$ENDIF} end; @@ -743,7 +743,7 @@ begin fHeredocChecksum := RangePointer.Checksum; end; {$ELSE} - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); {$ENDIF} end; diff --git a/components/extrasyn/SyneditHighlighters/synhighlightersdd.pas b/components/extrasyn/SyneditHighlighters/synhighlightersdd.pas index 458781560..9e67a38d7 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightersdd.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightersdd.pas @@ -670,13 +670,13 @@ end; { ResetRange } procedure TSynSDDSyn.SetRange(Value: Pointer); begin inherited; - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; { SetRange } function TSynSDDSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; { GetRange } diff --git a/components/extrasyn/SyneditHighlighters/synhighlightersml.pas b/components/extrasyn/SyneditHighlighters/synhighlightersml.pas index b95b6d7bf..f665159dc 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightersml.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightersml.pas @@ -939,12 +939,12 @@ end; procedure TSynSMLSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynSMLSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; initialization diff --git a/components/extrasyn/SyneditHighlighters/synhighlighterst.pas b/components/extrasyn/SyneditHighlighters/synhighlighterst.pas index 50792ea7d..a643c6606 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighterst.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighterst.pas @@ -1112,12 +1112,12 @@ end; function TSynSTSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; procedure TSynSTSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; procedure TSynSTSyn.ResetRange; diff --git a/components/extrasyn/SyneditHighlighters/synhighlightertcltk.pas b/components/extrasyn/SyneditHighlighters/synhighlightertcltk.pas index 9d4b71c77..a93249754 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightertcltk.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightertcltk.pas @@ -631,7 +631,7 @@ end; function TSynTclTkSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; function TSynTclTkSyn.GetToken: string; @@ -681,7 +681,7 @@ end; procedure TSynTclTkSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; procedure TSynTclTkSyn.SetKeyWords(const Value: TStrings); diff --git a/components/extrasyn/SyneditHighlighters/synhighlighterunreal.pas b/components/extrasyn/SyneditHighlighters/synhighlighterunreal.pas index 44394671a..35fb13018 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlighterunreal.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlighterunreal.pas @@ -1694,7 +1694,7 @@ end; function TSynUnrealSyn.GetRange: Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; function TSynUnrealSyn.GetToken: String; @@ -1757,7 +1757,7 @@ end; procedure TSynUnrealSyn.SetRange(Value: Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; procedure TSynUnrealSyn.EnumUserSettings(settings: TStrings); diff --git a/components/extrasyn/SyneditHighlighters/synhighlightervrml97.pas b/components/extrasyn/SyneditHighlighters/synhighlightervrml97.pas index d56dd130a..6a4bb4044 100644 --- a/components/extrasyn/SyneditHighlighters/synhighlightervrml97.pas +++ b/components/extrasyn/SyneditHighlighters/synhighlightervrml97.pas @@ -4870,7 +4870,7 @@ end; function TSynVrml97Syn.GetRange :Pointer; begin - Result := Pointer(fRange); + Result := Pointer(PtrInt(fRange)); end; function TSynVrml97Syn.GetToken :string; @@ -4941,7 +4941,7 @@ end; procedure TSynVrml97Syn.SetRange(Value :Pointer); begin - fRange := TRangeState(Value); + fRange := TRangeState(PtrInt(Value)); end; function TSynVrml97Syn.GetIdentChars :TSynIdentChars;