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

नीचे

जब कोई विंडो किसी विंडो के साथ गुजरती है तो कैनवस कैसे खींचा जाता है इसी तरह की शाखाएँ खोजें


dimonf   (2001-12-16 17:23) [0]

लोग, कैसे बना सकते हैं कि मेरा डेटा जो मैंने कैनवस पर रखा था, वह खिड़की के साथ कुंद विमुद्रीकरण के दौरान गायब नहीं हुआ था?
और अगर मैं सॉफ्टवेयर TPanel बनाऊं तो मैं कीस्ट्रोकेक ऑपरेशन कैसे कर सकता हूं?

टाइप
TPreview = वर्ग (TPanel)
निजी
संपत्ति कैनवास;
संरक्षित
सार्वजनिक
निर्माता बनाएँ (AOwner: TComponent); ओवरराइड;
अंत;

{} TPreview

निर्माता TPreview.Create (AOwner: TComponent);
शुरू करना
इनहेरिटेड क्रिएट (AOwner);
अभिभावक: = ट्विनकंट्रोल के रूप में AOwner;
बेवेलइनर: = बीवीएनओएन;
बेवलॉउटर: = bvNone;
रंग: = क्लेव्हीट;
सरहद: = bsNone;
अंत;

प्रक्रिया TForm1.FormPaint (प्रेषक: TObject);
var R: TRect;
शुरू करना
MyPrev के साथ करते हैं
शुरू करना
कैनवस.पेन.वेद: = एक्सएनयूएमएक्स;
कैनवस.ब्रश। स्टाइल: = bsSolid;
कैनवस.फ़ोंट .साइज़: = एक्सएनयूएमएक्स;
आर: = रेक्ट (एक्सएनयूएमएक्स);
कैनवास। आयत (R.Left-1, R.Top-1, R.Right + 1, R.Bottom + 1);
कैनवास। टेक्सट्रेक्ट (आर, एक्सएनयूएमएक्स, "डेमो");
अंत;
अंत;

प्रक्रिया TForm1.FormCreate (प्रेषक: TObject);
var R: TRect;
शुरू करना
MyPrev: = TPreview.Create (स्व);
MyPrev.Height: = Form1.Height * 2;
पैनल xNUMX.Height: = Form1.Height * 1;
MyPrev के साथ करते हैं
शुरू करना
कैनवस.पेन.वेद: = एक्सएनयूएमएक्स;
कैनवस.ब्रश। स्टाइल: = bsSolid;
कैनवस.फ़ोंट .साइज़: = एक्सएनयूएमएक्स;
अंत;
अंत;

अंत;



dimonf   (2001-12-16 18:09) [1]

लोग, कोई विचार नहीं ???



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

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

ऊपर









मेमोरी: 0.81 एमबी
समय: 0.026 c
3-21983
विजेता
2001-12-06 13:13
2002.01.08
डेल्फी एक्सएनयूएमएक्स पर सीरियल नंबर


1-22016
लिविअफ़ान
2001-12-13 23:05
2002.01.08
प्रकटन रूप


1-22109
avr555
2001-12-19 17:17
2002.01.08
ग्रिड में कॉम्बोक्स


1-22107
अलेक्जेंडर
2001-12-19 01:45
2002.01.08
कार्यक्रम को तुरंत शुरू करने के लिए मुख्य रूप से एक और एक कैसे दिखाएं?


14-22339
चीनी हाउ ज़ो वुत
2001-11-01 10:12
2002.01.08
प्रोग्रामर, आपका नाम क्या है?





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