Скачать: CL | DM;

Не прямоугольный сомпонент.   Найти похожие ветки 

← →
Brain   (2003-01-21 16:17) [0]

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

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

---

← →
Паша ©   (2003-01-21 16:22) [1]

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;
Правда, выглядит поцовато...

---

← →
Думкин ©   (2003-01-22 06:05) [2]

CreateEllipticRgn

---

← →
Brain   (2003-01-22 17:29) [3]

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

---

← →
KDenis ©   (2003-01-22 19:36) [4]

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

---

← →
ga3 ©   (2003-01-23 03:23) [5]

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

---

← →
Nick_N_A ©   (2003-01-23 05:18) [6]

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

---

← →
Думкин ©   (2003-01-23 06:58) [7]

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

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

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

> ga3 © (23.01.03 03:23)

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

---

← →
Brain   (2003-01-23 15:47) [8]

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

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c