Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.009 c
3-28635
Siv Soft
2003-01-22 17:04
2003.02.10
Рвет кодировку MSSQL -> dbase IV


8-28933
Виктор_2
2002-10-21 17:39
2003.02.10
Как создать пустой wav-файл


3-28603
alenka
2003-01-23 02:43
2003.02.10
CheckBox в DBGrid


1-28806
OxOTHuK
2003-02-02 11:00
2003.02.10
Загрузка


14-29075
Supreme
2003-01-24 00:00
2003.02.10
Институт Искусственного Интеллекта





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский