dxInspector из ExpressInspector Suite

← →
Sour (2004-05-20 12:05) [0]

Как динамически создавать категории и итемы для dxInspector. Может у кого-нибудь есть примеры динамической работы с dxInspector

← →
Silver Alex © (2004-05-20 12:16) [1]

рабочий пример, думаю разберешься.Если нет, пиши, поможем

procedure TfrmIncome.CarVisible;
var
aRow: TdxInspectorDBRow;
aNode: TdxInspectorRowNode;
n: Integer;

function IsAssign: Boolean;
var
i: Integer;
begin
Result:=false;
for i:=0 to Inspector.Count-1 do
if ((Inspector.Items[i] as TdxInspectorRowNode).Row as TdxInspectorDBRow).FieldName="car" then
Result:= true;
end;

begin
if (cdsIncome.FieldByName("mtid").AsInteger=UISMatType[mtFuel]) and not IsAssign and not (cdsIncome.FieldByname("cardid").IsNull) then
begin
aNode:=Inspector.AddEx(TdxInspectorDBRow);
aRow:=aNode.Row as TdxInspectorDBRow ;
aRow.Caption:="Автомобіль";
aRow.FieldName:="car";
end
else if (cdsIncome.FieldByName("mtid").AsInteger<>UISMatType[mtFuel]) or ((cdsIncome.FieldByName("mtid").AsInteger=UISMatType[mtFuel]) and (cdsIncome.FieldByname("cardid").IsNull)) then
begin
for n:=0 to Inspector.Count-1 do
if ((Inspector.Items[n] as TdxInspectorRowNode).Row as TdxInspectorDBRow).FieldName="car" then
Inspector.Items[n].Free;
end;
end;

← →
Sour (2004-05-20 15:38) [2]

Спасибо на этом этапе разобрался

dxInspector из ExpressInspector Suite Найти похожие ветки