Вверх ↑
Этот топик читают: Гость
Ответов: 3464
Рейтинг: 233
#31: 2010-11-05 23:00:14 ЛС | профиль | цитата
user_asm писал(а):
Попробуйте приводить аргументы без оскорблений.

Это не оскорбления, а направление в сторону того что ошибки были с твоей стороны.
карма: 0

0
Разработчик
Ответов: 25687
Рейтинг: 2088
#32: 2010-11-05 23:05:27 ЛС | профиль | цитата
[flood]Ivann, действительно, как-то поаккуратнее с выражениями надо[/flood]
------------ Дoбавленo в 23.05:
Гы, а user_asm в руму полез, а говорит не работает
карма: 20

0
Ответов: 946
Рейтинг: 4
#33: 2010-11-05 23:07:32 ЛС | профиль | цитата
Дома с горем пополам подключился с помощью net-rooms WebBrowser
Что в итоге:
Сервер четко не обозначен.
Наличиеотсутствие подключенных юзеров .... остается только гадать.
Комнаты? Наличиеотсутствие оных явно в клиенте не обозначено.
карма: 0

0
Ответов: 3464
Рейтинг: 233
#34: 2010-11-05 23:11:49 ЛС | профиль | цитата
user_asm писал(а):
Наличиеотсутствие подключенных юзеров .... остается только гадать.

А ты их добавил?
карма: 0

0
Разработчик
Ответов: 25687
Рейтинг: 2088
#35: 2010-11-05 23:12:59 ЛС | профиль | цитата
user_asm, ну это же альфа версия. Ее уже тут под себя народ переделывал
карма: 20

0
Администрация
Ответов: 15294
Рейтинг: 1518
#36: 2010-11-06 04:38:53 ЛС | профиль | цитата
user_asm писал(а):
Все существующие примерыпроектыприложения - не работают. Те же нет-румс.
Вот вам и "как это так?". Пусть меня в очередной раз охаят и скажут что подобного трэша навалом, но весь этот трэш нерабочий.

user_asm, иногда кажется, что за семь лет работы в support-e на этом форуме и общения с пользователями были высказаны уже все безумные теории какие только могут быть... Однако ж каждый раз приходится убеждаться, что их количество равно количеству людей на планете (если не больше). Не исключение и этот случай.
карма: 26
1
Голосовали:Minkovsky
Ответов: 146
Рейтинг: 1
#37: 2011-05-26 16:45:54 ЛС | профиль | цитата
Интересно началась тема...
Хочу задать вопрос по теме этой ветки в форуме. Подскажите как именно можно реализовать так чтобы в ОКНО HiAsm встроить окно другой программы, например Paint или ICQ или МАИЛагент или скайп... Как это можно реализовать?
карма: 0

0
Разработчик
Ответов: 25687
Рейтинг: 2088
#38: 2011-05-26 17:08:41 ЛС | профиль | цитата
legandox писал(а):
Как это можно реализовать?

Стандартными средствами -- никак. А вые... тут никто не собирается
карма: 20

0
Ответов: 146
Рейтинг: 1
#39: 2011-05-26 17:12:45 ЛС | профиль | цитата
nesco Все спасибо вопрос исчерпан)))
карма: 0

0
Ответов: 4743
Рейтинг: 529
#40: 2011-05-26 18:15:55 ЛС | профиль | цитата
nesco писал(а):
Стандартными средствами -- никак
не считая IC. Про SetParent который в этой ветке Ivann упомянул уже есть пример перетаскивания гаджетов с пурика, далее Callback на форточку, с костылями конечно но можно.
карма: 6
0
Ответов: 8695
Рейтинг: 806
#41: 2011-05-26 18:18:14 ЛС | профиль | цитата
legandox, есть схемка на VB для Excel, поищите на форуме.
карма: 19

0
Ответов: 3464
Рейтинг: 233
#42: 2011-05-26 20:07:25 ЛС | профиль | цитата
code_24177.txt
------------ Дoбавленo в 20.07:
Не то что вам надо?
карма: 0

2
файлы: 1code_24177.txt [1.3KB] [303]
Голосовали:Ravilr, Aziz
Разработчик
Ответов: 25687
Рейтинг: 2088
#43: 2011-05-27 11:02:12 ЛС | профиль | цитата
Добавлено компонентом на SVN -- SetParent
карма: 20

1
Голосовали:Ravilr
Ответов: 3464
Рейтинг: 233
#44: 2011-05-27 15:02:27 ЛС | профиль | цитата
nesco, Молодец
карма: 0

0
Ответов: 1105
Рейтинг: 35
#45: 2013-08-30 16:31:05 ЛС | профиль | цитата
Чето у меня компонент не заработал. Просто калькулятор запускается а форма исчезает. А ИК - ок, спасибо. Теперь появится новая фича в моей программе.
------------ Дoбавленo в 16.31:
Dock & UnDock Window:

Add(MainForm,3565278,581,231)
{
Point(Handle)
link(onCreate,10332811:doEvent1,[])
}
Add(InlineCode,2733908,889,245)
{
WorkPoints=#11:doSetParent|
EventPoints=#11:onSetParent|7:onError|
VarPoints=#9:OldParent|
DataPoints=#6:Parent|6:Handle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|24: FOldParent: integer;|9: public|48: Parent,Handle,onSetParent,onError:THI_Event;|3: |50: procedure doSetParent(var dt:TData; idx:WORD);|53: procedure OldParent(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doSetParent;|13:var p,h:HWND;|5:begin|27: p:=ReadInteger(dt,Parent);|27: h:=ReadInteger(dt,Handle);|17: FOldParent := 0;|36: if (p <> 0) and (h <> 0) then begin|29: FOldParent :=SetParent(h,p);|5: end;|1: |26: if FOldParent <> 0 then|39: _hi_onEvent(onSetParent,FOldParent)|6: else|34: _hi_onEvent( onError,'error');|1: |4:end;|0:|61:procedure THiAsmClass.OldParent(var _Data:TData; Index:word);|5:begin|30: _data.data_type := data_int;|28: _data.idata := FOldParent;|33:// dtInteger(_Data, FOldParent);|4:end;|0:|4:end.|
link(Parent,3565278:Handle,[(895,233)(741,233)(741,275)(587,275)])
link(Handle,5775991:Var3,[(902,233)])
}
Add(WinEnum,1218438,714,245)
{
link(onFindWindow,560410:doEvent1,[])
link(Caption,8438217:Text,[])
}
Add(VisualStrings,8438217,714,168)
{
Lines=#11:Калькулятор|
Width=123
Height=32
}
Add(Hub,10332811,623,245)
{
link(onEvent1,955090:doExec,[])
link(onEvent2,1218438:doFind,[])
}
Add(WinExec,955090,651,245)
{
FileName="Calc.Exe"
}
Add(Hub,560410,777,245)
{
InCount=2
OutCount=3
link(onEvent1,2733908:doSetParent,[])
link(onEvent2,1783027:doLeft,[])
link(onEvent3,1783027:doTop,[])
}
Add(PosWindow,1783027,819,252)
{
link(Handle,5775991:Var2,[])
}
Add(GetDataEx,5775991,819,228)
{
Angle=3
link(Data,15802178:Var3,[(745,233)(745,289)])
}
Add(Button,7476512,350,245)
{
Left=35
Top=15
Caption="Dock"
link(onClick,560410:doEvent2,[(580,251)(580,258)])
}
Add(Button,14115646,351,331)
{
Left=110
Top=15
Caption="UnDock"
link(onClick,15882441:doSetParent,[(499,337)(499,342)])
}
Add(InlineCode,15882441,616,336)
{
WorkPoints=#11:doSetParent|
EventPoints=#11:onSetParent|7:onError|
VarPoints=#9:OldParent|
DataPoints=#6:Parent|6:Handle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|24: FOldParent: integer;|9: public|48: Parent,Handle,onSetParent,onError:THI_Event;|3: |50: procedure doSetParent(var dt:TData; idx:WORD);|53: procedure OldParent(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doSetParent;|13:var p,h:HWND;|5:begin|27: p:=ReadInteger(dt,Parent);|27: h:=ReadInteger(dt,Handle);|17: FOldParent := 0;|36: if (p <> 0) and (h <> 0) then begin|29: FOldParent :=SetParent(h,p);|5: end;|1: |26: if FOldParent <> 0 then|39: _hi_onEvent(onSetParent,FOldParent)|6: else|34: _hi_onEvent( onError,'error');|1: |4:end;|0:|61:procedure THiAsmClass.OldParent(var _Data:TData; Index:word);|5:begin|30: _data.data_type := data_int;|28: _data.idata := FOldParent;|33:// dtInteger(_Data, FOldParent);|4:end;|0:|4:end.|
link(Parent,2733908:OldParent,[(622,306)(895,306)])
link(Handle,15802178:Var2,[(629,314)(727,314)])
}
Add(GetDataEx,15802178,721,284)
{
Angle=3
link(Data,1218438:Handle,[(720,289)])
}



карма: 1
vk.com/azizazizov Жаль,приходится покидать этот форум спустя 13 лет - отношение в данном коллективе перестало устраивать.Может я расту,может деградирую-время покажет.
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)