Fórum Como usar QuantumGrid 4 ??? #152101

Oi,
eu utilizo a quantum grid mas não percebi o que tu quer fazer, pois so á referencia ao Level e não á view.

Jorge,
Eu estou usando arquivo de texto(ficheiro - Text File).
Meu problema é que eu não consigo inserir dados no segundo nível(Level),
ou seja, eu coloquei no form uma TcxGrid e nela eu adicionei dois Levels
tvMaster e um level no tvMaster(TcxGridTableView), o tvDetail(TcxGridTableView). Eu consigo inserir dados no primeiro level(tvMaster), mas não consigo enteder como acessar no segundo Level (tvDetail).

Enviando o código do acesso aos levels:

unit QGrid;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxEdit,
DB, cxDBData, StdCtrls, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
cxGridCustomView, cxGrid, cxContainer, cxTextEdit, cxDataStorage;



type
TForm1 = class(TForm)
cxGrid1: TcxGrid;
cxGrid1Level1: TcxGridLevel;
tvMaster: TcxGridTableView;
cxGrid1Level2: TcxGridLevel;
tvDetail: TcxGridTableView;
tvMasterColumn1: TcxGridColumn;
tvMasterColumn2: TcxGridColumn;
tvMasterColumn3: TcxGridColumn;
tvDetailColumn1: TcxGridColumn;
tvDetailColumn2: TcxGridColumn;
Button1: TButton;
Button2: TButton;
btnAtribuiLevel1: TButton;
btnAtribuiLevel2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure btnAtribuiLevel1Click(Sender: TObject);
procedure btnAtribuiLevel2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
tvMaster.Columns[0].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvMaster.Columns[1].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvMaster.DataController.RecordCount := tvMaster.DataController.RecordCount + 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
tvDetail.Columns[0].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvDetail.Columns[1].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvDetail.DataController.RecordCount := tvDetail.DataController.RecordCount + 1;
end;

procedure TForm1.btnAtribuiLevel1Click(Sender: TObject);
begin
tvMaster.DataController.Values[0,0] := 1;
tvMaster.DataController.Values[0,1] := 2;
end;

procedure TForm1.btnAtribuiLevel2Click(Sender: TObject);
begin
tvDetail.DataController.Values[0,0] := 4;
tvDetail.DataController.Values[0,1] := 5;
end;

end.

Obrigado,
Fergos