virtualdbtreeex image on columns

[eldonfsr]

I  Playing with virtualdbtreeext  I trying  to show image at column you know some time we wanna to show image reference to value to cell,

This is my conde don't send me eny error but don't show image i don't know if i missing something...


procedure TFormAssyParts.VirtualDBTreeEx1BeforeCellPaint(
  Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
  Column: TColumnIndex; CellPaintMode: TVTCellPaintMode; CellRect: TRect;
  var ContentRect: TRect);
begin
  with VirtualDbTreeEx1.Canvas do  begin
      if( column = 5  ) then begin
         VirtualDbTreeEx1.Canvas.FillRect(CellRect);
          if( VirtualDbTreeEx1.DataSource.DataSet.FieldByName('RxPLType').AsString ='DWG') then begin
             imagelPart.Draw(VirtualDbTreeEx1.Canvas , CellRect.CenterPoint.x-8,ClipRect.CenterPoint.Y-8,3 );
 //            TextOut(CellRect.Left+3, CellRect.top+1 , 'DWG');
          end else begin
            TextOut(CellRect.Left+3, CellRect.top+1 , 'Afected');
          end;
      end;
  end;
end;   

I don't sure if must be here or different event...

[dseligo]

This is my conde don't send me eny error but don't show image i don't know if i missing something...

Maybe you have it in a wrong color?

[balazsszekely]

@eldonfsr

I  Playing with virtualdbtreeext  I trying  to show image at column you know some time we wanna to show image reference to value to cell,

This is my conde don't send me eny error but don't show image i don't know if i missing something...

I don't sure if must be here or different event...

Definitely not on BeforeCellPaint. Move your code to AfterCellPaint. Instead of TextOut use the DrawText function from LCLIntf. Also you have to calculate the exact position of the text, with or without the image. Please do a forum search, there are several threads out there with similar requirements.

[eldonfsr]

Thanks for your guide , I Made a change to event afterpaint but CellRect  don't take position in dbgrid the values got is dbgrid ans also show or the event is trigger when click on Register , I need when loading data put a image on column, and events you taold is triger on node of tree...

Code: Pascal  [Select][+][-]

1. procedure TFormAssyParts.VirtualDBTreeEx1AfterCellPaint(
2.   Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
3.   Column: TColumnIndex; const CellRect: TRect);
4. Var aRect:TRect;
5. begin
6.    with VirtualDbTreeEx1.Canvas do  begin
7.        ARect:= CellRect;
8.       if( column = 5  ) then begin
9.          VirtualDbTreeEx1.Canvas.FillRect(CellRect);
10.           if( VirtualDbTreeEx1.DataSource.DataSet.FieldByName('RxPLType').AsString ='DWG') then begin
11.              imagelPart.Draw(VirtualDbTreeEx1.Canvas , aRect.CenterPoint.x   ,aRect.CenterPoint.Y+8,3 );
12.              DrawText( VirtualDbTreeEx1.Canvas.Handle ,Pchar(VirtualDbTreeEx1.DataSource.DataSet.FieldByName('RxPLType').AsString) , -1, aRect , DT_CENTER );
13.           end;
14.       end;
15.   end;
16. end;  
17.  

You can see show image at top of the grid...

[eldonfsr]

DBTree cellafterpaint is triger only when click on node not when is showing the form or dbtree i need event witch triger when load like drawcell of dbgrid... to attach image to column.