Missing code from last commit - Fixed compilation under gtk

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@128 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/virtualtreeview-unstable/VirtualTrees.pas

@@ -4875,8 +4875,15 @@ var
   I, Width, Height: Integer;
 
 begin
+  //todo implement under gtk
+  {$ifdef Windows}
   Width := GetSystemMetrics(SM_CXMENUCHECK) + 3;
   Height := GetSystemMetrics(SM_CYMENUCHECK) + 3;
+  {$else}
+  Width:=16;
+  Height:=16;
+  {$endif}
+  
   IL := TImageList.CreateSize(Width, Height);
   //with IL do
   //  Handle := ImageList_Create(Width, Height, Flags, 0, AllocBy);
@@ -5524,10 +5531,15 @@ var
 begin
   if FMiscOptions <> Value then
   begin
+
     ToBeSet := Value - FMiscOptions;
     ToBeCleared := FMiscOptions - Value;
     FMiscOptions := Value;
-
+    {$ifndef Windows}
+    Exclude(FMiscOptions,toAcceptOLEDrop);
+    Exclude(ToBeCleared,toAcceptOLEDrop);
+    Exclude(ToBeSet,toAcceptOLEDrop);
+    {$endif}
     with FOwner do
       if not (csLoading in ComponentState) and HandleAllocated then
       begin
@@ -23691,9 +23703,6 @@ const // Region identifiers for GetRandomRgn
   APIRGN = 3;
   SYSRGN = 4;
 
-//todo_lcl
-function GetRandomRgn(DC: HDC; Rgn: HRGN; iNum: Integer): Integer; stdcall; external 'GDI32.DLL';
-
 procedure TBaseVirtualTree.UpdateWindowAndDragImage(const Tree: TBaseVirtualTree; TreeRect: TRect; UpdateNCArea,
   ReshowDragImage: Boolean);
 

components/virtualtreeview-unstable/vtlogger.pas

@@ -32,6 +32,7 @@ const
   lcColumnPosition = 17;
   lcTimer = 18;
   lcDrag = 19;
+  lcOle = 20;
 var
   Logger: TLCLLogger;