Hallo Zusammen,
ich versuch mich grad, vergeblich dran, Daten ordentlich in ein TcxGrid mit einer TcxCustomDataSource im unbound Mode einzustellen. Die Daten zeigt er auch wunderbar an, nur, wenn ich die columns verschiebe, bleiben die daten wo sie waren und wandern nicht mit...
Anlage der Columns:
Delphi-Quellcode:
procedure TfAnalyse.GenerateColumns;
var
i: integer;
begin
with gtv do
begin
ClearItems;
for I := 0 to ds.FieldCount - 1 do
begin
with gtv.CreateColumn do //GTV = TcxGridTableView
begin
databinding.ValueType := ds.FieldTypes[i]; //DS = TcxCustomDataSource
Caption := ds.FieldNames[i];
case i of
0: width := 60;
1: width := 70;
2: width := 70;
3: width := 70;
4: Width := 50;
5: Width := 120;
end;
end;
end;
DataController.CustomDataSource := ds;
end;
end;
der GetValue sieht wie folgt aus:
Delphi-Quellcode:
function tDS.GetValue(ARecordHandle: TcxDataRecordHandle; AItemHandle: TcxDataItemHandle): Variant;
begin
case Integer(AItemHandle) of
0: Result := ReportData.items[Integer(aRecordHandle)].Rating;
1: Result := ReportData.items[Integer(aRecordHandle)].Firma;
2: Result := ReportData.items[Integer(aRecordHandle)].Genre;
3: Result := ReportData.items[Integer(aRecordHandle)].Tag;
4: Result := ReportData.items[Integer(aRecordHandle)].Nummer;
5: Result := ReportData.items[Integer(aRecordHandle)].Bezeichnung;
end;
end;
Wie kann ich TcxGrid überzeugen auch die daten (mit den columns) mit zu verschieben?
Herzlichen Dank für Euere Hilfe
GG
PS: wahrscheinlich hab ich irgendwo 'n kleinen schalter vergessen, aber ich find ihn nicht...
