View Issue Details

IDProjectCategoryView StatusLast Update
0001565JEDI VCL00 JVCL Componentspublic2004-04-14 04:44
ReporteranonymousAssigned Touser72 
PrioritynormalSeverityfeatureReproducibilityalways
Status resolvedResolutionfixed 
Product Version 
Target VersionFixed in Version 
Summary0001565: TJVDBStatusLabel - bad drawing
DescriptionAn error appeared in work of Jedi of 30.03.2004:

The Component TJVDBStatusLabel stopped changing its dimensions correctly at
changes of the text:


object DBStatusLabel1: TJvDBStatusLabel
  Left = 537
  Top = 4
  Width = 85
  Height = 24
  DataSource = DS
  Style = lsRecordNo
  CalcRecCount = True
  GlyphAlign = glGlyphRight
  Layout = tlBottom
  Align = alRight
  Alignment = taRightJustify
end

1.gif - on first record
2.gif - on last record
3.gif - after resizing of form the correct view was restored.
TagsNo tags attached.

Activities

2004-04-03 02:10

 

image.gif (22,339 bytes)
image.gif (22,339 bytes)

user72

2004-04-03 08:05

  ~0003624

You need to change two units.

In JvLabel.pas, add a protected property (FNeedsResize is already defined) to TJvCustomLabel:

    property HotTrackFont: TFont read FHotTrackFont write SetHotTrackFont;
    property HotTrackFontOptions:TJvTrackFontOptions read FHotTrackFontOptions write SetHotTrackFontOptions default DefaultTrackFontOptions;

    property NeedsResize:boolean read FNeedsResize write FNeedsResize;


In JvDBControls.pas, add the following to the end of TJvDBStatusLabel.UpdateStatus:


  NeedsResize := true;

  AdjustBounds;
  Invalidate;
end;

user72

2004-04-14 04:44

  ~0003842

Updated in CVS

Issue History

Date Modified Username Field Change
2004-04-03 02:10 anonymous New Issue
2004-04-03 02:10 anonymous File Added: image.gif
2004-04-03 08:05 user72 Note Added: 0003624
2004-04-03 08:05 user72 Status new => assigned
2004-04-03 08:05 user72 Assigned To => user72
2004-04-14 04:44 user72 Status assigned => resolved
2004-04-14 04:44 user72 Resolution open => fixed
2004-04-14 04:44 user72 Note Added: 0003842