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

* Fix compilation on non win32

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1096 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-29 19:42:43 +00:00
parent 1f4bf79d5b
commit 139fedb7c8
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -2503,7 +2503,9 @@ type
procedure WMSize(var Message: TLMSize); message LM_SIZE;
procedure WMTimer(var Message: TLMTimer); message LM_TIMER;
{$ifdef ThemeSupport}
{$ifdef Windows}
procedure WMThemeChanged(var Message: TLMessage); message WM_THEMECHANGED;
{$endif}
{$endif ThemeSupport}
procedure WMVScroll(var Message: TLMVScroll); message LM_VSCROLL;
protected
@ -16637,7 +16639,8 @@ end;
//----------------------------------------------------------------------------------------------------------------------
{$ifdef ThemeSupport}
{$ifdef Windows}
//todo
procedure TBaseVirtualTree.WMThemeChanged(var Message: TLMessage);
begin
@ -16649,7 +16652,7 @@ end;
DoStateChange([], [tsUseThemes]);
RedrawWindow(Handle, nil, 0, RDW_INVALIDATE or RDW_VALIDATE or RDW_FRAME);
end;
{$endif}
{$endif ThemeSupport}
//----------------------------------------------------------------------------------------------------------------------