[Torbins]

Ловите демку: http://mikolatorbins.narod.ru/TranspFormWithAC.rar

[Torbins]

QUOTE (TopCore @ Aug 10 2009, 07:02 PM)

Отключение автоматического скинирования форм производится свойством Active?
Тогда скины точно с боку припёку будут. <img src="style_emoticons//a1.gif” style=”vertical-align:middle” emoid=”:a1:” border=”0″ alt=”a1.gif” />

Как же скиновые кнопочки останутся, если всё повыключать? <img src="style_emoticons//wacko.gif” style=”vertical-align:middle” emoid=”:wacko:” border=”0″ alt=”wacko.gif” />

Я вообще то говорил про TsSkinManager.SkinningRules.srStdForms, полностью скины отключать не обязательно.

[Torbins]

Я вот это имел ввиду:

QUOTE (Hannibal @ Aug 5 2009, 11:48 AM)

насчет выделения – понятно, но вот как быть в диалоге выбора папки например?..

[Torbins]

Вообще этот цвет берется из системных настроек. Вот только как их перекрыть в своем приложении я не знаю.

[Torbins]

Давняя проблема: http://www.alphaskins.com/forum/index.php?showtopic=2945

[Torbins]

QUOTE (Dmitro25 @ Aug 3 2009, 07:12 AM)

Спасибо за совет.
Разрешите в ответ спросить, а нельзя ли функцию RepaintMenu() внести также и в TsSkinManager. Дело в том, что в своём приложении я использую один-единственный скин. TsSkinProvider мне, выходит, не нужен. А перерисовывать меню по команде приходится. Сейчас я выхожу из положения, используя TsSkinManager.RepaintForms(), однако, как я подозреваю, эта функция делает больше, чем просто перерисовка главного меню.

Работой с отдельными скинами занимается TsSkinManager. TsSkinProvider нужен, чтобы наложить скин на форму. Если вы не положите его на форму сами, то это сделает TsSkinManager в рантайме.

[Torbins]

Да, сейчас все нормально. А нужно мне это было для того, чтобы не заморачиваться с установкой новых версий АС. Вот такой у меня получился батник в результате:

CODE

@Echo Off
Title Installing AlphaControls

ChCP 1251

Set VCL_ARCHIVE=D:Programist
Set INSTALL_DIR=D:ProgramistRAD StudioAlphaControls
Set PASSWORD=***
Set DEBUGOPTIONS=/p:DCC_DcuOutput=Debug /p:DCC_Optimize=false /p:DCC_Inlining=off /p:DCC_RangeChecking=true /p:DCC_DebugDCUs=true /p:DCC_IntegerOverflowCheck=true /p:DCC_SymbolReferenceInfo=2 /p:DCC_GenerateStackFrames=true

Echo Downloading Archive
“C:Program FilesDownload Masterdmaster.exe” http://www.alphaskins.com/sfiles/stable/acnt_reg.zip hidden=1 savepath=”%VCL_ARCHIVE%” filename=AlphaControls.zip priority=1

Echo When download will be finished, press any button
Pause

Echo Clearing up Install Dir
MkDir “%INSTALL_DIR%”
Del /q “%INSTALL_DIR%*.*”
RmDir /s /q “%INSTALL_DIR%AlphaDB”
RmDir /s /q “%INSTALL_DIR%Debug”
RmDir /s /q “%INSTALL_DIR%Help”
RmDir /s /q “%INSTALL_DIR%Res”
RmDir /s /q “%INSTALL_DIR%Skins”

Echo Unpacking package
“C:Program FilesWinRARWinRAR.exe” x -ibck -p%PASSWORD% “%VCL_ARCHIVE%AlphaControls.zip” “%INSTALL_DIR%”

Echo Patching files
Copy /b /y “%INSTALL_DIR%ResUkrainiansStrings.res” “%INSTALL_DIR%”

FindStr /i /v “DefSkinsDir DefMakeSkinMenu implementation end.” “%INSTALL_DIR%sDefaults.pas”>”%TEMP%sDefaults.pas”

Echo   DefSkinsDir = '%INSTALL_DIR%Skins';>>”%TEMP%sDefaults.pas”
Echo   DefMakeSkinMenu = True;>>”%TEMP%sDefaults.pas”
Echo.>>”%TEMP%sDefaults.pas”
Echo implementation>>”%TEMP%sDefaults.pas”
Echo.>>”%TEMP%sDefaults.pas”
Echo end.>>”%TEMP%sDefaults.pas”

Move /y “%TEMP%sDefaults.pas” “%INSTALL_DIR%sDefaults.pas”

Echo Compiling packages
call rsvars.bat
MkDir “%INSTALL_DIR%Debug”
MSBuild “%INSTALL_DIR%acnt2009_R.dproj” /p:config=Debug %DEBUGOPTIONS%
MSBuild “%INSTALL_DIR%acnt2009_R.dproj” /p:config=Release
MSBuild “%INSTALL_DIR%acnt2009.dproj” /p:config=Release

[Torbins]

Можно посоветовать только еще раз проверить путь.

[Torbins]

QUOTE (Miraj @ Jul 23 2009, 01:32 PM)

Я думаю. Этот компонентик в пакет AC добавить надо. Он небольшой и функционал полезный <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

Для начала можно просто перенести в раздел Компоненты на основе АС.

[Torbins]

Ну видимо TopCore нужны только скиновые кнопочки <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

[Torbins]

Этот вопрос имеет какое то отношение к АС? <img src="style_emoticons//wink.gif” style=”vertical-align:middle” emoid=”;)” border=”0″ alt=”wink.gif” />
А вообще эти компоненты просто обертка над системными интерфейсами. Все подробности о них конечно же можно узнать на MSDN: http://msdn.microsoft.com/en-us/library/bb776778(VS.85).aspx Начать разбираться со всем этим можно со статьи: Запрашиваем информацию из окна Проводника. Но я бы просто использовал VirtualShellTools. И кстати в тотале используется какой то модифицированный листбокс.

[Torbins]

QUOTE (TopCore @ Jul 16 2009, 05:35 AM)

Здравствуйте!
Вопрос о так званых всплывашках. Можно ли сделать форму прозрачной, а всё, что она содержит, непрозрачным?

Можно, для этого надо юзать свойства формы TransparentColor/TransparentColorValue. Кроме того надо убрать с формы скинпровайдер и в настройках скинменеджера отключить автоматическое скинирование форм.

[Torbins]

QUOTE (Support @ Jul 14 2009, 08:53 AM)

А в Аеро такое возможно?

Вроде нет.

[Torbins]

По-моему не стоит даже напрягаться, АС в семерке должен работать точно также как и в висте.

[Torbins]

Если у вас АС контрол, то можно поставить ему SkinData.CustomColor:=True, это позволит изменять его цвет.

[Torbins]

Панели уже давным-давно полупрозрачные, гляньте например скин “Blue Glass”.

[Torbins]

Да, именно эта ошибка выскакивала. После открытия пакетов в IDE и сохранения, все стало ОК.

[Torbins]

Рекомендую взглянуть на эту статью (особенно на примеры): Неочевидные особенности вещественных чисел. Ну и еще можно взглянуть на эти две: Когда вы меняете что-то внутри – то этого никто не замечает, Если вы не измените интерфейс – вашу работу никто не заметит.

[Torbins]

Кстати если надо сделать качественный ресайз, то вот тут DRON привел очень неплохой алгоритм. Есть еще его (судя по всему) реализация в JCL, но там прозрачность не учитывается.

[Torbins]

sannx: Обычно демку просят, когда самостоятельно повторить не получается

Author

Posts

[Author]

Posts