Procedure

TfrmPrintLocation.btnWardClick

Module

fPrintLocation

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmPrintLocation

Declaration

procedure btnWardClick(Sender: TObject);


Source

131   procedure TfrmPrintLocation.btnWardClick(Sender: TObject);
132   var
133   i: integer;
134   begin
135     inherited;
136     for i := 1 to self.orderGrid.RowCount do
137       begin
138         self.orderGrid.Cells[COL_LOCATION,i] := frmPrintLocation.WLoc;
139       end;
140   end;