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

नीचे

पारदर्शी खिड़कियां इसी तरह की शाखाएँ खोजें


AirsMedia   (2002-06-05 16:54) [0]

मुझे चित्र से एक खिड़की बनाने की जरूरत है, विभिन्न आकृतियों की।



Siava   (2002-06-06 10:18) [1]

Могу прислать компонент



Вовчик   (2002-06-06 19:42) [2]

समारोह BitmapToRegion (बिटमैप: टीबीटैम्प; TransColor: TColor): HRGN;
था
एक्स, वाई: इंटेगर;
XStart: पूर्णांक;
शुरू करना
परिणाम: = एक्सएनयूएमएक्स;
बिटमैप के साथ करते हैं
Y के लिए: = 0 से ऊंचाई - 1 करना
शुरू करना
एक्स: = एक्सएनयूएमएक्स;
while X < Width do //Пропускаем прозрачне точки
शुरू करना
जबकि (X <Width) और (Canvas.Pixels [X, Y] = TransColor) करते हैं
इंक (एक्स);
अगर X> = चौड़ाई तो
तोड़;
XStart: = X;
//Пропускаем непрозрачные точки
जबकि (X <Width) और (Canvas.Pixels [X, Y] <> TransColor) करते हैं
इंक (एक्स);
// एक नया आयताकार क्षेत्र बनाएं और इसमें जोड़ें
// पूरी तस्वीर का क्षेत्र
यदि परिणाम = 0 तो
परिणाम: = CreateRectRgn (XStart, Y, X, Y + 1)
अन्य
कम्बाइनग्राम (परिणाम, परिणाम,
CreateRectRgn (XStart, Y, X, Y + 1), RGN_OR);
अंत;
अंत;
अंत;

procedure TZast.FormCreate(Sender: TObject);
प्रत्येक
bit: HRGN;
Pict: TBitMap;
शुरू करना
Pict:= TBitMap.Create; // Критима переменную типа BitMap
Pict.LoadFromFile("1.bmp"); //Загружаем картинку из файла
Bit:= BitmapToRegion(Pict, 0); //Создаем регион 0-цвет который делаем невидимым (ЧЕРНЫЙ)
SetWindowRgn(Zast.Handle, Bit, true);
अंत;



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

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

ऊपर





मेमोरी: 0.54 एमबी
समय: 0.033 c
3-7840
चेरेपोवेट्स
2002-09-12 15:03
2002.10.03
DBGrid


3-7805
Uralaviatur
2002-09-12 09:52
2002.10.03
लेनदेन की शुरुआत के बाद, सभी टेबल निष्क्रिय हो जाते हैं


14-8170
छाया
2002-09-09 18:10
2002.10.03
निर्वासन से चीर संसाधन


4-8217
ToLIk2003
2002-08-16 18:10
2002.10.03
प्रक्रिया सूची


3-7798
Croco
2002-09-11 12:24
2002.10.03
इंडेक्स के बिना * .dbf खोलें डेटाबेस





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