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

नीचे

बटन पर चित्र कैसे बनाएं और ध्वनि कैसे खेलें? इसी तरह की शाखाएँ खोजें


brestmarket   (2002-10-18 02:59) [0]

बटन पर अपनी तस्वीर कैसे खींचें - बिटबटन और स्पीडबटन नहीं
फिट क्योंकि XP- इंटरफ़ेस का समर्थन नहीं करते? और भी बेहतर कैसे
जब आप पहली बार कर्सर को बटन पर ले जाते हैं तो एक निश्चित ध्वनि खेलते हैं?



MJH   (2002-10-18 12:07) [1]

1) TImage
2) PlaySound ()



brestmarket   (2002-10-18 12:53) [2]

यदि संभव हो तो एक बटन पर ड्राइंग ...
मैं वास्तव में, वास्तव में इसकी सराहना करूंगा ...



AM   (2002-10-18 13:31) [3]

एक दृष्टिकोण है:
>> एमजेएच © (18.10.02/12/07 XNUMX:XNUMX)

बटन के बजाय, TImage घटक का उपयोग करें, लघु डाउनलोड में खींचे गए बटन की छवि। आप एक बटन पर क्लिक करके TImage में OnMouseDown, OnMouseUp की घटनाओं में तस्वीर बदल सकते हैं।
बेशक यह सब उबाऊ है ... लेकिन बटन सुंदर होंगे :)


दूसरी ओर, आप तार्किक रूप से सोच सकते हैं:
अधिकांश दृश्य घटकों में एक कैनवास होता है, जिस पर आकर्षित होता है।
TButton घटक में कैनवास नहीं है, या यह संरक्षित है।
यदि उत्तरार्द्ध सत्य है (मुझे नहीं पता, मुझे इसे स्पष्ट करने की आवश्यकता है), तो आप अपना टीएमबटन घटक बना सकते हैं, जिसमें एक कैनवस है, जो आपको आकर्षित करने की अनुमति देता है।




k   (2002-10-19 01:04) [4]

TButton पर एक चित्र बनाने के लिए

WM_PAINT ईवेंट को संभालने की आवश्यकता है
यानी टीबीटटन से एक व्युत्पन्न वर्ग का निर्माण

MyClass = वर्ग (TButton) संरक्षित प्रक्रिया WMPaint (var Msg: TWMPaint); संदेश WM_Paint; अंत; ...... कार्यान्वयन pocedure MyClass.WMPaint (var Msg: TWMPaint); var dc: hdc; शुरू करना // WinAPI को छोड़कर कुछ भी जल्दी नहीं ...। dc: = GetDC (हैंडल {यह HWND बटन होगा)); बिटब्ल्ट (डीसी, 0,0, चौड़ाई, ऊंचाई, MyBitMap.Canvas.Handle, 0,0, SRCCOPY); // MyBitMap में वांछित चित्र चलाएं, आकार समायोजित करें // और अंत में डीसी होने से आप कुछ भी आकर्षित कर सकते हैं। रिलीजडीसी (हैंडल, डीसी); विरासत में मिला; अंत;
इस मामले में जाँच नहीं की, लेकिन मुझे उम्मीद है कि विचार, स्पष्ट है?

और साउंड प्ले करने के लिए, ऑनमाउमोव इवेंट को हैंडल करें








k   (2002-10-19 01:07) [5]

TButton में कोई कैनवास नहीं है। सामान्य तौर पर। कोई रास्ता नहीं।
देखें इस वर्ग की घोषणा ...



MJH   (2002-10-19 08:38) [6]

2k
वैसे, किसी तरह मैंने ऐसा किया, संक्षेप में, जब आप बटन दबाते हैं - यह मिटा दिया जाता है ... यह काम नहीं करेगा। अपने खुद के करने के लिए बेहतर है



k   (2002-10-20 00:22) [7]

2MJH ©
आप सही हैं, मैंने पहले ही देख लिया है



TTCustomDelphiMaster   (2002-10-20 10:49) [8]

बटन को दबाए जाने से मिटने से रोकने के लिए, आपको इसे BM_SETSTATE ईवेंट में फिर से बनाना होगा

टाइप
MyClass = वर्ग (TButton)
संरक्षित
प्रक्रिया WMPaint (var Msg: TWMPaint); संदेश WM_Paint;
प्रक्रिया BMSetState (var Msg: TWMPaint); संदेश BM_SETSTATE;
अंत;

कार्यान्वयन

प्रक्रिया MyClass.BMSetState (var Msg: TWMPaint);
था
cv: TCanvas;
शुरू करना
विरासत में मिला;
cv: = TCanvas.Create;
cv.Handle: = गेटीडीसी (हैंडल);
cv.Ellipse (5, 5, 20, 20);
रिलीजडीसी (हैंडल, सीवी हैंडल);
cv.Free;
अंत;

प्रक्रिया MyClass.WMPaint (var Msg: TWMPaint);
था
cv: TCanvas;
शुरू करना
विरासत में मिला;
cv: = TCanvas.Create;
cv.Handle: = गेटीडीसी (हैंडल);
cv.Ellipse (5, 5, 20, 20);
रिलीजडीसी (हैंडल, सीवी हैंडल);
cv.Free;
अंत;



Ricks   (2002-10-20 15:14) [9]

या शायद आपको अपना खुद का बटन बनाने की आवश्यकता है? वहाँ विषयों और सभी को संलग्न करने के लिए ???



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

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

ऊपर





मेमोरी: 0.57 एमबी
समय: 0.046 c
1-4968
Mihey
2003-01-27 00:48
2003.02.03
संस्करण संगतता और फ़ाइल से पढ़ना।


1-4930
oremor
2003-01-26 08:43
2003.02.03
डीडीई


3-4812
Sergey_El'f
2003-01-17 13:31
2003.02.03
ADOQuery - चित्रलिपि लौटाता है। cp (langdriver?) को कहां बदलना है?


3-4803
Rustik
2003-01-15 13:29
2003.02.03
पिछले प्रपत्र से DBText का डेटा बाहर नहीं निकाला गया है।


1-4840
badaxe
2003-01-24 14:46
2003.02.03
सभी खिड़कियों पर





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