Delphi XE LiveBindings - Bits to Byte
delphi,bit-shift,delphi-xe7,livebindings
You have to use a BindSource for the binding. In this example I just use the TPrototypeBindSource. There is no need to have an component for the data object, a simple object is enough. unit DataObject; interface type TBits2Byte = class private { Private declarations } fBit00, fBit01, fBit02, fBit03,...
How to concatenate 2 fields from a dataset using LiveBindings?
delphi,firemonkey,livebindings
The easyest way to do with LiveBinding, is to use the CustomFormat property of the LinkFillControlToField : Just use this format text as the example is the question: Self.Owner.FirstName.text + " " + Self.Owner.LastName.text...
Using TPrototypeBindSource to automatically update properties in an object
delphi,delphi-xe4,livebindings
Although there is TPrototypeBindSource.AutoPost which I suspect to handle the automatic post of the control data to the data object it does not ... well looking at the source, this property just influence the internal data generator. Seems to be, we have to set this property by hand when creating...
Using Livebindings to Assign Several Field Values to an FMX MetropolisUI TListBox Item.Text
delphi,microsoft-metro,firemonkey,livebindings,tlistbox
Thanks to the post of @house-of-dexter He gave an answer concerning TLabel that encouraged me to try TLinkFillControlToField once again. The main issue is that the context of the fieldname can be found in Self.Owner. object LinkFillControlToField2: TLinkFillControlToField Category = 'Quick Bindings' DataSource = BindSourceDB1 Control = ListBox1 Track =...
Nullable scalar types and LiveBindings
Here is how you register the type conversion for Nullable<string> to string and vice versa in the LiveBindings engine: procedure RegisterNullableConversions; begin TValueRefConverterFactory.UnRegisterConversion(TypeInfo(Nullable<string>), TypeInfo(string)); TValueRefConverterFactory.RegisterConversion(TypeInfo(Nullable<string>), TypeInfo(string), TConverterDescription.Create( procedure(const I: TValue; var O: TValue) begin if I.AsType<Nullable<string>>.HasValue then O :=...