Вверх ↑
Этот топик читают: Гость
Ответов: 5227
Рейтинг: 587
#1: 2008-01-23 23:45:00 ЛС | профиль | цитата
Может всё же кто нибудь из наших многоуважемых програмистов сможет сделать контрол в виде кнопки с округлеными краями, жаль что не чем помочь особо не могу по сему и спрашиваю

вот какой то код на эту тему, не знаю можно ли как-то его на KOL переписать, ну Вам виднее в любом случае, тогда программы на HiAsm будут выглядеть ещё более орегенальней

code_2087.txt
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
файлы: 1code_2087.txt [4.5KB] [714]
vip
#1.1контекстная реклама от партнеров
Ответов: 278
Рейтинг: 4
#2: 2008-01-24 00:00:36 ЛС | профиль | цитата
andrestudio, а чем тебе "Димкина" кнопка не нравится? (ButtonEX, там вроде и края, и всё, что хочешь менять можно)...

[size=-2]------ Добавлено в 00:00
А этот код на седьмой Delphi, чёт не работает, это с установленными символами // - там. где надо...
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 233
Рейтинг: 1
#3: 2008-01-24 13:31:24 ЛС | профиль | цитата
andrestudio, а ImgBtn чем не угодил?
карма: 0
%time%
0
Ответов: 5227
Рейтинг: 587
#4: 2008-01-24 14:33:21 ЛС | профиль | цитата
Vanchila - от Dimа компоненты я раньше активно использовал и сейчас кое где вставляю, но не всем нравится, (ну чтож на вкус и цвет приятелей нет) иногда не хватало свойств и событий хотя в оригенале на сайте у Кладова в примерах они как будто присутствуют (не совсем уверен) и чесно говоря мне нужен рельф а на ButtonEX он не получается, а так был бы контрол так его не обезательно как кнопку использовать а допустим как волкодер ;)

V.Sh - ImgBtn для этх целей тоже не годится вот пока такие размышления...
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Разработчик
Ответов: 26067
Рейтинг: 2121
#5: 2008-01-24 14:50:26 ЛС | профиль | цитата
На базе GLabel'a я могу попробовать сделать кнопку со скругленными краями, но поставлю это дело в очередь. Сейчас, пока, работаю над WebCam'ом
карма: 22

0
Ответов: 5227
Рейтинг: 587
#6: 2008-01-24 16:14:14 ЛС | профиль | цитата
nesco спасибо за ранее, будем ждать
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 8888
Рейтинг: 823
#7: 2008-01-24 19:34:38 ЛС | профиль | цитата
nesco, валкодер - это не кнопка с закруглёнными краями, а круглая ручка для настройки (изменения) чего-то с накаткой по цилиндрической поверхности - чтобы потная рука не скользила и с углублением для пальчика в торце для быстрого вращения
карма: 19

0
Ответов: 5227
Рейтинг: 587
#8: 2008-01-24 21:29:54 ЛС | профиль | цитата
Леонид ладно прикалываться , я в курсе, просто болезнь у меня такая есть если Вы не заметили, контролы не по назначению использовать
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Разработчик
Ответов: 26067
Рейтинг: 2121
#9: 2008-01-24 22:40:55 ЛС | профиль | цитата
Леонид писал(а):
nesco, валкодер - это не кнопка с закруглёнными краями
Да уж, наслышан про такую, Galkov, кажется, делал схему, ди и есть она у меня. А я из Glabel'a именно кнопку думал сделать. А еще мысль была сделать кнопку в стиле Vista (как у Office-2007), ее можно и картинками отрисовать, но это не интересно.
карма: 22

0
Ответов: 278
Рейтинг: 4
#10: 2008-01-25 01:36:08 ЛС | профиль | цитата
nesco, раз разговор о кнопках, так попытался бы лучше внедрить иконку в обычную (стандартную (штатную)) кнопку... Ну, вроде как ProgressBar в StatusBar... Я видел эту реализацию насколько раз в чужих программах, смотрится - обалдеть! А насчёт стиля - непойму, зачем вы так переживаете? Будет стоять 98 - будет отображаться стандартный стиль, будет XP - едентично, и с Вистой - то-же самое (это самое я как раз и хотел до тебя донести на топике про "твоё" меню). А смысл в трате времени на изделие кнопки Glabel - на мой взгляд (ты, конечно, если хочешь, ты делай, делай ), не самая удачная затея. Это исключительно моё мнение, я, конечно, могу ошибаться.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26067
Рейтинг: 2121
#11: 2008-01-25 03:05:36 ЛС | профиль | цитата
Vanchila писал(а):
попытался бы лучше внедрить иконку в обычную (стандартную (штатную)) кнопку
Ну, ну, а вот так нельзя разве сделать



Add(MainForm,7352741,133,42)
{
Left=10
Top=10
Ctl3D=0
Position=1
link(onCreate,13069783:doEvent1,[])
}
Add(Button,1908241,133,126)
{
Left=55
Top=65
Width=110
Height=35
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Point(onMouseUp)
Point(onMouseDown)
link(onMouseUp,16010834:doEvent1,[])
link(onMouseDown,14597666:doEvent1,[(184,146)(184,174)])
}
Add(Image,6798333,378,119)
{
Left=60
Top=70
Width=24
Height=24
Picture=[ZIP3609000078DAED9421AC9D301486FF39E6AE44EEBA21312FC15692CC20AF452291D82B2B2B6B2B9195B54824125B8944763F85BD5DB364CDB299BD265F4E5B7AFED3D39E22BEBD7D466C6FE42BC92F3EE1CBF9E1FAFEDA42081FFC67FC49FB5D7D39CB9F2C1A6A351723B190AB7B47F9197A7149FA95AC50CA32DA4A8977846ED0981EAD7D62582C54F0277E4DD2CF9A0CA8D939EC0BC77C264EDBD80186EB35519B4FD28FDAE248E485F29A277977C3C0B37B7A8BDE8FE86793A47FF867DD95C30F6D72EB721446A09E3AF4CB00656BD8B1803555927E6DEA48F6C84EFD23CE8321641135F55861D4772C32C32E012F6F49FA0FD7A29D5A643DFD1A4EB4BC13EA0FB4DC3A66DAB5BBE8391EF224FD92FB2B6C89BBCCD1E88A755341B17E56D6D33ADC313196E5FD38E63531BEEBD2F4251D9F4EC0B807FCF28C844D47F679C0AA05A6BE80EB4B8C8CA1595329FAE1D0E3FD051E44E00603377CD29C735E72ADC3CEF735EB1E632792F477D65E58080F21B03E02F309CC258E0FCBB7BC6F53248439DA14FD8DF5BC2F64563156EC2FE30B9A6B4E8EBE9F74B2FEE96F2287FFAFD82685D5A9B4F7FB17FF9F1FFC3BBE0322DD2417]
Point(doLeft)
Point(doTop)
Point(Left)
Point(Top)
}
Add(Memory,16261313,259,56)
{
Point(Data)
link(Data,6798333:Left,[(265,44)(328,44)(328,163)(391,163)])
}
Add(Memory,4273221,266,63)
{
Point(Data)
link(Data,6798333:Top,[(272,51)(335,51)(335,163)(398,163)])
}
Add(HubEx,14311708,336,133)
{
link(onEvent,6798333:doTop,[])
}
Add(Hub,14597666,203,168)
{
link(onEvent1,9673930:doOperation,[])
link(onEvent2,9953292:doOperation,[])
}
Add(Hub,13069783,203,56)
{
link(onEvent1,16261313:doValue,[])
link(onEvent2,4273221:doValue,[])
}
Add(DoData,10632742,259,133)
{
link(onEventData,10644085:doWork2,[])
link(Data,4932180:Var2,[])
}
Add(DoData,5278709,266,140)
{
link(onEventData,14311708:doWork2,[])
link(Data,5303992:Var2,[])
}
Add(Hub,16010834,203,133)
{
link(onEvent1,10632742:doData,[])
link(onEvent2,5278709:doData,[])
}
Add(Math,9673930,273,168)
{
Op2=1
ResultType=0
link(onResult,10644085:doWork3,[(326,174)])
link(Op1,4932180:Var3,[(279,121)])
}
Add(GetDataEx,4932180,252,112)
{
link(Data,16261313:Value,[])
}
Add(Math,9953292,280,175)
{
Op2=1
ResultType=0
link(onResult,14311708:doWork3,[(340,181)])
link(Op1,5303992:Var3,[(286,114)])
}
Add(GetDataEx,5303992,259,105)
{
link(Data,4273221:Value,[])
}
Add(HubEx,10644085,322,126)
{
link(onEvent,6798333:doLeft,[])
}
Add(StyleXP,1403556,133,84)
{
}

карма: 22

0
Ответов: 9906
Рейтинг: 351
#12: 2008-01-25 12:05:14 ЛС | профиль | цитата
andrestudio писал(а):
V.Sh - ImgBtn для этх целей тоже не годится

Для каких целей не годится
На всякий случай: вышестоящее - читал. Не по-русски написано
карма: 9

0
Ответов: 278
Рейтинг: 4
#13: 2008-01-25 16:58:21 ЛС | профиль | цитата
nesco, ну это не серьёзно... И если надавить на изображение - кнопка не нажимается и это логично.

[size=-2]------ Добавлено в 16:58
Хотя... Это как раз и единственный "Баг"....
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26067
Рейтинг: 2121
#14: 2008-01-25 17:01:01 ЛС | профиль | цитата
Vanchila писал(а):
кнопка не нажимается и это логично
Тебе что, надо и это сделать, и в чем проблема? И почему не серьезно. Это совершенно серьезно, только потому, что стандартная кнопка НЕ ИМЕЕТ метода Draw, и ничего сделать нельзя, так задумано (не мной)
карма: 22

0
Ответов: 9906
Рейтинг: 351
#15: 2008-01-25 17:34:44 ЛС | профиль | цитата
nesco, стандартный батон дяди Билли вроде может поддерживать темы, если картинки ему лепить через ImageList
Соответствующий BorderStyle ему для этого присобачить надо, вроде
Не помню подробности уже.
карма: 9

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)