Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var b1 := new BillDockEntry('Bill Total:',Bill,'BillAmt','{0:F2}');
- constructor BillDockEntry(ADesc: String; ASource : Object; APath: String; AFormat : String);
- begin
- <...>
- ValueLabel := new Label;
- var vBinding := new Binding;
- vBinding.Source := ASource;
- vBinding.Path := new PropertyPath(APath);
- vBinding.StringFormat := AFormat;
- BindingOperations.SetBinding(Valuelabel,Label.ContentProperty,vBinding);
- <...>
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement