Kgrid readonly col

[jimmio]

How do I set readonly properties in Kgrid columns ??

[Blaazen]

AFAIK only in code.

Code: [Select]

KGrid1.Cells[1, 0] := 'Sdfg';
You can also make fixed cols editable. You need to set:
KGrid1.Options.goEditing := True;
KGrid1.OptionsEx.gxEditFixedCols := True;

EDIT: I probably misunderstood, you wrote "readonly properties" and not "readonly cells". What readonly properties do you mean?

[jimmio]

i have a kgrid component in a form with seven columns.
The first two columns loaded from file via the loadfromcvs, and the
next five columns display some results from the first two columns.
I want those five columns not to be editable or stop the tab .....

[wp]

I don't know about KGrid, but in the standard TStringGrid you set the ReadOnly of the corresponding columns to true.

[jimmio]

Ι know about stringgrid, but i want to use Kgrid's cellspan property.
stringgrid does not have that property ....
Kgrid has not columns property ....

[Blaazen]

KGrid probably cannot do it (or I don't know how). When you set (goEditing = False) it is in fact read-only grid.
I don't have so many experience with TKGrid but I think you can have:
1) Read only grid OR
2) Fixed Columns are read only and other cells are editable OR
3) All cells editable including fixed columns

depend on settings I mentioned above.

[jimmio]

i think that this may work, but i don't like it very much....   

procedure TForm1.FormCreate(Sender: TObject);
begin
  kgrid1.Options :=kgrid1.Options + [goediting]-[goentermoves]+[gotabs];
  kgrid1.Cols[3].TabStop :=false;
  kgrid1.Cols [4].TabStop :=false;
kgrid1.Cols[5].TabStop :=false;
  kgrid1.Cols [6].TabStop :=false;
kgrid1.Cols[7].TabStop :=false;
end;   

[wp]

As I said I don't know anything about KGrid, but TStringGrid allows to specify a custom editor for each cell. This is done in the handler for the event OnSelectEditor. The following code, for example, makes all cells in column 1 read-only:

Code: [Select]

procedure TForm1.StringGrid1SelectEditor(Sender: TObject; aCol, aRow: Integer;
  var Editor: TWinControl);
begin
  if (ACol = 1) then
    Editor := nil;
end; 
Maybe a similar mechanism exists for KGrid.

[jimmio]

thanks wp
solution .....

Code: [Select]

procedure TForm1.KGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if (ACol = 3)  then
    canselect:=false;
end;