Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Компоненты [D5, Win95/98]

SergeN © (2003-01-29 10:45:00)
Народ, мне удалось создать треугольную кнопку!
Вот код:

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;

Archon Kazansky (2003-01-31 11:05:00) [1]
>Ответьте, как можно ограничить её (кнопки) область реагирования >на события только треугольником, а границами paintbox.

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

xyz (2003-01-31 10:29:00) [2]
КРУТО...

Chubais (2003-01-31 09:13:00) [3]
ПАЗДРАВЛЯЮ!
ПУХ.

bis (2003-01-31 08:35:00) [4]
Круто!!! Давайте уходить от прямоугольной геометрии на неевклидовую )))

RStorM (2003-01-31 08:30:00) [5]
>Ответьте, как можно ограничить её (кнопки) область реагирования >на события только треугольником, а границами paintbox.

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

Vint (2003-01-29 12:04:00) [6]
Молодец! Еще есть трапеция, круг и т.д. дерзай... :)))

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

Anatoly Podgoretsky (2003-01-29 11:00:00) [7]
Не мы рады за тебя, только ты погорячился насчет стандартов

SergeN (2003-01-29 10:54:00) [8]
Что, никто не рад за меня?
Ответьте, как можно ограничить её (кнопки) область реагирования на события только треугольником, а границами paintbox.

Anatoly Podgoretsky (2003-01-29 10:52:00) [9]
Да и в сторону корзины

SergeN (2003-01-29 10:47:00) [10]
Давайте будем уходить от стандартов Microsoft

Наверх

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