Returns the name of a mode or subtype for the StartMode property (m) for BarcodeType (n)
Adding supported mode names to a combobox named mode.
procedure CodeTypeChange(Sender: TObject);
var
i:
integer;
k: integer;
n: integer;
modename:
string;
begin
n:=CodeType.ItemIndex;
mode.Clear();
i:=0;
repeat
begin
modename:=Barcode2D1.GetModeName(n,i);
k:=Length(modename);
if k>0 then
mode.Items.Add(modename);
i:=i+1;
end;
until
(k<2);
mode.ItemIndex:=0;
modeChange(Sender);
DoBarcode();
end;
More: