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

jvcllaz: Fix painting of NavPaneToolPanel

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5395 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-30 11:38:20 +00:00
parent 3d83b1a3d5
commit 2390110186
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/jvcllaz/run/JvNavigationPane.pas
View File

@ -4393,6 +4393,7 @@ begin
if CloseButton then
R := Rect(R.Left, R.Top, FCloseButton.Left, R.Bottom);
DrawText(Canvas, Caption, Length(Caption), R, DT_SINGLELINE or DT_VCENTER or DT_LEFT or DT_END_ELLIPSIS);
SetBkMode(Canvas.Handle, OPAQUE);
end;
// draw the client areas top rounding, set pixels directly to avoid messing up any background image
@ -4435,9 +4436,11 @@ begin
Inc(R.Top, HeaderHeight);
Inc(R.Right);
Canvas.Brush.Color := Colors.FrameColor;
Canvas.Pen.Style := psClear;
//Canvas.Pen.Style := psClear;
if Buttons.Count > 0 then
begin
Canvas.Pen.Style := psClear;
R2 := Rect(R.Left, R.Top, R.Left + ButtonWidth * Buttons.Count - 1, R.Top + ButtonHeight);
Canvas.RoundRect(R2.Left, R2.Top, R2.Right, R2.Bottom, EdgeRounding, EdgeRounding);
// square two corners