[TCount]

'alikskonst' wrote:

тип файлов всегда один – png

Так все не так уж и сложно. Например, вот попробовал загрузить две картинки в AlphaImageList (AImageList в коде):

---

procedure TF1.Button1Click(Sender: TObject);

begin

AImageList.LoadFromFile('c:1.png');

AImageList.LoadFromFile('c:2.png');

SetPng(image1,0);//вывожу в Image (проуцедура ниже)

end;

---

procedure tf1.SetPng(var Img: TImage;Num: byte);

var Png: TPNGimage;

begin

Png:=TPNGimage.Create;

AImageList.Items[Num].ImgData.Seek(0,0);

Png.LoadFromStream(AImageList.Items[Num].ImgData);

Img.Picture.Assign(Png);Png.Free;

end;

---

Вот и все)

[TCount]

'alikskonst' wrote:

приветствую

подскажите пожалуйста как заполнить AlphaImageList картинками из указанной папки

все что можно перерыл, но не нашел (

спасибо

Как заполнить, программно или в среде разработки?

[TCount]

'Salpson' wrote:

Доброго времени суток, заметил, что после компиляции проекта, в стандартном компоненте OpenPictureDialog, не работает кнопка закрытия формы(“крестик”), приходиться кликать отмену, чтобы закрыть форму диалога.

Delphi 7

Windows 7

AlphaControls v 8.51

SkinName: Notes Wood

Не закрывается диалог открытия файлов с помощью крестика во время выполнения программы? Если так, то у меня работает.

AC 8.52, Delphi XE

[TCount]

'Nadya1' wrote:

Хм странно, вот эти скины для Delphi 7 подходят нормально.

Те что бесплатные для стран СНГ не до конца проскинивается.

Подходить скины должны любые. Вы скажите, как добавляете компоненты на форму, из каких вкладок? Если из вкладки Standart и подобных, то понятно почему не скинятся.

Компоненты AC находятся на вкладках AlphaStandart,AlphaTools,AlphaAdditional и др. с префиксом “Alpha”. Там и ищите нужные аналоги стандартным.

Эти компоненты уже при попадании на форму в среде разработки скинятся (если активен SkinManager).

[TCount]

'r1se' wrote:

На примере картинки:

Нажимая закрытие вкладки(1), анимация на долю секунды делает активной первый таб(2), после встает на предыдущий(3).

Необходимо, чтобы, при нажатие на кнопку закрытия вкладки(1), анимация вставала на предыдущию вкладку(3).

Понятно. Попробовал реализовать у себя – действительно, наблюдается неприятная смена фокуса на доли секунды.

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

Если оставите анимацию, то в Uses добавьте модуль sVclUtils.

Попробуйте:

procedure TForm11.PCCloseBtnClick(Sender: TComponent;TabIndex: Integer; var CanClose: Boolean; var Action: TacCloseAction);

begin

//PC – это Ваш PageControl

Action:=acaHide;//принудительно

If TabIndex>0 then begin//небольшая необязательная анимация

PrepareForAnimation(PC);

PC.ActivePageIndex:=Tabindex-1;

AnimShowControl(PC,100);//100 – анимация в мсек

end;

end;

[TCount]

'r1se' wrote:

Приветствую.

Пример:

Компонент sPageControl, открыто 4 таба,при нажатие на CloseBtn анимация возвращается к 1 табу, и только после этого встает на 3.

т.е. идет вначало,а только потом на предыдущий.

Можете помочь советом в решение этой проблемы?

Привет. Как-то все смутно описано, примерчик бы этот. Если честно, я вообще не понял, в чем проблема)

[TCount]

'Nadya1' wrote:

Здравствуйте, у меня такая проблема.

Скины были скачаны от сюда

1. Пользуюсь версией скинов v8.52, 21.12.2013 (бесплатная)

2. Пользуюсь Delphi 7

3. Пользуюсь операционной системой Windows 7

Установка выполнялась правильно youtube рулит.

Будьте любезны, подскажите в чем может быть проблема ?

Здравствуйте. На рисунке видно, что не все проскинилось. Отсюда вопрос возникает – а, например, панель добавлялась как tsPanel или это просто Panel?

Кстати, видео по установке туповатое)

[TCount]

'xvv' wrote:

Чтоб обойти ошибку, можно, вместо BoundLabel свойства, использовать независимый sLabel

но хотелось бы получить исправление ошибки.

Затем и пишу… (а не на жизнь пожаловаться 🙄 )

😆 Я так и понял))

[TCount]

'xvv' wrote:

забыл картинку[attachment=6612:Скриншот 2013-12-26 12.07.02.png]

Забавное явление 🙄

Установите свойство Align у TsDateEdit в alNone.

[TCount]

'Support' wrote:

Казалось бы все просто, а не получается повторить проблему 🙁

Можно демку посмотреть?

Какие версии Delphi, Windows и пакета?

Информация о системе, пакете и версии Delphi была в заголовках этого топика: AC 8.51/Delphi XE/Win 7×32

Прилагаю проект. Сам не пойму, что может влиять на такое поведение компонента.

P.S. Поперключайтесь между этими Edit'ами, чтобы у подопытного пропал фокус.

[TCount]

'dzh2000' wrote:

Они позволяли узнать цвет бордюра и тени текущего скина.

Все возможные свойства скина Вы найдете через: TsSkinManager.CommonSkinData

То есть:

TsSkinManager.CommonSkinData.Shadow1Color

---

Насчет цвета бордюра…Такого я не нашел. Даже не представляю, для чего нужно это свойство и применяется ли оно в скинах.

[TCount]

'dzh2000' wrote:

Решил перейти с 7-ой версии на 8-ую.

Столкнулся с тем, что в новой версии исчезли свойства, которые были в старой

TsSkinManager.SkinData.BorderColor

TsSkinManager.SkinData.Shadow1Color

Ответьте, пожалуйста, как сейчас к ним обращаться? Я их задействую в приложении.

Я таких свойств вообще не помню) Скажите, а какие функции они выполняли у Вас? Чтобы понять, куда копать.

[TCount]

'CheshireCat' wrote:

Hello,

you can try to turn off the “Center filling” option.

Thank you so much! It works! :a3:

[TCount]

'szimin' wrote:

Хочу у скинованной формы скруглить углы.

Первый вариант с DrawNonClientArea=False (углы скруглены, но появляются “дырки” в форме), второй с True (“дырок” нет, но углы сами вмдите)

[attachment=6588:Без-имени-1.png]

такое поведение стало только в версии 8.50, раньше (использовал 8.45) все было номально.

В хистори для версии 8.50 есть строка:

* Improved showing of forms with disabled DrawNonClientArea property

Думаю после этого и стало именно так.

Как ты вообще форму рисуешь? С bsnone такое бы не получилось, если, конечно, ты хитрости не применял.

Еще не понятно, для чего применяешь bsNone, если тебе нужны рамки и заголовок?

[TCount]

'elpik' wrote:

Я сейчас скажу свое мнение, оно не обязательно верное:

Потомучто ты взял бегунок мышкой, и отдал ему фокус. На самом деле то бегунок есть, но он не отривовывается в своем минимальном состоянии,

(так задумано) а когда ты берешь его в фокус он вынужден рисоваться, ты же его тащишь.

Ну раз допилил, поздравляю, и стоило оно этих трудов? 😛

Хотел написать объемный ответ, но уже перехотел) Вобщем, жизнь продолжается.

[TCount]

'elpik' wrote:

Да не баг это, просто особенность такого скина…

На картинке показал думаю будет понятно:

Понимаю, что особенность скина, но остается одна неувязочка. Было бы еще понятно, если бы ползунок не появлялся бы вообще.

Но нафига он тогда появляется, когда пытаешься прокручивать список? Причем появляется таким, каким должен быть по идее виден.

Я смотрел в редакторе скинов реализацию разных скроллов. Так вот, в итоге получается, что все зависит от бордюров секций скроллбаров.

Не совсем граматно скин создан. Я кое-что изменил и “возможности скроллбара расширились”)

[TCount]

'elpik' wrote:

хахаха!!! Так это стандартное поведение…

Если размер ползунка не влезает в размер скролбокса он пропадает…

Так а ты поменяй скин и ползунок сразу появится) Причем если отключить скин – он тоже появится) И все при тех же маленьких размерах. При маленьких размерах, но разумно маленьких)

Более того, он появляется, когда пытаешься перемещать.

Я же не дурак)

[TCount]

'elpik' wrote:

Я честно не понимаю, какие настройки Вы в своих проектах выкручиваете.

Делаю так:

1) Кидаю на форму sSkinManager и sSkinProvider;

2) выставляю скин FM;

3) кидаю на форму sListView;

4) ставлю режим vsReport;

5) добавляю Column (отключаю показ хедеров);

6) добавляю элементы.

И я ВИЖУ ползунок!!!

Да я так все и делаю)))) Но я же писал, что ползунок пропадает, когда размер ListView'a маленький!

И когда пытаешься двигать ползунок – он появляется, а потом снова пропадает)

Причем на других скинах этого не наблюдается. Думаю, в силу того, что на других скинах концы скролла просто квадратные.

Вот переделал Ваш пример с маленьким ListView'ом.

[TCount]

'elpik' wrote:

С ползунком вроде тоже не увидел глюков.

PS: кстати вот полезная статья по поводу TListView

позезняшка

Вот подправил твой пример:

За статью спасибо, про ползунок я же скрины показывал! Кстати, ползунок пропадает не во всех скинах) Например, на скине “FM” пропадает, а на всяких “квадратных” скроллах не пропадает.

[TCount]

'mediv' wrote:

Я делал так, попробую твой вариант, спасибо.

Code:

if FindWindow('TLoginForm', 'LoginForm') <> 0 then
begin
ShowMessage('qqqqqqqqqqqqqq!');
SetForegroundWindow(FindWindow('TLoginForm', 'LoginForm'))
end
else
begin
Application.Initialize;
Application.Title := 'test';
Application.CreateForm(TLoginForm, LoginForm);
Application.CreateForm(TAboutBox, AboutBox);
Application.Run;
end;

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

Если меняешь, то исключи из поиска окна определение по заголовку: if FindWindow('TLoginForm',NIL)<>0…

А лучше попробуй мою версию:)

[Author]

Posts