2 replies to this topic

[santiago14]

I want the edges of the grid are rounded. It's possible?

Thank.

[Boki (Berg)]

Unfortunately, not directly. But, maybe you can place round rect shape component behind grid? Then you can set Margins for Grid only.

[DelphiToday]

Tip?

 

You can create Rounded corners with this procedure.

Call: RoundCornerOf(NextGrid);

procedure RoundCornerOf(Control: TWinControl);
  var
     R: TRect;
     Rgn: HRGN;
  begin
     with Control do
     begin
       R := ClientRect;
       rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20) ;
       Perform(EM_GETRECT, 0, lParam(@r)) ;
       InflateRect(r, - 4, - 4) ;
       Perform(EM_SETRECTNP, 0, lParam(@r)) ;
       SetWindowRgn(Handle, rgn, True) ;
       Invalidate;
     end;
  end;