View Issue Details

IDProjectCategoryView StatusLast Update
0006281JEDI VCL00 JVCL Componentspublic2015-09-21 17:48
Reporterlomo74Assigned To 
PrioritynormalSeverityminorReproducibilityalways
Status closedResolutionno change required 
Product VersionDaily / GIT 
Target VersionFixed in Version 
Summary0006281: TJvOutlookBar draws page button text incorrectly when a page has ParentFont = False and a different font
DescriptionWhen a TJvOutlookBar page has ParentFont = False and a font that is different from that of the TJvOutlookBar component itself, and the page is activated, all subsequent page buttons are drawn with the wrong font.
Patch attached.
TagsNo tags attached.

Activities

2014-05-09 09:17

 

patch1.txt (726 bytes)
--- JvOutlookBar.pas.orig	Tue May 06 11:48:52 2014
+++ JvOutlookBar.pas	Fri May 09 08:21:50 2014
@@ -1586,6 +1586,7 @@
   SavedColor: TColor;
   Flags: Cardinal;
   HasImage: Boolean;
+  SavedFont: TFont;
 begin
   Assert(Assigned(FPageBtnProps));
   ATop := R.Top + 1;
@@ -1650,6 +1651,8 @@
   end;
   SetBkMode(Canvas.Handle, TRANSPARENT);
   OffsetRect(R, 0, -1);
+  SavedFont := Canvas.Font;
+  Canvas.Font := Self.Font;
   SavedColor := Canvas.Font.Color;
   try
     if not Pages[Index].Enabled then
@@ -1663,6 +1666,7 @@
     DrawText(Canvas, Pages[Index].Caption, -1, R, Flags or DT_END_ELLIPSIS);
   finally
     Canvas.Font.Color := SavedColor;
+    Canvas.Font := SavedFont;
   end;
 end;
patch1.txt (726 bytes)

obones

2014-09-03 11:37

administrator   ~0021029

Please provide the zipped sources of a sample application showing this

lomo74

2014-09-03 13:58

reporter   ~0021044

This issue was caused by a buggy patch that I applied to solve issue # 6280.
Sorry. I corrected my patch, and now issue # 6280 is cleanly solved and this one has gone.

Issue History

Date Modified Username Field Change
2014-05-09 09:17 lomo74 New Issue
2014-05-09 09:17 lomo74 File Added: patch1.txt
2014-09-03 11:37 obones Note Added: 0021029
2014-09-03 11:37 obones Status new => feedback
2014-09-03 13:58 lomo74 Note Added: 0021044
2014-10-01 10:52 AHUser Status feedback => closed
2014-10-01 10:52 AHUser Resolution open => fixed
2014-10-01 10:52 AHUser Fixed in Version => Daily / GIT
2015-09-21 17:48 obones Resolution fixed => no change required
2015-09-21 17:48 obones Fixed in Version Daily / GIT =>