From ce7d7007faf76a5a6873df5867abba26e321f178 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Mon, 9 Dec 2024 07:16:07 +0100 Subject: [PATCH] Fix a couple of compiler warnings --- source/apphelpers.pas | 4 ++-- source/grideditlinks.pas | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/source/apphelpers.pas b/source/apphelpers.pas index f9cacf0d..0f8dcc7a 100644 --- a/source/apphelpers.pas +++ b/source/apphelpers.pas @@ -10,7 +10,7 @@ interface uses System.Classes, System.SysUtils, Vcl.Graphics, Vcl.GraphUtil, Vcl.ClipBrd, Vcl.Dialogs, Vcl.Forms, Vcl.Controls, Winapi.ShellApi, - Winapi.Windows, Winapi.ShlObj, Winapi.ActiveX, VirtualTrees, VirtualTrees.Types, SynRegExpr, Winapi.Messages, System.Math, + Winapi.Windows, Winapi.ShlObj, Winapi.ActiveX, VirtualTrees, VirtualTrees.BaseTree, VirtualTrees.Types, SynRegExpr, Winapi.Messages, System.Math, System.Win.Registry, System.DateUtils, System.Generics.Collections, System.Contnrs, System.StrUtils, System.AnsiStrings, Winapi.TlHelp32, System.Types, dbconnection, dbstructures, dbstructures.mysql, SynMemo, Vcl.Menus, Winapi.WinInet, gnugettext, Vcl.Themes, System.Character, Vcl.ImgList, System.UITypes, Vcl.ActnList, Winapi.WinSock, System.IOUtils, Vcl.StdCtrls, Vcl.ComCtrls, @@ -2356,7 +2356,7 @@ var cap := _(BtnCaption); for i:=1 to Length(cap) do begin // Auto apply hotkey - if (Pos(LowerCase(cap[i]), Hotkeys) = 0) and TCharacter.IsLetter(cap[i]) then begin + if (Pos(LowerCase(cap[i]), Hotkeys) = 0) and cap[i].IsLetter then begin Hotkeys := Hotkeys + LowerCase(cap[i]); Insert('&', cap, i); break; diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas index 8c944e05..08afcede 100644 --- a/source/grideditlinks.pas +++ b/source/grideditlinks.pas @@ -5,7 +5,7 @@ unit grideditlinks; interface uses - Winapi.Windows, Vcl.Forms, Vcl.Graphics, Winapi.Messages, VirtualTrees, VirtualTrees.Types, Vcl.ComCtrls, System.SysUtils, System.Classes, + Winapi.Windows, Vcl.Forms, Vcl.Graphics, Winapi.Messages, VirtualTrees, VirtualTrees.BaseTree, VirtualTrees.Types, Vcl.ComCtrls, System.SysUtils, System.Classes, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.CheckLst, Vcl.Controls, System.Types, Vcl.Dialogs, Vcl.Menus, Vcl.Mask, System.DateUtils, System.Math, dbconnection, dbstructures, apphelpers, texteditor, bineditor, gnugettext, System.StrUtils, System.UITypes, SynRegExpr, Vcl.Themes, extra_controls;