Скачать: CL | DM;

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c