Приложение в окне

Вверх ↑

Форумы ЗадачиПриложение в окне ← Ctrl1 234Ctrl →

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

Ответов: 3349

Рейтинг: 233

#31: 2010-11-05 23:00:14 ЛС | профиль | цитата

user_asm писал(а):

Попробуйте приводить аргументы без оскорблений.

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

карма: 1

Разработчик

Ответов: 26061

Рейтинг: 2120

#32: 2010-11-05 23:05:27 ЛС | профиль | цитата

[flood]Ivann, действительно, как-то поаккуратнее с выражениями надо[/flood]
------------ Дoбавленo в 23.05:
Гы, а user_asm в руму полез, а говорит не работает

карма: 22

Ответов: 952

Рейтинг: 4

#33: 2010-11-05 23:07:32 ЛС | профиль | цитата

Дома с горем пополам подключился с помощью net-rooms WebBrowser
Что в итоге:
Сервер четко не обозначен.
Наличиеотсутствие подключенных юзеров .... остается только гадать.
Комнаты? Наличиеотсутствие оных явно в клиенте не обозначено.

карма: 0

Ответов: 3349

Рейтинг: 233

#34: 2010-11-05 23:11:49 ЛС | профиль | цитата

user_asm писал(а):

Наличиеотсутствие подключенных юзеров .... остается только гадать.

А ты их добавил?

карма: 1

Разработчик

Ответов: 26061

Рейтинг: 2120

#35: 2010-11-05 23:12:59 ЛС | профиль | цитата

user_asm, ну это же альфа версия. Ее уже тут под себя народ переделывал

карма: 22

Администрация

Ответов: 15294

Рейтинг: 1518

#36: 2010-11-06 04:38:53 ЛС | профиль | цитата

user_asm писал(а):

Все существующие примерыпроектыприложения - не работают. Те же нет-румс.
Вот вам и "как это так?". Пусть меня в очередной раз охаят и скажут что подобного трэша навалом, но весь этот трэш нерабочий.

user_asm, иногда кажется, что за семь лет работы в support-e на этом форуме и общения с пользователями были высказаны уже все безумные теории какие только могут быть... Однако ж каждый раз приходится убеждаться, что их количество равно количеству людей на планете (если не больше). Не исключение и этот случай.

карма: 26

https://hiasm.com

Голосовали:

Minkovsky

Ответов: 146

Рейтинг: 1

#37: 2011-05-26 16:45:54 ЛС | профиль | цитата

Интересно началась тема...
Хочу задать вопрос по теме этой ветки в форуме. Подскажите как именно можно реализовать так чтобы в ОКНО HiAsm встроить окно другой программы, например Paint или ICQ или МАИЛагент или скайп... Как это можно реализовать?

карма: 0

Разработчик

Ответов: 26061

Рейтинг: 2120

#38: 2011-05-26 17:08:41 ЛС | профиль | цитата

legandox писал(а):

Как это можно реализовать?

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

карма: 22

Ответов: 146

Рейтинг: 1

#39: 2011-05-26 17:12:45 ЛС | профиль | цитата

nesco Все спасибо вопрос исчерпан)))

карма: 0

Ответов: 5227

Рейтинг: 586

#40: 2011-05-26 18:15:55 ЛС | профиль | цитата

nesco писал(а):

Стандартными средствами -- никак

не считая IC. Про SetParent который в этой ветке Ivann упомянул уже есть пример перетаскивания гаджетов с пурика, далее Callback на форточку, с костылями конечно но можно.

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 8887

Рейтинг: 823

#41: 2011-05-26 18:18:14 ЛС | профиль | цитата

legandox, есть схемка на VB для Excel, поищите на форуме.

карма: 19

Ответов: 3349

Рейтинг: 233

#42: 2011-05-26 20:07:25 ЛС | профиль | цитата

code_24177.txt
------------ Дoбавленo в 20.07:
Не то что вам надо?

карма: 1

файлы: 1

code_24177.txt [1.3KB] [449]

Голосовали:

Ravilr, Aziz

Разработчик

Ответов: 26061

Рейтинг: 2120

#43: 2011-05-27 11:02:12 ЛС | профиль | цитата

Добавлено компонентом на SVN -- SetParent

карма: 22

Голосовали:

Ravilr

Ответов: 3349

Рейтинг: 233

#44: 2011-05-27 15:02:27 ЛС | профиль | цитата

nesco, Молодец

карма: 1

Ответов: 1263

Рейтинг: 47

#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)])
}

карма: 3

Hiasm + Flowstone + CopperCube + GoDot + JS

Форумы ЗадачиПриложение в окне ← Ctrl1 234Ctrl →


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