Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Вниз

Изменение вида кнопки 


Smile   (2002-01-01 20:51) [0]

Как изменить вид кнопки(например SpeedButton), сделать например ее круглой, ну а также за одно и форму?



Pat   (2002-01-02 16:45) [1]

В FAQ этого пруд пруди!!!!
>Smile
Сам искал и разобрался. Все подробно написано...
Специально для тебя кое-что все таки отыскал в своих запасах. Здесь все даже очень подробно написано и с примерами:
http://kubtts.kuban.ru/forum_new/forum2/arhiv/172.html
Если сможешь прочитать, то поймешь :-))
По поводу круглых кнопок. Круглая-то она у тебя будет, только вот на кнопку не очень похожа :-((. Объемность кнопки достигается тенью вокруг нее. А SetWindowRgn как бы "обрезает" по контуру региона. Если хочешь круглую и объемную, рисуй "ручками", посмотри как это делается в комонентах, если хочешь писать все сам...



Nikolay   (2002-01-02 18:15) [2]

procedure TForm1.FormCreate(Sender: TObject);
var
Rgn: HRGN;
begin
Rgn := CreateEllipticRgn(0, 0, Width, Height);
SetWindowRgn(Handle, Rgn, true);
end;



skaminski~~~~   (2002-01-02 23:42) [3]

Если нужно, напиши мне на мыло, вышлю парочку исходников своих компонент (кнопок).



Smile   (2002-01-03 08:12) [4]

да это конечно хорошо, вот только одна проблема: что-то я твоей анкетки найти не могу. я конечно может и слепая, ну уж что поделать. Может поможешь в поиске??? :-))



skaminski~~~   (2002-01-04 05:22) [5]

А уменя и нет никакой такой анкетки
просто щелкаем на моем нике и отправляем письмо ;)
но если уж очень нужно именно анкетка, то вот (сокращенный вариант):

Каминский Сергей Александрович
Программирование для земельного кадастра
Украина
skaminski@yandex.ru




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
4-66405           Dimich                2001-11-10 13:31  2002.01.21  
Прочитайте вопрос


4-66397           SemFLY                2001-11-21 02:16  2002.01.21  
Ничего не понимаю !?!? :(((( RasHangUp


3-66201           TYuri                 2001-12-18 14:01  2002.01.21  
Oracle


3-66183           Maks                  2001-12-14 10:54  2002.01.21  
Добавление удаление полей в таблице


7-66365           Jazzy$                2001-09-30 19:26  2002.01.21  
netUserGetInfo