Вверх ↑
Разработчик
Ответов: 26153
Рейтинг: 2127
#1: 2010-03-17 13:34:31 ЛС | профиль | цитата
user_asm, забей, попробуй вот так, должно работать и на старом компоненте



Add(Hub,6694649,364,231)
{
OutCount=3
link(onEvent1,15886754:doWork1,[(394,237)(394,202)])
link(onEvent3,935026:doWork1,[])
}
Add(ChildGroupBox,935026,441,245)
{
}
BEGIN_SDK
Add(EditMulti,9766427,21,21)
{
WorkCount=1
Width=517
Height=263
link(doWork1,13022472:doCapture,[(45,27)(45,216)])
}
Add(GroupBox,7821713,70,147)
{
Left=160
Top=15
Width=144
Height=99
Color=16777215
Caption="Музыка"
Point(Handle)
}
Add(ChanelToIndex,13186961,350,56)
{
Count=4
}
Add(RadioButton,5239857,294,56)
{
Left=10
Top=20
Width=95
Color=16777215
TabOrder=-1
Selected=0
Caption="Выключено"
link(onSelect,13186961:doWork1,[])
}
Add(RadioButton,16160049,294,91)
{
Left=10
Top=40
Width=95
Color=16777215
TabOrder=-1
Caption="Включено"
link(onSelect,13186961:doWork2,[(338,97)(338,69)])
}
Add(IndexToChanel,8109468,224,56)
{
Count=4
link(onEvent1,5239857:doSelect,[])
link(onEvent2,16160049:doSelect,[(275,69)(275,97)])
}
Add(ScreenShort,13022472,70,210)
{
link(onCapture,9381808:doEvent1,[])
link(Handle,16645924:Var2,[])
}
Add(RGN_OutlinePicture,2523835,147,203)
{
ModeTransparent=0
Transparent=-16777201
Point(doPicture)
link(onOutlinePicture,10027293:doSetRegion,[])
}
Add(Hub,9381808,112,210)
{
link(onEvent1,2523835:doPicture,[])
link(onEvent2,2523835:doOutlinePicture,[(136,223)(136,209)])
}
Add(RGN_SetToWindow,10027293,196,203)
{
link(Handle,16645924:Var3,[(202,187)])
}
Add(GetDataEx,16645924,70,182)
{
link(Data,7821713:Handle,[])
}
END_SDK
Add(ChildGroupBox,15886754,441,196)
{
}
BEGIN_SDK
Add(EditMulti,16100322,21,21)
{
WorkCount=1
Width=363
Height=277
link(doWork1,13022472:doCapture,[(53,27)(53,258)])
}
Add(GroupBox,9954362,84,182)
{
Left=5
Top=10
Width=121
Height=107
Color=16777215
Caption="Разрешение экрана"
Point(Handle)
}
Add(ChanelToIndex,5924563,252,56)
{
Count=4
}
Add(RadioButton,3305930,203,56)
{
Left=15
Top=15
Width=95
Color=16777215
TabOrder=-1
Transparent=0
Selected=0
Caption="640x480"
link(onSelect,5924563:doWork1,[])
}
Add(RadioButton,991167,203,91)
{
Left=15
Top=35
Width=95
Color=16777215
TabOrder=-1
Transparent=0
Caption="800x600"
link(onSelect,5924563:doWork2,[(247,97)(247,69)])
}
Add(RadioButton,2320702,203,126)
{
Left=15
Top=55
Width=95
Color=16777215
TabOrder=-1
Transparent=0
Caption="1024x768"
link(onSelect,5924563:doWork3,[(247,132)(247,76)])
}
Add(RadioButton,6953786,203,161)
{
Left=15
Top=75
Width=95
Color=16777215
TabOrder=-1
Transparent=0
Caption="1280x1024"
link(onSelect,5924563:doWork4,[(247,167)(247,83)])
}
Add(IndexToChanel,10351037,133,56)
{
Count=4
link(onEvent1,3305930:doSelect,[])
link(onEvent2,991167:doSelect,[(184,69)(184,97)])
link(onEvent3,2320702:doSelect,[(184,76)(184,132)])
link(onEvent4,6953786:doSelect,[(184,83)(184,167)])
}
Add(ScreenShort,13022472,84,252)
{
link(onCapture,9381808:doEvent1,[])
link(Handle,12055411:Var2,[])
}
Add(RGN_OutlinePicture,2523835,161,245)
{
Point(doPicture)
link(onOutlinePicture,10027293:doSetRegion,[])
}
Add(Hub,9381808,126,252)
{
link(onEvent1,2523835:doPicture,[])
link(onEvent2,2523835:doOutlinePicture,[(150,265)(150,251)])
}
Add(RGN_SetToWindow,10027293,210,245)
{
link(Handle,12055411:Var3,[(216,222)])
}
Add(GetDataEx,12055411,84,217)
{
link(Data,9954362:Handle,[])
}
END_SDK
Add(MainForm,1919505,238,217)
{
Width=318
Height=674
Color=15780518
Caption=""
BorderStyle=1
Position=1
link(onCreate,14341531:doTimer,[])
}
Add(Timer,14341531,294,231)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,6694649:doEvent1,[])
}

------------ Дoбавленo в 13.41:
Короче, смыс такой, что на разных драйверах по-разному отрабатывается представление цвета bmp-форматов DIB и DDB, это может быть и обычный цвет RGB, а может быть и RGBQuadro, с перествленными R и B сотавляющими. В таком случае, необходимо применять в качестве цвета прозрачности, цвет, имеющий одинакове R и B составляющие. G составляющая никак на это не влияет
------------ Дoбавленo в 13.42:
Попробую победить это другим способом, в чем я сильно, конечно, сомневаюсь
карма: 22

0