घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

नीचे

छपाई करते समय छवि के आकार के साथ समस्या इसी तरह की शाखाएँ खोजें


Oleg Gashev   (2001-12-15 11:14) [0]

मैं सटीक आयामों के साथ छवि को प्रिंट नहीं कर सकता। यह अभी भी गलत तरीके से प्रिंट करता है।
मैं ऐसा करता हूं। बिटमापा के आकार को इंच में खोजें:
sx, sy: real; ABitmap: = Image1.Picture.Bitmap; sx: = ABitmap.Width / GetDeviceCaps (image1.canvas.handle, LOGPIXELSX); sy: = ABitmap.Height / GetDeviceCaps (image1.canvas.handle, LOGPIXELSY);

अब मुझे प्रिंट करने के लिए प्रिंटर पर पिक्सेल में आयाम मिलते हैं:
विमोचन: = ट्रंक (GetDeviceCaps (Printer.canvas.handle, LOGPIXELSX) * टीएक्स); relheight: = trunc (GetDeviceCaps (Printer.canvas.handle, LOGPIXELSY) / sy);

छपाई:
Printer.BeginDoc; ड्राइमेज (प्रिंटर.नव्स, रेक्ट (0, 0, relWidth, relHeight), ABitmap); Printer.EndDoc;

DrawImage:
प्रक्रिया ड्राइमेज (कैनवस: टीसीएनवास; डेस्टरेक्ट: टीआरटी; एबिटमैप: टीबीमेटमैप); var हैडर, बिट्स: सूचक; हैडरसाइज़: कार्डिनल; बिटसाइज़: कार्डिनल; शुरू करना GetDIBSizes (ABitmap.Handle, HeaderSize, BitsSize); हैडर: = एलोकैम (हैडरसाइज़); बिट्स: = एलोकैम (बिट्ससाइज़); कोशिश GetDIB (ABitmap.Handle, ABitmap.Palette, Header ^, Bits ^); StretchDIBits (Canvas.Handle, DestRect.Left, DestRect.Top, DestRect.Right, DestRect.Bottom, 0, 0, ABitmap.Width, ABitmap.Height, Bits, TBitmapInfo (Header ^), DIB_RGBGB-COLGB। अंत में फ्रीम (हेडर, हेडरसाइज); फ्रीम (बिट्स, बिट्ससाइज़); अंत; अंत;

यह सब गलत आकारों के साथ प्रिंट करता है। कहां चूक हुई?

साभार, ओलेग



MrBeer   (2001-12-16 21:27) [1]

// बिटमैप X X Y मिलीमीटर आकार प्रिंट करें प्रक्रिया PrintBM (B: TBitmap; x_mm, y_mm: double); var resx, resy: double; शुरू करना resx: = Printer.PageWidth / GetDeviceCaps (Printer.Handle, LOGPIXELSX); resy: = Printer.PageHeight / GetDeviceCaps (Printer.Handle, LOGPIXELSY); Printer.Canvas.StretchDraw (Rect (0,0, राउंड (x_mm * resx)), राउंड (y_mm * resy)), B); अंत; // बिटमैप x x इंच इंच प्रिंट करें प्रक्रिया PrintBMInch (B: TBitmap; x_inch, y_inch: double); शुरू करना PrintBM (बी, x_inch * 2.54, y_inch * 2.54); अंत;



MrBeer   (2001-12-16 21:40) [2]

प्रक्रिया PrintSameSize (B: TBitmap); var स्केलक्स, स्केल: डबल; शुरू करना scalex: = GetDeviceCaps (Printer.Handle, LOGPIXELSX) / GetDeviceCaps (B.Canvas.Handle, LOGPIXELSX); पैमाना: = GetDeviceCaps (Printer.Handle, LOGPIXELSY) / GetDeviceCaps (B.Canvas.Handle, LOGPIXELSY); Printer.Canvas.StretchDraw (Rect (0,0, दौर) (B.Width * scalex), गोल (B.Height * scaley)), B); अंत;



MrBeer   (2001-12-16 21:48) [3]

एक एली टेक नपिसत्ज?
// ....
scalex: = GetDeviceCaps (Printer.Handle, LOGPIXELSX) / GetDeviceCaps (GetDC (0), LOGPIXELSX); पैमाने पर: = GetDeviceCaps (Printer.Handle, LOGPIXELSY) / GetDeviceCaps (GetDC (0), LOGPIXELSY);



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर









मेमोरी: 0.82 एमबी
समय: 0.03 c
1-22032
Socol
2001-12-18 10:01
2002.01.08
संख्याओं का एकरूपता।


6-22266
PHN
2001-10-02 14:50
2002.01.08
जुडिये


4-22454
Ewgeniy
2001-10-31 07:40
2002.01.08
मेमोरी से ग्राफिक्स के रूप में प्रदर्शित करें


3-21941
जिन
2001-11-30 14:56
2002.01.08
कृपया एप्लिकेशन से IB SQL प्रक्रिया बनाने में मदद करें


1-22017
निर्माता
2001-12-17 19:45
2002.01.08
करंट एडिट में अपनी लाइन कैसे डालें?





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский