1 Topic by reber (edited by reber 2015-01-17 10:21:53)

  • From: Kurdistan - Duhok
  • Registered: 2014-05-15
  • Posts: 47

Topic: Here is a simple test once you install the font Barcode...please look

procedure TForm1.Button1Click(Sender: TObject);
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, 'Test');
  end;
end;

Post's attachments

Attachment icon download.png 1.67 kb, 286 downloads since 2015-01-17 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Here is a simple test once you install the font Barcode...please look

Thank you for the code.


Here you can download example, how to print barcode using report.

Post's attachments

Attachment icon Barcode.zip 4.65 kb, 1415 downloads since 2015-01-19 

Dmitry.
  • From: Kurdistan - Duhok
  • Registered: 2014-05-15
  • Posts: 47

Re: Here is a simple test once you install the font Barcode...please look

ok.good sample but how we can use this sample with hand laser to get and searching ....barcode we need .
exapmle we need :
1- form add barcode .
2- form search barcode . by device hand laser..like use in market.. please make for me sample database..thanks.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Here is a simple test once you install the font Barcode...please look

Barcode it's just numbers.


Hand laser just paste barcode number in textbox like by keyboard.

Dmitry.