paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* reverse rev 2200: not working properly

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2417 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum 2012-05-07 01:00:34 +00:00
parent 007ed94507
commit 7a497ae1ce
1 changed files with 4 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@ -8489,9 +8489,6 @@ end;
//----------------------------------------------------------------------------------------------------------------------
type
THeaderItemPosition = (thpLeft, thpCenter, thpRight);
procedure TVirtualTreeColumns.PaintHeader(DC: HDC; const R: TRect; HOffset: Integer);
// Main paint method to draw the header.
@ -8501,9 +8498,6 @@ const
(3, 5) {ascending}, (2, 4) {descending}
);
HotThemedHeaders: array[THeaderItemPosition] of TThemedHeader = (thHeaderItemLeftHot, thHeaderItemHot, thHeaderItemRightHot);
PressedThemedHeaders: array[THeaderItemPosition] of TThemedHeader = (thHeaderItemLeftPressed, thHeaderItemPressed, thHeaderItemRightPressed);
NormalThemedHeaders: array[THeaderItemPosition] of TThemedHeader = (thHeaderItemLeftNormal, thHeaderItemNormal, thHeaderItemRightNormal);
var
I, Y,
SortIndex: Integer;
@ -8522,8 +8516,7 @@ var
WrapCaption,
AdvancedOwnerDraw: Boolean;
{$ifdef ThemeSupport}
Details: TThemedElementDetails;
HeaderItemPosition: THeaderItemPosition;
Details: TThemedElementDetails;
{$endif ThemeSupport}
PaintInfo: THeaderPaintInfo;
@ -8715,18 +8708,13 @@ begin
{$ifdef ThemeSupport}
if tsUseThemes in FHeader.Treeview.FStates then
begin
if I = GetFirstVisibleColumn then
HeaderItemPosition := thpLeft
else
HeaderItemPosition := thpCenter;
//todo?: handle autoresize header. LastColumn.HeaderItemPosition := thpRight
if IsDownIndex then
Details := ThemeServices.GetElementDetails(PressedThemedHeaders[HeaderItemPosition])
Details := ThemeServices.GetElementDetails(thHeaderItemPressed)
else
if IsHoverIndex then
Details := ThemeServices.GetElementDetails(HotThemedHeaders[HeaderItemPosition])
Details := ThemeServices.GetElementDetails(thHeaderItemHot)
else
Details := ThemeServices.GetElementDetails(NormalThemedHeaders[HeaderItemPosition]);
Details := ThemeServices.GetElementDetails(thHeaderItemNormal);
ThemeServices.DrawElement(Handle, Details, PaintRectangle, @PaintRectangle);
end
else