Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];
ВнизКомпоненты Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c