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
cxVerticalGrid
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: cxVerticalGrid
işine yarar umarım. Ben kullanmıyorum, netten buldum, en azından fikir verir sanırım
kolay gele
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;
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Re: cxVerticalGrid
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;
Re: cxVerticalGrid
Alanların oluşturulması tamam. Ama Runtime da oluşturulan alanlara girilen değerleri nasıl alacağız?
Re: cxVerticalGrid
"].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
bir diğer yada
TcxCurrencyEditProperties(myMlEdRow.Properties.Editors[0]).xxxxxxxxx buraları kurcala
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Re: cxVerticalGrid
teşekkürler freeman35
TcxEditorRow daki değer için
TcxMultiEditorRow için
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;
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;