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

← →
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]

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

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

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

> Паша © (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.

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