घर
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.03 c
6-22309
गाढ़ा
2001-10-10 19:02
2002.01.08
पासपोर्ट के बिना एक नेटवर्क कार्ड है, जिसे सील किया गया है!


1-22240
creepster
2001-12-16 19:20
2002.01.08
TButton


1-22239
Gayrus
2001-12-17 03:52
2002.01.08
TStatusBar


1-22134
Rosco
2001-12-15 12:54
2002.01.08
और यह पहले से ही है?


6-22267
wHammer
2001-09-28 15:00
2002.01.08
यह बहुत सुविधाजनक होगा ...





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