Строки разного цвета

Вверх ↑

Форумы Помощь по средеСтроки разного цвета ← Ctrl1 234Ctrl →

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

Ответов: 16884

Рейтинг: 1239

#31: 2008-08-22 13:51:26 ЛС | профиль | цитата

Dymgreen, и код не весь

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 14

Рейтинг: 0

#32: 2008-08-22 13:58:04 ЛС | профиль | цитата


#sha
Add(MainForm,16078593,35,77)
{
 Left=20
 Top=105
 Width=868
 Height=643
 Caption="xls"
}
Add(ODialog,16073511,91,126)
{
 Filter="*.xls|*.xls|All|*.*"
 link(onExecute,11221787:doEvent1,[])
}
Add(VBJScript,7134762,238,182)
{
 @Hint=#16:Query SQL Server|
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|7:onExcel|7:onError|
 Script=#15:Option Explicit|0:|7:Dim FSO|0:|27:Function doWork(Data,Index)|10: Dim strIn|19: strIn = CStr(Data)|53: Set FSO = CreateObject("Scripting.FileSystemObject")|8: Dim Ext|28: Ext = GetAnExtension(strIn)|28: If LCase(Ext) <> "xls" Then|19:  Sys.onEvent strIn|5: Else|8:  Dim XL|44:  Set XL = CreateObject("Excel.Application")|25:  XL.WorkBooks.Open strIn|12:  Dim strOut|13:  strOut = ""|10:  Dim rows|10:  rows = 1|10:  Dim colm|10:  colm = 1|47:  Do While Not IsEmpty(XL.Cells(rows, 1).Value)|51:   Do While Not IsEmpty(XL.Cells(rows, colm).Value)|54:    strOut = strOut & XL.Cells(rows, colm).Value & ";"|19:    colm = colm + 1|7:   Loop|27:   strOut = strOut & vbCrLf|11:   colm = 1|18:   rows = rows + 1|6:  Loop|9:  XL.Quit|18:  Set XL = Nothing|20:  Sys.onExcel strOut|7: End If|12:End Function|0:|33:Function GetAnExtension(FileSpec)|23:   On Error Resume Next|50:   GetAnExtension = FSO.GetExtensionName(FileSpec)|100:   If CStr(Err.Number) <> 0 Then call LogMsg(EventError, "Can't get extension of file: " & FileSpec)|12:End Function|0:|27:Sub LogMsg(intType, strMsg)|37:   Sys.onError strMsg & ";" & intType|7:End Sub|
 link(onExcel,2115300:doText,[(310,195)(310,55)])
}
Add(StrList,2115300,336,28)
{
 Point(doSort)
}
Add(Hub,11221787,140,126)
{
 OutCount=5
 link(onEvent1,2115300:doClear,[(189,132)(189,41)])
 link(onEvent3,7134762:doWork,[(191,146)(191,188)])
 link(onEvent4,2115300:doSort,[(254,153)(254,76)])
}
Add(Button,1385885,28,126)
{
 Left=20
 Top=5
 Caption="Open"
 link(onClick,16073511:doExecute,[])
}
Add(StringTableMT,4591889,588,371)
{
 Left=25
 Top=40
 Width=805
 Height=295
 Columns=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|2:11|
 Grid=0
 ColorItems=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(doTextColor)
 link(Str,4253483:FString,[(594,359)(531,359)(531,436)(468,436)])
}
Add(FormatStr,4253483,462,392)
{
 Mask="%1;%2"
 Point(FString)
 link(onFString,4591889:doAdd,[(541,398)(541,377)])
 link(Str1,8582034:Result,[(468,380)(426,380)(426,436)(384,436)])
 link(Str2,4051247:Item,[])
}
Add(MathParse,8582034,378,392)
{
 MathStr="%1 + %2+1"
 link(onResult,4253483:doString,[])
 link(X2,8428275:Selected,[])
}
Add(RadioButton,8428275,385,273)
{
 Left=85
 Top=5
 Width=80
 Caption="
[size=9]------------ Дoбавленo:[/size]



#sha
Add(MainForm,16078593,35,77)
{
 Left=20
 Top=105
 Width=868
 Height=643
 Caption="xls"
}
Add(ODialog,16073511,91,126)
{
 Filter="*.xls|*.xls|All|*.*"
 link(onExecute,11221787:doEvent1,[])
}
Add(VBJScript,7134762,238,182)
{
 @Hint=#16:Query SQL Server|
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|7:onExcel|7:onError|
 Script=#15:Option Explicit|0:|7:Dim FSO|0:|27:Function doWork(Data,Index)|10: Dim strIn|19: strIn = CStr(Data)|53: Set FSO = CreateObject("Scripting.FileSystemObject")|8: Dim Ext|28: Ext = GetAnExtension(strIn)|28: If LCase(Ext) <> "xls" Then|19:  Sys.onEvent strIn|5: Else|8:  Dim XL|44:  Set XL = CreateObject("Excel.Application")|25:  XL.WorkBooks.Open strIn|12:  Dim strOut|13:  strOut = ""|10:  Dim rows|10:  rows = 1|10:  Dim colm|10:  colm = 1|47:  Do While Not IsEmpty(XL.Cells(rows, 1).Value)|51:   Do While Not IsEmpty(XL.Cells(rows, colm).Value)|54:    strOut = strOut & XL.Cells(rows, colm).Value & ";"|19:    colm = colm + 1|7:   Loop|27:   strOut = strOut & vbCrLf|11:   colm = 1|18:   rows = rows + 1|6:  Loop|9:  XL.Quit|18:  Set XL = Nothing|20:  Sys.onExcel strOut|7: End If|12:End Function|0:|33:Function GetAnExtension(FileSpec)|23:   On Error Resume Next|50:   GetAnExtension = FSO.GetExtensionName(FileSpec)|100:   If CStr(Err.Number) <> 0 Then call LogMsg(EventError, "Can't get extension of file: " & FileSpec)|12:End Function|0:|27:Sub LogMsg(intType, strMsg)|37:   Sys.onError strMsg & ";" & intType|7:End Sub|
 link(onExcel,2115300:doText,[(310,195)(310,55)])
}
Add(StrList,2115300,336,28)
{
 Point(doSort)
}
Add(Hub,11221787,140,126)
{
 OutCount=5
 link(onEvent1,2115300:doClear,[(189,132)(189,41)])
 link(onEvent3,7134762:doWork,[(191,146)(191,188)])
 link(onEvent4,2115300:doSort,[(254,153)(254,76)])
}
Add(Button,1385885,28,126)
{
 Left=20
 Top=5
 Caption="Open"
 link(onClick,16073511:doExecute,[])
}
Add(StringTableMT,4591889,588,371)
{
 Left=25
 Top=40
 Width=805
 Height=295
 Columns=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|2:11|
 Grid=0
 ColorItems=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(doTextColor)
 link(Str,4253483:FString,[(594,359)(531,359)(531,436)(468,436)])
}
Add(FormatStr,4253483,462,392)
{
 Mask="%1;%2"
 Point(FString)
 link(onFString,4591889:doAdd,[(541,398)(541,377)])
 link(Str1,8582034:Result,[(468,380)(426,380)(426,436)(384,436)])
 link(Str2,4051247:Item,[])
}
Add(MathParse,8582034,378,392)
{
 MathStr="%1 + %2+1"
 link(onResult,4253483:doString,[])
 link(X2,8428275:Selected,[])
}
Add(RadioButton,8428275,385,273)
{
 Left=85
 Top=5
 Width=80
 Caption="
[size=9]------------ Дoбавленo:[/size]

Вставил - весь, - отправить - а в сообщении опять огрызок пачему? Пробовал редактить старое сообщение, создавать новое - та же фигня.

карма: 0

Ответов: 16884

Рейтинг: 1239

#33: 2008-08-22 13:58:13 ЛС | профиль | цитата

код не весь. У меня кончается вот этим

Add(RadioButton,8428275,385,273)
{
Left=85
Top=5
Width=80
Caption=""

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 14

Рейтинг: 0

#34: 2008-08-22 14:01:15 ЛС | профиль | цитата

code_9779.txt
------------ Дoбавленo:

Опера походу взглючнула

карма: 0

файлы: 1

code_9779.txt [3.2KB] [261]

Разработчик

Ответов: 26163

Рейтинг: 2127

#35: 2008-08-22 14:11:01 ЛС | профиль | цитата

Dymgreen, для работы с массивами не нужна связка For+ArrayRW. Ее надо заменить на ArrayEnum

------------ Дoбавленo:

И из схемы совсем непонятно, каким боком должен прикручиваться цвет, и как он должен меняться

карма: 22

Ответов: 14

Рейтинг: 0

#36: 2008-08-22 14:36:30 ЛС | профиль | цитата

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

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#37: 2008-08-22 14:43:06 ЛС | профиль | цитата

Dymgreen писал(а):

я с мт потоками в первые, скорее всего можно сделать изящнее, не хватает инфы по этим потокам

Зачем тебе MT-потоки, какая в них надобность в данном случае

Dymgreen писал(а):

проверять условие и в зависимости от результата - цвет

И сколько должно быть условий, какие должны быть условия

карма: 22

Ответов: 14

Рейтинг: 0

#38: 2008-08-22 14:51:39 ЛС | профиль | цитата

Первое-на повторение значений в первой колонке(да-выделяем цветом, нет-цвет как у остальных строк) в цикле сравниваем текущее с предидущим например. Второе-проверка значений колонки 9(например) с текущей датой. Совпадают-один цвет, раньше-другой цвет,позже-третий.В идеале вторая прверка настраиваемая-на сколько раньше(позже) день, неделя, месяц, год.Проверку ещё не делал, хотел добиться просто вывода строк с одним каким либо цветом для начала.
А про MT-потоки просто хотелось бы узнать(что это и с чем это едят).

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#39: 2008-08-22 16:31:34 ЛС | профиль | цитата

Если я правильно понял, что-то типа этого. В архиве есть файл probe.xls, для проверки

------------ Дoбавленo:

Немножко подправил на равенство даты

карма: 22

файлы: 1

color_xls.zip [3.7KB] [218]

Ответов: 14

Рейтинг: 0

#40: 2008-08-22 16:48:07 ЛС | профиль | цитата

То что надо!!!!! Теперь попытаюсь вкурить всё это(к вопросу о МТ-компонентах). Смысл не тупо использовать готовую схему, а разобравшись сотворить самому. Останется докурить вставку новых строк и редактирование отдельных ячеек. ОГРОМНОЕ спасибо!
З.Ы. Кстати где можно почитать про потоки вообще и МТ в частности (для начинающих)?

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#41: 2008-08-22 16:54:27 ЛС | профиль | цитата

Dymgreen писал(а):

к вопросу о МТ-компонентах

Воткни в разрыв Debug'и и смотри состав данных. Аналогия MT-потоков -- ж/д состав из N выгончиков, в которых находятся разнородные данные
------------ Дoбавленo:

Dymgreen писал(а):

Смысл не тупо использовать готовую схему, а разобравшись сотворить самому

Похвально.

карма: 22

Ответов: 14

Рейтинг: 0

#42: 2008-08-22 17:18:13 ЛС | профиль | цитата

Я так себе примерно и представлял, надо со "стрелочниками" разобраться. Ещё раз спасибо, прощаюсь(пора домой).

карма: 0

Ответов: 16884

Рейтинг: 1239

#43: 2008-08-22 17:36:39 ЛС | профиль | цитата

nesco, на прошлый мой вопрос не ответил, может на этот ответишь ?
Здесь только ListBox работает согласно установкам в свойствах.
code_9783.txt
------------ Дoбавленo:

нужен сплошной фон

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1

code_9783.txt [894B] [270]

Разработчик

Ответов: 26163

Рейтинг: 2127

#44: 2008-08-22 18:52:01 ЛС | профиль | цитата

Tad, тебе нужен, и цвет текста, и цвет фона, где цвет фона -- BkColor


Add(ListBox,3378643,420,203)
{
 Left=40
 Top=30
 Width=105
 Height=215
 Color=11468799
 Font=[MS Sans Serif,8,1,8388608,1]
}
Add(StringTable,6486453,420,266)
{
 Left=155
 Top=30
 Width=220
 Height=215
 Color=11468799
 Font=[MS Sans Serif,8,1,16711680,1]
 Columns=#1:1|1:2|
 Grid=0
}
Add(Button,1668003,280,203)
{
 Left=35
 Top=5
 Data=String(asd;qwer)
 link(onClick,9541748:doEvent1,[])
}
Add(Hub,9541748,357,203)
{
 OutCount=3
 link(onEvent1,3378643:doAdd,[])
 link(onEvent2,6486453:doAdd,[(405,216)(405,272)])
 link(onEvent3,155261:doAdd,[(399,223)(399,328)])
}
Add(StringTableMT,155261,420,322)
{
 Left=390
 Top=30
 Width=215
 Height=220
 Color=11468799
 Font=[MS Sans Serif,8,1,16711680,1]
 Columns=#1:1|1:2|
 Grid=0
 TextBkColor=11468799
 BkColor=11468799
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
}

------------ Дoбавленo:

Tad писал(а):

Давай пример, как сделать, чтобы цвет текста был всегда инверсным цвету фона, если у них разные ед.изм. ?

Полностью инверсным он не получится из-за ограничения в индексах цвета (я уже писал "почему", читай выше). Связь индексов с основными цветами делается элементарно (на сторонних компонентах), так что не надо про разные ед. изм.

карма: 22

Ответов: 5227

Рейтинг: 587

#45: 2008-08-22 19:03:33 ЛС | профиль | цитата

Tad, у меня всё работает

code_9784.txt

карма: 4

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

файлы: 1

code_9784.txt [1.2KB] [390]

Форумы Помощь по средеСтроки разного цвета ← Ctrl1 234Ctrl →


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