paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCustomHeader: do not draw rects which have width <= 0.fixes issue #17340

Browse Source 
git-svn-id: trunk@28465 -
This commit is contained in:
zeljko 2010-11-24 19:36:21 +00:00
parent 091d03bee1
commit 04fe47ca23
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/headercontrol.inc
View File

@ -345,8 +345,11 @@ begin
if Sections.Count > 0 then
FPaintRect.Left := Sections[Sections.Count - 1].Right;
Details := ThemeServices.GetElementDetails(thHeaderItemRightNormal);
ThemeServices.DrawElement(Canvas.Handle, Details, FPaintRect);
if FPaintRect.Left < FPaintRect.Right then
begin
Details := ThemeServices.GetElementDetails(thHeaderItemRightNormal);
ThemeServices.DrawElement(Canvas.Handle, Details, FPaintRect);
end;
if FDragging then
begin
@ -384,7 +387,8 @@ begin
ARect := FPaintRect;
ARect.Left := FPaintRect.Left + Section.Left;
ARect.Right := FPaintRect.Left + Section.Right;
if ARect.Right <= ARect.Left then
exit;
Details := ThemeServices.GetElementDetails(HeaderStateMap[Section.State]);
ThemeServices.DrawElement(Canvas.Handle, Details, ARect);