Advertisement
Guest User

Untitled

a guest
Oct 5th, 2016
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.   var b1 := new BillDockEntry('Bill Total:',Bill,'BillAmt','{0:F2}');
  2.  
  3.  
  4. constructor BillDockEntry(ADesc: String; ASource : Object; APath: String; AFormat : String);
  5. begin
  6.   <...>
  7.   ValueLabel := new Label;
  8.  
  9.   var vBinding := new Binding;
  10.   vBinding.Source := ASource;
  11.   vBinding.Path := new PropertyPath(APath);
  12.   vBinding.StringFormat := AFormat;
  13.   BindingOperations.SetBinding(Valuelabel,Label.ContentProperty,vBinding);
  14.  
  15.   <...>
  16. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement