Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#46: 2015-12-26 13:38:07 ЛС | профиль | цитата
andrestudio писал(а):
а что делать
andrestudio писал(а):
тёщу поселить и распращатся с продовольственными запасами
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:andrestudio
Ответов: 5227
Рейтинг: 587
#47: 2015-12-28 06:31:15 ЛС | профиль | цитата
Tad, я не специально, но получилось прикольно
------------ Дoбавленo в 05.55:
Яркость моника
Add(MainForm,2953706,203,105)
{
Height=164
Point(onClose)
link(onCreate,9995737:doGetDefault,[(306,125)(306,153)])
link(onClose,6895481:doWork1,[(277,132)])
}
Add(InlineCode,9995737,357,147)
{
WorkPoints=#12:doGetDefault|15:doSetBrightness|12:doSetDefault|0:|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|52: procedure doGetDefault(var dt:TData; idx: word);|55: procedure doSetBrightness(var dt:TData; idx: word);|52: procedure doSetDefault(var dt:TData; idx: word);|5: end;|0:|14:implementation|0:|4:type|60: // Массив для хранения таблиц гамма-коррекции (gamma ramp)|52: TRampArray = array[0..2] of array[byte] of word; |3:var|32: // Текущие значения gamma ramp|29: origRampArray: TRampArray; |2: |30:// Cохраняем текущие значения |35:procedure THiAsmClass.doGetDefault;|3:var|10: DC: HDC;|5:begin|20: DC := GetDC( 0 );|6: try|46: GetDeviceGammaRamp( DC, origRampArray );|10: finally|25: ReleaseDC( 0, DC );|6: end|7:end; |0:|53:function SetBrightness( wBrightness: word ): boolean;|3:var|24: RampArray: TRampArray;|20: i, Value: integer;|10: DC: HDC;|5:begin|27: for i := 0 to MAXBYTE do|8: begin|41: Value := i * ( wBrightness + 128 );|51: if ( Value > MAXWORD ) then Value := MAXWORD;|34: RampArray[0][i] := Value;|34: RampArray[1][i] := Value;|34: RampArray[2][i] := Value;|8: end; |20: DC := GetDC( 0 );|6: try|53: Result := SetDeviceGammaRamp( DC, RampArray );|10: finally|25: ReleaseDC( 0, DC );|7: end;|4:end;|0:|38:procedure THiAsmClass.doSetBrightness;|4:var |13: i: integer;|5:begin|21: i := ToInteger(dt);|20: SetBrightness (i);|4:end;|0:|35:procedure THiAsmClass.doSetDefault;|3:var|10: DC: HDC;|5:begin|20: DC := GetDC( 0 );|6: try|46: SetDeviceGammaRamp( DC, origRampArray );|10: finally|25: ReleaseDC( 0, DC );|6: end|4:end;|0:|0:|4:end.|
}
Add(TrackBar,7829452,203,154)
{
Left=15
Top=50
Width=355
Max=255
TickCount=10
link(onPosition,9995737:doSetBrightness,[])
}
Add(Button,16221129,202,196)
{
Left=25
Top=90
Width=95
Caption="SetDefault"
link(onClick,6895481:doWork2,[])
}
Add(Label,8092772,357,105)
{
Left=15
Top=15
Width=99
Height=17
Caption="Яркость монитора"
}
Add(HubEx,6895481,273,196)
{
link(onEvent,9995737:doSetDefault,[(305,202)(305,167)])
}



у меня по дефолту 127
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 5227
Рейтинг: 587
#48: 2015-12-30 12:11:56 ЛС | профиль | цитата
Всех с наступающим

текст по слогам code_36717.txt
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
4
файлы: 1code_36717.txt [7.9KB] [749]
Голосовали:Tad, flint2, halt, Леонид
Ответов: 5227
Рейтинг: 587
#49: 2016-01-11 09:23:21 ЛС | профиль | цитата
Продолжим...
Вывод подсказки под курсор code_36778.txt (IC вариант)

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
файлы: 1code_36778.txt [2.4KB] [639]
Ответов: 8926
Рейтинг: 823
#50: 2016-01-11 10:44:20 ЛС | профиль | цитата
andrestudio, в примечание добавил Автора
nesco, надо бы в компонент превратить и добавить в комплект, может кто говорилку свою сделает, попытки были
карма: 19

0
Ответов: 5227
Рейтинг: 587
#51: 2016-01-11 13:07:13 ЛС | профиль | цитата
Леонид писал(а):
надо бы в компонент превратить

Для компонента лучше на чистом API. Вот переделал code_36780.txt


карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
файлы: 1code_36780.txt [2.9KB] [709]
Ответов: 8926
Рейтинг: 823
#52: 2016-01-11 13:33:25 ЛС | профиль | цитата
andrestudio, да я о разбивке текста по слогам (как-то сделал простенький IC, с небольшими погрешностями, но работал, а в вашем погрешностей не пока не обнаружилось)
карма: 19

0
Ответов: 5227
Рейтинг: 587
#53: 2016-01-11 13:43:10 ЛС | профиль | цитата
Леонид, [flood]да после праздников самое оно [/flood]
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1058
Рейтинг: 76
#54: 2016-01-12 14:02:14 ЛС | профиль | цитата
Чтобы не плодить тем напишу здесь.

В одной из тем я приводил пример взаимодействия с DOM при помощи javascript.
code_36786.txt
Так вот чтобы получить результат выполнения скрипта была предусмотрена некая глобальная переменная, в скрипте этой переменной присваивается результат,
а в схеме забирается результат.

В принципе для большинства задач такого подходя хватает. Но было-бы удобней если бы из javascripta можно вызывать дельфийские функции.
С сожалению я с делфи не дружу, поэтому если кому будет интересно загляните сюда, авось получится к нашему браузеру прикрутить.
карма: 0

0
файлы: 1code_36786.txt [3.7KB] [649]
Ответов: 2059
Рейтинг: 132
#55: 2016-01-12 18:47:03 ЛС | профиль | цитата

tom-it,
было-бы удобней если бы из javascripta можно вызывать дельфийские функции.

java - самодостаточен, только скриптовый, а это минус - по ситуации.
(Всё, что компилируется, не стоит интерпретировать.)
Все дороги ведут к API. Зачем нужна вторая обёртка над другой?
[flood]Где начало того конца, которым оканчивается начало?[/flood]

карма: 6

0
Ответов: 1058
Рейтинг: 76
#56: 2016-01-12 20:35:52 ЛС | профиль | цитата
flint2 писал(а):
java

Java и Javascript далеко не братья, ничего общего.
flint2 писал(а):
Всё, что компилируется, не стоит интерпретировать

Никто и не пытается скрещивать ёжа с ужом.
Никаких изобретений велосипеда, предложено реализовать(если под силу) функционал заранее предусмотренный разработчиком.


------------ Дoбавленo в 20.00:
Поскольку никто пример не смотрит, и по приведенной ссылке не переходит - уточню, что-бы не было путаницы.

Что речь идет о javascript-е выполняющемся в контексте веббраузера.

карма: 0

0
Ответов: 2059
Рейтинг: 132
#57: 2016-01-12 20:49:23 ЛС | профиль | цитата
tom-it,
Что речь идет о javascript-е выполняющемся в контексте веббраузера.

OK!
Теперь понятно.
Поскольку никто пример не смотрит, и по приведенной ссылке не переходит - уточню, что-бы не было путаницы.

Прошу извинить.
P.S.
[flood]
Ссылки и code_*.txt стараюсь не смотреть.
У меня на Chrome (может и не в этом дело) нет возврата ( на этом форуме) на предыдущую страницу.
Смотрю схемы только в виде scroll.
Если сам выкладываю, то редактирую code_*.txt на код в scroll.
Это конечно не критично, но для себя...
Не дочитал 90% постов со ссылками, когда не возвращаюсь где читал.
Перехожу на rutracker.org, или на flibusta.is, или иду борщ варить, с мыслью, что потом дочитаю.
Естественно...
[/flood]
карма: 6

0
Ответов: 5227
Рейтинг: 587
#58: 2016-01-13 12:30:34 ЛС | профиль | цитата
tom-it, больше интересуют события от браузера а с DOM и через VBJScript удобней.
События прикрутить можно.
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1058
Рейтинг: 76
#59: 2016-01-13 13:01:29 ЛС | профиль | цитата
andrestudio писал(а):
больше интересуют события от браузера

Не совсем понял что имеется ввиду.

Реагировать на события браузера внутри веб страницы?
карма: 0

0
Ответов: 5227
Рейтинг: 587
#60: 2016-01-13 14:07:42 ЛС | профиль | цитата
tom-it писал(а):
Реагировать на события браузера внутри веб страницы?

Да, штатные события (мышь клавиатура)
------------ Дoбавленo в 13.31:
Кажись заготовка есть --del -> следующий пост

Juk с тебя бутылка
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)