Вверх ↑
Этот топик читают: Гость
Ответов: 879
Рейтинг: 101
#1: 2010-12-30 13:19:26 ЛС | профиль | цитата
Схема



Add(ChildForm,3273410,126,266)
{
}
BEGIN_SDK
Add(EditMulti,5114333,21,21)
{
Width=62
Height=60
}
Add(MainForm,3263103,35,35)
{
Left=240
Top=220
Width=320
Height=260
Ctl3D=0
WinStyle=1
AlphaBlendValue=150
Caption=""
BorderStyle=0
}
END_SDK
Add(MainForm,2953706,126,329)
{
Left=200
Top=200
Width=320
Height=240
Caption="ogl"
BorderStyle=1
Point(Handle)
link(onCreate,898163:doCreate,[])
}
Add(MultiElementEx,898163,217,343)
{
link(Handle,2953706:Handle,[(223,322)(177,322)(177,373)(132,373)])
}
BEGIN_SDK
Add(EditMultiEx,15680321,21,21)
{
WorkCount=#8:doCreate|
DataCount=#6:Handle|
Width=279
Height=158
link(doCreate,16299401:doEvent1,[(56,27)(56,55)])
}
Add(GL_Main,12986311,252,49)
{
Color=5395028
link(Handle,15680321:Handle,[(258,35)(27,35)])
}
Add(GL_GTools,771925,168,105)
{
Point(doClear)
Point(doPushMatrix)
Point(doPopMatrix)
}
Add(Hub,1049454,98,126)
{
OutCount=4
link(onEvent1,771925:doClear,[(136,132)(136,111)])
link(onEvent2,771925:doPushMatrix,[(140,139)(140,118)])
link(onEvent3,771925:doPopMatrix,[(144,146)(144,125)])
link(onEvent4,12986311:doFlip,[(213,153)(213,69)])
}
Add(Hub,16299401,91,49)
{
OutCount=3
link(onEvent1,12986311:doInit,[])
link(onEvent2,12986311:doViewPort,[])
link(onEvent3,15536941:doStart,[(117,69)(117,97)(37,97)(37,125)])
}
Add(Thread,15536941,49,119)
{
Delay=24
link(onSyncExec,1049454:doEvent1,[])
}
END_SDK

Не знаю возможно ли от этого избавиться. ( на окнах старше XP данного эффекта не наблюдалось )
в инете говорят про какой то DoubleBuffered := True но эффекта 0
карма: 1

0
Ответов: 758
Рейтинг: 112
#2: 2010-12-30 14:49:13 ЛС | профиль | цитата
Тебе обязательно поток все время держать
code_21967.txt

карма: 1

0
файлы: 1code_21967.txt [1.6KB] [169]
Ответов: 879
Рейтинг: 101
#3: 2010-12-30 14:57:51 ЛС | профиль | цитата
а если это чужое окно, все это конечно просто капризы можно и без прозрачность жить но вдруг...
карма: 1

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