घर
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.54 एमबी
समय: 0.021 c
3-21923
गेंदबाज
2001-11-30 02:16
2002.01.08
अनुकूलन के बारे में एक सार सवाल।


3-21967
SklifF
2001-12-05 11:32
2002.01.08
SQL के बारे में


4-22465
AKV
2001-11-02 10:44
2002.01.08
जिस पर माउस स्थित है खिड़की के हैंडल का निर्धारण कैसे करें


14-22328
नए सदस्य
2001-11-02 14:48
2002.01.08
मैं पहले से ही zadolbalsya !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


4-22505
delphixnumx
2001-11-07 20:14
2002.01.08
बिटमैप के साथ समस्या





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