HiAsm
HiAsm
Вверх ↑
ФорумыДелаем компонентыChildScrollBox ← Ctrl1234Ctrl →
Этот топик читают: Гость
Разработчик
Ответов: 26066
Рейтинг: 2120
#31: 2008-03-25 09:52:21 ЛС | профиль | цитата
andrestudio писал(а):
Ссылки нет, архив есть на диске

А намылить можешь ?
карма: 22

0
Ответов: 5227
Рейтинг: 586
#32: 2008-03-25 15:46:20 ЛС | профиль | цитата
Могу, куда мылить?
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Разработчик
Ответов: 26066
Рейтинг: 2120
#33: 2008-03-25 16:12:30 ЛС | профиль | цитата
тут было мыло, но уже нет
карма: 22

0
Ответов: 8888
Рейтинг: 823
#34: 2008-03-25 16:19:57 ЛС | профиль | цитата
nesco, спамеры замучали - до 80 шт в рабочий день, в воскресенье отдыхают, собаки; надо адрес сменить.
карма: 19

0
Ответов: 5227
Рейтинг: 586
#35: 2008-03-25 17:33:35 ЛС | профиль | цитата
nesco отправил, правда делить пришлось на 3 части rar надеюсь у тебя есть
убирай мыло а то спамеры замучают
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 2057
Рейтинг: 28
#36: 2008-03-25 21:39:49 ЛС | профиль | цитата
Леонид, у меня поменьше, 10 штук в день.
карма: 1

0
Ответов: 8888
Рейтинг: 823
#37: 2008-03-25 22:01:38 ЛС | профиль | цитата
Эдик, не расстраивайтесь, они (спамеры) базами обмениваются, скоро и 100 будет
карма: 19

0
Ответов: 1535
Рейтинг: 176
#38: 2013-02-16 16:33:55 ЛС | профиль | цитата
Воспользуюсь темой. Мне нужно, что и когда-то Леонид-у, перемещать картинку по вертикали, но так, чтобы она следовала за курсором мыши. Т.е. курсор над картинкой, я зажимаю ЛКМ и двигаю мышь по вертикали, а картинка следит за положением мыши по вертикали, двигаясь вместе с курсором синхронно. Другими словами я её просто таскаю вверх или вниз.
Вот шаблон:
Add(MainForm,13523519,140,63)
{
 Left=20
 Top=105
 Position=1
}
Add(ChildScrollBox,6760295,329,63)
{
}
BEGIN_SDK
  Add(EditMulti,3978996,21,21)
  {
   WorkCount=1
   Width=440
   Height=193
   link(doWork1,10754446:doEvent1,[(46,27)(46,48)])
  }
  Add(ScrollBox,10924359,378,49)
  {
   Left=5
   Top=30
   Width=380
   Height=240
   Point(Handle)
  }
  Add(Image,5274948,189,42)
  {
   ViewStyle=4
   Point(doWidth)
   Point(doHeight)
   Point(ImageWidth)
   Point(ImageHeight)
   Point(doRefresh)
   Point(onMouseDown)
   Point(onMouseUp)
   Point(onMouseMove)
   Point(MouseX)
   link(onMouseDown,15643609:doWork1,[])
   link(onMouseUp,15643609:doWork2,[])
   link(onMouseMove,15084132:doCompare,[(242,69)(242,104)])
  }
  Add(Hub,10754446,56,42)
  {
   OutCount=3
   link(onEvent1,5274948:doLoad,[])
   link(onEvent2,950310:doData,[(95,55)(95,125)])
   link(onEvent3,13900580:doData,[(88,62)(88,174)])
  }
  Add(DoData,950310,105,119)
  {
   link(onEventData,5274948:doWidth,[(172,125)(172,62)])
   link(Data,5274948:ImageWidth,[(111,110)(202,110)])
  }
  Add(DoData,13900580,105,168)
  {
   link(onEventData,5274948:doHeight,[(179,174)(179,69)])
   link(Data,5274948:ImageHeight,[(111,159)(209,159)])
  }
  Add(Memory,1682134,308,49)
  {
   Default=Integer(1)
  }
  Add(ChanelToIndex,15643609,252,49)
  {
   link(onIndex,1682134:doValue,[])
  }
  Add(InlineCode,11042059,392,91)
  {
   WorkPoints=#7:HScroll|7:VScroll|
   VarPoints=#4:HPos|4:VPos|
   DataPoints=#3:Wnd|
   Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses Messages,Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:   wnd:THI_Event;|50:   procedure HScroll(var _Data:TData; Index:word);|50:   procedure VScroll(var _Data:TData; Index:word);|47:   procedure HPos(var _Data:TData; Index:word);|47:   procedure VPos(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.HScroll;|11:var h:HWND;|16:    Pos:integer;|31:    lpMinPos,lpMaxPos: Integer;|5:begin|28:   h := ToIntegerEvent(Wnd);|27:   Pos := ToInteger(_Data);|51:   GetScrollRange( h, SB_HORZ, lpMinPos, lpMaxPos);|42:   if Pos > lpMaxPos then Pos := lpMaxPos;|45:   if Pos < lpMinPos then Pos := lpMinPos;   |39:   SetScrollPos(h, SB_HORZ, Pos, True);|37:   SendMessage(h, WM_HSCROLL, -1, 0);|4:end;|0:|30:procedure THiAsmClass.VScroll;|11:var h:HWND;|16:    Pos:integer;|31:    lpMinPos,lpMaxPos: Integer;|5:begin|28:   h := ToIntegerEvent(Wnd);|27:   Pos := ToInteger(_Data);|51:   GetScrollRange( h, SB_VERT, lpMinPos, lpMaxPos);|42:   if Pos > lpMaxPos then Pos := lpMaxPos;|45:   if Pos < lpMinPos then Pos := lpMinPos;   |39:   SetScrollPos(h, SB_VERT, Pos, True);|37:   SendMessage(h, WM_VSCROLL, -1, 0);|4:end;|0:|27:procedure THiAsmClass.HPos;|20:var SI: TScrollInfo;|5:begin|27:   SI.cbSize := Sizeof(SI);|23:   SI.fMask := SIF_POS;|51:   GetScrollInfo(ToIntegerEvent(Wnd), SB_HORZ, SI);|28:   dtInteger(_Data,SI.nPos);|4:end;|0:|27:procedure THiAsmClass.VPos;|20:var SI: TScrollInfo;|5:begin|27:   SI.cbSize := Sizeof(SI);|23:   SI.fMask := SIF_POS;|51:   GetScrollInfo(ToIntegerEvent(Wnd), SB_VERT, SI);|28:   dtInteger(_Data,SI.nPos);|4:end;|0:|0:|4:end.|
   link(Wnd,10924359:Handle,[])
  }
  Add(If_else,15084132,301,98)
  {
   Op1=Integer(1)
   link(Op2,1682134:Value,[])
  }
END_SDK
Add(ODialog,8946635,238,63)
{
 link(onExecute,11585814:doLoad,[])
}
Add(PictureStream,11585814,280,63)
{
 link(onLoad,6760295:doWork1,[])
}
Add(Button,8407419,196,63)
{
 Left=5
 Top=5
 Width=65
 Ctl3D=0
 Caption="Открыть"
 link(onClick,8946635:doExecute,[])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 9906
Рейтинг: 351
#39: 2013-02-16 17:38:05 ЛС | профиль | цитата
Во-первых, ты чего-то не то выложил. Такое не может работать... Даже не запускал

Во-вторых проаргументируй последнюю строку в HScroll/VScroll твоего IC
Почему -1 ???
Интересно просто


Вспомнил, что наступал на такие грабли в штатном элементе: и сделал изменения типа 

#pas
   SendMessage(h, WM_HSCROLL, 5, 0);

nesco, это уже по твою душу


карма: 9

0
Ответов: 1535
Рейтинг: 176
#40: 2013-02-16 17:52:53 ЛС | профиль | цитата
Galkov, должно быть ты ещё не знаешь. В Delphi я только лишь начинающий. IC - не мой (nesco). Был выложен где-то в начале темы.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 9906
Рейтинг: 351
#41: 2013-02-16 17:54:48 ЛС | профиль | цитата
Ну а теперь послушаем начальника транспортного цеха
карма: 9

0
Ответов: 8888
Рейтинг: 823
#42: 2013-02-16 18:02:11 ЛС | профиль | цитата
ser_davkin, а зачем IC? Уже нач. транспортного цеха отработал и в компоненте точки давно вывел (Мне-то они для дела нужны были, делал из стереофото план, а Вам зачем )
code_30351.txt
карма: 19

1
файлы: 1code_30351.txt [2.8KB] [342]
Голосовали:ser_davkin
Разработчик
Ответов: 26066
Рейтинг: 2120
#43: 2013-02-16 18:02:20 ЛС | профиль | цитата
Galkov писал(а):
Почему -1

Я зам не знаю, я откуда-то сдул этот код.

Galkov писал(а):
Вспомнил, что наступал на такие грабли в штатном элементе


Про грабли подробнее пожалуйста. И это все касается только вертикального скрола, или горизонтального тоже
карма: 22

0
Ответов: 9906
Рейтинг: 351
#44: 2013-02-16 18:15:57 ЛС | профиль | цитата
TraceSpy видел

Там это есть: мышой двигаешь Plotter-а (правой кнопкой) с использованием ScrollBox.doHScroll
Так вот -- до конца не доезжаем !!!
Ерунда вроде... Но это неправильная ерунда.

Потому что wParam=0, это SB_LINEDOWN
Поставил wParam=5, потому что это SB_THUMBTRACK
KOL эту ситуацию специально обрабатывает как-то хитро 

#pas
  SB_THUMBTRACK:SI.nPos := SI.nTrackPos;
Но все становится чистенько.

nesco писал(а):
И это все касается только вертикального скрола, или горизонтального тоже

конечно ТОЖЕ. это же близнецы-братья
карма: 9

0
Ответов: 1535
Рейтинг: 176
#45: 2013-02-16 18:22:57 ЛС | профиль | цитата
Леонид, Спасибо! У меня картинка выполняет роль палитры элементов. Элементы - это такие маленькие картинки 32*32 из которых составляется большая картинка в другом окне. Так вот, тыкать мышкой туда (в палитру) приходиться часто. Выбирать элемент я буду ЛКМ, а таскать палитру вверхвниз ПКМ. Собираю редактор игры, какой пока не скажу.

карма: 1
Не так страшна ошибка, как опасность её не заметить.

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