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

* Fix Compilation under non Windows: enable themes only for win32

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1068 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-16 17:03:00 +00:00
parent b4ff3cb583
commit adabb04016
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -331,7 +331,7 @@ uses
SyncObjs // Thread support
//Clipbrd // Clipboard support
{$ifdef ThemeSupport}
, Themes , UxTheme
, Themes , Win32UxTheme
{$endif ThemeSupport}
{$ifdef EnableAccessible}
, oleacc // for MSAA IAccessible support
@ -22750,16 +22750,23 @@ procedure TBaseVirtualTree.PaintCheckImage(const PaintInfo: TVTPaintInfo);
var
R: TRect;
{$ifdef ThemeSupport}
Details: TThemedElementDetails;
{$endif}
UseThemes: Boolean;
begin
Logger.EnterMethod([lcCheck],'PaintCheckImage');
with PaintInfo, ImageInfo[iiCheck] do
begin
{$ifdef ThemeSupport}
UseThemes := (tsUseThemes in FStates) and (FCheckImageKind = ckSystemDefault);
{$else}
UseThemes := False;
{$endif}
if UseThemes or ((FCheckImageKind in [ckSystemFlat, ckSystemDefault]) and not (Index in [21..24])) then
begin
{$ifdef ThemeSupport}
if UseThemes then
begin
R := Rect(XPos - 1, YPos, XPos + 16, YPos + 16);
@ -22791,6 +22798,7 @@ begin
Canvas.Handle, 4 * Height, 0, MaskHandle);
end
else
{$endif}
begin
R := Rect(XPos + 1, YPos + 1, XPos + 14, YPos + 14);
DrawCheckButton(Canvas, Index, R, FCheckImageKind = ckSystemFlat);