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

* Advanced demo: fix layout to look good on all platforms + cleaunp

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1103 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-31 11:39:42 +00:00
parent 2350cbe7ab
commit 86d2440a32
13 changed files with 328 additions and 290 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.pas
View File

@ -123,6 +123,11 @@ procedure TWindowsXPForm.FormCreate(Sender: TObject);
begin
XPTree.NodeDataSize := SizeOf(TEntry);
{$ifdef LCLWin32}
//enable native look under win32
//todo: enable only in winxp
XPTree.TreeOptions.PaintOptions := XPTree.TreeOptions.PaintOptions + [toThemeAware];
{$endif}
end;
//----------------------------------------------------------------------------------------------------------------------