Add(MainForm,2953706,21,42)
{
Width=305
Height=307
link(onCreate,6670091:doTimer,[])
}
Add(StatusBarEx,7488566,322,42)
{
Text="kkkk"
EnablePBar=0
PanelPBar=1
VisiblePBar=0
PanelHintPBar=0
ColorPBar=7554575
Ctl3DPBar=1
Panels=#7:llll=50|8:ghfh=100|11:fghjghjg=50|0:|
Strings=#5:dfgds|6:fghfhf|6:uououo|
Point(doPosPBar)
Point(doMax)
}
Add(Counter,642143,168,56)
{
link(onNext,7488566:doPosPBar,[])
}
Add(Timer,6670091,105,56)
{
Interval=100
link(onTimer,642143:doNext,[])
}
Грубо через WINAPI
Абстрактно, как здесь.
Add(MainForm,3167274,308,35)
{
Width=399
Height=241
}
Add(ListBox,7681868,371,35)
{
Width=391
Height=207
Align=5
Font=[MS Sans Seriff,8,1,8388608,1]
Name="lista"
Hint=" "
HintManager=""
Strings=#45:D:\Книги текстовые\A.Kolpakov-Griada.1960.fb2131:D:\Книги текстовые\Belenkin\Bilenkin_Biblioteka_sovetskoy_fantastiki_Izd-vo_Molodaya_gvardiya_1974_Proverka_na_razumnost.139864.fb2|59:D:\Книги текстовые\Belenkin\Bilenkin_Konets_zakona.6966.fb2|63:D:\Книги текстовые\Belenkin\Bilenkin_Uchenik_charodeev.7035.fb2|81:D:\Книги текстовые\Belenkin\Zhuravleva_Antologiya_1968_Fantastika-1968.160923.fb2|63:D:\Книги текстовые\Byikov_Inoplanetyane_v_otrazhenii.318878.txt|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1963.fb2|71:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1966_2.fb2|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1967.fb2|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1968.fb2|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1971.fb2|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1972.fb2|72:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1975-76.fb2|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1977.fb2|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1978.fb2|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1979.fb2|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1980.fb2|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_1981.fb2|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_2000.fb2|71:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_2003_2.fb2|69:D:\Книги текстовые\Ezhegodniki_Fantasnika\Sbornik_Fantastika_2004.fb2|45:D:\Книги текстовые\Haron_Drakon_v_vorotah.txt|56:D:\Книги текстовые\Kakarda\Kard_Orson_Skott_Ksenocid.fb2|59:D:\Книги текстовые\Kakarda\Orson_Skott_Kard_Teatr_Teney.fb2|86:D:\Книги текстовые\Mihail_Turin\БОЕВАЯ ФАНТАСТИКА\tyrin_mihail_otrazhennaya_ugroza.fb2|88:D:\Книги текстовые\Mihail_Turin\БОЕВАЯ ФАНТАСТИКА\tyrin_mihail_sindikat_gromoverzhec.fb2|82:D:\Книги текстовые\Mihail_Turin\НАУЧНАЯ ФАНТАСТИКА\Tyirin_Kontrabandist.144182.fb2|82:D:\Книги текстовые\Mihail_Turin\НАУЧНАЯ ФАНТАСТИКА\tyrin_mihail_fantomnaya_bol.fb2|84:D:\Книги текстовые\Nikolai_Gydanets\БОЕВАЯ ФАНТАСТИКА\Gudanets_Zalozhniki.141430.fb2|105:D:\Книги текстовые\Nikolay Andreev\Звездный взвод\Andreev_Zvezdnyiy_vzvod_11_Kovcheg_nadezhdyi.124741.fb2|97:D:\Книги текстовые\Nikolay Andreev\Звездный взвод\Andreev_Zvezdnyiy_vzvod_13_Perevorot.124752.fb2|98:D:\Книги текстовые\Nikolay Andreev\Звездный взвод\Andreev_Zvezdnyiy_vzvod_14_Vtorzhenie.124753.fb2|99:D:\Книги текстовые\Nikolay Andreev\Звездный взвод\Andreev_Zvezdnyiy_vzvod_15_Metropoliya.124754.fb2|101:D:\Книги текстовые\Nikolay Andreev\Звездный взвод\Andreev_Zvezdnyiy_vzvod_16_Razvedka_boem.124756.fb2|107:D:\Книги текстовые\Nikolay Andreev\Звездный взвод\Andreev_Zvezdnyiy_vzvod_17_Poslednyaya_shvatka.124757.fb2|100:D:\Книги текстовые\Nikolay Andreev\Звездный взвод\Andreev_Zvezdnyiy_vzvod_1_Voskreshenie_.124723.fb2|101:D:\Книги текстовые\Nikolay Andreev\Звездный взвод\Andreev_Zvezdnyiy_vzvod_4_Stalnaya_kozha.124734.fb2|
DataType=1
Point(doHint)
Point(String)
Point(onKeyDown)
Point(onDblClick)
Point(Value)
Point(ValueArray)
Point(Index)
Point(onMouseDown)
Point(onMouseMove)
Point(doSelect)
Point(PHandle)
Point(MouseX)
Point(MouseY)
link(onMouseMove,1122117:doGetItemIndex,[(445,76)(445,27)(361,27)(361,139)])
}
Add(InlineCode,1122117,413,133)
{
WorkPoints=#14:doGetItemIndex|
EventPoints=#14:onGetItemIndex|
DataPoints=#14:ListBoxPHandle|1:X|1:Y|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,WIndows,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|18: X,Y: THI_Event;|29: ListBoxPHandle: THI_Event;|29: onGetItemIndex: THI_Event;|56: procedure doGetItemIndex(var Data:TData; Index:word);|3: |5: end;|0:|14:implementation|0:|38: procedure THiAsmClass.doGetItemIndex;|7: var |20: LBCtrl: PControl;|12: R: TRect;|13: P: TPoint;|14: i: Integer;|6: begin|52: LBCtrl:= PControl(ToIntegerEvent(ListBoxPHandle));|54: P := MakePoint(ToIntegerEvent(X),ToIntegerEvent(Y));|68: for i := LBCtrl.Perform(LB_GETTOPINDEX,0,0) to LBCtrl.Count -1 do|9: begin|53: LBCtrl.Perform(LB_GETITEMRECT, i , Integer(@R));|31: if PointInRect(P,R) then |12: begin|39: _hi_OnEvent(onGetItemIndex,i);|14: Exit;|11: end;|8: end;|33: _hi_OnEvent(onGetItemIndex,-1);|5: end;|4:end.|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
link(onGetItemIndex,7750383:doRead,[])
link(ListBoxPHandle,7681868:PHandle,[])
link(X,7681868:MouseX,[])
link(Y,7681868:MouseY,[])
}
Add(ArrayRW,7750383,469,133)
{
link(onRead,7681868:doHint,[(508,139)(508,174)(354,174)(354,83)])
link(Array,7681868:Array,[(475,117)(391,117)])
}
Add(PointHint,13843895,105,42)
{
Info=#17:ПодсказкаБезКлика|
VAlign=0
HAlign=0
Width=148
Height=18
}
Поиск
Друзья
Администрация