c++builder - Firemonkey: TGrid usage on Embarcadero C++ Builder XE3 -

-

I am trying to create a device that reads the data from the database and can use it in the FireMonkey using a TGIR Displays in the form. I need to use different types of columns like TCheckColumn and TPopupColumn, but can not find any good guides or examples on how to use them in C ++ Builder.

Either way, I managed to understand the use of TStringColumn, the column of TGrogress, set the value of the cell on the event of TGridGet value

Does anyone know how to set up TCheckColumn, TImageColumn and TPopupColumn columns for any one?

Thanks DANIEL

--- UPDATE-- -

I have been able to use the test column. This is what I do in the manufacturer of the form. I: 

  // 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 & gt; Pairs (L "first"); L & gt; Pairs (L "second"); L & gt; Pairs (L "third"); TPopupColumn * p = new TPopupColumn (this); // Adding a list to the popup column p- & gt; Item = l; Grid1-> AddObject (P); // TProgressColumn Grid1-> AddObject (new TProgressColumn (this)); Grid 1- & gt; Raukount = 3;   
 And this Grid1GetValue method is:  
  // TStringColumn if (colonel == 0) value = TValue :: & lt; String & gt; (Line) ; // TCheckColumn !! This can not work if (Colonel == 1) value = TV: :: from & lt; Boolean & gt; (truth); // TPopupColumn if (Colonel == 2) value = TV: :: from & lt; Int & gt; (2); // Target column if (Colonel == 3) value = TV: :: from & lt; Double & gt; (50.0);   
 --- Update ---  
 If I save the value of the column using the method OnSetValue  
  zero __fastcall TForm1 :: Grid1SetValue (...) {if (Colonel == 1) check = value; }   
 and then the method set with OnGetValue:  
  zero __fastcall TForm1 :: Grid1GetValue (...) {// TCheckColumn !! This can not work if (Colonel == 1) value = check; // TV: :: from & lt; Boolean & gt; (truth); }   
 After clicking on a checkbox, all other checkboxes change state. Then the component works correctly ... Now the thing is to set the right or wrong value correctly.   
 
 
 TGris does not store any data, you should create your own datastorage  
  type TField = records with TCheckColumn, TStringColumn and TPopupColumn  were checked: Boolean; Name: string; Columns: Bytes; End; Var Field: TLIST & LT; Tiffild & gt; Function setfield (consecuted: boolean; constant anonym: string; cons. Acclam: byte): tfild; Start getting started with the result checked: = ehkake; Name: = Anonymous; Columns: = Echolam; End; End; Process TForm1.FormCreate (Sender: TObject); Var I: integer; Start field: = TList & lt; TField & gt; Create; Field.ed (setfield (true, 'name', 1)); Field.ed (setfield (true, 'login', 2)); Field.ed (setfield (true, 'password', 3)); For I: For = 1 field. Calculation popup column 1. item. Add ('Column' + IntToStr (I)); GdFields.RowCount: = Field.Count; End; Process TForm1.FormDestroy (Sender: Tubect); Start the field. free; End; Process TFormExport.gdFieldsGetValue (Sender: Tubect; ​​Constant Call, Line: Integer; var Value: TLL); Early case gdFields.Column [Colonel]. 0 order: value: = field [row]. check; 1: value: = field [row] .name; 2: value: = field [line]. Column-1; End; End; Process TFormExport.gdFieldsSetValue (Sender: Tubect; ​​Constant Call, Line: Integer; Moderate Price: TLL); Var FACC: Tiffild; Start FRec: = field [row]; Case gdFields.Columns [Col.] Order of 0: FRec.Checked: = Value.AsBoolean; 1: FRec.Name: = Value.AsString; 2: FRec.Column: Value.AsInteger + 1; End; Field [row]: = FRC; End;   
 Now all data from your datastorez will be changed after editing your tigritude, but potential bugs in TGIR - have never been received after changing popup columns

Comments

Post a Comment

Popular posts from this blog

excel vba - How to delete Solver(SOLVER.XLAM) code -

-
After opening several examples of macro / code written, I suddenly get stuck with a code that seems safe. Solver (SOLVER.XLAM) is doing this notation and I would like to remove it from my system. I do not think this is a relativant code. Can anyone tell me what should I do? I have already installed something to remove the password but Solver is still asking for password and I can not get rid of it! itemprop = "text"> Solver Excel is add-in If you want to delete it, then Excel Application & gt; Options & gt; Add-ins & gt; Search for 'Go to' button and gt; Uncheck the solver on the list like press something (I can not give you the exact path because I have the Polish version of Excel). Trying to open Solver's VBA code is not good because it There is allegedly copyright. Besides, I do not think Solver creates any disadvantages while working with Excel or VBA.
Read more

github - Teamcity & Git - PR merge builds - anyway to get HEAD commit hash? -

-
I have a team city build project with Gitbab VCS route, I have been triggered for both / head on PR and / Merge the referee. The annoying thing is that you can not do anything useful with the merged hash - it is not present in Gitobb. I want to exclude newsgate packages with head in gutub comet situations in the version number along with Hewash (Newsaging 7) for the music build, but against head hash. However, I can not see a way to get the head hashes while constructing that merge. I just want to head because it's useless - we only care about merge. (PR - Pull Request) This command works reliably while running One on / merge is git log --no-merge -1 ---- = '% h'
Read more

ios - Replace text in UITextView run slowly -

-
I have a UITextView and I change a word like the code at the end of UITextView.text: - (void) Replace TexttechWitWord: (NSString *) word {NSString * currentTextViewText = self.textView.text; CurrentTextViewText = [currentTextViewText stringByReplacingCharactersInRange: NSMakeRange ([self.textView.text length] - [word length], [word length]) withString: word; Self.textView.text = currentTextViewText; } Replacement work is fine, but it runs very slowly and very slowly when the textView now lengthens Is there any better way? I try the replacement range: with text for a week but still stuck. Not to know how to use it to replace it in your case. Please guide! Thanks in advance! This is an important job. As you are using an irreversible string and you are creating a very long string and before Assigned to NSString created from. NSString will be used instead of NSMutableString . - (UITableViewCell *) TableView: (UITableView *) Table View CellForOutPath: (NSIndex...
Read more