घर
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.55 एमबी
समय: 0.022 c
6-22281
वेरोना
2001-10-04 12:22
2002.01.08
ई-मेल पर संदेश भेजना


1-22207
Delphimun
2001-12-15 10:00
2002.01.08
कैसे एक exe में कई फ़ाइलों को संकलित करने के लिए


3-21933
pov
2001-11-26 12:19
2002.01.08
BDE रजिस्टर करने का सबसे आसान तरीका बताएं


14-22377
sudiv
2001-11-08 10:54
2002.01.08
सी ++?


14-22389
sudiv
2001-11-08 15:38
2002.01.08
CashFiesta





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