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

नीचे

फिर से सवाल RichEdit से संबंधित है! इसी तरह की शाखाएँ खोजें


Man In Red   (2001-12-16 14:31) [0]

मदद करो, फरियाद करो!
संक्षेप में, फॉर्म है: रिचएडिटएक्सएनयूएमएक्स और रिचएडिटएक्सएनयूएमएक्स और टाइमर।
RichEdit1 में पाठ है, और टाइमर पाठ में प्रत्येक एक वर्ण, कॉपियों को सम्मिलित करता है और इसे RichEdit2 में सम्मिलित करता है।
मैं अंतिम वर्ण को एक पंक्ति में कैसे खड़ा कर सकता हूं, टाइमर स्वचालित रूप से गाड़ी को रिचएडिटएक्सएनयूएमएक्स में एक नई पंक्ति में स्थानांतरित करता है और गाड़ी को रिचएडाइटएक्सएनयूएमएक्स में एक नई पंक्ति में डालता है, और पात्रों को बाहर चलाने तक फिर से एक चरित्र बनाता है?
अग्रिम धन्यवाद!



KilkennyCat   (2001-12-17 01:48) [1]

था
Form1: TForm1;
a: longint;

कार्यान्वयन

{$ R * .DFM}

प्रक्रिया TForm1.Timer1Timer (प्रेषक: TObject);
था
बी: लंबे समय तक;
शुरू करना
inc (ए);
b: = rxrichedit1.SelStart;
rxrichedit1.SelStart: = a;
rxrichedit1.SelLength: = 1;
अगर b = rxrichedit1.SelStart तो BASTAMANYANA!
अंत;

प्रक्रिया TForm1.Button1 क्लिक करें (प्रेषक: TObject);
शुरू करना
rxrichedit1.SelStart: = 0; // गाड़ी को शुरुआत में सेट करें
rxrichedit1.SetFocus; // बटन से फोकस घटाएं
टाइमर xNUMX.Enabled: = true // run!
अंत;

या फिर मुझे गलतफहमी हुई? फिर प्रश्न गलत पूछा गया है।
इस कोड में एक गड़बड़ है - न्यूलाइन वर्ण का चयन करता है। समाप्त करने के लिए, आपको यह जांचने की आवश्यकता है कि क्या अगला चरित्र एक नई रेखा नहीं है, और यदि ऐसा है, तो दो बार, इंक (ए)



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

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

ऊपर









मेमोरी: 0.55 एमबी
समय: 0.047 c
1-22035
तस्कर
2001-12-18 14:02
2002.01.08
पाठ Editor2


1-22194
कला
2001-12-15 09:28
2002.01.08
बाजरा सवाल!


1-22088
मिखाइलोव दिमित्री
2001-12-19 14:58
2002.01.08
कार्यक्रम से इवेंट कॉल


4-22476
राज्य
2001-11-02 19:42
2002.01.08
मदद, UpdateResource BPL फ़ाइलों के साथ काम नहीं करता है!


1-22229
लाल रंग का आदमी
2001-12-16 14:31
2002.01.08
फिर से सवाल RichEdit से संबंधित है!





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