28 lines
874 B
ObjectPascal
28 lines
874 B
ObjectPascal
--- source/customize_highlighter.pas.orig 2026-01-30 17:33:07 UTC
|
|
+++ source/customize_highlighter.pas
|
|
@@ -7,7 +7,11 @@ uses
|
|
uses
|
|
SysUtils, Variants, Classes, Graphics, EditBtn,
|
|
Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
|
|
- StrUtils, SynEditHighlighter, apphelpers, extra_controls;
|
|
+ StrUtils, SynEditHighlighter, apphelpers, extra_controls
|
|
+{$IFDEF CPUAARCH64 AND $IFDEF FREEBSD}
|
|
+ , LazEditTextAttributes
|
|
+{$endif}
|
|
+;
|
|
|
|
type
|
|
TfrmCustomizeHighlighter = class(TExtForm)
|
|
@@ -34,7 +38,11 @@ type
|
|
private
|
|
{ Private-Deklarationen }
|
|
FHighlighter: TSynCustomHighlighter;
|
|
+{$IFDEF CPUAARCH64 AND $IFDEF FREEBSD}
|
|
+ FAttr: TLazEditTextAttribute;
|
|
+{$ELSE}
|
|
FAttr: TSynHighlighterAttributes;
|
|
+{$ENDIF}
|
|
FOnChange: TNotifyEvent;
|
|
procedure SetFriendlyLanguageName(FriendlyLanguageName: String);
|
|
function GetFriendlyLanguageName: String;
|