* Fixed compilation and cleaned the demos applications

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

components/virtualtreeview-unstable/demos/vtbasic/Main.pas

@@ -19,8 +19,8 @@ unit Main;
 interface
 
    uses
-      LCLIntf, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-      Dialogs, VirtualTrees, ImgList, ExtCtrls, StdCtrls, Buttons, LResources;
+      LCLIntf, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+      Dialogs, VirtualTrees, ExtCtrls, StdCtrls, Buttons, LResources;
 
    type
 TfrmMain =

components/virtualtreeview-unstable/demos/vtbasic/VTDBExample.pas

@@ -22,8 +22,8 @@ unit VTDBExample;
 interface
 
    uses
-      delphicompat, LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-      VirtualTrees, StdCtrls, ExtCtrls, sqlite3ds, DB, Menus, VTreeData, ImgList, Buttons, LResources;
+      delphicompat, LCLIntf, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+      VirtualTrees, StdCtrls, ExtCtrls, sqlite3ds, Menus, VTreeData, Buttons, LResources;
 
    type
 
@@ -113,11 +113,15 @@ implementation
       r  : TRect;
    begin
       {get size of desktop}
+      //todo: not implemented under gtk
+      {$ifdef Windows}
       SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
       Height := r.Bottom-Top;
       Width  := r.Right-Left;
-      
       Application.ProcessMessages;
+      {$endif}
+
+
       LoadDataset;
    end;
 

components/virtualtreeview-unstable/demos/vtbasic/VTEditors.pas

@@ -93,8 +93,8 @@ interface
       
 implementation
 
-   uses
-      CommCtrl;
+   //uses
+   //   CommCtrl;
    (*
    uses
       PropertiesDemo, GridDemo;

components/virtualtreeview-unstable/demos/vtbasic/VTNoData.pas

@@ -19,8 +19,8 @@ unit VTNoData;
 interface
 
    uses
-      delphicompat, LCLIntf, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-      Dialogs, VirtualTrees, ImgList, ExtCtrls, StdCtrls, LResources;
+      delphicompat, LCLIntf, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+      Dialogs, VirtualTrees, ExtCtrls, StdCtrls, LResources;
 
    type
       TfrmVTNoData =
@@ -264,8 +264,10 @@ implementation
       r  : TRect;
    begin
       {get size of desktop}
+      {$ifdef Windows}
       SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
       Height := r.Bottom-Top;
+      {$endif}
    end;
 
 initialization

components/virtualtreeview-unstable/demos/vtbasic/ViewCode.lfm

@@ -6,10 +6,13 @@ object frmViewCode: TfrmViewCode
   HorzScrollBar.Page = 552
   VertScrollBar.Page = 353
   Caption = 'Quick Code Viewer'
+  ClientHeight = 354
+  ClientWidth = 553
   Font.Height = -11
   Font.Name = 'Tahoma'
   OnActivate = FormActivate
   Position = poDefaultPosOnly
+  LCLVersion = '0.9.25'
   object SynEdit1: TSynEdit
     Height = 354
     Width = 553
@@ -18,8 +21,6 @@ object frmViewCode: TfrmViewCode
     Font.Name = 'courier'
     ParentColor = False
     TabOrder = 0
-    BookMarkOptions.OnChange = nil
-    Gutter.OnChange = nil
     Gutter.CodeFoldingWidth = 14
     Highlighter = SynPasSyn1
     Keystrokes = <    
@@ -346,7 +347,6 @@ object frmViewCode: TfrmViewCode
     Lines.Strings = (
       'SynEdit1'
     )
-    SelectedColor.OnChange = nil
   end
   object SynPasSyn1: TSynPasSyn
     Enabled = False

components/virtualtreeview-unstable/demos/vtbasic/ViewCode.pas

@@ -29,9 +29,11 @@ implementation
       r  : TRect;
    begin
       {get size of desktop}
+      {$ifdef Windows}
       SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
       Height := r.Bottom-Top;
       Width  := r.Right-Left;
+      {$endif}
    end;
 
 initialization

components/virtualtreeview-unstable/demos/vtbasic/vtbasic.lpi

@@ -1,15 +1,15 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="\"/>
-    <Version Value="5"/>
+    <PathDelim Value="/"/>
+    <Version Value="6"/>
     <General>
       <Flags>
         <AlwaysBuild Value="False"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value=".\"/>
+      <IconPath Value="./"/>
       <TargetFileExt Value=".exe"/>
     </General>
     <VersionInfo>
@@ -23,7 +23,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="4">
@@ -109,7 +109,6 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
-    <PathDelim Value="\"/>
     <CodeGeneration>
       <Generate Value="Faster"/>
     </CodeGeneration>

components/virtualtreeview-unstable/demos/vtbasic/vtbasic.lpr

@@ -8,12 +8,18 @@ uses
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
   Forms
-  { add your units here }, Main,vtlogger,ipcchannel, lclextensions_package;
+  { add your units here }, Main
+  {$ifdef DEBUG_VTV}
+  ,vtlogger, ipcchannel
+  {$endif}
+  ;
 
 begin
+  {$ifdef DEBUG_VTV}
   Logger.Channels.Add(TIPCChannel.Create);
   Logger.Clear;
-  Logger.ActiveClasses:=[lcScroll,lcWarning];
+  Logger.ActiveClasses := [lcScroll, lcWarning];
+  {$endif}
   Application.Initialize;
   Application.CreateForm(TfrmMain, frmMain);
   Application.Run;