[JoLan]

Проблема ушла в версии 14.04. Спасибо огромное!

[JoLan]

'Support' wrote:

Возможно удаленно подключиться посмотреть?

Ответил в ЛС.

[JoLan]

'Support' wrote:

Здравствуйте

Какое значение находится в свойстве Version у компонента TsSkinManager в design-time?

14.03

[JoLan]

Установил версию 12.11.

sColorDialog перестал постоянно обновлять значения.

У BoundLabel появилось свойство Offset, которое позволяет регулировать положение метки по оси, перпендикулярной оси Indent.

Спасибо огромнейшее 🙂

[JoLan]

'Support' wrote:

В TeamViewer должна включиться отрисовка кнопок в заголовках всех окон?

Не могу найти как это сделать.

TeamViewer 12

Дополнительно -> Опции

Дополнительно -> Показать дополнительные настройки

Кнопка QuickConnect -> Конфигурация -> Показать кнопку QuickConnect

[JoLan]

'Support' wrote:

Я подумаю, возможно так и сделаю.

Спасибо Вам большое 🙂

[JoLan]

'Support' wrote:

Не совсем понятно, это вроде смещения что-то должно быть?

Да, как Indent, только по другой оси.

По-умолчанию у BoundLabel есть свойство Indent, которое определяет отступ от компонента в зависимости от положения самого Label.

В режиме показа сверху/снизу от компонента-родителя Indent изменяет вертикальное положение Label.

В режиме показа слева/справа от компонента-родителя Indent изменяет горизонтальное положение Label.

Очень не хватает возможности изменять отступ BoundLabel вне зависимости от его режима показа. Что-то вроде IndentX, IndentY.

[JoLan]

Доброе утро.

Я не знаком полностью с внутренним устройством, но, может быть, через TsSkinManager.ThirdParty вместе с секцией удастся безболезненно указывать имя скина?

Конечно, есть радикальное решение таскать за основной формой вторую сверху, на которой будет свой TsSkinProvider, TsSkinManager и, собственно, TVirtualStringTree.

[JoLan]

'Support' wrote:

Здравствуйте

На данный момент такая возможность не реализована, к сожалению.

Подскажите, есть ли какие-то мысли по данному вопросу? Данное решение поможет отдельно скинировать компоненты, которые поддерживаются пакетом, но не содержат параметра SkinData.

[JoLan]

У sSkinProvider есть событие OnSkinItem, в котором можно указать секцию скина. Есть ли возможность добавить подобное событие, но с указанием имени скина из списка добавленных в sSkinManager?

[JoLan]

Извольте удалить дабл тему, это можно сделать внизу

[attachment=7304:topic_moderation.jpg]

По данному вопросу можно же сделать наследника TacCtrlAdapter с нужными требованиями:

Code:

uses
sSkinProvider;

type
TMyACCtrlAdapter = class(sSkinProvider.TacCtrlAdapter)
public
NonSkinningControlNames: TStringList;
procedure AddNewItem(const Ctrl: TWinControl; const SkinSection: string);
constructor Create(AOwner: TControl);
destructor Destroy; override;
end;

//…

implementation

procedure TMyACCtrlAdapter.AddNewItem(const Ctrl: TWinControl; const SkinSection: string);
begin
if (Self.NonSkinningControlNames.IndexOf(Ctrl.Name) = -1) then
inherited AddNewItem(Ctrl, SkinSection);
end;

constructor TMyACCtrlAdapter.Create(AOwner: TControl);
begin
Self.NonSkinningControlNames := TStringList.Create;
end;

destructor TMyACCtrlAdapter.Destroy;
begin
Self.NonSkinningControlNames.Free;
inherited;
end;

Что-то вроде этого.

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

[JoLan]

'Yog' wrote:

2JoLan, спасибо большое, работает! Однако теперь курсор мышки внутри Hint'a и из-за этого не видно часть текста внутри Hint'a. Как это исправить?

В процедуре MouseMove задайте оффсеты для появления хинта:

Code:

sAlphaHints1.ShowHint(Point(Mouse.CursorPos.X+16, Mouse.CursorPos.Y+16), TControl(Sender).Hint);

После этого хинт будет появляться ниже и правее курсора на 16 пикселей. Но, возможно, что придётся руками обрабатывать появления хинта с другой стороны курсора, если хинт залезет за пределы экрана.

[JoLan]

'Yog' wrote:

Под «динамическом отображением» я имел ввиду когда мышкой водишь по объекту(например sLabel), а подсказка (sAlphaHints) вместе с курсором мышки передвигается.

Создаёте обработчики MouseMove и MouseLeave:

Code:

procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if (TControl(Sender).Hint '')and(TControl(Sender).ShowHint) then
sAlphaHints1.ShowHint(Mouse.CursorPos, TControl(Sender).Hint);
end;

procedure MouseLeave(Sender: TObject);
begin
sAlphaHints1.HideHint;
end;

Для ускорения можно снять флаг sAlphaHints.Animated.

[JoLan]

Всё-таки нашёл на просторах гугла:

Code:

procedure ForbidDrawing(sp : TsSkinProvider; MDIAlso : boolean = False);
begin
sp.SkinData.BeginUpdate;
sp.Form.Perform(WM_SETREDRAW, 0, 0);
if MDIAlso and (sp.Form.FormStyle = fsMDIChild) and Assigned(MDISkinProvider) then begin
TsSkinProvider(MDISkinProvider).SkinData.BeginUpdate;
TsSkinProvider(MDISkinProvider).Form.Perform(WM_SETREDRAW, 0, 0);
end;
end;

procedure PermitDrawing(sp : TsSkinProvider; MDIAlso : boolean = False);
begin
sp.SkinData.EndUpdate;
sp.Form.Perform(WM_SETREDRAW, 1, 0);
if MDIAlso and (sp.Form.FormStyle = fsMDIChild) and Assigned(MDISkinProvider) then begin
TsSkinProvider(MDISkinProvider).SkinData.EndUpdate;
TsSkinProvider(MDISkinProvider).Form.Perform(WM_SETREDRAW, 1, 0);
end;
end;

[JoLan]

'Support' wrote:

Спасибо за демку, попробую разобраться, но не могу обещать скорое решение, к сожалению.

Спасибо огромное за замечательные компоненты)

[JoLan]

'Support' wrote:

Возможно демку сделать, где событие не работает?

Здравствуйте. Вот демка.

[JoLan]

Upd: проблема ушла с использованием стандартного TListView с последующим скиннингом в sSkinManager.ThirdParty. Но такая неприятная ситуация сохраняется с TsListView.

[JoLan]

It is not helped 🙁

[JoLan]

If i dont set border icons in runtime the problem isn't appears. But it is not final solution 🙁

[Author]

Posts