Como usar QuantumGrid 4 ???

Delphi

04/04/2003

Pessoal,
Alguém já usou a Quantum Grid???Como posso inserir dados no segundo nível da QuantumGrid???

Ex:
+ ddddd } Level 1
cccccc rrrrrr kkkkk } Level 2
sssssss eeeee tttttttt } Level 2
+ ggggg } Level 1
+ www } Level 1

Obrigado,
Fergos


Fergos

Fergos

Curtidas 0

Respostas

Espiridiao

Espiridiao

04/04/2003

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


GOSTEI 0
Fergos

Fergos

04/04/2003

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

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



GOSTEI 0
POSTAR