Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2007-07-16 19:31:50 правка | ЛС | профиль | цитата


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

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2007-07-18 12:26:10 правка | ЛС | профиль | цитата


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

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2007-07-18 15:44:11 правка | ЛС | профиль | цитата


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

0
Ответов: 899
Рейтинг: 43
#4: 2007-07-19 03:42:28 ЛС | профиль | цитата
3042 писал(а):
Если очень надо организовать событие по ОТВОДУ мыши от элемента, но такого события нет, то поможет схема (при этом у элемента должно быть OnMouseMove):

А вот схема попроще
Add(MainForm,14044646,266,380)
{
Left=20
Top=105
Height=390
Point(onMouseMove)
link(onMouseMove,5034706:doData,[])
}
Add(Button,4220847,322,373)
{
Left=40
Top=75
Point(onMouseMove)
link(onMouseMove,12778028:doData,[(365,386)(365,421)])
}
Add(Hub,4955167,427,415)
{
InCount=2
OutCount=1
link(onEvent1,14044646:doCaption,[(472,421)(472,460)(253,460)(253,386)])
}
Add(DoData,12778028,378,415)
{
Data=String(мышь над кнопкой)
link(onEventData,4955167:doEvent1,[])
}
Add(DoData,5034706,322,422)
{
Data=String(мышь отведена)
link(onEventData,4955167:doEvent2,[])
}
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2007-07-19 11:02:18 правка | ЛС | профиль | цитата


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

0
Ответов: 899
Рейтинг: 43
#6: 2007-07-19 18:58:30 ЛС | профиль | цитата
3042, согласен, это я схемку для частного случая накатал
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 5
Рейтинг: 0
#7: 2007-08-09 00:29:37 ЛС | профиль | цитата
В SQLite нет команд LOAD и UNLOAD пришлось сделать схему. Может кому пригодится. Или у кого-то есть другие решения?
Add(MainForm,11782419,-7,-206)
{
Left=20
Top=105
Width=399
Height=404
link(onCreate,15868017:doEvent1,[])
}
Add(SQLite_DB,3659224,126,-164)
{
FileName="base.db"
link(onOpen,5670729:doEvent1,[(170,-158)(170,-144)])
}
Add(SQLite_Query,5615640,252,-171)
{
link(onQuery,16018729:doStr,[])
link(dbHandle,3659224:dbHandle,[(258,-186)(223,-186)(223,-120)(132,-120)])
link(SQL,6916205:Value,[])
}
Add(Hub,5670729,182,-150)
{
InCount=2
OutCount=1
link(onEvent1,5615640:doQuery,[(233,-144)(233,-165)])
}
Add(Hub,15868017,63,-171)
{
link(onEvent1,6916205:doClear,[(140,-165)(140,-277)])
link(onEvent2,3659224:doOpen,[])
}
Add(Memory,6916205,259,-290)
{
Default=String(CREATE TABLE tabl (column1 char (10), column2 char (10), column3 char (10), column4 char (10));)
}
Add(MT_String,16018729,322,-171)
{
link(onResult,3846903:doAdd,[])
}
Add(StringTable,3846903,448,-171)
{
Left=10
Top=50
Width=365
Height=310
Columns=#9:Столбец 1|9:Столбец 2|9:Столбец 3|9:Столбец 4|
}
Add(Button,150915,84,88)
{
Left=35
Top=10
Width=70
Caption="Из файла"
link(onClick,4214252:doExecute,[])
}
Add(Button,8807815,126,-17)
{
Left=145
Top=10
Width=65
Caption="В файл"
link(onClick,2812814:doExecute,[])
}
Add(ODialog,4214252,147,88)
{
Filter="Тектовые файлы|*.txt"
FileName=""
link(onExecute,633815:doEvent1,[])
}
Add(StrList,2644363,273,74)
{
}
Add(Hub,633815,196,88)
{
link(onEvent1,2644363:doLoad,[(250,94)(250,108)])
link(onEvent2,4755543:doEnum,[(257,101)(257,171)])
}
Add(ArrayEnum,4755543,287,165)
{
link(onItem,8553455:doEvent1,[])
link(onEndEnum,155001:doClear,[(367,178)(367,381)])
link(Array,2644363:Array,[])
}
Add(Hub,8553455,350,165)
{
link(onEvent1,12584775:doSplit,[])
link(onEvent2,12433557:doString,[(409,178)(409,332)])
}
Add(StrPart,12584775,434,165)
{
Char=";"
link(onSplit,5631731:doSplit,[])
link(onPart,10797976:doValue,[(474,178)(474,227)])
}
Add(StrPart,5631731,504,165)
{
Char=";"
link(onSplit,10811414:doSplit,[])
link(onPart,15475271:doValue,[(551,178)(551,227)])
}
Add(StrPart,10811414,581,165)
{
Char=";"
link(onSplit,8385919:doValue,[])
link(onPart,99685:doValue,[(628,178)(628,227)])
}
Add(Memory,10797976,483,221)
{
Default=String()
}
Add(Memory,15475271,567,221)
{
Default=String()
}
Add(Memory,99685,644,221)
{
Default=String()
}
Add(Memory,8385919,658,165)
{
Default=String()
}
Add(FormatStr,12433557,539,326)
{
DataCount=4
Mask="INSERT INTO tabl VALUES ('%1', '%2', '%3', '%4');"
link(onFString,15864568:doEvent1,[])
link(Str1,10797976:Value,[(545,290)(489,290)])
link(Str2,15475271:Value,[(552,282)(573,282)])
link(Str3,99685:Value,[(559,290)(650,290)])
link(Str4,8385919:Value,[(566,299)(664,299)])
}
Add(Memory,155001,518,368)
{
Default=String(SELECT * FROM tabl;)
link(onData,15864568:doEvent2,[(576,374)(576,339)])
}
Add(Hub,15864568,602,326)
{
InCount=2
link(onEvent1,6916205:doValue,[(672,332)(672,-219)(226,-219)(226,-284)])
link(onEvent2,5670729:doEvent2,[(644,339)(644,-97)(170,-97)(170,-137)])
}
Add(SDialog,2812814,182,-17)
{
Filter="Текстовые файлы|*.txt"
FileName=""
link(onExecute,5128657:doEvent1,[])
}
Add(Hub,5128657,231,-17)
{
OutCount=4
link(onEvent1,3846903:doSave,[(279,-11)(279,-137)])
link(onEvent2,14272964:doLoad,[(297,-4)(297,17)])
link(onEvent3,11418808:doClear,[(289,3)(289,-46)])
link(onEvent4,14272964:doSave,[(289,10)(289,24)])
}
Add(StrList,14272964,434,-17)
{
}
Add(Memory,11418808,315,-59)
{
Default=Integer(0)
link(onData,14272964:doDelete,[(390,-53)(390,3)])
}
карма: 1

0
Разработчик
Ответов: 26109
Рейтинг: 2124
#8: 2007-08-09 00:48:28 ЛС | профиль | цитата
serg, ну, ну -- опять приколы с раскладкой.
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2007-08-09 20:23:10 правка | ЛС | профиль | цитата


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

0
Разработчик
Ответов: 26109
Рейтинг: 2124
#10: 2007-08-09 21:53:35 ЛС | профиль | цитата
serg, но ведь исправил же. И я не критиковал, а просто указал. Извини, если чем обидел. Поверь, совсем не собирался этого делать.
карма: 22

0
Ответов: 9906
Рейтинг: 351
#11: 2007-08-10 16:50:08 ЛС | профиль | цитата
это я исправил
карма: 9

0
Разработчик
Ответов: 26109
Рейтинг: 2124
#12: 2007-08-10 16:59:40 ЛС | профиль | цитата
Ну вот, а я то думал...
карма: 22

0
Ответов: 1926
Рейтинг: 172
#13: 2007-08-14 13:15:35 ЛС | профиль | цитата
Так, для прикола разве что. Если мало ошибок программ (не зависящих от пользователя), то можете создать собтвенную:

code_1807.txt

Выберите число (от 0 до 255), и он выдаст вам RunTime Eroor...
карма: 9
0
файлы: 1code_1807.txt [536B] [492]
13
Сообщение
...
Прикрепленные файлы
(файлы не залиты)