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


карма: 3

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

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

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

0
Ответов: 2059
Рейтинг: 132
#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
карма: 6

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

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

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

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

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

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

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

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

API + трудолюбие
пути господни не исповедимы
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 207
Рейтинг: 14
#9: 2021-07-08 20:26:41 ЛС | профиль | цитата
fox-video писал(а):
Как же в самом HiAsm-e это реализовано?

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

0
Ответов: 2059
Рейтинг: 132
#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
карма: 6

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

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

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


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

0
Ответов: 2059
Рейтинг: 132
#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
карма: 6

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