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

नीचे

ग्राफिक्स अपडेट इसी तरह की शाखाएँ खोजें


tomek2002   (2002-11-24 14:43) [0]

हैलो प्रिय प्रोग्रामिंग पेशेवरों!
मुझे एक सवाल पूछने में डर नहीं लगा, लेकिन फिर भी यह खत्म हो गया है!
तो ... कल्पना करें:
प्रपत्र पर image1 है। इसे सफेद पेंट करें। तो,
चक्र में (मुझे कहना होगा, काफी प्रभावशाली आकार) हम घटाते हैं
Image1 लाइन के कैनवास पर - प्रत्येक अगला पिछले के अंत में शुरू होता है
(एक निश्चित फ़ंक्शन के ग्राफिक्स के समान कुछ सामने आएगा)।
इस मामले में, हम उस फ़ंक्शन को हाथ से लिखते हैं जो देरी प्रदान करता है (इसमें आप देख सकते हैं
application.processmessages - स्पष्ट रूप से किसके लिए)।
हम एक अचूक तस्वीर का पालन करते हैं: सब कुछ एक भयानक तरीके से चमकता है!
मैं सम्मेलनों के अभिलेखागार में चढ़ गया। यह मिला:
image1.controlstyles: = image1.controlstyles + [csOpaque];
और फिर प्रत्येक ड्रॉ के बाद लिनेटो का उपयोग या तो फिर से होता है
या तो अद्यतन ... कोई गंदगी यह स्वाभाविक रूप से निकलता है ... मेरे पास एक्सएनयूएमएक्स डेल्फ है।
मैं डॉल्फि में शेड्यूल पर बहुत सारी सामग्री के माध्यम से खुदाई करने में कामयाब रहा, लेकिन कुछ भी ठोस नहीं है
मेरे मामले के बारे में पता नहीं चल सका है। मन में गतिशील विचार रखें
चित्र बनाते हैं, फिर कैनवास पर प्रदर्शित होते हैं। लेकिन फिर मत भूलना
मैं कैसे एक ही कैनवास पर लाइनों आकर्षित की सादृश्य है ..
- एक ही ब्लिंक्स (होर्ली!) - सब के बाद, वैसे भी, तो छवि xNUMX पर कैनवास को आउटपुट।
हां, और मुझे सिर्फ एक शेड्यूल नहीं बनाना है। इसमें एक निश्चित प्रणाली का अनुकरण करना आवश्यक है
वास्तविक समय (जो है, उसके लिए और देरी से ..)
कृपया! मदद !!!!
कृपया साबुन से जवाब दें !!!



KA_   (2002-11-24 14:54) [1]

एक TBitmap ऑब्जेक्ट बनाएँ। उस पर, आपको जो कुछ भी ज़रूरत है उसे खींचें, और फिर बस छवि कैनवास पर कॉपी करें। इससे भी बेहतर - अपने ऑनपेंट इवेंट में फॉर्म के कैनवास पर सही ड्रा करें। मैं लगभग तुरंत 100-150 megs पर बिटमैप को फिर से तैयार करता हूं।



MBo   (2002-11-24 15:27) [2]

यह भी दोहरा: = सच



msts   (2002-11-24 16:16) [3]

इकाई Unit1;

इंटरफेस

का उपयोग करता है
विंडोज, संदेश, SysUtils, वेरिएंट, कक्षाएं, ग्राफिक्स, नियंत्रण, प्रपत्र,
डायलॉग्स, StdCtrls, ExtCtrls;

टाइप
TForm1 = वर्ग (TForm)
पेंटबॉक्सएक्सएनयूएमएक्स: टीपेंटबॉक्स;
टिमरएक्सन्यूएमएक्स: टीटीमेर;
Button1: TButton;
प्रक्रिया फॉर्म क्रिएट (प्रेषक: TObject);
प्रक्रिया PaintBox1Paint (प्रेषक: TObject);
प्रक्रिया Timer1Timer (प्रेषक: Tobject);
प्रक्रिया Button1Click (प्रेषक: Tobject);
निजी
बफर: टीबीटैम्प;
{निजी घोषणाएँ}
सार्वजनिक
{सार्वजनिक घोषणाएँ}
अंत;

था
Form1: TForm1;

कार्यान्वयन

{$ R * .dfm}

प्रक्रिया TForm1.FormCreate (प्रेषक: TObject);
शुरू करना
बफर: = TBitmap.Create;
बफर के साथ शुरू करते हैं
PixelFormat: = pf8bit;
ऊंचाई: = पेंटबॉक्सएक्सएनयूएमएक्स हाइट;
चौड़ाई: = पेंटबॉक्सएक्सएनयूएमएक्स.विथ;
कैनवस.ब्रश.कोलर: = क्लेब्लैक;
कैनवस.फ़िल रेक्ट (Canvas.ClipRect);
अंत;
Timer1.Enabled: = false;
टाइमरएक्सयूएनएक्सएक्स.इंटरवल: = एक्सएनयूएमएक्स;

अंत;

प्रक्रिया TForm1.PaintBox1Paint (प्रेषक: TObject);
शुरू करना
अगर बफ़र। कनवास.लॉककाउंट = एक्सएनयूएमएक्स तो
पेंटबॉक्सएक्सएनयूएमएक्स.कैनवास.ड्रा (एक्सएनयूएमएक्स, बफर);
अंत;

प्रक्रिया TForm1.Timer1Timer (प्रेषक: TObject);
शुरू करना
अगर बफ़र.कैनवास.लॉककाउंट = एक्सएनयूएमएक्स तो शुरू करें
Buffer.Canvas.Lock;

PaintBox1.Tag: = PaintBox1.Tag + 1;

बफर के साथ शुरू करते हैं
कैनवस.ब्रश.कोलर: = क्लेब्लैक;
कैनवस.फ़िल रेक्ट (Canvas.ClipRect);
कैनवस.फोंट.कोलर: = क्लेव्हाइट;
Canvas.TextOut (10,10, IntToStr (PaintBox1.Tag));
अंत;

पेंटबॉक्सएक्सएनयूएमएक्स.कैनवास.ड्रा (एक्सएनयूएमएक्स, बफर);
Buffer.Canvas.Unlock;
अंत;
अंत;

प्रक्रिया TForm1.Button1 क्लिक करें (प्रेषक: TObject);
शुरू करना
Timer1.Enabled: = not Timer1.Enabled;
अंत;

समाप्त।



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

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

ऊपर





मेमोरी: 0.55 एमबी
समय: 0.028 c
7-17419
बूलियन
2003-01-08 10:31
2003.03.06
मास्टर्स, मुझे बताओ


1-17154
aade
2003-02-21 16:54
2003.03.06
लूप से बाहर निकलें


4-17432
Kerik
2003-01-16 19:55
2003.03.06
इंटरनेट कनेक्शन


1-17067
ग्रे
2003-02-25 15:54
2003.03.06
TCustomGrid TabStops


1-17133
Alex44
2003-02-21 20:03
2003.03.06
सिंटैक्सिस डेल्फी





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