Компоненты

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

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

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

КРУТО...

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

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

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