OberonCore

1. Создал свой контрол - прямоугольник, который меняет свой цвет при каждом нажатии на него мышкой. Размещаю этот контрол на форме. Как узнать, находится ли сейчас мой контрол в фокусе и в процедуре Restore нарисовать рамку, если он в фокусе?

2. Можно ли создавать частично прозрачные вьюшки? Или это можно сделать только через WinApi?

Вот правильное решение:

[/code]

По поводу прозрачности - вы имеете в виду полупрозрачность, то есть, альфа-канал?
Встроенной возможности в ББ нет.
Однако ее можно довольно легко докрутить, не меняя ни конкретных отображений, ни Host, ни стандартных модулей - написав свой тип кадров (Frames).
Я бы это попробовал сделать, меня альфа тоже заинтересовала, однако что-то не нашел информации о необходимых WinApi-функциях - у меня SDK старый. Насколько я понимаю, должно быть нечто вроде AlphaBlt.

msdn.microsoft.com?



AlphaBlend. Но если нужна прозрачность для всего окна (HWND), то есть более удобные функции.

Спасибо . Я пробовал уже обрабатывать и MarkMsg и реализовывал методы RestoreMark и HandleViewMsg - по примеру StdRuler, запутался и реализовал так, как привык:


Да, это и имел в виду. Что эту полупрозрачность нужно реализовать через свой фрейм - эт я догадался. Только функций WinApi не для целого окна не знаю.
Кстати, вопрос ещё один

Хочу, чтобы текстовая вьюшка скроллировалась автоматически при изменении текстовой модели - также как и StdLog. Я пробовал по-разному применять методы вроде Stores.Join(v.textView, m.textModel), Stores.InitDomain(m.textModel) и разные их комбинации в процедурах New() для модели и вьюшки, но скроллирования v.textView не добился. А в ходе экспериментов осталось непонятным для меня следующее: в процедуре TestViews.New все модели и вьюшки разделяют один домен (это получается сделать), в процедуре Restore домены уже разные . Возможно, не очень корректно вставлять текстовую модель в свою, и лучше её вставить в свою вьюшку, а изменять эту текстовую модель в PROCEDURE (v: StdView) HandleModelMsg....

По поводу автоскроллинга текстовой модели...
Возможно, нужно использовать метод Append текстовой модели, дополняя ее сразу блоками текста, как это делает StdLog?
В любом случае, принудительно показать хвост можно:
pos := text.Length();
TextViews.ShowRange(text, pos, pos, TextViews.any);

По поводу доменов - объясните подробнее, что имеете в иду, я чего-то к ночи торможу непомерно

Там такой нюанс, что Join(a, b) - это еще не значит, что у a и b будут домены. Домен может инициализироваться потом, просто он будет один на всех. Если не запамятовал...

Я делал Append (правда, с пустой добавляемой моделью) - не заработало, , списал на то, что текстовая модель и текстовая вьюшка не в одном домене. Пытался их объединить, это получилось только в процедуре инициализации:

Ещё не понятно (и если б только это... ), для чего параметр focus в процедуре Views.InstallFrame. Я же всё равно могу передать фокус этой встроенной рамке, даже если Views.InstallFrame(f, v.textView, x, y, 0, FALSE).

А это обязательно попробую! Спасибо!