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

Merge fixes from 4.8 branch to trunk

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2788 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2013-09-07 19:08:28 +00:00
parent d40caa283a
commit d67d6d0a63
56 changed files with 2436 additions and 1236 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview-new/trunk/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;