TMSFNCDataGrid & custom cell layouts

FNC TMS FNC UI Pack
1

Hi,

When I customize any attribute of a cell's Layout, then when navigating and selecting cells, it won't show anymore the layout globally defined under CellAppearance.SelectedLayout for those cells.

I'm building a program where the user can customize the grid, changing cell fonts, font size, fill color, etc ... but then the customized cells selections won't be visible.

I basically took AdvStringGrid Demo asg51 and replaced the ASG by a TMSFNCDataGrid. In ASG, the selection layout overrides the customized cells settings, and these settings are preserved and shown after you unselect cells.

Thanks.

BTW,

Trying to set event OnSelectCell raised this error:
image

2

Hi,

First of all, TAdvStringGrid & TTMSFNCDataGrid are not the same unfortunately. The signature of OnSelectCell events are not going to be compatible so you'll have to implement them by manually. The cells Layout property (Layouts) overrides all layout settings at global or column level, this is by design. You can change override the layout for one or more individual cells regardless of the settings in the OnGetCellLayout. In this case, you'll need the following code:

procedure TForm1.TMSFNCDataGrid1GetCellLayout(Sender: TObject;
  ACell: TTMSFNCDataGridCell);
begin
  if TMSFNCDataGrid1.IsCellSelected(ACell.Coordinate) then
  begin
    if (TMSFNCDataGrid1.FocusedCell.Column = ACell.Coordinate.Column) or (TMSFNCDataGrid1.FocusedCell.Row = ACell.Coordinate.Row) then
      ACell.Layout.Assign(TMSFNCDataGrid1.CellAppearance.FocusedLayout)
    else
      ACell.Layout.Assign(TMSFNCDataGrid1.CellAppearance.SelectedLayout);
  end;
end;
3

I know. I just took the demo to reuse the toolbar & other formatting logic.

:man_facepalming::man_facepalming: I didn't notice there was a previous OnSelectCell event defined for the AdvStringGrid.

This did the job I needed:

type
  TCellDataX = class(TTMSFNCDataGridCellItemExtended);

procedure TForm1.GridPrincipalGetCellLayout(Sender: TObject; ACell:
    TTMSFNCDataGridCell);
var
  ADG : TTMSFNCDataGridRenderer;
  ACellData: TTMSFNCDataGridCellItemExtended;
  ALayout : TTMSFNCDataGridCellLayout;
begin
  ADG := TTMSFNCDataGridRenderer(Sender);
  if ADG.IsCellSelected(ACell.Coordinate) then begin
    ACell.Layout.Assign(ADG.CellAppearance.SelectedLayout);
    ACellData := ADG.CellDataExtended[ACell.Coordinate.Column, ACell.Coordinate.Row];
    if Assigned(ACellData) then begin
      ALayout := TCellDataX(ACellData).Layout;
      if Assigned(ALayout) then begin
        ACell.Layout.Font.Name := ALayout.Font.Name;
        ACell.Layout.Font.Size := ALayout.Font.Size;
        ACell.Layout.Font.Style := ALayout.Font.Style;
        ACell.Layout.TextAlign := ALayout.TextAlign;
        ACell.Layout.VerticalTextAlign := ALayout.VerticalTextAlign;
        ACell.Layout.TextAngle := ALayout.TextAngle;
      end;
    end;
  end;
end;
4

Great, thanks for the feedback!

5

@Pieter ,

It doesn't work at all.

Should not access the cells Layout property inside of this event, either through TTMSFNCDataGridCellItemExtended.Layout or through ADG.Layouts[x,y].

If so, afterwards it'll raise lots of AVs navigating through grid and when it tries to open inplace editors.

The same errors are raised if I simply access Layout property inside of BeforeDrawCell
, AfterDrawCell or GetCellProperties.

Is there another approach where I could make cells content mantain it's individually customized aspects (Font.Name, Font.Size, Font.Style, TextAlign, VerticalTextAlign & TextAngle) , while applying some of the SelectedLayout properties, such as borders , Fill Color & Font Color ? Must consider that the cell layouts are beign controlled by the users, so I don't have predefined layouts for especific cell ranges.

Thanks.

6

Hi,

Well the original solution can be extended by overriding the properties you want:

procedure TForm4.TMSFNCDataGrid1GetCellLayout(Sender: TObject;
  ACell: TTMSFNCDataGridCell);
var
  l: TTMSFNCDataGridCellLayout;
begin
  if TMSFNCDataGrid1.IsCellSelected(ACell.Coordinate) then
  begin
    if (TMSFNCDataGrid1.FocusedCell.Column = ACell.Coordinate.Column) or (TMSFNCDataGrid1.FocusedCell.Row = ACell.Coordinate.Row) then
      l := TMSFNCDataGrid1.CellAppearance.FocusedLayout
    else
      l := TMSFNCDataGrid1.CellAppearance.SelectedLayout;

    ACell.Layout.Fill.Assign(l.Fill);
    ACell.Layout.Stroke.Assign(l.Stroke);
    ACell.Layout.Sides := l.Sides;
  end;
end;

So right now, the situation for normal cells is they use the Layouts property completely, including the color. While for selected / focused cells they only use the font settings.

Is there something you miss using this approach? Let me know.

7

Let's saya user customized a cell, and it's font size is 28, and alignment is Trailing.
I'd like to display this even when the cell is selected.

The routine works, but raises lots of AVs, most times here:
image

For example, these cells are customized and selected. Selected Layout has a gray fill and thick borders:

image

And here is how they look when not selected:
image

The problem comes when user can fully customize each cell, so the FocusedLayout wouldn't fit. It should use each cell's own font/align settings.

8

OK, access violations should not happen. Can you post your full code sample / project or if you don't want to share it publicly send it to me via a private message. Let's see how to properly solve this.

9

Ahhhh sorry.

Now I see your point.
In your fisrt example, the entire ACell.Layout was beign assigned, and that wasn't desired.

Now in the second example, just borders, fill & stroke are assigned, so it's ok !

As in the first example the Layout was completely overridden, I thought it HAD to be completely overridden, and didn't notice ACell's Layout had incorporated by default the Cell's customized Layout.

    ACell.Layout.Fill.Assign(l.Fill);
    ACell.Layout.Stroke.Assign(l.Stroke);
    ACell.Layout.Sides := l.Sides;

That's ok! Thanks!

10

Hi,

You can choose to assign / override whatever properties you want. Still curious about the access violation though, should you have more information let me know.

11

I'll send you a sample program

12

This topic was automatically closed 24 hours after the last reply. New replies are no longer allowed.