Главная страница
    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.01 c
1-28920
SergeN
2003-01-29 10:45
2003.02.10
Компоненты


1-28707
DiXO
2003-01-31 14:57
2003.02.10
Быстрый поиск по DBGridу


14-29011
VictorT
2003-01-22 15:13
2003.02.10
А кто тут английский знает?


1-28807
Armageddon
2003-02-01 23:12
2003.02.10
RichEdit


14-29087
VinRaider
2003-01-24 10:49
2003.02.10
Обладателям Delphi6-7





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский