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

Компоненты   Найти похожие ветки 

← →
SergeN   (2003-01-29 10:45) [0]

Народ, мне удалось создать треугольную кнопку!
Вот код:

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
with paintbox1.Canvas do
begin
Pen.Color:=clblack;
MoveTo(25,0);
LineTo(0,50);

pen.Color:=clwhite;
lineto(50,50);
lineto(25,0);
end;
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
with paintbox1.Canvas do
begin
Pen.Color:=clwhite;
MoveTo(25,0);
LineTo(0,50);

pen.Color:=clblack;
lineto(50,50);
lineto(25,0);
end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
with paintbox1.Canvas do
begin
Pen.Color:=clwhite;
MoveTo(25,0);
LineTo(0,50);

pen.Color:=clblack;
lineto(50,50);
lineto(25,0);
end;
end;

---

← →
SergeN   (2003-01-29 10:47) [1]

Давайте будем уходить от стандартов Microsoft

---

← →
Anatoly Podgoretsky ©   (2003-01-29 10:52) [2]

Да и в сторону корзины

---

← →
SergeN   (2003-01-29 10:54) [3]

Что, никто не рад за меня?
Ответьте, как можно ограничить её (кнопки) область реагирования на события только треугольником, а границами paintbox.

---

← →
Anatoly Podgoretsky ©   (2003-01-29 11:00) [4]

Не мы рады за тебя, только ты погорячился насчет стандартов

---

← →
Vint ©   (2003-01-29 12:04) [5]

Молодец! Еще есть трапеция, круг и т.д. дерзай... :)))

Важно с треугольной кнопкой не забывать про другие треугольные компоненты да и саму форму!
А что, есть стиль в живописи, где все ресуется из треугольничков, кубизм по моему называется, а люди бешеные бабки за это отваливают! :)

---

← →
RStorM   (2003-01-31 08:30) [6]

>Ответьте, как можно ограничить её (кнопки) область реагирования >на события только треугольником, а границами paintbox.

Берёшь кнопу, и режешь нужным регионом - и хоть треугольная, хоть овальная... Да и область реагирования будет такае же.

---

← →
bis ©   (2003-01-31 08:35) [7]

Круто!!! Давайте уходить от прямоугольной геометрии на неевклидовую )))

---

← →
Chubais ©   (2003-01-31 09:13) [8]

ПАЗДРАВЛЯЮ!
ПУХ.

---

← →
xyz ©   (2003-01-31 10:29) [9]

КРУТО...

---

← →
Archon Kazansky ©   (2003-01-31 11:05) [10]

>Ответьте, как можно ограничить её (кнопки) область реагирования >на события только треугольником, а границами paintbox.


С помощью функции SetWindowRgn можно кнопку (и не только кнопку),
хоь буквой Зю нарисовать, и область реагирования будет такая же.
Но все равно молодец. С нестандартными кнопками работать гараздо прикольнее.

---

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

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



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