Вверх ↑
Этот топик читают: Гость
Ответов: 953
Рейтинг: 34
#1: 2019-02-08 13:00:49 ЛС | профиль | цитата
Вот сделал схему, но цвет ни в какую не меняется. Постоянно черный. Как поменять?


Add(Memory,6570870,966,287)
{
Default=String(Текст поверх всех окон)
}
Add(DoData,7045275,714,189)
{
Data=Integer(1)
link(onEventData,5488021:doPopup,[(760,195)(760,104)(655,104)(655,132)])
}
Add(Bitmap,16060835,819,203)
{
HWidth=2000
HHeight=100
FillColor=16777215
Point(HWidth)
Point(HHeight)
Point(doCreate)
Point(onCreate)
link(onCreate,4373127:doEvent1,[(865,209)(865,216)])
}
Add(Img_Text,7444909,875,385)
{
Font=[MS Sans Serif,30,0,-16777203,1]
Point(X)
Point(Y)
Point(doFont)
link(Bitmap,16700351:Var2,[(881,376)(874,376)])
link(Text,6570870:Value,[(888,376)(972,376)])
link(X,4240378:Result,[(895,369)(1084,369)])
link(Y,5255281:Result,[(902,355)(937,355)(937,278)(1140,278)])
}
Add(Hub,4373127,875,210)
{
InCount=3
OutCount=6
link(onEvent1,4018259:doLoad,[(900,216)(900,300)(858,300)(858,321)])
link(onEvent2,9949873:doEvent1,[(907,223)(907,125)])
link(onEvent3,16518564:doEvent1,[(928,230)(928,391)])
link(onEvent4,1898965:doEvent1,[(907,237)(907,363)(823,363)(823,391)])
link(onEvent5,16729345:doFont,[(914,244)(914,461)])
}
Add(DoData,3374757,735,427)
{
link(onEventData,5614416:doPicture,[(774,433)(774,286)(592,286)(592,174)])
link(Data,16700351:Var1,[(741,355)])
}
Add(GetDataEx,16700351,868,350)
{
link(Data,4018259:ImageBitmap,[])
}
Add(Screen,13701077,1008,56)
{
}
Add(Math,6318376,1001,119)
{
OpType=3
Op2=2
link(onResult,4240378:doOperation,[(1068,125)(1068,216)])
link(Op1,13701077:Width,[(1007,96)(1014,96)])
}
Add(Math,12032056,1085,119)
{
OpType=3
Op2=2
link(Op1,13701077:Height,[(1091,110)(1021,110)])
}
Add(Timer,7114232,595,399)
{
Point(doStopAll)
Point(doInterval)
link(onTimer,9183027:doEvent1,[])
}
Add(Image,4018259,868,315)
{
Width=1544
Height=238
Align=5
Color=536870911
link(Bitmap,16060835:Bitmap,[(874,306)(825,306)])
}
Add(Math,9063609,1008,385)
{
OpType=3
Op2=2
link(Op1,7444909:TextWidth,[(1014,376)(1000,376)(1000,425)(881,425)])
}
Add(Math,4240378,1078,210)
{
OpType=1
link(Op2,9063609:Result,[(1091,201)(1119,201)(1119,425)(1014,425)])
}
Add(Hub,16585266,700,399)
{
InCount=2
OutCount=4
link(onEvent1,4373127:doEvent2,[(725,405)(725,293)(858,293)(858,223)])
link(onEvent2,6740353:doTimer,[(732,412)(732,391)(578,391)(578,482)])
link(onEvent3,13512898:doData,[(725,419)(725,426)(718,426)(718,440)(711,440)(711,496)])
}
Add(Hub,1898965,833,385)
{
link(onEvent1,7444909:doDraw,[])
link(onEvent2,3374757:doData,[(858,398)(858,468)(725,468)(725,433)])
}
Add(Hub,9949873,966,119)
{
link(onEvent1,6318376:doOperation,[])
link(onEvent2,2995165:doData,[(991,132)(991,195)])
}
Add(Math,5255281,1134,210)
{
OpType=1
link(Op2,7444909:TextHeight,[(1147,201)(1175,201)(1175,432)(888,432)])
}
Add(Hub,16518564,966,385)
{
link(onEvent1,9063609:doOperation,[])
}
Add(DoData,2995165,1015,189)
{
Data=Integer(0)
}
Add(Timer,6740353,588,476)
{
Interval=100
AutoStop=1
Point(doInterval)
link(onTimer,9881338:doData,[])
}
Add(DoData,9881338,644,476)
{
Data=Integer(0)
link(onEventData,7644721:doEvent1,[(683,482)(683,517)(515,517)(515,174)])
}
Add(DoData,13512898,721,490)
{
Data=Integer(255)
link(onEventData,7644721:doEvent2,[(760,496)(760,531)(508,531)(508,181)])
}
Add(WinTools,5488021,665,119)
{
link(Handle,5614416:Handle,[(671,110)(650,110)(650,201)(622,201)])
}
Add(MainForm,5614416,602,140)
{
Left=20
Top=105
Width=1544
Height=238
Caption="ScreenshotOGl"
BorderStyle=0
DragForm=0
Position=1
Point(onResize)
Point(Close)
Point(doPicture)
Point(MouseX)
Point(MouseY)
Point(onMouseMove)
Point(onMouseDown)
Point(onKeyDown)
Point(Handle)
Point(doVisible)
Point(onHide)
Point(onShow)
Point(doAlphaBlendValue)
link(onCreate,11049491:doEvent1,[])
}
Add(Memory,7600013,1120,532)
{
Default=Integer(255)
}
Add(DoData,15914507,798,420)
{
}
Add(Message,15439436,868,462)
{
}
Add(Font,16729345,931,455)
{
Font=[MS Sans Serif,30,1,-16777203,204]
link(onFont,7444909:doFont,[(970,461)(970,447)(865,447)(865,398)])
}
Add(Hub,11049491,700,154)
{
link(onEvent1,16060835:doCreate,[(753,160)(753,223)])
link(onEvent2,7045275:doData,[(725,167)(725,181)(704,181)(704,195)])
}
Add(Hub,9183027,665,399)
{
link(onEvent2,16585266:doEvent1,[(690,412)(690,405)])
}
Add(Switch,3251546,679,238)
{
DataOn=Integer(1)
DataOff=Integer(0)
}
Add(ColorDialog,9765505,1064,532)
{
link(onSelect,7600013:doValue,[])
}
Add(Hub,7644721,525,168)
{
InCount=2
link(onEvent1,5614416:doAlphaBlendValue,[(585,174)(585,188)])
}

карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
vip
#1.1контекстная реклама от партнеров
Разработчик
Ответов: 25425
Рейтинг: 2070
#2: 2019-02-08 15:15:06 ЛС | профиль | цитата
Aziz писал(а):
Вот сделал схему

А почему не DocumentTemplate, там все гораздо проще реализуется?
карма: 19

0
Ответов: 16442
Рейтинг: 1210
#3: 2019-02-08 17:07:07 ЛС | профиль | цитата
nesco писал(а):
А почему не DocumentTemplate
Aziz писал(а):
Текст поверх всех окон - как менять цвет?
Aziz, расшифруй "поверх всех окон".
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 953
Рейтинг: 34
#4: 2019-02-08 17:17:34 ЛС | профиль | цитата
Tad, это когда моя надпись видна постоянно на экране компьютера, какие-бы программы я не запускал. Запусти пример поймешь)
Поверх имеется ввиду конечно не по оси У, а по оси Z.

nesco, не знаю, никогда его не использовал. Всегда просто довольствовался главной формой. Поясни пожалуйста для чего он и где его взять.
Может ктото доработать мой пример слегка или подсказать что нужно чтобы компонент textimage рисовал цветной текст. Это у него есть в свойствах но "не работает" (с).

Редактировалось 1 раз(а), последний 2019-02-08 17:18:29
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 16442
Рейтинг: 1210
#5: 2019-02-08 17:47:07 ЛС | профиль | цитата
Aziz писал(а):
Запусти пример поймешь
Я всё понял, прочитав название темы.
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 953
Рейтинг: 34
#6: 2019-02-08 19:40:38 ЛС | профиль | цитата
Tad, благодарю за помощь. А почему тогда спрашиваешь, просишь объяснить? Странно.

--- Добавлено в 2019-02-08 19:44:51

Чтобы никто не подумал что это для вируса - попросили написать программу для эффекта 25 кадра. Хотя согласен, вирусописатели возможно тоже смогут воспользоваться. Ну это уже на усмотрение модераторов, если опасная тема, то удаляйте схему.

Ну в общем понял, по факту элемент textimage не умеет рисовать цветом на компоненте image. Хотя иногда рисует.. На элементе draw кажется. Придется расковырять компонент.

Редактировалось 3 раз(а), последний 2019-02-08 19:49:42
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 4368
Рейтинг: 473
#7: 2019-02-08 20:05:46 ЛС | профиль | цитата
Aziz, я не запускал твой пример так честно говоря там ничего не понял, но суть такова что вывод должен быть на Desktop c рендерингом (т.е постоянным обновлением для предотвращения перекрытием окон либо отслеживанием области отрисовки) это всякие бегущие строки и т.п Что цвет не меняет х.з. Просто для примера код делфи по твоему запросу в поисковике http://www.delphirus.com/modules.php?name=Pages&pa=showpage&pid=1246
карма: 4

0
Ответов: 16442
Рейтинг: 1210
#8: 2019-02-08 20:18:43 ЛС | профиль | цитата
Aziz писал(а):
по факту элемент textimage не умеет рисовать цветом на компоненте image

Серьёзно ?
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 953
Рейтинг: 34
#9: 2019-02-08 21:18:11 ЛС | профиль | цитата
Tad, так все молчали и я имел в виду у меня не умеет. Но когда-нибудь сумеет. Потрачу месяц, два, год. Додумаюсь. И выложу схему здесь, чтобы новички и неопытные не мучались как я. Вы ведь этого хотели бы? Уже столько времени потратили на обсуждение.
А у вас да, походу умеет, правда, не видя схемы которую можно запустить, могу сказать "Не верю!" (С) )
Просто я музыкант и мне в программирование не нужно погружаться так. Не всегда интересно. Поэтому подумал для кого-то это раз плюнуть поправить мою схему, тем более когда видно что человек прикладывал усилия и не от лени просит помочь.

Спасибо, andrestudio, у меня там другая технология. Форма принимает форму текста и выводится поверх всех окон. Поэтому этот текст можно перетаскивать за любое место.

--- Добавлено в 2019-02-08 21:29:40

Tad, а можешь полный текст Литробола выложить?) Это уже поинтереснее моей проблемы, надо изучить этот вид спорта) Предлагаю его выложить в составе схемы)) Честное слово, не буду смотреть на твое техническое ноу-хау, исключительно на сей текст.

Редактировалось 9 раз(а), последний 2019-02-08 23:31:34
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 16442
Рейтинг: 1210
#10: 2019-02-08 21:54:52 ЛС | профиль | цитата
Aziz, той схемы уже нет. Проверил и не сохранил.
Add(MainForm,2953706,203,63)
{
Width=116
Height=57
Color=-16777211
Ctl3D=0
WinStyle=1
BorderStyle=0
TransparentColor=0
Position=1
Point(onShow)
Point(Handle)
Point(doVisible)
Point(onHide)
}
Add(Img_Text,12063955,301,119)
{
X=10
Y=10
Font=[Courier New,22,1,255,204]
Text="ТЕКСТ"
Point(Transform)
link(Bitmap,3944072:Bitmap,[(307,107)(291,107)(291,162)(251,162)])
}
Add(PaintBox,3944072,245,119)
{
Width=116
Height=57
Align=5
Color=16777215
Point(doVisible)
link(onBeforeDraw,12063955:doDraw,[])
}
Add(Switch,360759,196,133)
{
DataOn=Integer(1)
DataOff=Integer(0)
link(onSwitch,3944072:doVisible,[])
}
Add(Timer,7784791,147,133)
{
Interval=40
link(onTimer,360759:doSwitch,[])
}

Соотношение 960:40 сам сделаешь.
В любом поисковике набери Литрбол и Enter

Редактировалось 3 раз(а), последний 2019-02-08 22:24:01
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 25425
Рейтинг: 2070
#11: 2019-02-08 23:25:32 ЛС | профиль | цитата
Применение компонентов набора DocumentTemplate. ПКМ на любом символе вызывает меню выбора цвета.

Схема


Add(Memory,6570870,826,259)
{
@Hint=#4:Text|
Default=String(Текст поверх всех окон)
AddHint(53,35,36,13,@Hint)
}
Add(WinTools,5488021,714,147)
{
Point(doTransparentColor)
Point(doRedraw)
link(Handle,5614416:Handle,[(720,131)(552,131)(552,222)(580,222)])
}
Add(MainForm,5614416,560,140)
{
Left=20
Top=105
Width=1544
Height=238
Color=12632256
Font=[MS Sans Serif,8,0,12632256,1]
Ctl3D=0
WinStyle=1
Caption="ScreenshotOGl"
BorderStyle=0
DragForm=0
Position=1
Point(onResize)
Point(Close)
Point(doPicture)
Point(MouseX)
Point(MouseY)
Point(onMouseMove)
Point(onMouseDown)
Point(onKeyDown)
Point(Handle)
Point(doVisible)
Point(onHide)
Point(onShow)
Point(doAlphaBlendValue)
Point(onPaint)
Point(Width)
Point(Height)
link(onCreate,10883592:doText,[])
link(onMouseDown,3217432:doEvent,[(635,181)(635,237)])
link(onPaint,16077519:doValue,[(606,209)(606,398)])
}
Add(ColorDialog,9765505,931,238)
{
link(onSelect,12795049:doEvent1,[])
}
Add(DocumentTemplate,6120981,770,392)
{
DrawSource=2
Name="drm_1"
link(onDraw,9988110:doData,[])
link(Bitmap,16077519:Value,[(776,383)(762,383)(762,432)(664,432)])
}
BEGIN_SDK
Add(Print_Text,1384778,-3,-3)
{
Name="text1"
Width=100
Height=50
Font=[MS Sans Serif,30,1,16711680,204]
Vertical=1
}
END_SDK
Add(VisualStrings,10883592,658,154)
{
Lines=#1:1|
Point(doText)
Point(onText)
link(onText,5488021:doPopup,[])
}
Add(PC_TextParameters,14122499,714,392)
{
Document="drm_1"
link(onSet,6120981:doDraw,[])
link(Parameters,1853880:GetData,[])
}
Add(FormatStr,6283741,770,322)
{
DataCount=4
Mask="text1|%4|0,0,%1,%2|Arial,34,,%3,|,,|,|,|,,,\r\n\r\n"
Point(FString)
link(onFString,1853880:doData,[(809,328)(809,363)(704,363)(704,328)])
link(Str1,5614416:Width,[(776,313)(587,313)])
link(Str2,5614416:Height,[(783,306)(594,306)])
link(Str3,2510506:Value,[])
link(Str4,6570870:Value,[(797,299)(832,299)])
}
Add(EventFromData,1853880,714,322)
{
link(onEvent,6283741:doString,[])
}
Add(Memory,16077519,658,392)
{
link(onData,14122499:doSet,[])
}
Add(SelectColor,10256394,826,343)
{
Color=12632256
}
Add(DoData,9988110,826,392)
{
link(onEventData,5488021:doTransparentColor,[(865,398)(865,230)(694,230)(694,181)])
link(Data,10256394:Result,[])
}
Add(IndexToChanel,3217432,882,231)
{
link(onEvent2,9765505:doOpen,[])
}
Add(Memory,2510506,784,259)
{
@Hint=#5:Color|
Default=Integer(14120960)
AddHint(-78,-15,39,13,@Hint)
}
Add(Hub,12795049,980,238)
{
link(onEvent1,2510506:doValue,[(1005,244)(1005,223)(774,223)(774,265)])
link(onEvent2,5488021:doRedraw,[(1012,251)(1012,216)(704,216)(704,188)])
}

карма: 19

0
Ответов: 953
Рейтинг: 34
#12: 2019-02-08 23:43:08 ЛС | профиль | цитата
nesco, спасибо огромное! У тебя круто получилось и то что нужно! Надо изучить эти компоненты.. И как ты используешь визуальный инлайн код понравилось, я обычно doData везде использую, но он не наглядный.

Tad, и тебе спасибо большое, только вот мне немного другое нужно - отрисовка должна идти в памяти, то есть не на PaintBox-e. На нем и у меня с цветом получалось - это пример из справки..

Не подскажите где найти исходник всего проекта после компиляции? Походу он удаляется из папки Code. Как заставить его там остаться? Помню был способ или сочетание клавиш, забыл какое..
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 25425
Рейтинг: 2070
#13: 2019-02-09 00:53:31 ЛС | профиль | цитата
Aziz писал(а):
И как ты используешь визуальный инлайн код понравилось, я обычно doData везде использую, но он не наглядный.

Вообще-то это визуальный текст, а не инлайн код
Aziz писал(а):
Помню был способ или сочетание клавиш, забыл какое..

Ctrl-D, после наведения на элемент будет показывать основные идентификаторы элемента. В этом режиме надо откомпилировать проект, все его запчасти появятся в папке Code.
карма: 19

0
Ответов: 953
Рейтинг: 34
#14: 2019-02-09 01:39:20 ЛС | профиль | цитата
nesco, да,перепутал, справки почти нет по нему.. Там только про точки..
То есть в целом всю схему нельзя найти в виде одного исходника? Чтоб например посчитать число строк кода в проекте. Этот параметр часто используется при оплате труда программистов.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
14
Сообщение
...
Прикрепленные файлы
(файлы не залиты)