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

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