cxVerticalGrid

[m_ekici]

Merhaba

cxVericalGrid de çalışma anında alanları oluşturuyorum. TcxCategoryRow ve TcxEditorRow u oluşturdum fakat TcxMultiEditorRow u bir türlü ekleyemedim. Runtime da bu filedları nasıl oluştururuz?

Tşk

[freeman35]

işine yarar umarım. Ben kullanmıyorum, netten buldum, en azından fikir verir sanırım
kolay gele

Kod: Tümünü seç

procedure TFormWirelessParticular.AddMultiValueEditor(Parent: TcxCustomRow;
  acxVerticalGrid: TcxVerticalGrid; aDataSet: TClientDataSet);
var
  lcxEditorRow:TcxMultiEditorRow;
  lcxEditorRowItemProperties: TcxEditorRowItemProperties;
begin
  //±êÌâ
  lcxEditorRow := TcxMultiEditorRow(acxVerticalGrid.AddChild(Parent, TcxMultiEditorRow));
  lcxEditorRowItemProperties:= lcxEditorRow.Properties.Editors.Add;
  lcxEditorRowItemProperties.Options.Editing:= false;
  lcxEditorRowItemProperties.Caption:= 'SSID';
  lcxEditorRowItemProperties.Value:= '³¡Ç¿';
  lcxEditorRowItemProperties:= lcxEditorRow.Properties.Editors.Add;
  lcxEditorRowItemProperties.Options.Editing:= false;
  lcxEditorRowItemProperties.Caption:= '';
  lcxEditorRowItemProperties.Width:= 0;
  lcxEditorRowItemProperties.Value:= 'ĞŵÀ';

  if (aDataSet.Active) and (aDataSet.RecordCount>0) then
  begin
    while not aDataSet.Eof do
    begin
      lcxEditorRow := TcxMultiEditorRow(acxVerticalGrid.AddChild(Parent, TcxMultiEditorRow));
      lcxEditorRowItemProperties:= lcxEditorRow.Properties.Editors.Add;
      lcxEditorRowItemProperties.Options.Editing:= false;
      lcxEditorRowItemProperties.Caption:= aDataSet.FieldByName('caption').AsString;
      lcxEditorRowItemProperties.Value:= aDataSet.FieldByName('CQ').AsString;
      lcxEditorRowItemProperties:= lcxEditorRow.Properties.Editors.Add;
      lcxEditorRowItemProperties.Options.Editing:= false;
      lcxEditorRowItemProperties.Caption:= '';
      lcxEditorRowItemProperties.Width:= 0;
      lcxEditorRowItemProperties.Value:= aDataSet.FieldByName('XD').AsString;
      aDataSet.Next;
    end;
  end;
end;

[m_ekici]

tşk. bende az önce hallettim.

Kod: Tümünü seç

              myMlEdRow  := cxFLT_.AddChild( myCtgrRow, TcxMultiEditorRow ) as TcxMultiEditorRow;
              myMlEdRow.Properties.Editors.Add();
              myMlEdRow.Properties.Editors[0].Caption := FltAdi + '-İlk';
              myMlEdRow.Properties.Editors[0].DataBinding.ValueTypeClass := TcxCurrencyValueType;
              myMlEdRow.Properties.Editors[0].EditPropertiesClass := TcxCurrencyEditProperties;
              myMlEdRow.Properties.Editors.Add();
              myMlEdRow.Properties.Editors[1].Caption := 'Son';
              myMlEdRow.Properties.Editors[1].DataBinding.ValueTypeClass := TcxCurrencyValueType;

[m_ekici]

Alanların oluşturulması tamam. Ama Runtime da oluşturulan alanlara girilen değerleri nasıl alacağız?

[freeman35]

"].DataBinding." de value bir yerde saklanıyor, muhtemelen variant tipinde. yada ".......ValueTypeClass := TcxCurrencyValueType;" değerin tipinin class ını sen veriyorsun bununla cast et
bir diğer yada
TcxCurrencyEditProperties(myMlEdRow.Properties.Editors[0]).xxxxxxxxx buraları kurcala

[m_ekici]

teşekkürler freeman35

TcxEditorRow daki değer için

Kod: Tümünü seç

 if TcxEditorRow(cxFLT_.Rows[I]).Properties.DataBinding.ValueTypeClass = TcxStringValueType then
         begin
         try Deger:=(cxFLT_.Rows[I] as TcxEditorRow).Properties.Value; except Deger := '!'; end;
         end;

TcxMultiEditorRow için

Kod: Tümünü seç

Deger := (cxFLT_.Rows[I] as TcxMultiEditorRow).Properties.Editors[0].Value;  
Deger := (cxFLT_.Rows[I] as TcxMultiEditorRow).Properties.Editors[1].Value;