Änderung an der synunihighlighter.pas

[DiBo33]

Hallo,

ich habe mir mal erlaubt einen kleinen Fehler in der synunihighlighter.pas zu korrigieren.

Code: Alles auswählen

function TSynRange.SetCaseSensitive(const Value: boolean);
begin
  FCaseSensitive:=Value;
  if not Value then
  begin
    ////TL Added @ prefix
    CaseFunct:=@UpCase;
    StringCaseFunct:=@UpperCase;
  end
  else
  begin
    CaseFunct:=@CaseNone;
    StringCaseFunct:=@StringCaseNone;
  end;
end;

Hier muss die Bedingung umgedreht werden

Code: Alles auswählen

function TSynRange.SetCaseSensitive(const Value: boolean);
begin
  FCaseSensitive:=Value;
  if Value then // if not Value then // Changed by DiBo33
  begin
    ////TL Added @ prefix
    CaseFunct:=@UpCase;
    StringCaseFunct:=@UpperCase;
  end
  else
  begin
    CaseFunct:=@CaseNone;
    StringCaseFunct:=@StringCaseNone;
  end;
end;

Sonst reagiert der Highlighter genau falsch herum.

Gruß

[Christian]

Hast du schon nen Patch gemacht ?

[DiBo33]

Wenn du mir sagst wie.

[Christian]

Gerne. http://wiki.lazarus.freepascal.org/Creating_A_Patch/de

[DiBo33]

Ich habs dann mal als Mail verschickt.

[Christian]

Sehr schön so fliesst es dann wenigstens auch ins Projekt ein.