| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Памагите по форме [D3, D6, Win95/98, Win2k, WinXP]

PycUS ©   (2002-06-24 22:49:00) 

Как сделать форму своей формы не круглую не овальную, а по рисунку например?

---

PycUS   (2002-06-28 22:37:00) [1]

Огромное спасибо!! Все отлично работает !!! Всегда бы так отвечали , только жаль без пояснений

---

alena.svt   (2002-06-26 22:33:00) [2]

А если не хочешь таскать с программой bitmap то запакуй картинку в ресурсы и вызывай потом

---

alena.svt   (2002-06-26 21:56:00) [3]

Вот тебе готовый кусок кода. Ссылка на ExtCtrls обязательна в uses .

procedure TForm1.FormCreate(Sender: TObject);
Var
X1,X,Y: Integer;
begin
X1 := -1;
R := CreateRectRgn(0,0,0,0);

Image1.Picture.LoadFromFile("My.bmp");
Form1.BorderStyle := bsNone;
Form1.Height := Image1.Picture.Bitmap.Height;
Form1.Width := Image1.Picture.Bitmap.Width;

With Image1.Picture.Bitmap Do
For Y := 0 To Height-1 Do
For X := 0 To Width-1 Do
If Canvas.Pixels[X,Y] <> Canvas.Pixels[0,0] Then
Begin If X1=-1 Then X1 := X; End
Else
If X1>-1 Then
Begin
CombineRgn(R,R,CreateRectRgn(X1,Y,X-1,Y+1),RGN_OR);
X1 := -1;
End;
SetWindowRgn(Handle, R, True);
end;

Толко сразу говорю фон рисунка должен быть одного цвета. Например в простом паинте на белом фоне нарисуй какую нибудь краказяблу сохрани его в той же директории где файлы проекта и воспользуйся этим кодом.

---

PycUS   (2002-06-26 21:21:00) [4]

Может где инфа по поводу есть , буду признателен

---

RV   (2002-06-26 09:28:00) [5]

есть у меня программка - че нарисуешь, такая и будет форма
есль надо - пиши, вышлю или поищи в инете LogoMaker.exe

---

PycUS   (2002-06-25 22:45:00) [6]

Я чайник можно по подробнее и ссылочки на компоненты.
Заранее спасибо

---

Сергей Чурсин   (2002-06-24 23:10:00) [7]

Делается это через регионы (так же как и круглые и овальные)...
CreatePolygonRgn...
SelectClipRgn...
Если для одной картинки - обрисовывешь полигоном и используешь функции выше (see Api help), может еще combineRgn
Если для любой - то формируешь регион, проходя по bitmap-у и ища Trsansparent color. Также есть компоненты, делающие такие вещи.

---

Наверх