Forum Replies Created
-
Posts
-
В версии 11.19 описанные выше странности исчезли. Спасибо.
Но, оказывается это еще не все.
На добавленном в демку sTabControl2 исчезают сами табы при кликах на них.
'Support' wrote:Интересная проблема, но быстро решить ее не получилось. Постараюсь решить в следующем релизе.
В версии 11.18 проблема осталась.
'Support' wrote:А можно ли создать тестовое приложение с ошибкой, скопировав в него всю форму?
В контрольном примере демонстрируется:
1. Описанное выше странное поведение TsDateEdit, лежащего на TsTabControl.
2. BringToFront работает для видимых контролов, но подсветка кнопок работает неверно.
3. Не срабатывает BringToFront для контролов, у которых Visible=false и расположенных на TsTabControl.
В своей программе заметил также следующее (этого в примере нет).
Две панели TsPanel лежат, полностью перекрывая друг друга (например, c Align=alClient), на TsTabContol.
У первой панели Visible=true, у второй Visible=false. Если сначала у первой панели установить Visible=false, а потом у второй Visible=true, то, как и ожидалось, увидим содержимое контролов другой панели. При ином порядке переключения видимости этого не происходит.
Понимаю, что дизайн достаточно чудной, но по ряду причин он должен быть таким.
'TCount' wrote:Но файл, который загружается, он никаким образом не относится к SkinManager) Это просто массив картинок PNG и описание к ним)
Если этот файл не загружать – все норм)
Тогда непонятно, при чем тут этот файл, если он не имеет отношения к формам?
Без него все работает?
Формы показываются?
'TCount' wrote:Полезная штука, только это не помогло.
У меня этот вариант нормально работает даже в более сложном виде:
заставка, логин-форма, главная форма, плюс динамически создаваемые и модальные формы.
Скорее всего, что-то не так в логике (например, нет привязки скин-менеджеру и т.п.)
'TCount' wrote:Хммм…У меня даже такой практики нет) Не подскажите, где можно инфу найти по этому поводу?
0. Сделать копию всех файлов вашего проекта и отложить в сторонку на всякий случай.
1. Добавить TDataModule в проект: File->New->DataModule
2. Открыть файл проекта (.dpr) и переставить в нем строчку создания TDataModule сразу после Application.Initialize
3. Скопипастить TsSkinManager с вашей главной формы на форму TDataModule
4. Удалить все другие скин-менеджеры
'TCount' wrote:Здравствуйте!
А что, нельзя использовать 2 SkinManager?
Специфика моей программы такая:
Сначала появляется окошко входа – форма с SkinManager. Изначально это главная форма.
После ввода данных создается вторая форма, которая программно делается главной. И на этой форме лежит еще один SkinManager.
Так вот, при создании второй формы прога напрочь зависает…
Если в первой форме сделать SkinManager.Active=False, то все работает.
В чем подвох?
В вашем случае можно разместить единственный TsSkinManager на TDataModule.
Можно создать наследника, что-нибудь вроде:
Code:function DateEditValidateDate(de: TsDateEdit; var dt: TDateTime): boolean;
var
s: string;
i: integer;
begin;
Result:=true;
dt:=0;
if de=nil then exit;
s:=de.Text;
i:=Length(s); while (i>0) and ((s<'0') or (s[i]>'9')) do dec(i);
if i>0 then begin;
Result:=TryStrToDate(s, dt) and (dt>0) and (dt<=2*36525) and (s=DateToStr(dt)); //1900..2099
if not Result then dt:=0;
end;
end;procedure TShaDateEdit.CMEnter(var Message: TCMEnter);
begin;
FEnterDate:=Self.Date;
inherited;
end;procedure TShaDateEdit.CMExit(var Message: TCMExit);
var
dt: TDateTime;
begin;
if not (csDesigning in ComponentState)
then if DateEditValidateDate(Self, dt)
then Self.Date:=dt
else Self.Date:=FEnterDate;
inherited;
end;'TCount' wrote:А где эта версия? чот я не вижу на сайте)
В “Changes History” списка изменений действительно нет, но скачать-то ее можно.
