TOPIC:

Hi,

Images in TRxDBGrid Titles just won't show:

     grdData.TitleImageList:=imgDataTypes;
     grdData.Columns[0].Title.ImageIndex:=2; 

 

This code works fine with TDBGrid. The same is in design state too.
I tried but cannot figure this out, although in both examples column titles descend from TGridColumnTitle...?

I'm using CT 7.30 on Windows 10.
Please help.

Please, a sample project with the problem, for LAB testing.

Thanks for reply, here it is.

 

 

Thanks, please give us time to test and report

Don't work Sir

The project does not work or cannot figure out why TRxDbgrid refuses to show images in Titles?

TRxDbgrid refuses to show images
someone must put code to TRxDbgrid

Yes, the code is missing.
Since I use my classes anyway, this is the way I resolved it for my purposes:

type
TLunRxDBGrid = class(TRxDBGrid)
public
    procedure  DrawCell(aCol, aRow: integer; aRect: TRect; aState: TGridDrawState);  override;

procedure TLunRxDBGrid.DrawCell(aCol, aRow: integer; aRect: TRect; aState: TGridDrawState);
var xbitmap:TBitMap;
    xindex:integer;
begin
     if (aRow = 0) and (aCol > 0) and Assigned(TitleImageList) then begin
         inherited DrawCell(aCol, aRow, aRect, aState);
         try
           xbitmap := TBitmap.Create;
           try
              xindex:=Self.Columns[aCol].Title.ImageIndex;
           except
             xindex:=-1;
           end;
           if xindex > -1 then begin
              TitleImageList.GetBitmap(xindex,xbitmap);
              Canvas.Draw(aRect.Left+1,aRect.Top+1,xbitmap);
           end;
         finally
           xbitmap.Free;
         end;
     end else begin
         inherited DrawCell(aCol, aRow, aRect, aState);
     end;
end;

I know this is far from correct and generic solution, but I pasted it here in case anybody needs it as a quick fix.

Sir, thank you for your effort.

 

Thanks
we will try to put your code to LAB CT