HiAsm
HiAsm
Вверх ↑
ФорумыМежду деломЦвет строки в зависимости от повторений ← Ctrl12Ctrl →
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#16: 2013-07-21 22:13:36 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-12 02:01:54
карма: 0

0
Ответов: 29
Рейтинг: 3
#17: 2013-07-21 22:32:14 ЛС | профиль | цитата
Да. спасибо огромное, отличный вариант, буду его крутить
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#18: 2013-07-21 22:47:09 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-12 02:01:55
карма: 0

0
Ответов: 29
Рейтинг: 3
#19: 2013-07-21 23:26:49 ЛС | профиль | цитата
г. ость, а вот еще вопрос, как сделать так чтобы все так же работало, только например у того, который меняется цветом в последнем столбце менялось время, вот пример

[/coMake(delphi)
ver(4.04 build 184)
Add(MainForm,16572938,70,203)
{
 Width=491
 Height=414
}
Add(StringTableMT,7932162,658,371)
{
 Top=136
 Width=475
 Height=240
 Align=4
 Font=[MS Sans Serif,12,1,0,1]
 Columns=#5:1=200|5:2=200|5:3=200|
 CheckBoxes=0
 ColorItems=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(Strings)
 Point(CheckBoxes)
}
Add(Button,10248593,196,266)
{
 Left=380
 Top=20
 Width=80
 Height=25
 Caption="Сохранить"
 link(onClick,428010:doString,[])
}
Add(FormatStr,428010,238,266)
{
 DataCount=3
 Mask="%1;%2;%3"
 Point(FString)
 link(onFString,16269237:doEnum,[])
 link(Str1,4177026:Text,[(244,257)(209,257)])
 link(Str2,16696074:Text,[])
 link(Str3,12199420:Caption,[(258,202)(496,202)])
}
Add(Edit,4177026,203,210)
{
 Left=10
 Top=10
 Width=265
 Text="Иванов"
}
Add(Edit,16696074,245,210)
{
 Left=10
 Top=35
 Width=265
 Text="Иван"
}
Add(Label,8177937,154,196)
{
 Left=290
 Top=15
 Width=60
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Фамилия"
}
Add(Label,10526869,154,210)
{
 Left=290
 Top=35
 Width=29
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Имя"
}
Add(ArrayEnum,16269237,301,266)
{
 onBreakEnable=0
 link(onItem,7268067:doCompare,[])
 link(onEndEnum,7041485:doString,[(340,279)(340,377)])
 link(Array,12022579:Var1,[(307,243)])
}
Add(FormatStr,7041485,525,371)
{
 DataCount=1
 Mask="#58880 ;%1"
 Point(FString)
 link(onFString,3382498:doEvent1,[])
 link(Str1,8128101:Var2,[])
}
Add(If_else,7268067,350,266)
{
 link(onTrue,3391999:doEvent1,[])
 link(Op1,15094539:Var1,[(356,254)(391,254)])
}
Add(GetDataEx,15094539,385,320)
{
 Angle=3
 link(Data,428010:FString,[(244,325)])
}
Add(ArrayRW,4238542,441,266)
{
 link(onRead,4479535:doOperation,[])
 link(Array,13341765:Var2,[(447,236)(713,236)])
 link(Index,12447593:Var1,[(454,250)])
}
Add(FormatStr,5165021,623,266)
{
 Mask="#%1 ;%2"
 Point(FString)
 link(onFString,3652642:doWrite,[(662,272)(662,279)])
 link(Str2,8128101:Var3,[(636,257)(615,257)(615,325)])
}
Add(Math,4479535,483,266)
{
 OpType=6
 Op2=1
 ResultType=0
 link(onResult,15936581:doEvent1,[])
}
Add(ArrayRW,3652642,672,266)
{
 link(Array,12022579:Var2,[])
 link(Index,12447593:Var3,[(685,250)])
}
Add(GetDataEx,12022579,672,238)
{
 Angle=1
 link(Data,7932162:Strings,[(720,243)(720,425)(678,425)])
}
Add(Hub,3382498,574,371)
{
 link(onEvent1,7932162:doAdd,[])
 link(onEvent2,16598575:doAdd,[(599,384)(599,398)])
}
Add(ArrayRW,16598575,609,378)
{
 link(Array,13341765:Var1,[(615,362)])
 link(Value,7316400:Value,[])
}
Add(GetDataEx,13341765,707,357)
{
 Angle=2
 link(Data,7932162:CheckBoxes,[(713,418)(685,418)])
}
Add(Memory,7316400,623,322)
{
 Default=Integer(1)
}
Add(GetDataEx,8128101,525,320)
{
 Angle=3
 link(Data,15094539:Var3,[])
}
Add(Hub,15936581,525,266)
{
 link(onEvent1,996925:doGetString,[(560,272)(560,307)])
 link(onEvent2,4238542:doWrite,[(550,279)(550,307)(427,307)(427,279)])
}
Add(Hub,3391999,399,266)
{
 link(onEvent1,4238542:doRead,[])
 link(onEvent2,16269237:doStop,[(424,279)(424,237)(291,237)(291,279)])
}
Add(StrList,996925,574,259)
{
 Strings=#5:58880|3:230|
 Point(onGetString)
 Point(doGetString)
 link(onGetString,5165021:doString,[])
}
Add(GetDataEx,12447593,474,245)
{
 Angle=2
 link(Data,16269237:Index,[(480,313)(314,313)])
}
Add(Label,12199420,490,105)
{
 Top=100
 Width=475
 Height=36
 Align=4
 Font=[Goudy Stout,16,3,16711680,0]
 link(Text,13872396:FormatTime,[])
}
Add(Timer,13535085,434,105)
{
 Interval=100
 link(onTimer,12199420:doText,[])
}
Add(Time,13872396,490,56)
{
 Format="D/M/Y  h:m:s"
}
------------ Дoбавленo в 23.26:
Тоесть чтобы видно было во сколько пришел, во сколько ушел, тоесть если зеленый - видно рвемя прихода, если красным - время ухода
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#20: 2013-07-21 23:38:23 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-12 02:01:55
карма: 0

0
Ответов: 29
Рейтинг: 3
#21: 2013-07-21 23:46:31 ЛС | профиль | цитата
Вы супер! Спасибо огроменное! Просто то самое что нужно было, теперь смогу прикручивать.
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#22: 2013-07-21 23:48:09 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-12 02:01:56
карма: 0

0
Ответов: 1536
Рейтинг: 176
#23: 2013-07-22 11:30:14 ЛС | профиль | цитата
Одно не пойму, зачем там флаги?
code_31480.txt
карма: 1
Не так страшна ошибка, как опасность её не заметить.

1
файлы: 1code_31480.txt [2.8KB] [127]
Голосовали:Tad
Ответов: 29
Рейтинг: 3
#24: 2013-07-23 02:12:52 ЛС | профиль | цитата
А как можно реализовать чтобы в нижнем поле, когда появлялась или изменялась запись появлялось сообщение такого типа - Иванов Иван зашел в 13:25:13, либо Иванов Иван вышел в 13:25:13, тоесть если зеленый - зашел, если красный - ушел.
Make(delphi)
ver(4.04 build 184)
Add(Label,4163377,413,14)
{
 Left=400
 Top=10
 Width=70
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="ФАМИЛИЯ"
}
Add(Label,8701756,406,7)
{
 Left=400
 Top=30
 Width=32
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="ИМЯ"
}
Add(MainForm,9135579,133,294)
{
 Width=675
 Height=473
}
Add(Edit,10264968,154,161)
{
 Left=10
 Top=5
 Width=385
 Text="Иванов"
}
Add(Edit,9639399,196,161)
{
 Left=10
 Top=30
 Width=385
 Text="Иван"
}
Add(Button,6740221,133,224)
{
 Left=535
 Top=5
 Width=70
 Height=45
 link(onClick,14518331:doString,[])
}
Add(FormatStr,14518331,189,224)
{
 Mask="%1;%2"
 Point(FString)
 link(onFString,13220890:doEnum,[])
 link(Str1,10264968:Text,[(195,205)(160,205)])
 link(Str2,9639399:Text,[])
}
Add(StringTableMT,7932162,252,161)
{
 Left=10
 Top=57
 Width=641
 Height=240
 Font=[MS Sans Serif,12,1,0,1]
 Columns=#5:1=200|5:2=200|5:3=250|
 FullSelect=0
 ColorItems=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(Strings)
 Point(doInitTxtTab)
}
Add(ArrayEnum,13220890,266,224)
{
 onBreakEnable=0
 link(onItem,16462674:doSplit,[])
 link(onEndEnum,6453967:doString,[(309,237)(309,391)])
 link(Array,8507398:Var2,[])
}
Add(Case,1312495,497,308)
{
 Value=String(0#230)
 DataOnTrue=String(#58880)
 link(onNextCase,2928459:doCase,[(537,314)(537,307)])
 link(onTrue,4983679:doWork3,[(599,321)])
}
Add(Case,2928459,546,301)
{
 Value=String(0#58880)
 DataOnTrue=String(#230)
 link(onTrue,4983679:doWork2,[])
}
Add(MultiStrPart,16462674,329,224)
{
 Count=3
 link(onSplit,8386320:doStrCatDlm,[(373,230)(373,268)(321,268)(321,307)])
}
Add(If_else,9980731,385,301)
{
 PColor(Op1,5614080)
 link(onTrue,3133654:doEvent1,[])
 link(Op2,1257313:Var2,[])
}
Add(DoData,7178194,455,308)
{
 PColor(Data,16711935)
 link(onEventData,1312495:doCase,[])
 link(Data,16462674:Part1,[(461,273)(335,273)])
}
Add(ArrayRW,13807079,658,371)
{
 link(Array,8507398:Var1,[(664,363)(242,363)(242,215)])
 link(Index,13220890:Index,[(671,352)(279,352)])
}
Add(GetDataEx,8507398,266,210)
{
 link(Data,7932162:Strings,[])
}
Add(FormatStr,8469794,637,308)
{
 DataCount=3
 Mask="%1;%2;%3"
 PColor(Str2,5614080)
 PColor(Str3,43775)
 link(onFString,13807079:doWrite,[(686,314)(686,346)(646,346)(646,384)])
 link(Str2,6174571:Var3,[(650,282)])
 link(Str3,14324769:Var2,[])
}
Add(Time,13450053,651,217)
{
 Format="h:m:s"
}
Add(Hub,3133654,427,301)
{
 PColor(onEvent1,16776960)
 link(onEvent1,13220890:doStop,[(450,307)(450,291)(254,291)(254,237)])
 link(onEvent2,7178194:doData,[])
}
Add(FormatStr,6453967,602,385)
{
 Mask="#58880;%1;%2"
 PColor(Str1,5614080)
 PColor(Str2,43775)
 link(onFString,13807079:doAdd,[])
 link(Str1,6174571:Var2,[])
 link(Str2,14324769:Var1,[(615,271)])
}
Add(GetDataEx,14324769,651,266)
{
 PColor(Data,43775)
 link(Data,13450053:FormatTime,[])
}
Add(HubEx,4983679,595,308)
{
 link(onEvent,8469794:doString,[])
}
Add(GetDataEx,1257313,392,277)
{
 Angle=3
 PColor(Data,5614080)
 link(Data,14518331:FString,[(195,282)])
}
Add(GetDataEx,6174571,602,277)
{
 Angle=3
 PColor(Data,5614080)
 link(Data,1257313:Var3,[])
}
Add(StrCatDelim,8386320,336,301)
{
 Delimiter=";"
 link(onStrCatDlm,9980731:doCompare,[])
 link(Str1,16462674:Part2,[])
 link(Str2,16462674:Part3,[])
}
Add(Edit,16158073,21,308)
{
 Left=15
 Top=310
 Width=630
 Height=50
 Text=""
}
И чтото я там наковырял, что перестало работать все. Я попытался добавить столбцы, но видимо не получилось и теперь идет просто добавление
карма: 1

0
файлы: 1code_31490.txt [3.2KB] [129]
Гость
Ответов: 17029
Рейтинг: 0
#25: 2013-07-23 05:16:07 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-12 02:01:56
карма: 0

0
Ответов: 29
Рейтинг: 3
#26: 2013-07-23 08:34:19 ЛС | профиль | цитата
А почему вместо русского текста при копировании кракозябры? схема не работает наверное из-за этого
карма: 1

0
Ответов: 1536
Рейтинг: 176
#27: 2013-07-23 09:46:49 ЛС | профиль | цитата
А, в браузере не пробывал изменить кодировку на Юникод (UTF-8). Ещё подобный вопрос, буду минусовать. В детском саду дети знают об этом.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

1
Голосовали:Magik223
Ответов: 29
Рейтинг: 3
#28: 2013-07-23 10:01:16 ЛС | профиль | цитата
Извините, не знал, если бы знал не задавал бы. Можете минусовать.
карма: 1

0
28
ФорумыМежду деломЦвет строки в зависимости от повторений ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика