pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fix compilation of vtbasic demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1509 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-02-18 22:57:11 +00:00
parent 945a2b3e43
commit de920b6062
3 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview-new/branches/4.8/demos/vtbasic/VTDBExample.pas
View File

@@ -22,7 +22,7 @@ unit VTDBExample;
interface
uses
delphicompat, LCLIntf, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
delphicompat, LCLIntf, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, LCLType,
VirtualTrees, StdCtrls, ExtCtrls, sqlite3ds, Menus, VTreeData, Buttons, LResources;
type
@@ -113,8 +113,8 @@ implementation
r : TRect;
begin
{get size of desktop}
//todo: not implemented under gtk
{$ifdef Windows}
{$ifdef LCLWin32}
//todo: enable when SPI_GETWORKAREA is implemented
SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
Height := r.Bottom-Top;
Width := r.Right-Left;

5
components/virtualtreeview-new/branches/4.8/demos/vtbasic/VTNoData.pas
View File

@@ -20,7 +20,7 @@ interface
uses
delphicompat, LCLIntf, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, VirtualTrees, ExtCtrls, StdCtrls, LResources;
Dialogs, VirtualTrees, ExtCtrls, StdCtrls, LResources, LCLType;
type
TfrmVTNoData =
@@ -271,8 +271,9 @@ implementation
var
r : TRect;
begin
{$ifdef LCLWin32}
//todo: enable when SPI_GETWORKAREA is implemented
{get size of desktop}
{$ifdef Windows}
SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
Height := r.Bottom-Top;
{$endif}

7
components/virtualtreeview-new/branches/4.8/demos/vtbasic/ViewCode.pas
View File

@@ -3,8 +3,8 @@ unit ViewCode;
interface
uses
delphicompat, LCLIntf, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, LResources, SynHighlighterPas, SynEdit;
DelphiCompat, LCLIntf, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, LResources, SynHighlighterPas, SynEdit, LCLType;
type
@@ -29,7 +29,8 @@ implementation
r : TRect;
begin
{get size of desktop}
{$ifdef Windows}
{$ifdef LCLWin32}
//todo: enable when SPI_GETWORKAREA is implemented
SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
Height := r.Bottom-Top;
Width := r.Right-Left;