Topic: Add the asterix Barcode..To DriveSoft
procedure TForm1.Button1Click(Sender: TObject);
var
LFont: TFont;
begin
with Self.Canvas do
begin
Pen.Color := clBlack;
Font.Name := 'Free 3 of 9 Extended';
Font.Size := 18;
Pen.Width := 3;
TextOut(50, 50, '*123456789*');
end;
end;
im not programmer but i found this code maybe to benefit this software,,,,thank you