virtualtreeview: added qt6 fake units

components/virtualtreeview/units/qt6/laz.fakeactivex.pas

@@ -0,0 +1,3 @@
+unit laz.FakeActiveX;
+
+{$i ../laz.dummyactivex.inc}

components/virtualtreeview/units/qt6/laz.fakemmsystem.pas

@@ -0,0 +1,38 @@
+unit laz.FakeMMSystem;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Types;
+  
+function timeBeginPeriod(x1: DWord): DWord;
+
+function timeEndPeriod(x1: DWord): DWord;
+
+function timeGetTime: DWORD;
+
+implementation
+
+function timeBeginPeriod(x1: DWord): DWord;
+begin
+
+end;
+
+function timeEndPeriod(x1: DWord): DWord;
+begin
+
+end;
+
+function timeGetTime: DWORD;
+var
+  ATime: TSystemTime;
+begin
+  //todo: properly implement
+  GetLocalTime(ATime);
+  Result := ATime.MilliSecond;
+end;
+
+end.
+

components/virtualtreeview/units/qt6/laz.virtualpanningwindow.pas

@@ -0,0 +1,58 @@
+unit laz.VirtualPanningWindow;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  LCLType, Graphics, Classes, SysUtils;
+  
+type
+
+  { TVirtualPanningWindow }
+
+  TVirtualPanningWindow = class
+  private
+    FHandle: THandle;
+    FOwnerHandle: THandle;
+    FImage: TBitmap;
+    procedure HandlePaintMessage;
+  public
+    procedure Start(OwnerHandle: THandle; const Position: TPoint);
+    procedure Stop;
+    procedure Show(ClipRegion: HRGN);
+    property Image: TBitmap read FImage;
+    property Handle: THandle read FHandle;
+  end;
+
+implementation
+
+{$ifdef DEBUG_VTV}
+uses
+  laz.VTLogger;
+{$endif}
+
+{ TVirtualPanningWindow }
+
+procedure TVirtualPanningWindow.HandlePaintMessage;
+begin
+end;
+
+procedure TVirtualPanningWindow.Start(OwnerHandle: THandle; const Position: TPoint);
+begin  
+  FImage := TBitmap.Create;
+end;
+
+procedure TVirtualPanningWindow.Stop;
+begin
+  FImage.Free;
+  FImage := nil;
+end;
+
+procedure TVirtualPanningWindow.Show(ClipRegion: HRGN);
+begin
+  {$ifdef DEBUG_VTV}Logger.SendBitmap([lcPanning],'Panning Image',FImage);{$endif}
+end;
+
+end.
+