Красивая форма.

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

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

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

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

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

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

--
Regards, 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

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

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

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

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

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

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

Красивая форма. Найти похожие ветки