[Diezko]

Пробую еще разок прикрепить (так как прикреплял 7z оказывается). Если запустить демку и не менять ширину или высоту, формы, то будет как на скрине

[Diezko]

Расширение .zip. в течении дня вышлю тогда на Вашу почту.

Да и сами попробуйте создайте проект в Builder, просто киньте на него MainMenu и создайте в ряд несколько итемов и включите любой скин (это все что будет в моей демке).

[Diezko]

Да конечно, вот (я как я понял меню прорисовывается в шапке с правой стороны, и после ресайза формы становится на место, но с права узор так и остается)

Не могу прикрепить файл (форум не дает <_< )

[Diezko]

Тоже самое выходит=)

У меня три ПК, на всех разная среда и ОС, и на всех такая проблема с версии 12.17 на всех проектах. Делаю откат до версии 12.16 и все нормально.

[Diezko]

Еще раз доброго, как раз SkinProvider лежал на форме, но как только его убрал,проблема решилась.

[Diezko]

Понял, спасибо ! 🙄

[Diezko]

тоесть видимо срабатывает кнопка закрытия фрейма..хоть ее и нет

[Diezko]

Верно. Но уверен, что многих это вполне устраивает, да и притом, можно это поле закомментировать, и тогда скролл будет работать только тогда, когда пользователь сам вручную сделал фокус(тыкнул) на скролбаре.

[Diezko]

Code:

namespace MySB
{
class TsScrollBox : public Sscrollbox::TsScrollBox
{
private:
MESSAGE void __fastcall CMMouseEnter(TMessage &Message )
{
Sscrollbox::TsScrollBox::Dispatch(&Message);
SetFocus();
}
protected:
DYNAMIC bool __fastcall DoMouseWheelDown(TShiftState Shift, const TPoint &MousePos)
{
VertScrollBar->Position += 20;
}
DYNAMIC bool __fastcall DoMouseWheelUp(TShiftState Shift, const TPoint &MousePos)
{
VertScrollBar->Position -= 20;
}
public:
inline __fastcall virtual TsScrollBox(Classes::TComponent* AOwner) : Sscrollbox::TsScrollBox(AOwner)
{
}

BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(CM_MOUSEENTER, TMessage, CMMouseEnter)
END_MESSAGE_MAP(Sscrollbox::TsScrollBox)
};
};
#define TsScrollBox MySB::TsScrollBox
//—————————————————————————

[Diezko]

Доброго, написал для Вашего компонента класс перехватчик (на Builder), который работает с колесом мыши в независемости есть и фокус или нет…

Вам нужен данный код (ну малоли)?

[Diezko]

Понял, благодарю 🙄

[Diezko]

Еще раз доброго,к сожалению в 12.11 осталась проблема :blush:

[Diezko]

Доброго, чет в версии 12.11 ошибку воспроизвести не могу, но дело было так:

Code:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
//Задаю для итема строку
sAlphaImageList1->Items->Items[2]->Text = “Тестовая строка”;

//Вот если эту строку не поставить, то была бы ошибка при удалении
sAlphaImageList1->Items->Items[2]->Text = NULL;

//Хочу удалить теперь этот итем
sAlphaImageList1->Delete(2);

}
//—————————————————————————

[Diezko]

Еще раз доброго, вот:

1) Открываю набор иконок что есть в AlphaImageList. И хочу через уголок формы расширить (красная стрелка на скрин 1).

2) Тяну за уголок формы (красная стрелка показывает куда зажатый курсор повел),что бы увеличить пространство для просмотра содержимого, и получается что растягивается где то внутри (Скрин 2).

PS, если надо могу и видио еще приложить.

[Diezko]

Заметил,если при удалении итемов, вручную не очищать параметр “Text”, то происходит утечка.

[Diezko]

А если на TsScrollBox компоненты без фокуса, такие к примеру как панельки, то свойство работать не будет,верно?

[Diezko]

Спасибо, теперь все корректно 🙄

[Diezko]

Как я понял,это называется hot-tracking.

[Diezko]

Прошу прощения.

Необходимо что бы постоянно чек бокс был оранжевый (В этом скине он и так оранжевый если в фокусе, но если нет фокуса он становится белым).

И вот что бы сделать задуманное, я в ручную задал цвет для Font (предварительно включив CustomFont).. и сделал png картинок, отжатого и зажатого checkbox.

Далее пробую эти картинки загрузить в ImsgeList…но они подгружются криво…в архиве пример.

[Diezko]

Или можно как то настройками сделать что бы чек бокс был всегда как в фокусе? 🙄

[Author]

Posts