Вверх ↑
Этот топик читают: Гость
Ответов: 7
Рейтинг: 0
#1: 2006-07-16 04:00:07 ЛС | профиль | цитата
Вот таким вот нехитрым способом рисую текст на экране, а вот как его потом убрать не знаю, подскажите.

Add(MainForm,2836178,21,105)
{
Left=20
Top=105
Width=285
Height=182
Align=0
Color=-16777201
Font=[MS Sans Serif,8,0,0,1]
AlphaBlendValue=255
Caption="Form"
BorderStyle=2
WindowsState=0
Icon=[]
ShowType=0
TaskBar=0
DragForm=1
Visible=0
Cursor=0
TransparentColor=16777215
Picture=[]
SavePosition=0
SavePosName="MyProject"
MouseCapture=1
ClientSize=1
Position=0
link(onCreate,7860356:doDraw,[(121,146)(121,223)])
}
Add(Img_Text,7860356,189,217)
{
Font=[Comic Sans MS,48,3,0,204]
Text="Booom!!!"
X=300
Y=300
DrawSource=1
}
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 58
Рейтинг: 0
#2: 2006-07-16 10:56:46 ЛС | профиль | цитата
SpooF, можно так, хотя наверно есть какой-то более лучший способ...

Add(MainForm,2836178,105,175)
{
Left=20
Top=105
Width=285
Height=182
Visible=1
Position=1
Point(doVisible)
link(onCreate,7860356:doDraw,[(187,216)(187,216)])
}
Add(Img_Text,7860356,238,210)
{
Font=[Comic Sans MS,48,3,0,204]
Text="Booom!!!"
X=300
Y=300
DrawSource=1
link(onDraw,333752:doTimer,[])
}
Add(Timer,333752,294,210)
{
link(onTimer,2836178:doVisible,[(336,216)(336,170)(60,170)(60,209)])
}

карма: 1

0
Ответов: 9906
Рейтинг: 351
#3: 2006-07-16 11:27:27 ЛС | профиль | цитата
В предыдущем примере возможно имелось в виду это:
code_104
карма: 9

0
файлы: 1code_104.txt [650B] [595]
Ответов: 58
Рейтинг: 0
#4: 2006-07-16 11:57:38 ЛС | профиль | цитата
Уважаемый Galkov, у меня ваш пример при закрытии формы выдает "Runtime Error"

[size=-2]------ Добавлено в 11:57
Galkov, я не видел ни одного приложения которое сначало разварачивалось, а потом принимало исходное положение...., вам не кажется это слишком надуманным?
карма: 1

0
Ответов: 9906
Рейтинг: 351
#5: 2006-07-16 12:11:39 ЛС | профиль | цитата
Уважаемый BaHo, а почему это мои проблемы
А для их разрешения, разве есть информация
У меня MainForm свой, конечно....

я не видел ни одного приложения которое сначало разварачивалось, а потом принимало исходное положение
Да я то же такое никогда не делаю
Просто не знаю с ходу как заставить Desktop перерисоваться
карма: 9

0
Ответов: 7
Рейтинг: 0
#6: 2006-07-16 13:01:51 ЛС | профиль | цитата
Спасибо конечно за попытки, но это несколько не то . Форма недолжна появляться. Суть процесса на сколко я понимаю следующая: текст отрисовывается непосредственно на элементы на которые попадает. Необходимо каким то образом их заставить перерисоваться (желательно не полностью приложение а хотябы только формы на которые попал текст). Возможно кто-то придумает другой способ отрисовывать текст на экран с возможностью в определенный момент его стереть без вмешательства в работу активного приложения, буду очень признателен
И если несложно, подскажите как можно заставить конкретное окно (а точнее окно составляемого приложения) перерисоваться (возможно получиться реализовать одну идейку, родилась пока пост писал)
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 3655
Рейтинг: 69
#7: 2006-07-16 15:16:49 ЛС | профиль | цитата
SpooF, А так убирается при клике на надписи
Add(MainForm,2169122,336,196)
{
Left=20
Top=105
Width=285
Height=182
Visible=1
Position=1
Point(doVisible)
link(onCreate,15083658:doDraw,[(418,237)(418,237)])
}
Add(Timer,333752,525,231)
{
link(onTimer,2169122:doClose,[(567,237)(567,186)(326,186)(326,223)])
}
Add(Img_Text,15083658,469,231)
{
Font=[Comic Sans MS,48,3,0,204]
Text="Booom!!!"
X=300
Y=300
DrawSource=1
link(onDraw,333752:doTimer,[])
}
карма: 0

0
Ответов: 7
Рейтинг: 0
#8: 2006-07-17 01:42:22 ЛС | профиль | цитата
Вся соль в том, что все должно происходить без вмешательства пользователя. Можно конечно сэмулировать клик, но эта эмуляция клика мне еще винт ненароком форматнет еси сработает када я буду дискетку фарматить (пример грубый, но я думаю суть ясна). Да и тут нюансы есть: клик заставляет перерисоваться форму, но далеко не каждую, например с обоев рабочего стола надпись так просто не стирается, пока не заслонишь чем то другим. По этому поводу возникло соображение , ведь если заслонить часть текста, то часть и исчезнет, остальная же останется нетронутой, следовательно в таком случае не форма перерисовывается (они ведь вроди еси уже перерисовываются, так на совесть -- полностью), а обновляется область экрана, т.е. вмешательство происходит не настадии формирования визуального представления формы, а на стадии подачи этого изображения на выход. Возникает сразу вопрос, а есть ли в хиасме возможность запустить в этот процесс свои ручки?
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2006-07-17 04:43:54 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2021-05-21 12:40:55
карма: 0

0
Ответов: 9906
Рейтинг: 351
#10: 2006-07-17 10:12:20 ЛС | профиль | цитата
давно бы такую фигню в WinTools влепить....
карма: 9

0
Ответов: 7
Рейтинг: 0
#11: 2006-07-18 04:11:20 ЛС | профиль | цитата
Спасибо тебе добрый человече за скриптик. В принципе я так и подозревал шо одними схемками тут не обойтись, но увы не сильно шарю в дэлфе. Свою задачу я решил несколько иным способом, сделал полупрозрачное светло-бежевого цвета окошко без рамки и на него практически черным цветом текст вывожу, получается ничего так, хоть и с потерей активности окна. Полная перерисовка как я погляжу по глазам бахкает, но вот для реализации еще одной задачи приложения она просто незаменима.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Гость
Ответов: 17029
Рейтинг: 0
#12: 2006-07-18 23:15:18 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2021-05-21 12:40:55
карма: 0

0
Ответов: 9906
Рейтинг: 351
#13: 2006-07-19 00:08:09 ЛС | профиль | цитата
Когда-то я видел часики в комнатах, отрабатывающие это дело на 100 пудов - только огромные цифры (идущие, конечно) на экране....
А вот не помню как чел делал это
карма: 9

0
Ответов: 3655
Рейтинг: 69
#14: 2006-07-19 18:05:07 ЛС | профиль | цитата
А вот и те часики code_127
карма: 0

0
файлы: 1code_127.txt [2.4KB] [599]
Ответов: 9906
Рейтинг: 351
#15: 2006-07-19 18:26:06 ЛС | профиль | цитата
Угу...
Узнаю брата Колю
карма: 9

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