Files
ports/databases/heidisql/files/patch-source_main.pas
T
2026-06-10 19:59:17 -07:00

54 lines
1.5 KiB
ObjectPascal

--- source/main.pas.orig 2026-06-09 17:25:49 UTC
+++ source/main.pas
@@ -15,9 +15,12 @@ uses
LazStringUtils, dbconnection, dbstructures, dbstructures.mysql, generic_types,
apphelpers, extra_controls, createdatabase, SynEditMarkup, SynEditMarkupBracket,
searchreplace, ImgList, IniFiles, LazFileUtils, LazUTF8, tabletools,
- lazaruscompat, extfiledialog, process, SynEditMiscClasses, Contnrs, SynExportHTML;
+ lazaruscompat, extfiledialog, process, SynEditMiscClasses, Contnrs, SynExportHTML
+{$IFDEF CPUAARCH64 AND $IFDEF FREEBSD}
+ , LazEditTextAttributes
+{$ENDIF}
+ ;
-
type
// Bind parameters for query tabs
@@ -7129,7 +7132,11 @@ var
Editor: TSynMemo;
Token: String;
CaretStart, CaretTokenTypeInt: Integer;
+{$IFDEF CPUAARCH64 AND $IFDEF FREEBSD}
+ Attri: TLazEditTextAttribute;
+{$ELSE}
Attri: TSynHighlighterAttributes;
+{$ENDIF}
Proposal: TSynCompletion;
p: TPoint;
LineIdx, ColIdx, StartCol, EndCol: Integer;
@@ -7345,7 +7352,11 @@ var
var
Edit: TSynEdit;
Token: String;
+{$IFDEF CPUAARCH64 AND $IFDEF FREEBSD}
+ Attri: TLazEditTextAttribute;
+{$ELSE}
Attri: TSynHighlighterAttributes;
+{$ENDIF}
TokenType, TokenStart: Integer;
RowColPos: TPoint;
SQLFunc: TSQLFunction;
@@ -13403,7 +13414,11 @@ var
Editors: TComponentList;
BaseEditor: TSynMemo;
KeyStroke: TSynEditKeyStroke;
+{$IFDEF CPUAARCH64 AND $IFDEF FREEBSD}
+ Attri: TLazEditTextAttribute;
+{$ELSE}
Attri: TSynHighlighterAttributes;
+{$ENDIF}
Shortcut1, Shortcut2: TShortcut;
begin
// Setup all known TSynMemo's