Mega Code Archive

 

Categories / Delphi / Printing

 

[] Quick report preview ekranına zoom in ve zoom out eklenmesi

10 CLS 20 GOTO C:\PROGRAM FILES\BORLAND\DELPHI7\QUICKRPT 30 OPEN QRPREV.PAS 40 TOOLBAR'A İKİ TANE SPEED BUTTON EKLE 50 BİRİNCİ BUTTONA ZOOM IN RESMİ İKİNCİSİNE ZOOM OUT RESMİ (GLYPH'DEN) EKLE 60 BİRİNCİ BUTTONUN ONCLICK OLAYINA QRPreview.Zoom := QRPreview.Zoom+50; 70 İKİNCİ BUTTONUN ONCLICK OLAYINA QRPreview.Zoom := QRPreview.Zoom-50; 80 PROJEYİ DERLE VE DENE 81 IF ÇALIŞTI THEN EXIT ELSE GOTO 90 90 QUICKRPT COMPONENTINI TEKRAR DERLE 91 GOTO 80