View Issue Details

IDProjectCategoryView StatusLast Update
0006501JEDI VCL00 JVCL Componentspublic2019-04-30 15:18
ReporterCDamettoAssigned Toobones 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
Product Version3.48 
Target VersionFixed in VersionDaily / GIT 
Summary0006501: In JvDBGrid, UseThemedHilighlighting leave out columns with checkbox
DescriptionImplementing OnCheckIfBooleanField in a JvDBGrid, the column with checkbox
looks as if UseThemedHilighlighting=False
Additional InformationI have solved adding three line in TJvDBGrid.DrawColumnCell routine:

[...]
  if DefaultDrawing then
  begin
    I := GetImageIndex(Field);
    if I >= 0 then
    begin
      Bmp := GetGridBitmap(TGridPicture(I));
      if Highlight then // <- LINE ADDED
        DrawThemedHighlighting(Canvas, Rect) // <- LINE ADDED
      else // <- LINE ADDED
      Canvas.FillRect(Rect);
      DrawBitmapTransparent(Canvas, (Rect.Left + Rect.Right + 1 - Bmp.Width) div 2,
        (Rect.Top + Rect.Bottom + 1 - Bmp.Height) div 2, Bmp, clOlive);
    end
    else
    begin
      DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
  end;
[...]
TagsNo tags attached.

Activities

obones

2018-07-18 15:42

administrator   ~0021491

Could you check if the issue is still present in the latest GIT content? If yes, please provide the zipped sources of an application showing this.

CDametto

2019-01-25 12:41

reporter   ~0021604

The issue is still present in jvcl 3.50 with Delphi 10.3 rio

2019-01-25 12:42

 

Demo.zip (54,257 bytes)

mh

2019-04-26 20:15

reporter   ~0021749

Pull request with your proposed fix created:
https://github.com/project-jedi/jvcl/pull/94

Issue History

Date Modified Username Field Change
2016-03-25 17:11 CDametto New Issue
2018-07-18 15:42 obones Note Added: 0021491
2018-07-18 15:42 obones Status new => feedback
2019-01-25 12:41 CDametto Note Added: 0021604
2019-01-25 12:42 CDametto File Added: Demo.zip
2019-04-26 20:15 mh Note Added: 0021749
2019-04-30 15:18 obones Status feedback => resolved
2019-04-30 15:18 obones Fixed in Version => Daily / GIT
2019-04-30 15:18 obones Resolution open => fixed
2019-04-30 15:18 obones Assigned To => obones