Procedure

TfrmLabPrint.cboDeviceChange

Module

fLabPrint

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmLabPrint

Declaration

procedure cboDeviceChange(Sender: TObject);

Calls Hierarchy


TfrmLabPrint.cboDeviceChange
 └TfrmLabPrint.DisplaySelectDevice

Calls

Name Declaration Comments
TfrmLabPrint.DisplaySelectDevice procedure DisplaySelectDevice; -


Source

117   procedure TfrmLabPrint.cboDeviceChange(Sender: TObject);
118   begin
119     inherited;
120     with cboDevice do if ItemIndex > -1 then
121       begin
122         txtRightMargin.Text := Piece(Items[ItemIndex], '^', 4);
123         txtPageLength.Text := Piece(Items[ItemIndex], '^', 5);
124         DisplaySelectDevice;
125       end;
126   end;