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

* Compile with Theme Support

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1059 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-15 19:24:25 +00:00
parent 4e0e0d5784
commit 6bdfb279ec
3 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/virtualtreeview-new/trunk/VTConfig.inc
View File

@ -29,6 +29,7 @@
{$define EnableAdvancedGraphics}
{$define EnableAlphaBlend}
{.$define EnableAccessible}
{$define ThemeSupport}
//under linux the performance is poor with threading enabled
{$ifdef Windows}

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

@ -331,11 +331,7 @@ uses
SyncObjs // Thread support
//Clipbrd // Clipboard support
{$ifdef ThemeSupport}
{$ifndef COMPILER_7_UP}
, ThemeSrv, TMSchema, UxTheme // Windows XP themes support. Get these units from www.soft-gems.net
{$else}
, Themes, UxTheme
{$endif COMPILE_7_UP}
, Themes , UxTheme
{$endif ThemeSupport}
{$ifdef EnableAccessible}
, oleacc // for MSAA IAccessible support
@ -23055,8 +23051,8 @@ begin
Details.State := 0;
end;
ThemeServices.DrawElement(Canvas.Handle, Details, R);
if Index in [21..24] then
UtilityImages.Draw(Canvas, XPos - 1, YPos, 4);
//if Index in [21..24] then
// UtilityImages.Draw(Canvas, XPos - 1, YPos, 4);
end
else
{$endif ThemeSupport}

11
components/virtualtreeview-new/trunk/virtualtreeview_package.lpk
View File

@ -4,15 +4,12 @@
<Name Value="virtualtreeview_package"/>
<Author Value="Mike Lischke (LCL Port: Luiz Americo)"/>
<CompilerOptions>
<Version Value="5"/>
<Version Value="8"/>
<SearchPaths>
<IncludeFiles Value="include/intf/$(LCLWidgetType)/;units/;include/intf/"/>
<OtherUnitFiles Value="units/$(LCLWidgetType)/"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)-$(LCLWidgetType)"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
@ -22,7 +19,7 @@
<License Value=" Moziall Public License 1.1 (MPL 1.1) or GNU Lesser General Public License
"/>
<Version Major="4" Minor="5" Release="1"/>
<Files Count="5">
<Files Count="6">
<Item1>
<Filename Value="virtualtrees.lrs"/>
<Type Value="LRS"/>
@ -44,6 +41,10 @@
<Filename Value="ideicons.lrs"/>
<Type Value="LRS"/>
</Item5>
<Item6>
<Filename Value="VTConfig.inc"/>
<Type Value="Include"/>
</Item6>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="3">