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 EnableAdvancedGraphics}
{$define EnableAlphaBlend} {$define EnableAlphaBlend}
{.$define EnableAccessible} {.$define EnableAccessible}
{$define ThemeSupport}
//under linux the performance is poor with threading enabled //under linux the performance is poor with threading enabled
{$ifdef Windows} {$ifdef Windows}

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

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

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

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