Ещё одни часики

Форумы СхемыЕщё одни часики ← Ctrl123Ctrl →

Этот топик читают: Гость

Ответов: 1376

Рейтинг: 198

#16: 2012-10-26 18:59:32 ЛС | профиль | цитата

nesco писал(а):

Не, не работает

И дополнительная схема? Судя о том, что схема не работоспособна, то можно утверждать, что те схемы на форуме, которые скриншотят или копируют часть экрана или окна, тоже не работоспособны... А может и работоспособны, но всё дело в синхронизации с экраном

карма: 1

Разработчик

Ответов: 26322

Рейтинг: 2147

#17: 2012-10-26 19:14:46 ЛС | профиль | цитата

Да ни первая, ни последняя не работают
foksov, ты бы лучше показал, что должно получится

карма: 22

Ответов: 1173

Рейтинг: 49

#18: 2012-10-26 19:22:15 ЛС | профиль | цитата

Извините, сразу не сказал: работает только с классическим стилем в Windows.

карма: 0

Ответов: 1376

Рейтинг: 198

#19: 2012-10-26 19:23:02 ЛС | профиль | цитата

Ex_ показал, а я описал, что должно видется:
Принцип работы схемы:
Копируется копируемое окно само в себя, при событии перемещения копируемого окна, и рандомно добавляются сообщения (в схеме это явственно визиуализировано (во загнул (на раслабоне)))

карма: 1

Ответов: 528

Рейтинг: 167

#20: 2012-10-26 19:30:58 ЛС | профиль | цитата

foksov писал(а):

хоть бы как-то намяукнули, работают или нет

Работает

Ex_ писал(а):

работает только с классическим стилем в Windows.

и стиль ХР.. Win XP SP3
и даже поигрался с примером,все работает, микро мод.code_29390.txt

карма: 4

файлы: 1

code_29390.txt [6KB] [664]

Голосовали:

foksov

Ответов: 1376

Рейтинг: 198

#21: 2012-10-26 19:35:49 ЛС | профиль | цитата

tig-rrr писал(а):

микро мод.

Браво tig-rrr, Вас дальше понесло, а я о таком даже не задумывался!

карма: 1

Разработчик

Ответов: 26322

Рейтинг: 2147

#22: 2012-10-26 19:47:29 ЛС | профиль | цитата

Ex_ писал(а):

работает только с классическим стилем в Windows

Нууу, я так не играю

карма: 22

Ответов: 528

Рейтинг: 167

#23: 2012-10-26 19:48:12 ЛС | профиль | цитата

foksov писал(а):

Баловался... Получились часики

До кучи, тоже часики. code_29391.txt

карма: 4

файлы: 1

code_29391.txt [7.1KB] [644]

Ответов: 1376

Рейтинг: 198

#24: 2012-10-26 20:02:17 ЛС | профиль | цитата

[offtop]

tig-rrr писал(а):

До кучи, тоже часики

пусть лежат, тема не удаляется, вновьприбывшим полезно[/offtop]
------------ Дoбавленo в 20.02:
[offtop]

nesco писал(а):

Нууу, я так не играю

к Вам выехала бригада для устранения несоответствия с соответствием, соответственно, соответствуйте согласно соответствия

[/offtop]

карма: 1

Ответов: 1731

Рейтинг: 68

#25: 2012-10-26 21:39:08 ЛС | профиль | цитата

Самая первая схема работает у меня только на FPC.
И с любой темой.

карма: 1

Ответов: 1841

Рейтинг: 370

#26: 2012-10-26 23:31:08 ЛС | профиль | цитата

попытка воспроизведения эффекта по скриншоту Cosinus

Add(MainForm,1447383,448,92)
{
 Width=200
 Height=200
 Color=16777215
 BorderStyle=1
 TaskBar=1
 Position=1
 Point(Handle)
 Point(Height)
 Point(Width)
}
Add(Img_Copy,423875,434,196)
{
 X=-5
 Y=-10
 DrawSource=1
 Point(Height)
 Point(Width)
 link(onCopy,6991831:doEvent1,[])
 link(Source,1447383:Handle,[(440,149)(454,149)])
 link(Height,1447383:Height,[])
 link(Width,6495496:Result,[])
}
Add(Img_Text,2286630,644,196)
{
 X=15
 Y=85
 Font=[Tahoma,28,3,32768,204]
 Point(doFont)
 link(onDraw,2818762:doLoad,[])
 link(Text,15425992:Var,[])
}
Add(Hub,6991831,497,196)
{
 OutCount=3
 link(onEvent1,2286630:doDraw,[])
 link(onEvent2,13256847:doRandom,[(535,209)(535,146)])
 link(onEvent3,16288053:doFont,[])
}
Add(Font,16288053,553,210)
{
 Font=[Tahoma,26,3,65280,204]
 link(onFont,2286630:doFont,[(615,216)(615,209)])
 link(Color,13256847:Random,[])
}
Add(Random,13256847,560,140)
{
 Min=100000
 Max=2000000
 link(onRandom,9392504:doRandom,[])
}
Add(VisualStrings,8755173,665,105)
{
 Lines=#5:HiAsm|
 Width=10
}
Add(Random,9392504,608,140)
{
 link(onRandom,15425992:doIndex,[])
}
Add(GetIndexData,15425992,651,140)
{
 Count=7
 link(Data1,2930078:Text,[])
 link(Data2,15271252:Var1,[(664,131)])
 link(Data3,8755173:Text,[])
 link(Data4,15271252:Var2,[])
 link(Data5,3188360:Var2,[])
 link(Data6,6067344:Var2,[])
 link(Data7,6067344:Var3,[(699,131)])
}
Add(VisualStrings,2930078,651,105)
{
 Lines=#6:foksov|
 Width=11
}
Add(Time,488481,672,91)
{
 Format="h:m:s"
}
Add(GetDataEx,15271252,672,126)
{
 link(Data,488481:FormatTime,[])
}
Add(GetDataEx,3188360,679,126)
{
 Angle=3
 link(Data,15271252:Var3,[])
}
Add(GetDataEx,6067344,686,126)
{
 Angle=3
 link(Data,3188360:Var3,[])
}
Add(Timer,14137203,183,189)
{
 @Hint=#4:Такт|18:Подбирать по вкусу|
 Interval=60
 link(onTimer,10485054:doEvent1,[])
 AddHint(-40,42,101,26,@Hint)
}
Add(Image,2818762,700,196)
{
 Width=200
 Height=200
 Align=5
 Font=[MS Sans Serif,8,0,-16777203,1]
 ViewStyle=1
 Point(onMouseDown)
 Point(Width)
}
Add(Hub,10485054,231,189)
{
 link(onEvent1,3567457:doNext,[(260,195)(260,160)])
 link(onEvent2,423875:doCopy,[])
}
Add(Math,6495496,462,154)
{
 ResultType=0
 link(Op1,1447383:Width,[])
}
Add(CounterEx,3567457,282,154)
{
 Max=50
 Point(doDirect)
 link(onNext,12875787:doCase,[])
}
Add(Switch,1153271,378,161)
{
 DataOn=Integer(1)
 DataOff=Integer(0)
 link(onSwitch,3567457:doDirect,[(425,167)(425,148)(270,148)(270,167)])
}
Add(Case,12875787,329,154)
{
 link(onNextCase,6495496:doOperation,[])
 link(onTrue,1153271:doSwitch,[])
}

------------ Дoбавленo в 23.31:

попытка воспроизведения эффекта по скриншоту Cosinus №2

Add(MainForm,1447383,448,92)
{
 Width=200
 Height=200
 Color=16777215
 BorderStyle=1
 TaskBar=1
 Position=1
 Point(Handle)
 Point(Height)
 Point(Width)
}
Add(Img_Copy,423875,434,196)
{
 X=-5
 Y=-10
 DrawSource=1
 Point(Height)
 Point(Width)
 link(onCopy,6991831:doEvent1,[])
 link(Source,1447383:Handle,[(440,149)(454,149)])
 link(Height,1447383:Height,[])
 link(Width,6495496:Result,[])
}
Add(Img_Text,2286630,644,196)
{
 X=15
 Y=85
 Font=[Tahoma,28,3,32768,204]
 Point(doFont)
 link(onDraw,2818762:doLoad,[])
 link(Text,15425992:Var,[])
}
Add(Hub,6991831,497,196)
{
 OutCount=3
 link(onEvent1,2286630:doDraw,[])
 link(onEvent2,13256847:doRandom,[(535,209)(535,146)])
 link(onEvent3,16288053:doFont,[])
}
Add(Font,16288053,553,210)
{
 Font=[Tahoma,26,3,65280,204]
 link(onFont,2286630:doFont,[(615,216)(615,209)])
 link(Color,13256847:Random,[])
}
Add(Random,13256847,560,140)
{
 Min=100000
 Max=2000000
 link(onRandom,9392504:doRandom,[])
}
Add(VisualStrings,8755173,665,105)
{
 Lines=#5:HiAsm|
 Width=10
}
Add(Random,9392504,608,140)
{
 Max=40
 link(onRandom,15425992:doIndex,[])
}
Add(GetIndexData,15425992,651,140)
{
 Count=7
 link(Data1,2930078:Text,[])
 link(Data2,15271252:Var1,[(664,131)])
 link(Data3,8755173:Text,[])
 link(Data4,15271252:Var2,[])
 link(Data5,3188360:Var2,[])
 link(Data6,6067344:Var2,[])
 link(Data7,6067344:Var3,[(699,131)])
}
Add(VisualStrings,2930078,651,105)
{
 Lines=#6:foksov|
 Width=11
}
Add(Time,488481,672,91)
{
 Format="h:m:s"
}
Add(GetDataEx,15271252,672,126)
{
 link(Data,488481:FormatTime,[])
}
Add(GetDataEx,3188360,679,126)
{
 Angle=3
 link(Data,15271252:Var3,[])
}
Add(GetDataEx,6067344,686,126)
{
 Angle=3
 link(Data,3188360:Var3,[])
}
Add(Timer,14137203,183,189)
{
 @Hint=#4:Такт|18:Подбирать по вкусу|
 Interval=75
 link(onTimer,10485054:doEvent1,[])
 AddHint(-40,42,101,26,@Hint)
}
Add(Image,2818762,700,196)
{
 Width=200
 Height=200
 Align=5
 Font=[MS Sans Serif,8,0,-16777203,1]
 Point(onMouseDown)
 Point(Width)
}
Add(Hub,10485054,231,189)
{
 link(onEvent1,3567457:doNext,[(260,195)(260,160)])
 link(onEvent2,423875:doCopy,[])
}
Add(Math,6495496,462,154)
{
 ResultType=0
 link(Op1,1447383:Width,[])
}
Add(CounterEx,3567457,282,154)
{
 Max=50
 Point(doDirect)
 link(onNext,12875787:doCase,[])
}
Add(Switch,1153271,378,161)
{
 DataOn=Integer(1)
 DataOff=Integer(0)
 link(onSwitch,3567457:doDirect,[(425,167)(425,148)(270,148)(270,167)])
}
Add(Case,12875787,329,154)
{
 link(onNextCase,6495496:doOperation,[])
 link(onTrue,1153271:doSwitch,[])
}

Вроде более объёмно получилось

карма: 1

Альтернативная сборка HiAsm 4.

Ответов: 1731

Рейтинг: 68

#27: 2012-10-26 23:52:18 ЛС | профиль | цитата

[flood]Смотрю в теме раздают халявные плюсики, вот и скрин сделал

(P.S. шутка)[/flood]

карма: 1

Голосовали:

foksov

Ответов: 1376

Рейтинг: 198

#28: 2012-10-27 05:25:16 ЛС | профиль | цитата

CriDos, ненадо трогать узоту и низину

наверно так хотели попыткнуться?
code_29393.txt
А если подзадуматься, то можно и любые картинки на любые стороны выводить, копируя из картинки столбцы или строки, в определенные промежутки времени [offtop](если время будет и не забуду, то попробую чего-нибудь такое сотворить, если меня более умные форумчане не опередят

отплюсую, всяко-разно, соответствующих...)[/offtop]
[offtop]Cosinus,

ещё раз так пошутите --- ещё получите!

Cosinus писал(а):

(P.S. шутка)

P.S. Я вас 2 раза плюсану, но плюсы будут непочетные, как уж они Вами будут пониматься - Ваши проблемы! Совет: Придерживайтесь меценатства![/offtop]

карма: 1

файлы: 1

code_29393.txt [3.8KB] [626]

Голосовали:

CriDos

Разработчик

Ответов: 26322

Рейтинг: 2147

#29: 2012-10-27 12:38:42 ЛС | профиль | цитата

foksov писал(а):

ещё раз так пошутите --- ещё получите!

Ты чего это сегодня не в духе, пугаешь тут всех

карма: 22

Ответов: 1376

Рейтинг: 198

#30: 2012-10-27 17:59:58 ЛС | профиль | цитата

[flood]

nesco писал(а):

Ты чего это сегодня не в духе, пугаешь тут всех

Да ни кого я не пугаю, просто хочу сказать, что о людях надо судить по делам, а не по плюсикам, т.к. плюсики покупаемы... Мне не жалко кого-либо плюсануть, но бывает обидно, что когда соберешься по делу оценить, то вот тут-то и лимит срабатывает, прям шлепает по рукам

[/flood]

карма: 1

Форумы СхемыЕщё одни часики ← Ctrl123Ctrl →


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