Вверх ↑
Этот топик читают: Гость
Ответов: 970
Рейтинг: 270
#31: 2010-03-16 16:19:28 ЛС | профиль | цитата
А такая рамочка в 1px должна быть?

Screen
карма: 0

0
Разработчик
Ответов: 26305
Рейтинг: 2146
#32: 2010-03-16 16:22:53 ЛС | профиль | цитата
Genius писал(а):
А такая рамочка в 1px должна быть?

У меня нет никаких рамочек, потому, что цвет прозрачности выбран равным цвету этой самой рамочки
карма: 22

0
Разработчик
Ответов: 4698
Рейтинг: 426
#33: 2010-03-16 16:36:30 ЛС | профиль | цитата
Все я сдаюсь, к вечеру приду может, может за это время чего в голову влезет
карма: 10
0
Ответов: 196
Рейтинг: 2
#34: 2010-03-16 19:54:47 ЛС | профиль | цитата
Может еще с анимацией, например такой http://hiasm.com/forum.html?q=3&p=114536
карма: 0

0
Ответов: 3349
Рейтинг: 233
#35: 2010-03-16 19:57:23 ЛС | профиль | цитата
Assasin, у тебя XP?
У меня Win 7 рамачка тоже есть
карма: 1

0
Разработчик
Ответов: 4698
Рейтинг: 426
#36: 2010-03-16 19:59:19 ЛС | профиль | цитата
ХР, ХР, и у меня не видно никакой рамочки
карма: 10
0
Ответов: 3349
Рейтинг: 233
#37: 2010-03-16 20:04:33 ЛС | профиль | цитата
Add(MainForm,5203056,147,210)
{
Width=414
Height=307
Ctl3D=0
WinStyle=1
AlphaBlendValue=0
BorderStyle=0
DragForm=0
TransparentColor=0
Position=1
Point(Handle)
Point(doPicture)
Point(onKeyDown)
Point(doAlphaBlendValue)
Point(onPaint)
link(onCreate,6239817:doTimer,[])
link(onKeyDown,16474900:doCase,[])
}
Add(Case,16474900,196,231)
{
Value=Integer(27)
link(onTrue,5203056:doClose,[(240,244)(240,274)(111,274)(111,237)])
}
Add(Memo,11469216,399,154)
{
Width=414
Height=307
Align=5
Color=0
Font=[Arial,36,1,8388608,204]
TabOrder=-1
Ctl3D=1
WinStyle=1
Strings=#6:Привет|2:от|8:HiAsm-a!|
Point(Handle)
Point(doTop)
}
Add(ScreenShort,10384016,420,224)
{
link(onCapture,8455961:doCopy,[])
link(Handle,11469216:Handle,[])
}
Add(Timer,6239817,259,224)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,6431843:doData,[])
}
Add(Hub,10742053,357,224)
{
OutCount=3
link(onEvent1,10384016:doCapture,[])
link(onEvent2,11469216:doTop,[(385,237)(385,202)])
link(onEvent3,5203056:doAlphaBlendValue,[(383,244)(383,290)(135,290)(135,251)])
}
Add(DoData,6431843,308,224)
{
Data=Integer(511)
link(onEventData,10742053:doEvent1,[])
}
Add(Img_Copy,8455961,483,224)
{
X=1
Y=1
Width=412
Height=305
link(onCopy,5203056:doPicture,[(547,230)(547,312)(123,312)(123,244)])
}


карма: 1

0
Разработчик
Ответов: 4698
Рейтинг: 426
#38: 2010-03-16 20:18:00 ЛС | профиль | цитата
И что это
карма: 10
0
Ответов: 3349
Рейтинг: 233
#39: 2010-03-16 20:23:59 ЛС | профиль | цитата
док-ва рамки
карма: 1

0
Разработчик
Ответов: 26305
Рейтинг: 2146
#40: 2010-03-16 22:39:24 ЛС | профиль | цитата
А вот это называется пипец, меньше уже никто не сделает.


Add(MainForm,5203056,182,322)
{
Ctl3D=0
WinStyle=1
AlphaBlendValue=0
BorderStyle=6
DragForm=0
TransparentColor=0
Position=1
Point(doPicture)
Point(onKeyDown)
Point(doAlphaBlendValue)
link(onCreate,6239817:doTimer,[])
link(onKeyDown,16474900:doCase,[])
}
Add(Case,16474900,231,343)
{
Value=Integer(27)
link(onTrue,5203056:doClose,[(275,356)(275,380)(160,380)(160,349)])
}
Add(Memo,11469216,350,266)
{
Width=400
Height=300
Color=0
Font=[Arial,36,1,8388608,204]
TabOrder=-1
WinStyle=1
Strings=#6:Привет|2:от|8:HiAsm-a!|
Point(Handle)
Point(doHeight)
Point(onResize)
link(onResize,6431843:doData,[])
}
Add(ScreenShort,10384016,371,336)
{
link(onCapture,5203056:doPicture,[(415,342)(415,385)(165,385)(165,356)])
link(Handle,11469216:Handle,[])
}
Add(Timer,6239817,294,336)
{
Interval=10
Enable=1
AutoStop=1
Point(onStop)
link(onTimer,10384016:doCapture,[])
link(onStop,11469216:doHeight,[(338,349)(338,314)])
}
Add(DoData,6431843,399,273)
{
Data=Integer(255)
link(onEventData,5203056:doAlphaBlendValue,[(446,279)(446,390)(170,390)(170,363)])
}

Кажется, я выиграл это пари
карма: 22

0
Администрация
Ответов: 15295
Рейтинг: 1519
#41: 2010-03-17 01:36:30 ЛС | профиль | цитата
nesco писал(а):
Кажется, я выиграл это пари

ну хорошо... существует еще одно решение на 5 элементов с общим количеством связей 5(10 соединенных точек). Пари все еще в силе.
карма: 27
0
Разработчик
Ответов: 26305
Рейтинг: 2146
#42: 2010-03-17 01:43:31 ЛС | профиль | цитата
Dilma писал(а):
Пари все еще в силе

Гы. Я что с тобой, что ли, играю

Давай выкладывай, не думаю, что кто-то еще осилит это. Тут из шести сложности возникли, а из пяти и подавно утухнуть можно
карма: 22

0
Ответов: 1379
Рейтинг: 86
#43: 2010-03-17 01:52:33 ЛС | профиль | цитата
Может как-то так
Add(MainForm,2953706,273,63)
{
Ctl3D=0
WinStyle=1
BorderStyle=6
DragForm=0
TransparentColor=0
Point(doAlphaBlendValue)
Point(doPicture)
}
Add(Memo,11469216,182,28)
{
Width=400
Height=300
Color=0
Font=[Arial,36,1,8388608,204]
TabOrder=-1
WinStyle=1
Strings=#6:Привет|2:от|8:HiAsm-a!|
Point(Handle)
Point(doHeight)
Point(onResize)
}
Add(ScreenShort,10384016,203,98)
{
link(onCapture,2953706:doPicture,[])
link(Handle,11469216:Handle,[])
}
Add(Timer,4666221,133,98)
{
Interval=10
Enable=0
Point(onStop)
link(onTimer,10384016:doCapture,[])
link(onStop,11469216:doHeight,[(173,111)(173,76)])
}


Меньше помоему некуда.
карма: 0

0
Ответов: 215
Рейтинг: 45
#44: 2010-03-17 04:49:57 ЛС | профиль | цитата
code_17367.txt
карма: 0

0
файлы: 1code_17367.txt [932B] [136]
Разработчик
Ответов: 26305
Рейтинг: 2146
#45: 2010-03-17 08:55:36 ЛС | профиль | цитата
lev, эту схему я предлагал выше, она была у меня первой. У нее недостаток, она моргает

petrocan писал(а):
Меньше помоему некуда

Отсутствует выход из формы и нет защиты от моргания

Короче, все это клоны моей схемы
карма: 22

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