Για αυτόματο άνοιγμα διεύθυνσης με QR Code, επιλέγουμε επεξεργασία εκτύπωσης και ανοίγει η φόρμα εκτύπωσης.
Προσθέτουμε ένα QR code στο σημείο που θέλουμε.
Θα πρέπει το qr code που έχω φτιάξει να το ονομάσω qrcode από το Properties του.
Eπιλέγουμε το masterdata και πατάμε διπλο κλικ στο onbeforeprint.
Εκεί για χρήση με το Google Maps βάζουμε το παρακάτω κώδικα (το κομμάτι κώδικα που με ενδιαφέρει είναι μόνο η σειρά που ξεκινάει με το qrcode.text το οποίο το βάζω ανάμεσα στο begin – end που ήδη υπάρχει):
|
1 2 3 4 |
procedure MasterDataOnBeforePrint(Sender: TfrxComponent); begin qrcode.text:='https://maps.google.com/maps?q='+<order_print."address_encoded">; end; |
