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

jvcllaz: Fix NavigationPane painting issues at runtime in JnNavPaneDemo (still issues at designtime).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5396 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2016-11-30 15:55:47 +00:00
parent 2390110186
commit 78c08bdc4d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1852,6 +1852,10 @@ end;
procedure TJvCustomNavigationPane.WMEraseBkgnd(var Msg: TLMEraseBkgnd);
begin
exit;
// wp: the following code causes massive painting issues.
// DEV: Doesn't clear, remove if...
//if ActivePage = nil then
begin
@ -2397,6 +2401,7 @@ begin
ACanvas.Font := Font;
SetBkMode(ACanvas.Handle, TRANSPARENT);
DrawText(ACanvas, Caption, Length(Caption), R, DT_SINGLELINE or DT_VCENTER);
SetBkMode(ACanvas.Handle, OPAQUE);
end;
if Colors.ButtonSeparatorColor <> clNone then
begin
@ -3527,6 +3532,7 @@ begin
OffsetRect(R, 0, -Images.Height div 2);
DrawText(Canvas, Caption, Length(Caption), R,
cAlignment[Alignment] or cWordWrap[WordWrap] or DT_VCENTER or DT_NOPREFIX or DT_END_ELLIPSIS);
SetBkMode(Canvas.Handle, OPAQUE);
end;
if IsValidImage then
begin
@ -3768,6 +3774,7 @@ begin
SetBkMode(Canvas.Handle, TRANSPARENT);
DrawText(Canvas, Caption, Length(Caption), R,
DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX or DT_EDITCONTROL or cAlignment[Alignment]);
SetBkMode(Canvas.Handle, OPAQUE);
end;
Canvas.Pen.Color := FrameColor;
Canvas.MoveTo(0, ClientHeight - 1);
@ -4911,6 +4918,7 @@ DrawButton:
DrawText(Canvas, Caption, Length(Caption), R, DT_LEFT or DT_VCENTER or DT_NOPREFIX or DT_END_ELLIPSIS);
Inc(R.Right, 3 + 7);
InflateRect(R, 2, 0);
SetBkMode(Canvas.Handle, OPAQUE);
end;
R.Left := R.Right - 11;
Dec(R.Right, 4);