Hi Siva! Bar Codes are handled the same as Fonts in Quick reports. You load the font in your computer and then call it from QR. The QRDBText passes the characters and the system generates the Bar Code.
I used to have some free bar code fonts but I can't seem to find the links for them. I recommend you Google with these key words. "Barcode fonts Delphi Quick Report" They should provide you with a list of resources to buy barcode fonts that will work with QR. Hope this helps! Tom Nesler Live long!... Code Well!... and Prosper!... V -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of siva subramanian Sent: Saturday, June 16, 2007 6:21 AM To: [email protected] Subject: [delphi-en] Barcode component for delphi 7 and quick report 4.0 Dear All, I am using delphi 7 and Quick Report 4.0.I need the datasbase barcode component for delphi 7 and barcode component for quick report 4.0.Any body knows.Pls sugesst me which one is best component for my requirements. Advance thanks to for all. Kindly Regards Siva ianhinson <[EMAIL PROTECTED]> wrote: --- In [email protected], "rodveilleux" <[EMAIL PROTECTED]> wrote: > > Hello, > Trying to display a progress bar in Delphi 2006 while copying a > large file. My example consists of a VCL Form, > Button,OpenDialog,Gauge and Timer. > My problem is: The bar will not progress while Copy function is > executing. > > Thanks, > Rodney > The problem is that CopyFile is being run in the main thread. This means it's already too busy to respond to OnTimer events. Instead, you should execute CopyFile in a thread. That is fairly simple to. Complete working code is below. type ~ TCopyFileThread = class(TThread) ~ protected ~~~ procedure Execute; override; ~ public ~~~ FromFile: string; ~~~ ToFile: string; ~ end; procedure TCopyFileThread.Execute; begin ~ CopyFile(PChar(FromFile),PChar(ToFile),False); end; That's the thread done! Easy huh? Now to call it up from your main form... procedure TForm1.Button1Click(Sender: TObject); var ~ thrdCopyFile: TCopyFileThread; ~ Path : string; begin ~ if OpenDialog1.Execute then ~ begin {Create back up copy of DBF file} ~~~ Path:= ExtractFilePath(OpenDialog1.FileName); ~~~ thrdCopyFile := TCopyFileThread.Create(True); ~~~ thrdCopyFile.FreeOnTerminate := True; ~~~ thrdCopyFile.FromFile:= OpenDialog1.FileName; ~~~ thrdCopyFile.ToFile:= Path + ~~~~~ 'Copy of '+ ExtractFileName(thrdCopyFile.FromFile); ~~~ thrdCopyFile.OnTerminate := CopyDone; // see below ~~~ Gauge1.MinValue:= 0; ~~~ Gauge1.MaxValue:= 10; ~~~ Gauge1.Progress:= Gauge1.MinValue; ~~~ Timer1.Enabled:= true; ~~~ { Start the copy thread } ~~~ thrdCopyFile.Resume; ~ end; end; procedure TForm1.CopyDone(Sender: TObject); begin ~ Timer1.Enabled:= False; ~ ShowMessage('Complete'); end; --------------------------------- Download prohibited? No problem! CHAT from any browser, without download. [Non-text portions of this message have been removed] ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links
