Procedure

Tfrm513Print.cboDeviceChange

Module

fConsult513Prt

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

Tfrm513Print

Declaration

procedure cboDeviceChange(Sender: TObject);

Calls Hierarchy


Tfrm513Print.cboDeviceChange
 └Tfrm513Print.DisplaySelectDevice

Calls

Name Declaration Comments
Tfrm513Print.DisplaySelectDevice procedure DisplaySelectDevice; -


Source

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