Вверх ↑
Этот топик читают: Гость
Ответов: 41
Рейтинг: 1
#1: 2014-08-03 15:46:42 ЛС | профиль | цитата
По умолчанию цвет кнопки Button - clBtnFace. Как изменить этот цвет?
P.S. Изменение параметра Color не помогло
карма: 0

0
Разработчик
Ответов: 26307
Рейтинг: 2146
#2: 2014-08-03 15:53:23 ЛС | профиль | цитата
BVA11 писал(а):
Изменение параметра Color не помогло

И не поможет. Цвет системной кнопки может менять только система, пользователям это действие мелкомягкие запретили.
карма: 22

0
Ответов: 1043
Рейтинг: 33
#3: 2014-08-03 21:32:58 ЛС | профиль | цитата
BVA11, обнови компонент Button, и параметра "Color" больше не будет в списке свойств.
------------ Дoбавленo в 21.32:
Вот держи, схемку накидал простенькую
Add(MainForm,2953706,350,224)
{
Width=208
Height=173
Color=-16777212
link(onCreate,1781940:doWork1,[])
}
Add(Button,10915420,420,189)
{
Left=50
Top=40
Width=80
Height=30
Font=[MS Sans Serif,8,0,16777215,1]
Caption="Я кнопка!"
Point(Handle)
}
Add(MultiElement,1781940,420,238)
{
@Hint=#12:Change color|
link(Data1,10915420:Handle,[])
AddHint(52,4,78,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,3263651,21,21)
{
WorkCount=1
DataCount=1
Width=524
Height=179
link(doWork1,295277:doTimer,[(35,27)(35,83)])
}
Add(ScreenShort,2133850,105,77)
{
link(onCapture,14219976:doEvent1,[])
link(Handle,3702081:Var2,[])
}
Add(Img_Bmp,12294461,455,84)
{
DrawSource=1
TransparentColor=8388608
link(Bitmap,492061:Var3,[(461,47)])
}
Add(Negative,6789767,399,84)
{
link(onResult,12294461:doDraw,[])
link(Bitmap,13191040:Bitmap,[(405,72)(319,72)(319,170)(223,170)])
}
Add(GetDataEx,3702081,105,42)
{
link(Data,3263651:Data1,[(111,32)(27,32)])
}
Add(Img_GetPoint,12369293,217,84)
{
DrawSource=1
link(onGetPixel,6274997:doCompare,[])
link(Bitmap,492061:Var2,[])
}
Add(GetDataEx,492061,217,42)
{
Angle=3
link(Data,3702081:Var3,[])
}
Add(If_else,6274997,280,84)
{
Op2=Integer(16777215)
link(onTrue,10820772:doWork2,[])
link(onFalse,10986316:doCompare,[(324,97)(324,139)])
}
Add(Bitmap,13191040,217,133)
{
}
Add(Hub,14219976,175,77)
{
link(onEvent1,13191040:doLoad,[(203,83)(203,139)])
link(onEvent2,12369293:doGetPixel,[])
}
Add(If_else,10986316,336,133)
{
Op2=Integer(6908265)
link(onTrue,10820772:doWork3,[(382,139)])
}
Add(HubEx,10820772,378,84)
{
link(onEvent,6789767:doNegative,[])
}
Add(Timer,295277,49,77)
{
Interval=0
Enable=1
link(onTimer,2133850:doCapture,[])
}
END_SDK


карма: 0

0
Ответов: 2438
Рейтинг: 693
#4: 2014-08-03 22:26:50 ЛС | профиль | цитата
BVA11, вот вам кнопка с цветом:
code_34112.txt
Можете еще посмотреть пример: ElementsdelphiExampleDrawdemoDrawEdge.sha, в нем кнопки нестандартных форм рисуются.
карма: 11

0
файлы: 1code_34112.txt [2.2KB] [682]
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)