Вверх ↑
Этот топик читают: Гость
Ответов: 184
Рейтинг: 11
#1: 2021-07-08 16:37:54 ЛС | профиль | цитата
Здравствуйте все.
Возможно ли в StatusBar, в одной или нескольких ячейках, шрифт сделать жирным как в самом HiAsm?


карма: 3

0
vip
#1.1контекстная реклама от партнеров
Ответов: 187
Рейтинг: 12
#2: 2021-07-08 17:08:46 ЛС | профиль | цитата
Можно, если изменить шрифт главной формы
карма: 1

0
Ответов: 184
Рейтинг: 11
#3: 2021-07-08 17:40:30 ЛС | профиль | цитата
Joiner писал(а):
Можно, если изменить шрифт главной формы

Тогда изменится шрифт всех ячеек Вопрос именно одной - или двух ячеек.
карма: 3

0
Ответов: 1828
Рейтинг: 123
#4: 2021-07-08 19:42:50 ЛС | профиль | цитата
Вангую, что надо дописывать, или сообщения слать контролу.

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
}
[/spoiler]
Редактировалось 7 раз(а), последний 2021-07-08 19:49:00
карма: 5

0
Ответов: 184
Рейтинг: 11
#5: 2021-07-08 19:49:09 ЛС | профиль | цитата
flint2 писал(а):
Вангую, что надо дописывать, или сообщения слать контролу.

Похоже нет стандартного метода. Жаль, я думал, что просто его не знаю.

Как же в самом HiAsm-e это реализовано?

Редактировалось 2 раз(а), последний 2021-07-08 19:50:15
карма: 3

0
Ответов: 1828
Рейтинг: 123
#6: 2021-07-08 19:55:41 ЛС | профиль | цитата
fox-video, а что делать, куда деваться?!

Редактировалось 1 раз(а), последний 2021-07-08 19:56:59
карма: 5

0
Ответов: 184
Рейтинг: 11
#7: 2021-07-08 19:59:50 ЛС | профиль | цитата
flint2, как всегда, плакать, но доедать кактусы
карма: 3

0
Ответов: 4724
Рейтинг: 525
#8: 2021-07-08 20:19:03 ЛС | профиль | цитата
fox-video писал(а):
flint2, как всегда, плакать, но доедать кактусы

API + трудолюбие
пути господни не исповедимы
карма: 6
0
Ответов: 187
Рейтинг: 12
#9: 2021-07-08 20:26:41 ЛС | профиль | цитата
fox-video писал(а):
Как же в самом HiAsm-e это реализовано?

Ну так в делфи и лазарусе это делается элементарно.
карма: 1

0
Ответов: 1828
Рейтинг: 123
#10: 2021-07-08 21:31:19 ЛС | профиль | цитата
Joiner, щя меня забанят, а может и нет.
Ну так в делфи
ъ
Не пробовал? 90% компилются. Но надо рихтонуть - какого рожна?
1.
И чё? - Есть такие штуки, что не лечатся!
Ты до сих пор собираешься не паскале изъяснятся, или где?
На кой тебе этот Delphi усрался?
Или на C#, на встроенном языке? - флаг в руки!!!, как перестроишься.
Вообще надо всё читать.
Я имею в виду код, а ты что подумал?
Joiner, подарить?
Обсудим - в плане а нахера?.
Мне не хочется, чтобы ты терял время попусту!

--- Добавлено в 2021-07-08 22:27:31

82 чеЛоеЕкА
Видишь пьяный - отойди!
Не стой под стрелой.

--- Добавлено в 2021-07-08 22:29:58

Чё то не работает.
Ну и дело с концом!

Редактировалось 8 раз(а), последний 2021-07-08 22:29:58
карма: 5

0
Ответов: 1986
Рейтинг: 632
#11: 2021-07-09 00:37:27 ЛС | профиль | цитата
fox-video писал(а):
Как же в самом HiAsm-e это реализовано?
Обычная панель с текстом.
Смотри файл: HiAsm\Int\ru\StrListEditor.sha
Сделать такую из стандартных компонентов не сложно.

Редактировалось 3 раз(а), последний 2021-07-09 00:44:53
карма: 9

1
Голосовали:fox-video
Ответов: 184
Рейтинг: 11
#12: 2021-07-09 05:19:08 ЛС | профиль | цитата
sla8a писал(а):
Смотри файл: HiAsm\Int\ru\StrListEditor.sha


Эх, сам я не догадался заглянуть... Я даже не сомневался, что там StatusBar, а не самоделка.
карма: 3

0
Ответов: 1828
Рейтинг: 123
#13: 2021-07-09 10:50:16 ЛС | профиль | цитата
sla8a, Слава, как всегда, прав!
О птичках. Сейчас такая тенденция, что новомодные, как назвать, редакторы, поделки так и делаются.
Заменяются шаблонные вещи тем, как доходчевей подать пользователю.
От части это продиктовано кроссплатформенностью, но справедливо и для WIN.
То есть, из примитивов строится конструкция по вкусу, как художник.
Вот только тёмную тему не люблю - не читабельно и глазки ломаются.

P.S. fox-video, Кстати Дон andrestudio и sla8a в этом деле толк понимают. Посмотри, как делают и на ус мотай.

Надеюсь, что никого не обидел.
Скучно мне. Когда нет дифференциации жёлтых штанов - жизнь бессмысленна.
Кстати, проверка русской орфографии тут - чудовищна!
https://disk.yandex.ru/d/Hfcnupub2WDGsQ - шутка.
Наверное с Яндексом надо советоваться.

Редактировалось 9 раз(а), последний 2021-07-09 12:33:40
карма: 5

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