12 replies to this topic

[DelphiToday]

I want to hide or show the checkbox at the first column (0)

But I want to keep de Column.

I use: TNextVirtualGrid6

 

 BOKI 2023-10-24_193905.jpg   17.07KB   1 downloads

 

I want this?

How can I do this?

 

 BOKI2 2023-10-24_194423.jpg   16.63KB   1 downloads

 

 

Regards,

Eduard.

[Boki (Berg)]

Hello Eduard,

 

I think that this event may help you:

http://help.bergsoft...lumn6/OnSetCell

 

Inside it, you can set http://help.bergsoft.../DrawingOptions property depending on row index. In your case you can simply turn off the content flag.

 

I hope that this helps

[DelphiToday]

Hello Bojan,

 

I have tried the following two procedures. See code example. Both give me some random visibility or not and not fully drawn check-boxes. See picture attachment.

I must be thinking is this the right event to use?

Any idea?

 

 BOKI3 2023-10-26_105105.jpg   16.28KB   0 downloads

procedure TfrmFinalTranslate.NxCheckBoxColumn61SetCell(Sender: TObject; ACol, ARow: Integer; Cell: INxBaseCell);
var
  CheckVisible: Boolean;
  UseRec: TLanguageListType;
begin
  if InRange(ARow, 0, Pred(LanguageList.Count)) then
  begin
    UseRec := LanguageList[ARow];
    CheckVisible := (UseRec.Language = UseRec.Default) and (Length(UseRec.Ident0) > 0);
    (Sender as TNxCheckBoxColumn6).DrawingOptions := [doBackground, doContent];
    if (not CheckVisible) then
      (Sender as TNxCheckBoxColumn6).DrawingOptions := [doBackground];
  end;
end;

procedure TfrmFinalTranslate.NxReportGridView61GetCellGrid(Sender: TObject; ACol, ARow: Integer; var Edges: TNxBorderEdges; State: TNxCellPaintingState);
var
  CheckVisible: Boolean;
  UseRec: TLanguageListType;
begin
  if (ACol = 0) then
  begin
    if InRange(ARow, 0, Pred(LanguageList.Count)) then
    begin
      UseRec := LanguageList[ARow];
      CheckVisible := (UseRec.Language = UseRec.Default) and (Length(UseRec.Ident0) > 0);
      NextGrid.Columns[ACol].DrawingOptions := [doBackground, doContent];
      if (not CheckVisible) then
        NextGrid.Columns[ACol].DrawingOptions := [doBackground];
    end;
  end;
end;

Regards,

Eduard.
 

 

[Boki (Berg)]

Hi Eduard,

 

I think that you don’t need the second one in your code (NxReportGridView61GetCellGrid). This probably makes some issues.

[DelphiToday]

Hi Boki,

 

I was testing the two separately but doesn't work.

 

Now i try this one,

procedure TfrmFinalTranslate.NxCheckBoxColumn61SetCell(Sender: TObject; ACol, ARow: Integer; Cell: INxBaseCell);
var
  Index: Integer;
  UseRec: TLanguageListType;
  CheckVisible: Boolean;
begin
  Index := NextGrid.SelectedRow;
  if InRange(Index, 0, Pred(LanguageList.Count)) then
  begin
    UseRec := LanguageList[Index];
    CheckVisible := (UseRec.Language = UseRec.Default) and (Length(UseRec.Ident0) > 0);
    (Sender as TNxCheckBoxColumn6).DrawingOptions := [doBackground];
    if (CheckVisible) then
     (Sender as TNxCheckBoxColumn6).DrawingOptions := [doBackground, doContent];

    Caption := ARow.ToString + ' / ' + Index.ToString + ' - ' + UseRec.Output;
  end;
end;

The value ARow is not always correct so i use SelectedRow and that gives me de correct ROW.

 

But unfortunately the screen is the same. Checkboxes on the wrong place at random!

 

What now?

 

Regards,

Eduard. 

 

 

[Boki (Berg)]

Hello Eduart,

 

Cn you send me demo, or some even smaller project?

 

This will help. I think that SellectedRow property can cause problems in this case.

[DelphiToday]

Hi Bojan,

 

You're right about SelectedRow because that wasn't good. But ARow also has an anomaly I think. 

 

Demo attached. Just move the cursor and the scroll bar. You can see that things are not going well.

 

Hope you can fix this.

 

  NextVirtualGridTest2023.zip   1.16MB   2 downloads

[DelphiToday]

Hi Bojan,

 

Have you take a look at my demo?

[Boki (Berg)]

Hi Eduard,

 

I’m working on it now. Will back to you as soon I found the solution.

[DelphiToday]

That's fine Bojan.

 

I have made some alternative changes that's works for he moment.

Strange but true. I select all drawingoptions field TRUE in field Checkbox.

procedure TfrmFinalTranslate.NxCheckBoxColumn61DrawContent(Sender: TObject; ACol, ARow: Integer; CellRect: TRect; State: TNxCellPaintingState);
var
  UseRec: TLanguageListType;
  CheckVisible: Boolean;
begin
  if InRange(ARow, 0, Pred(LanguageList.Count)) then
  begin
    UseRec := LanguageList[ARow];
    CheckVisible := (UseRec.Language = UseRec.Default) and (Length(UseRec.Ident0) > 0);

    if (not CheckVisible) then
    begin
      with NextGrid.Canvas do
      begin
        Pen.Color := NextGrid.Color;
        Brush.Color := NextGrid.Color;
        if (ARow = NextGrid.SelectedRow) then
        begin
          if (NextGrid.Focused) then
            Brush.Color := NextGrid.SelectionColor
          else
            Brush.Color := NextGrid.InactiveSelectionColor;
        end;
        FillRect(CellRect);
      end;
    end;
  end;
end;

If you enabled False Checkbox, you can not move de selectionbar. Maybe also you can check?

I don't need this but maybe fine to check it out.

 

procedure TfrmFinalTranslate.NxCheckBoxColumn61SetCell(Sender: TObject; ACol, ARow: Integer; Cell: INxBaseCell);
var
  UseRec: TLanguageListType;
  CheckVisible: Boolean;
begin
   if InRange(ARow, 0, Pred(LanguageList.Count)) then
  begin
    UseRec := LanguageList[ARow];
    CheckVisible := (UseRec.Language = UseRec.Default) and (Length(UseRec.Ident0) > 0);
    NextGrid.Cell[0, ARow].Enabled := CheckVisible;
    // (Sender as TNxCheckBoxColumn6).Enabled := CheckVisible;
  end;
end;

 

 

 

[Boki (Berg)]

Hello Eduard,

 

In you second sample, maybe you can check State (TNxCellPaintingState) parameter and then adjust Canvas.Brush.Color?

[DelphiToday]

You mean this part?

 Pen.Color := NextGrid.Color;
        Brush.Color := NextGrid.Color;
        if (ARow = NextGrid.SelectedRow) then
        begin
          if (NextGrid.Focused) then
            Brush.Color := NextGrid.SelectionColor
          else
            Brush.Color := NextGrid.InactiveSelectionColor;
        end;

What State type must I use. I remember I did not get it right some time ago...
 

[DelphiToday]

Changed it !