adding properties of stringgrid

Comments

• AlexTZ

  July 2004 edited 3:53AM

  You should add TGrid first (it's not added in the FS by default).
  Also you should use fsGlobalUnit to add classes.
  
  with fsGlobalUnit do
  begin
  AddClass(TCustomGrid, 'TCustomControl');
  AddClass(TDrawGrid, 'TCustomGrid');
  with AddClass(TStringGrid, 'TDrawGrid') do
  begin
  AddIndexProperty('Cells', 'Integer,Integer', 'String', CallMethod);
  end;
  end;
  
  Example of CallMethod you can found in the fs_i*rtti.pas files. Also read the manual how to add a property, index property, method.
• hadetoro

  August 2004 edited 3:53AM

  Ok, read the examples again, added a basegrid and advstringgrid class and came as far as the callmethod:
  
  ...
  AddClass(TCustomGrid, 'TCustomControl');
  AddClass(TDrawGrid, 'TCustomGrid');
  AddClass(TStringGrid, 'TDrawGrid');
  AddClass(TBaseGrid, 'TStringGrid');
  with AddClass(TAdvStringGrid, 'TBaseGrid') do begin
  AddIndexProperty('Cells', 'Integer,Integer', 'String', CallMethod);
  end;
  ...
  
  function TfrmMain.CallMethod(Instance: TObject; ClassType: TClass;
  const MethodName: String; var Params: Variant): Variant;
  begin
  Result := 0;
  if MethodName = 'CELL.GET' then Result := .....
  
  ?
  
  H
  
  
  
• AlexTZ

  August 2004 edited 3:53AM

     if MethodName = 'CELLS.GET' then
        Result := TAdvStringGrid(Instance).Cells[Params[0], Params[1]]
      else if MethodName = 'CELLS.SET' then
        TAdvStringGrid(Instance).Cells[Params[0], Params[1]] := Params[2]