diff --git a/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemo.lpi b/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemo.lpi index df5d74e2e..a40618f26 100644 --- a/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemo.lpi +++ b/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemo.lpi @@ -1,28 +1,32 @@ - + + - - - - - - + + + + + + + + + @@ -32,12 +36,12 @@ - + - + @@ -49,8 +53,9 @@ - - + + + @@ -80,23 +85,159 @@ - + + - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - - + + - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemoMainForm.lfm b/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemoMainForm.lfm index 87118e409..918459bc2 100644 --- a/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemoMainForm.lfm +++ b/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemoMainForm.lfm @@ -7,10 +7,8 @@ object JvNavPaneDemoMainFrm: TJvNavPaneDemoMainFrm VertScrollBar.Page = 467 Caption = 'JvNavigationPane Demo' DockSite = True - Font.Height = -11 - Font.Name = 'Tahoma' OnCreate = FormCreate - LCLVersion = '1.7' + LCLVersion = '2.1.0.0' object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup left = 92 diff --git a/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemoMainForm.pas b/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemoMainForm.pas index e24db0207..7bec40210 100644 --- a/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemoMainForm.pas +++ b/components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemoMainForm.pas @@ -241,7 +241,7 @@ begin Parent := Page; Checked[Items.Add('Alan Chong')] := Random(4) = 1; Checked[Items.Add('Andreas Hausladen')] := Random(4) = 1; - Checked[Items.Add('André Snepvangers')] := Random(4) = 1; + Checked[Items.Add('André Snepvangers')] := Random(4) = 1; Checked[Items.Add('Michael Beck')] := Random(4) = 1; Checked[Items.Add('Leroy Casterline')] := Random(4) = 1; Checked[Items.Add('Chris Latta')] := Random(4) = 1; @@ -279,7 +279,7 @@ begin Align := alClient; Items.Add('Alan Chong'); Items.Add('Andreas Hausladen'); - Items.Add('André Snepvangers'); + Items.Add('André Snepvangers'); Items.Add('Michael Beck'); Items.Add('Leroy Casterline'); Items.Add('Chris Latta'); diff --git a/components/jvcllaz/run/JvPageComps/jvnavigationpane.pas b/components/jvcllaz/run/JvPageComps/jvnavigationpane.pas index 0f6dea393..c999c08cb 100644 --- a/components/jvcllaz/run/JvPageComps/jvnavigationpane.pas +++ b/components/jvcllaz/run/JvPageComps/jvnavigationpane.pas @@ -3520,6 +3520,7 @@ const var R, TempRect: TRect; X, Y, H: Integer; + flags: Integer; function IsValidImage: Boolean; begin @@ -3536,14 +3537,13 @@ begin InflateRect(R, -4, 0); SetBkMode(Canvas.Handle, TRANSPARENT); TempRect := R; - DrawText(Canvas, Caption, Length(Caption), TempRect, - DT_CALCRECT or cAlignment[Alignment] or cWordWrap[WordWrap] or DT_VCENTER or DT_NOPREFIX or DT_END_ELLIPSIS); + flags := cAlignment[Alignment] or cWordWrap[WordWrap] or DT_VCENTER or DT_END_ELLIPSIS; + DrawText(Canvas, Caption, Length(Caption), TempRect, flags or DT_CALCRECT); if WordWrap then OffsetRect(R, 0, (Height - H) div 2); if IsValidImage and (Alignment = taCenter) then 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); + DrawText(Canvas, Caption, Length(Caption), R, flags); SetBkMode(Canvas.Handle, OPAQUE); end; if IsValidImage then @@ -3785,7 +3785,7 @@ begin end; SetBkMode(Canvas.Handle, TRANSPARENT); DrawText(Canvas, Caption, Length(Caption), R, - DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX or DT_EDITCONTROL or cAlignment[Alignment]); + DT_SINGLELINE or DT_VCENTER {or DT_NOPREFIX} or DT_EDITCONTROL or cAlignment[Alignment]); SetBkMode(Canvas.Handle, OPAQUE); end; Canvas.Pen.Color := FrameColor; @@ -4927,7 +4927,7 @@ DrawButton: SetBkMode(Canvas.Handle, TRANSPARENT); InflateRect(R, -2, 0); Dec(R.Right, 3 + 7); - DrawText(Canvas, Caption, Length(Caption), R, DT_LEFT or DT_VCENTER or DT_NOPREFIX or DT_END_ELLIPSIS); + 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);