aksdb/CentrED
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

⬆️ Convert to Lazarus 2.2.2

Browse Source
This commit is contained in:
Andreas Schneider
2023-01-15 16:37:33 +01:00
parent 2b8eb45ccf
commit 38e0d404db
25 changed files with 541 additions and 582 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Client/GUI/VirtualList.pas
View File

@@ -4,7 +4,7 @@ unit VirtualList;
interface
uses
Forms, Controls, StdCtrls, Graphics, Classes, SysUtils, VirtualTrees,
Forms, Controls, StdCtrls, Graphics, Classes, SysUtils, laz.VirtualTrees,
Logging, LMessages, LCLIntf, Math;
type
@@ -30,7 +30,7 @@ type
{ TVirtualList }
TVirtualList = class(TVirtualDrawTree)
TVirtualList = class(TLazVirtualDrawTree)
private
HintCanvas: TCanvas;
@@ -91,19 +91,19 @@ Implementation
constructor TVirtualList.Create(AOwner: TComponent);
var
Pvdt: TVirtualDrawTree;
Pvdt: TLazVirtualDrawTree;
column: TVirtualTreeColumn;
c: Integer;
begin
//Logger.Send([lcClient, lcDebug], 'TVirtualTree.Create START');
if not (AOwner is TVirtualDrawTree) then begin
Logger.Send([lcClient, lcDebug], 'TVirtualTree.Create(AOwner: TVirtualDrawTree) must get argument TVirtualDrawTree');
Assert(not (AOwner is TVirtualDrawTree), 'TVirtualTree.Create(AOwner: TVirtualDrawTree) must get argument TVirtualDrawTree');
if not (AOwner is TLazVirtualDrawTree) then begin
Logger.Send([lcClient, lcDebug], 'TVirtualTree.Create(AOwner: TLazVirtualDrawTree) must get argument TLazVirtualDrawTree');
Assert(not (AOwner is TLazVirtualDrawTree), 'TVirtualTree.Create(AOwner: TLazVirtualDrawTree) must get argument TLazVirtualDrawTree');
Abort;
Halt;
end;
inherited Create(AOwner.Owner);
Pvdt := TVirtualDrawTree(AOwner);
Pvdt := TLazVirtualDrawTree(AOwner);
Self.Parent := Pvdt.Parent;
FSelectionCount := 0;