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

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

Не прямоугольный сомпонент.

Brain ©   (2003-01-21 16:17:00) 

Я хочу создать компонент к примеру кнопку,или панель, но что бы она имела элипсовидный контур.

Заранее спасибо ...

---

Brain   (2003-01-23 15:47:00) [1]

Если я всё правельно понял то:

- если пользоваться TImage, то выглядить будет класно на focus та будет прямоугольный всё равно.

- а если CreateRoundRectRgn, CreateEllipticRgn то нет.

Есля обшибся поправьте PLEASE.

---

Думкин   (2003-01-23 06:58:00) [2]

Поконкретнее сказал

> Паша © (21.01.03 16:22)

только у него CreateRoundRectRgn, а у меня CreateEllipticRgn.
Набери и нажми F1.

> ga3 © (23.01.03 03:23)

Ну, ребята же не драйвер пишут - сам этим балуюсь - иногда очень забавно, а система - пусть пашет. А если жалко - выключи комп и на полку его, чтоб не мучился.
И вообще эта тема регулярно обсасывается.

---

Nick_N_A   (2003-01-23 05:18:00) [3]

Если компонента не TWinControl a TControl то можно
делать как TImage, рисовать только там, где надо
(в пределах формы) - на скорость не влияет.

---

ga3   (2003-01-23 03:23:00) [4]

мля это все извраты и дебилизм, торммозящий систему имхо

---

KDenis   (2003-01-22 19:36:00) [5]

И мне тоже .... please

---

Brain   (2003-01-22 17:29:00) [6]

Думкин, а по кокретнее ....please

---

Думкин   (2003-01-22 06:05:00) [7]

CreateEllipticRgn

---

Паша   (2003-01-21 16:22:00) [8]

procedure TForm1.Button1Click(Sender: TObject);
var
Rgn:thandle;
begin
Rgn:= CreateRoundRectRgn(0,0,Button1.Width,Button1.Height,Button1.Width,Button1.Height); // элептическое
if rgn<>0 then SetWindowRgn(Button1.Handle,Rgn,true);
end;
Правда, выглядит поцовато...

---

Наверх