1 reply to this topic

[qi130]

Hello boki,

 

I can see that each TNxCustomColumn have a public "Display" property

property Display: TColumnDisplay read FDisplay;

Looking at TColumnDisplay, i see:

TColumnDisplay = class(TVirtualColElement)
...
   procedure DrawHintMark; virtual;

where TVirtualColElement have a public Canvas property

And this procedure ...

procedure TColumnDisplay.DrawHintMark;
begin
  with Canvas do
  begin
    Pen.Color := clRed;
    Brush.Color := clRed;
 	  Polygon([Point(ClientRect.Right - 5, ClientRect.Top),
    	Point(ClientRect.Right - 1, ClientRect.Top),
      Point(ClientRect.Right - 1, ClientRect.Top + 4)]);
  end;
end;

... is what I ask in a previous topic

 

I try to call it from my app at the end of Formcreate

NxCol_Colonne.Display.DrawHintMark;

giving an access violation.

 

I try in debug mode and I see that NxCol_Colonne.Display.canvas value is nil

 

Is there a way to fix it?
 

 

[Boki (Berg)]

Hello,

 

You can first set Canvas property to the same canvas as the grid have. You will also need to set ClientRect property too. If not set already, you can set it to GetCellRect result.

 

Or, eventually you can copy/paste this procedure and add Canvas and TRect as parameters.