Стартовый пул

VirtualTreeview/units/gtk2/fakeactivex.pas

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

VirtualTreeview/units/gtk2/fakemmsystem.pas

@@ -0,0 +1,34 @@
+unit fakemmsystem;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Types, LCLIntf;
+  
+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;
+begin
+  Result := GetTickCount;
+end;
+
+end.
+

VirtualTreeview/units/gtk2/virtualpanningwindow.pas

@@ -0,0 +1,58 @@
+unit 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
+  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.
+