TstringGrid Cell align

[lcolombo]

Hi,

I need to right align cells that have a numeric value or a date.

I tried the following but it is very slow:

procedure TMyForm.StringGridDrawCell(Sender: TObject; ACol,
  ARow: Integer; var Value: string; Attribs: TUniCellAttribs);
begin
    if (isNumeric(Value) or isDate(Value)) then
    begin
       Attribs.Style.Style := 'text-align: right;';
    end;
    if ARow = 0 then
      Attribs.Style.Style := 'text-align: center';

end;

Is there an alternative that uses clients events?

Regards

[Sherzod]

Hello,

2 hours ago, lcolombo said:

I tried the following but it is very slow:

Do you have so many records?

[lcolombo]

Sherzod,

The grid has 40 columns and 1100 rows.

With the ondrawcell event it takes several minutes to display the grid. Without the ondrawcell event, the grid is displayed immediately.

 

Regards,

[Sherzod]

Okay. You need to use customCSS then.

[lcolombo]

Sherzod,

Can I set a css class for some cells?

something like that:

StringGrid1.Cells[Col, Row].style := 'mycls';

 

Regards

[Sherzod]

function beforereconfigure(sender, store, columns, oldStore, oldColumns, eOpts)
{

}

?

[Sherzod]

31 minutes ago, lcolombo said:

Can I set a css class for some cells?

 

[Sherzod]

15 hours ago, lcolombo said:

Can I set a css class for some cells?

something like that:

StringGrid1.Cells[Col, Row].style := 'mycls';

For a simple case, like so for example:

function beforereconfigure(sender, store, columns, oldStore, oldColumns, eOpts)
{
    columns[1].align = 'right'; //center, left
}

 

[lcolombo]

Sherzod,

The problem was in the isnumber function that I used inside the ondrawcell event and not in the ondrawcell event.

Thank you very much for the support.