Расскраска AppFrame ...

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7330
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Расскраска AppFrame ...

Сообщение Игорь Столяров »

Привет всем ! И наверно уже поздравляю с наступающим Новым годом ! :)

Возник абсолютно идиотский вопрос. Можно ли и как расскрасить фон главного меню программы (AppFrame) ?
Понятно, что можно на лету сгенерить BMP картинку любого цвета и подсунуть ее как WallPaper ...
Но как-то это уже слишком через ж ... даже еще на трезвую голову. :)

Может кто-нибудь знает как это сделать проще ? Буду благодрен ... :)
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
Дед Пахом
Старичок
Сообщения: 3131
Зарегистрирован: 07 Июль 2005, 16:51
Откуда: Москва, Россия
Благодарил (а): 10 раз
Поблагодарили: 28 раз
Контактная информация:

Re: Расскраска AppFrame ...

Сообщение Дед Пахом »

Чё-та не понятно... Точно на трезвую голову? Зачем на лету, если можно в свойствах окна прописать?
С уважением, ДП
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7330
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Re: Расскраска AppFrame ...

Сообщение Игорь Столяров »

Дед Пахом писал(а): Точно на трезвую голову? Зачем на лету, если можно в свойствах окна прописать?
Пока да, ибо так рано у нас не наливают. А жаль ! :(

На лету, потому, что предполагается, что пользователь должен сам, где-то в настройке программы, выбрать цвет фона который ему нравится.
А программа при запуске должна этот цвет фона показать ... Сразу отвечу на назревающий вопрос: Это не шиза.
Есть одна программа, в которой ведутся разные БД. Есстественно в заголовке окна, стороке статуса и т.д. все написано, какая БД, фирма, учет.
Но оператор когда быстро переключается между программамми, к концу дня начинает путаться. И руководство (суки !) придумали раскрасить
разные проограммы - в разный цвет ... Вот и возник вопрос с которого я начал ... как это сделать ... :)
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Re: Расскраска AppFrame ...

Сообщение Admin »

Дед Пахом писал(а):Чё-та не понятно... Точно на трезвую голову? Зачем на лету, если можно в свойствах окна прописать?
Я думаю что разговор не о фоне AppFrame а о фоне меню в AppFrame.
Вам в сторону CFC_Menu нужно копать.
SNAGIT.png
SNAGIT.png (5.79 КБ) 2200 просмотров
SNAGIT1.png
SNAGIT2.png
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Алексей- Софт-Центр
Ветеран
Сообщения: 390
Зарегистрирован: 26 Август 2009, 12:41
Откуда: Moscow
Контактная информация:

Re: Расскраска AppFrame ...

Сообщение Алексей- Софт-Центр »

Добрый день!
Игорь! Я делаю попроще: для каждой базы - есть своя фотография, которая подсовывается при старте программы .
Поэтому одна и та же программа стартует с разными фотками-картинками, да и разными иконками,
когда программы сворачивается и открыто сразу несколько программ, работающих с разными базами.


Алексей
Stalker
Активист
Сообщения: 127
Зарегистрирован: 01 Декабрь 2005, 20:47
Откуда: Минск
Контактная информация:

Re: Расскраска AppFrame ...

Сообщение Stalker »

Здравствуйте!
Я поступил так, создал файл с полями: пользователь, путь к файлу картинки фона, код отображений (замостить или растянуть), признак активизации (1 активизировать, 0 -нет). Дал возможность выбора фона каждому пользователю в отдельной процедуре под себя, после выбора при входе пользователя при авторизации считывалась информация с файла и показывалось окно нужного окраса для данного пользователя и фона через вставку

Window{PROP:Wallpaper} = Pre_tab_fon ! файл фона

if Pre_tab_fon_kod = 1 !код замостить или растянуть рисунок
Window{PROP:TileImage} = 1
Window{PROP:STRETCH} = 0
else
Window{PROP:STRETCH} = 1
Window{PROP:TileImage} = 0
. !If
Естественно значения переменных считывались до открытия окна
Может сложновато, но работает.
Специализация - программы для образования, делопроизводство, складской учет
Ответить