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

नीचे

सुंदर आकृति। इसी तरह की शाखाएँ खोजें


..::KraN::..   (2007-04-05 22:23) [0]

कृपया मुझे बताएं कि एक गैर-मानक आकार कैसे बनाएं, जैसे कि गोल या गोल किनारों के साथ।



Leonid Troyanovsky ©   (2007-04-05 23:30) [1]


> ..::KraN::..   (05.04.07 22:23)  

> Пожалуйста, подскажите как создать нестандартную форму,
> типа круглую или с закругленными краями.

А ты, брат, эстет.

--
सादर, LVT



Германн ©   (2007-04-05 23:47) [2]


> А ты, брат, эстет.
>

Продолжение сей фразы читать у Гашека в Бравом солдате Швейке :)



MikePetrichenko ©   (2007-04-06 05:16) [3]

Regions->MSDN



Steep ©   (2007-04-06 06:32) [4]

SetWindowRgn (hWnd, CreateEllipticRgn (0,0,300,150), TRUE);



SergGG ©   (2007-04-06 09:07) [5]

procedure TForm1.FormCreate(Sender: TObject);
var
 regn, tmpRegn: integer; // регион окна и временный регион
 x, y: integer; // координаты пикселя
 nullClr: TColor; // <прозрачный цвет>
begin
 nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
 // Image1 это картинка по которой создается форма окна
 regn := CreateRectRgn(0, 0, image1.picture.Graphic.Width,
   image1.picture.Graphic.Height);
 for x := 1 to image1.picture.Graphic.Width do
   for y := 1 to image1.picture.Graphic.Height do
     if image1.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then
     begin
       tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);
       CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
       DeleteObject(tmpRegn);
     end;
 SetWindowRgn(form1.handle, regn, true);
end;


В Image1 можешь вставить любую картинку. Наглядней будет смотреться, если картинка будет иметь сплошной фон одного цвета



REKS   (2007-04-06 10:11) [6]

SergGG ©   (06.04.07 09:07) [5]

Вставил картинку, запускаю - формы не видно вообще :)



Sergg   (2007-04-06 10:41) [7]

> Вставил картинку, запускаю - формы не видно вообще :)

Видимо Вы вставили один только фон одного цвета, а не картинку



SergGG ©   (2007-04-06 10:49) [8]

> nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];

Это цвет, который будет невидимым!



REKS   (2007-04-06 10:53) [9]

Sergg   (06.04.07 10:41) [7]

именно картинку



REKS   (2007-04-06 10:55) [10]

SergGG ©   (06.04.07 10:49) [8]

> nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];

Это цвет, который будет невидимым!

Не понятно, есть картинка из тысяч цветов, какой будет невидимым? Не видно формы вообще, какую бы картинку не вставил



SergGG ©   (2007-04-06 11:11) [11]

> REKS   (06.04.07 10:55) [10]
मेरे लिए सब कुछ काम करता है।
Для формы еще:
BorderStyle=bsNone



REKS   (2007-04-06 11:22) [12]

>> SergGG ©   (06.04.07 11:11) [11]

Не пришлешь программку свою? У меня все тоже самое - формы не видно...

Адрес tornado@nnovgorod.ru



SergGG ©   (2007-04-06 11:32) [13]

> REKS   (06.04.07 11:22) [12]
в [5] и есть весь код програмки. Ну если надо, то пришлю



REKS   (2007-04-06 11:33) [14]

>>> SergGG ©   (06.04.07 11:32) [13]

Все по тому коду сделал - не идет....пришли плиз посмотрю где обшипся :)



SergGG ©   (2007-04-06 12:12) [15]

> REKS   (06.04.07 11:33) [14]
Скорей всего Вы устанавливаете картинку большого размера. И просто процедура долго выполняется. А у Вас просто не хватило терпения подождать до конца выполнения процедуры.
Поместите рис. меньшего размера



REKS   (2007-04-06 14:13) [16]

>> SergGG ©   (06.04.07 12:12) [15]

Тоже самое, ничего нет



SergGG ©   (2007-04-06 15:38) [17]

> REKS   (06.04.07 14:13) [16]
Я Вам отправил проект.
Если что, пишите.



Amoeba ©   (2007-04-06 17:23) [18]

Библиотека компонент FormRgn (создание окон непрямоугольной формы):  
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=83



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

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

ऊपर





मेमोरी: 0.6 एमबी
समय: 0.117 c
2-1176288250
Alex7
2007-04-11 14:44
2007.04.29
FileListBox फ़ाइल नाम का पहला अक्षर नहीं देखता है।


15-1175610559
PHPdeveloper
2007-04-03 18:29
2007.04.29
कैसे एक अद्भुत खिड़की में एक पाठ बॉक्स को छिपाने के लिए


6-1162360036
malefik
2006-11-01 08:47
2007.04.29
TServerClientThread कैसे काम करता है


15-1175245114
वंडरू काम पर
2007-03-30 12:58
2007.04.29
पोस्ट भेजते समय खाली फ़ील्ड "आपका नाम"


8-1154280779
बंद किया हुआ
2006-07-30 21:32
2007.04.29
TFastDIB





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