Your Rank: 93
As you, I don't see how to do such thing with livebindings, only for headers !
So i use some tricks( not academic but ....) to fill these footers
... private i : Integer; ... // using a dynamic appearence , 2 text in item procedure TForm13.LinkListControlToField1FilledList(Sender: TObject); var Pied,Temp : TListViewItem; texte : String; Li : integer; begin // moving footer up for Li := 1 to Pred(ListView1.ItemCount) do begin if ListView1.Items[Li].Purpose=TListItemPurpose.Footer then begin Pied:=ListView1.Items[Li]; Texte:=Pied.Text; ListView1.Items.Delete(Li); Temp:=ListView1.Items.Insert(Li-1); temp.Text := Texte; temp.Purpose := TListItemPurpose.Footer; end; end; // last "record" with ListView1.Items.Add do begin Text := Format('Last footer %d',[i]); Purpose := TListItemPurpose.Footer; end; end; procedure TForm13.LinkListControlToField1FilledListItem(Sender: TObject; const AEditor: IBindListEditorItem); var AnItem, FItem : TListViewItem; begin AnItem:=AEditor.CurrentObject as TListViewItem; if (AnItem.Purpose=TListItemPurpose.Header) then begin if (AnItem.Index>1) then begin with ListView1.Items.Add do begin Text := Format('bloc footer %d',[i]); Purpose := TListItemPurpose.Footer; // to be moved later end; end; i:=0; end else i:=i+StrToInt(AnItem.Data['Text2'].AsString); end;
Hope there is another way to do that sort of thing but this trick works
- Tuesday, 27 March 2018 09:00
- Rennes (France)
Perhaps running console as administrator ?
Upload this file
If your read French some explanations here, with another downloadlink inside
Udate Install.bat add these two lines (in red) :
|Code batch :||Sélectionner tout|
run this file as administrator.
Take care, every windows update can uninstall the helpviewer
Sorry I have only entreprise version (and a starter one to check)
It seems that version pro is like starter one for this feature ! Why ?
Have a look at File/New/Other/Delphi projects/multi Device projects
Note : you can also personalize this New submenu thing
I agree, but did you see the video ? (taking apart the TMS Grid stuff)
I think it's great that without any of the batchmove things and a single FdMemTable (along with the REST components) you get the result so easily ! Ok, there are some limitations about how is the JSON structure but, i am a lazy programmer if i can use the trick i use it ;-)
Have a look at them, it's a mine of informations
You can use a QUery to have this information
SELECT MON$ODS_MAJOR, MON$ODS_MONOR FROM MON$DATABASE
MON$DATABASE Table contains many useful other infos on the connected database