HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуВизуальное оформление MTStrTab ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 758
Рейтинг: 112
#31: 2010-06-02 11:47:49 ЛС | профиль | цитата
Только при 1000 все равно не прошло
code_18653.txt
------------ Дoбавленo в 11.47:


карма: 1

0
файлы: 1code_18653.txt [2KB] [235]
Разработчик
Ответов: 26272
Рейтинг: 2142
#32: 2010-06-02 11:52:59 ЛС | профиль | цитата
miver писал(а):
И если в Img_Text шрифт поменять то и высота поменяется

Это синхронизировать можно
карма: 22

0
Ответов: 758
Рейтинг: 112
#33: 2010-06-02 11:55:24 ЛС | профиль | цитата
Сори немного протупил
Мои извинения
карма: 1

0
Разработчик
Ответов: 26272
Рейтинг: 2142
#34: 2010-06-02 12:28:26 ЛС | профиль | цитата
miver писал(а):
Только при 1000 все равно не прошло

Нормально проходит. Я специально две лишних строчки в формуле добавил, чтобы, уж наверняка, доходило до конца
------------ Дoбавленo в 12.09:
Вот, с синхронизацией шрифта по главному текстовому окну 



Add(MainForm,6384440,196,126)
{
 Width=422
 Height=310
 link(onCreate,4864646:doFor,[])
}
Add(ChildScrollBox,6526944,322,140)
{
}
BEGIN_SDK
  Add(EditMulti,6945593,21,21)
  {
   WorkCount=2
   Width=391
   Height=284
   VOffset=14
   link(doWork1,12485729:doAdd,[])
   link(doWork2,1311866:doEvent1,[(35,48)(35,125)])
  }
  Add(ScrollBox,4065484,364,35)
  {
   Left=25
   Top=20
   Width=369
   Height=240
   Point(onMouseWheel)
  }
  Add(Memo,9218888,231,119)
  {
   Width=60
   Height=32767
   TabOrder=-1
   WinStyle=1
   ReadOnly=0
   Point(onMouseWheel)
   Point(Handle)
   Point(doFont)
   Point(doHeight)
   link(onMouseWheel,9742383:doWork3,[(279,132)])
  }
  Add(Memo,12485729,105,35)
  {
   Left=60
   Width=288
   Height=32767
   Font=[MS Sans Serif,12,0,0,1]
   WinStyle=1
   Name="memo_1"
   Point(onMouseWheel)
   Point(doHeight)
   Point(onKeyDown)
   Point(doEnsureVisible)
   link(onMouseWheel,9742383:doWork2,[])
  }
  Add(Math,5328570,315,42)
  {
   OpType=1
   ResultType=0
   link(onResult,4065484:doVScroll,[])
   link(Op1,4065484:VPos,[(321,30)(349,30)(349,79)(377,79)])
  }
  Add(HubEx,9742383,275,42)
  {
   link(onEvent,5328570:doOperation,[])
  }
  Add(For,4864646,133,119)
  {
   Start=1
   link(onEvent,10002371:doConvert,[])
   link(End,6606901:Var3,[(146,110)])
  }
  Add(Img_Text,7996728,252,203)
  {
   DrawSource=1
   Text="W"
   Point(doFont)
   link(Bitmap,9218888:Handle,[])
  }
  Add(Hub,1311866,49,119)
  {
   OutCount=3
   link(onEvent1,4864646:doFor,[])
   link(onEvent2,7959765:doFont,[(89,132)(89,209)])
   link(onEvent3,7533935:doCalc,[(77,139)(77,265)])
  }
  Add(Hub,6097771,175,259)
  {
   link(onEvent1,9218888:doHeight,[(219,265)(219,174)])
   link(onEvent2,12485729:doHeight,[(299,272)(299,29)(93,29)(93,83)])
  }
  Add(MathParse,7533935,112,259)
  {
   MathStr="(%1 + 2) * %2"
   link(onResult,6097771:doEvent1,[])
   link(X1,6606901:Var2,[])
   link(X2,7996728:TextHeight,[(125,247)(265,247)])
  }
  Add(FontManager,16105381,126,154)
  {
   ControlManager="memo_1"
   Point(FontCharset)
  }
  Add(Font,7959765,126,203)
  {
   Point(CharSet)
   link(onFont,12407207:doEvent1,[])
   link(Size,16105381:FontSize,[])
   link(Color,16105381:FontColor,[])
   link(Name,16105381:FontName,[])
   link(Style,16105381:FontStyle,[])
   link(CharSet,16105381:FontCharset,[])
  }
  Add(Hub,12407207,175,203)
  {
   link(onEvent1,9218888:doFont,[(210,209)(210,167)])
   link(onEvent2,7996728:doFont,[])
  }
  Add(GetDataEx,6606901,112,105)
  {
   link(Data,12485729:Count,[])
  }
  Add(Convertor,10002371,182,119)
  {
   Digits=4
   SymbolFill="0"
   link(onResult,9218888:doAdd,[])
  }
END_SDK
Add(For,4864646,252,140)
{
 Start=1
 End=1000
 link(onEvent,6526944:doWork1,[])
 link(onStop,6526944:doWork2,[])
}

------------ Дoбавленo в 12.26:
Еще одна версия с более точной подгонкой 



Add(MainForm,6384440,196,126)
{
 Width=422
 Height=310
 link(onCreate,4864646:doFor,[])
}
Add(ChildScrollBox,6526944,308,140)
{
}
BEGIN_SDK
  Add(EditMulti,6945593,21,21)
  {
   WorkCount=3
   Width=419
   Height=312
   VOffset=21
   link(doWork1,12485729:doAdd,[])
   link(doWork2,1311866:doEvent1,[(31,55)(31,153)])
   link(doWork3,9051969:doEvent1,[])
  }
  Add(ScrollBox,4065484,385,42)
  {
   Left=25
   Top=20
   Width=369
   Height=240
   Point(onMouseWheel)
  }
  Add(Memo,9218888,231,147)
  {
   Width=60
   Height=32767
   TabOrder=-1
   WinStyle=1
   ReadOnly=0
   Point(onMouseWheel)
   Point(Handle)
   Point(doFont)
   Point(doHeight)
   link(onMouseWheel,9742383:doWork3,[(279,160)])
  }
  Add(Memo,12485729,105,42)
  {
   Left=60
   Width=288
   Height=32767
   Font=[MS Sans Serif,12,0,0,1]
   WinStyle=1
   Name="memo_1"
   Point(onMouseWheel)
   Point(doHeight)
   Point(onKeyDown)
   Point(doEnsureVisible)
   link(onMouseWheel,9742383:doWork2,[])
  }
  Add(HubEx,9742383,275,49)
  {
   link(onEvent,4056346:doCalc,[])
  }
  Add(For,4864646,133,126)
  {
   Start=1
   link(onEvent,10002371:doConvert,[])
   link(End,6606901:Var3,[(146,110)])
  }
  Add(Img_Text,7996728,252,224)
  {
   DrawSource=1
   Text="W"
   Point(doFont)
   link(Bitmap,9218888:Handle,[])
  }
  Add(Hub,1311866,42,147)
  {
   OutCount=3
   link(onEvent1,4864646:doFor,[(94,153)(94,132)])
   link(onEvent2,7959765:doFont,[(73,160)(73,230)])
   link(onEvent3,7533935:doCalc,[(65,167)(65,286)])
  }
  Add(Hub,6097771,175,280)
  {
   link(onEvent1,9218888:doHeight,[(219,286)(219,202)])
   link(onEvent2,12485729:doHeight,[(299,293)(299,36)(93,36)(93,90)])
  }
  Add(MathParse,7533935,112,280)
  {
   MathStr="(%1 + 1) * %2"
   ResultType=0
   link(onResult,6097771:doEvent1,[])
   link(X1,6606901:Var2,[])
   link(X2,7996728:TextHeight,[(125,268)(265,268)])
  }
  Add(FontManager,16105381,126,175)
  {
   ControlManager="memo_1"
   Point(FontCharset)
  }
  Add(Font,7959765,126,224)
  {
   Point(CharSet)
   link(onFont,12407207:doEvent1,[])
   link(Size,16105381:FontSize,[])
   link(Color,16105381:FontColor,[])
   link(Name,16105381:FontName,[])
   link(Style,16105381:FontStyle,[])
   link(CharSet,16105381:FontCharset,[])
  }
  Add(Hub,12407207,175,224)
  {
   link(onEvent1,9218888:doFont,[(210,230)(210,195)])
   link(onEvent2,7996728:doFont,[])
  }
  Add(GetDataEx,6606901,112,105)
  {
   link(Data,12485729:Count,[])
  }
  Add(Convertor,10002371,182,126)
  {
   Digits=4
   SymbolFill="0"
   link(onResult,9218888:doAdd,[(222,132)(222,153)])
  }
  Add(MathParse,4056346,322,49)
  {
   DataCount=3
   MathStr="((%3 - %2) <= %1) * (%3 - %2) + ((%3 - %2) > %1) * %1 "
   ResultType=0
   link(onResult,4065484:doVScroll,[])
   link(X1,7533935:Result,[(328,37)(308,37)(308,322)(118,322)])
   link(X3,4065484:VPos,[(342,37)(370,37)(370,86)(398,86)])
  }
  Add(Hub,9051969,42,56)
  {
   link(onEvent1,12485729:doClear,[(81,62)(81,55)])
   link(onEvent2,9218888:doClear,[(81,69)(81,160)])
  }
END_SDK
Add(For,4864646,252,140)
{
 Start=1
 End=1000
 link(onEvent,6526944:doWork1,[])
 link(onStop,6526944:doWork2,[])
}

------------ Дoбавленo в 12.28:
Остается последнее -- синхронизировать с клавиатурой
карма: 22

0
Ответов: 758
Рейтинг: 112
#35: 2010-06-02 12:50:22 ЛС | профиль | цитата
[offtop]Можно поверх нарисовать альфа градиент для прозрачной полосатости и будет как в первом посте
Кстати, а вообще возможно нарисовать картинку за текстом в MEMO [/offtop]

карма: 1

0
Разработчик
Ответов: 26272
Рейтинг: 2142
#36: 2010-06-02 13:22:18 ЛС | профиль | цитата
miver писал(а):
Кстати, а вообще возможно нарисовать картинку за текстом в MEMO

Почему бы и нет

карма: 22

0
файлы: 1bitmap_and_memo.sha [141.2KB] [314]
Ответов: 1376
Рейтинг: 198
#37: 2010-06-02 13:34:51 ЛС | профиль | цитата
А может надо было плясать от PaintBox?
code_18658.txt
карма: 1

0
файлы: 1code_18658.txt [6.8KB] [248]
Разработчик
Ответов: 26272
Рейтинг: 2142
#38: 2010-06-02 14:10:49 ЛС | профиль | цитата
foksov, здорово, только как в нем писать, как выбирать строки Это же -- просто отображение информации без возможности с ней работать
И как изменить в нем цвет каждой строки
карма: 22

0
Ответов: 1376
Рейтинг: 198
#39: 2010-06-02 14:23:02 ЛС | профиль | цитата
Ну сам-то список заполняется от куда-либо, а при заполнении каждой строки рисовать нужного цвета прямоугольник можно. А вот добавил туда выбор строки...
code_18659.txt
карма: 1

0
файлы: 1code_18659.txt [8.4KB] [352]
Разработчик
Ответов: 26272
Рейтинг: 2142
#40: 2010-06-02 14:40:15 ЛС | профиль | цитата
Отлично, осталось запрограммировать цвет каждой строки. И вообще, надо бы передавать с текстом цвет каждой строки, но можно, и ячейки, к примеру AAAAAA@0=167127128;BBBBBB@128=167127128
карма: 22

0
Ответов: 1376
Рейтинг: 198
#41: 2010-06-02 15:06:39 ЛС | профиль | цитата
Можно и с передачей цвета, так сперва и хотел... Вот с двумя цветами строк.
code_18660.txt
карма: 1

2
файлы: 1code_18660.txt [10KB] [392]
Голосовали:nesco, NsV
Разработчик
Ответов: 26272
Рейтинг: 2142
#42: 2010-06-02 15:36:31 ЛС | профиль | цитата
foksov писал(а):
Можно и с передачей цвета

Ты глянь предложение по программированию цвета ячеек, может удастся реализовать. Но тема интересная, потому, от меня тебе "+"
карма: 22

0
Ответов: 1376
Рейтинг: 198
#43: 2010-06-03 15:28:49 ЛС | профиль | цитата
nesco, подскажи пожалуйста, почему не сробатывает событие onMouseWheel в PaintBox и ScrollBox
code_18680.txt
------------ Дoбавленo в 15.28:
Может что-то обновить?
карма: 1

0
файлы: 1code_18680.txt [13.6KB] [288]
Разработчик
Ответов: 26272
Рейтинг: 2142
#44: 2010-06-03 15:43:10 ЛС | профиль | цитата
foksov писал(а):
почему не сробатывает событие

А это событие там и не работало никогда. Кроме формы, вроде, это событие нигде больше не работает. Че, не вариант протащить это колесо куда надо
карма: 22

0
Ответов: 1376
Рейтинг: 198
#45: 2010-06-03 16:36:06 ЛС | профиль | цитата
Спасибо! Не касался такого раньше, как-то небыло нужды, теперь буду знать. Обойдусь тем, что есть...
карма: 1

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