Firemonkey：在Embarcadero C++ Builder XE3上使用TGrid

Question

我嘗試構建一個從數據庫讀取數據並使用Firemonkey中的TGrid顯示它的工具。我需要使用不同類型的列，如TCheckColumn和TPopupColumn，但找不到任何有關如何在C++ Builder中使用它們的好指南或示例。

任何方式，我設法瞭解TStringColumn，TProgressColumn的用法設置TGrid的事件onGetValue單元格的值。

是否有人知道如何設置TCheckColumn，TIm​​ageColumn和TPopupColumn類型的列的值？

感謝 丹尼爾

--- UPDATE ---

我設法使用TProgressColumn。這是我在窗體的構造做：

// TStringColumn 
Grid1->AddObject(new TStringColumn(this)); 
// TCheckColumn 
TCheckColumn* c = new TCheckColumn(this); 
Grid1->AddObject(c); 
// TPopupColumn 
// list of values 
TStringList * l = new TStringList(NULL); 
l->Add(L"First"); 
l->Add(L"Second"); 
l->Add(L"Third"); 
TPopupColumn* p = new TPopupColumn(this); 
// adding the list to the PopupColumn 
p->Items = l; 
Grid1->AddObject(p); 
// TProgressColumn 
Grid1->AddObject(new TProgressColumn (this)); 
Grid1->RowCount = 3 ; 

，這是Grid1GetValue方法：

// TStringColumn 
if(Col == 0) Value = TValue::From<String>(Row); 
// TCheckColumn !! Can't make it work 
if(Col == 1) Value = TValue::From<Boolean>(true); 
// TPopupColumn 
if(Col == 2) Value = TValue::From<int>(2); 
// TProgressColumn 
if(Col == 3) Value = TValue::From<double>(50.0); 

--- UPDATE ---

如果我保存列的值使用該方法OnSetValue

void __fastcall TForm1::Grid1SetValue(...) 
{ 
if(Col == 1) check = Value; 
} 

，然後用該方法OnGetValue設置它：

void __fastcall TForm1::Grid1GetValue(...) 
{ 
// TCheckColumn !! Can't make it work 
if(Col == 1) Value = check;// TValue::From<Boolean>(true); 
} 

當我點擊一個複選框後，所有其他複選框會改變狀態。所以組件工作正確......現在重點是如何以正確的方式將值設置爲true或false。

Answer 1

我不能給C++代碼，但是Delphi示例應該很容易翻譯。

通過監聽OnGetData和OnSetData事件，獲取並設置所有單元格值，獲取類型TValue（XE3及更高版本）的take/give值。這只是在TValue返回相應類型的案件：

uses System.RTTI; 

procedure Form1.Grid1GetValue(Sender: TObject;const Col, Row: Integer;var Value: TValue); 
begin 
    if Col = 1 then 
    Value := TValue.From<Integer>(1) 
    else if Col = 2 then 
    Value := TValue.From<String>('Hello') 
    else if Col = 3 then 
    Value := Tvalue.From<Single>(1.0); 
end; 

procedure Form1.Grid1SetValue(Sender: TObject;const Col, Row: Integer;const Value: TValue); 
begin 
    if Col = 1 then 
    I := Value.As<Integer> 
    else if Col = 2 then 
    St := Value.As<String> 
    else if Col = 3 then 
    Si := Value.As<Single>; 
end; 

據我可以告訴一個彈出式菜單不能接受或提供的數據。

Answer 2

TGris不存儲任何數據，您應該創建自己的數據存儲。

例子：TGrid與TCheckColumn，TStringColumn和TPopupColumn

type 
    TField = record 
    Checked: Boolean; 
    Name:  string; 
    Column: Byte; 
    end; 

var 
    Fields: TList<TField>; 

function SetField(const AChecked: Boolean; const AName: string; const AColumn: Byte): TField; 
begin 
    with Result do begin 
    Checked := AChecked; 
    Name := AName; 
    Column := AColumn; 
    end; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
var 
    I: Integer; 
begin 
    Fields := TList<TField>.Create; 
    Fields.Add(SetField(True, 'Name', 1)); 
    Fields.Add(SetField(True, 'Login', 2)); 
    Fields.Add(SetField(True, 'Password', 3)); 
    for I := 1 to Fields.Count do 
    PopupColumn1.Items.Add('Column ' + IntToStr(I)); 
    gdFields.RowCount := Fields.Count; 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
    Fields.Free; 
end; 

procedure TFormExport.gdFieldsGetValue(Sender: TObject; const Col, Row: Integer; var Value: TValue); 
begin 
    case gdFields.Columns[Col].TabOrder of 
    0: Value := Fields[Row].Checked; 
    1: Value := Fields[Row].Name; 
    2: Value := Fields[Row].Column - 1; 
    end; 
end; 

procedure TFormExport.gdFieldsSetValue(Sender: TObject; const Col, Row: Integer; const Value: TValue); 
var 
    FRec: TField; 
begin 
    FRec := Fields[Row]; 
    case gdFields.Columns[Col].TabOrder of 
    0: FRec.Checked := Value.AsBoolean; 
    1: FRec.Name := Value.AsString; 
    2: FRec.Column := Value.AsInteger + 1; 
    end; 
    Fields[Row] := FRec; 
end; 

現在從您的數據存儲的所有數據將編輯TGrid後改變，但在TGrid可能的錯誤 - 從來沒有改變PopupColumn

Answer 3

後收到OnSetValue爲了解決您的問題，重新定義TCheckCell類按以下方式：

#include <FMX.Grid.hpp> 
#include <boost/dynamic_bitset.hpp> 

class CheckCellClass:public TCheckCell 
{ 
public: 
__fastcall virtual CheckCellClass(System::Classes::TComponent*AOwner):TCheckCell(AOwner) 
{ 
}; 

virtual System::Rtti::TValue __fastcall GetData(void) 
{ 
    return TValue::From<bool>(this->IsChecked); 
}; 

virtual void __fastcall SetData(const TValue&Value) 
{ 
    TValue V(Value); 
    this->IsChecked=V.AsBoolean(); 
}; 
}; 

//Redifine TCheckColumn class 
class CheckColumnClass:public TCheckColumn 
{ 
private: 
virtual Fmx::Controls::TStyledControl*__fastcall CreateCellControl(void) 
{ 
    CheckCellClass*Cell=new CheckCellClass(this); 
    Cell->OnChange  =&(this->DoCheckChanged); 
    return Cell; 
}; 

public: 
__fastcall CheckColumnClass(System::Classes::TComponent*AOwner):TCheckColumn(AOwner) 
{ 
}; 
}; 

//global Data for Save curent State Cell 

boost::dynamic_bitset<unsigned char>FullDiscreteInputs; 

Add To Grid In Constuctor 
FullDiscreteInputs.resize(100); 
DiscreteInputsGrid->RowCount=FullDiscreteInputs.size();  
CheckColumnClass* DiscreteInPutsCheckColumn  =new CheckColumnClass(DiscreteInputsGrid); 
DiscreteInputsGrid->AddObject(CoilsCheckColumn); 

void __fastcall TForm1::DiscreteInputsGridGetValue(TObject*Sender, const int Col, const int Row,TValue&Value) 
{ 
//... 

if(DiscreteInputsGrid->ColumnByIndex(Col)==DiscreteInPutsCheckColumn) 
{ 
Value=TValue::From<bool>(FullDiscreteInputs[Row]); 
} 
//... 
} 

//--------------------------------------------------------------------------- 
void __fastcall TForm1::DiscreteInputsGridSetValue(TObject*Sender, const int Col, const int Row, const TValue&Value) 
{ 
TValue V(Value); 
if(DiscreteInputsGrid->ColumnByIndex(Col)==DiscreteInPutsCheckColumn) 
{ 
FullDiscreteInputs[Row]=V.AsBoolean(); 
} 
} 
//---------------------------------------------------------------------------