Вверх ↑
Этот топик читают: Гость
Ответов: 817
Рейтинг: 52
#1: 2008-11-11 13:25:01 ЛС | профиль | цитата
Приятного времени суток господа!

Нашел случайно компонент Desktop
Посмотрел на него и показался он мне не полноценым
Может кто добавит в него возможность выбора расположения обоев
(типа растянуто или по центру)
карма: 1

0
Ответов: 294
Рейтинг: 64
#2: 2008-11-11 15:37:58 ЛС | профиль | цитата
Пока не добавили - можно попользовать компонент Registry, с помощью которого управлять этими параметрами.
HKEY_CURRENT_USERControl PanelDesktop
WallpaperStyle - 2 (растянуто); 0 - по центру; а 0 и значение TileWallpaper - 1 замостить.
Мог маленько напутать со значениями - опытным путем быстро можно проверить при желании.
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#3: 2008-11-11 15:53:11 ЛС | профиль | цитата
Quest писал(а):
Пока не добавили - можно попользовать компонент Registry, с помощью которого управлять этими параметрами.

Да, есть такие ключи, но без применения ActiveDesktop нифига не применишь эти режимы
карма: 22

0
Ответов: 294
Рейтинг: 64
#4: 2008-11-11 16:56:29 ЛС | профиль | цитата
Ну пользу то можно извлечь, например при установке новых обоев.
Типа того:
code_10638.txt
карма: 0

0
файлы: 1code_10638.txt [1KB] [169]
Ответов: 817
Рейтинг: 52
#5: 2008-11-11 18:55:01 ЛС | профиль | цитата
Мдяяяя
Жаль что нету возможности нормально все это сделать
Всем спасибо за ответы
карма: 1

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#6: 2008-11-11 19:04:13 ЛС | профиль | цитата
-= DriveR =- писал(а):
Жаль что нету возможности нормально все это сделать

Кто такое сказал Всем сразу все подавай на блюдечке -- ну не бывае так.
карма: 22

0
Ответов: 3851
Рейтинг: 159
#7: 2008-11-11 19:19:18 ЛС | профиль | цитата
nesco писал(а):
Всем сразу все подавай на блюдечке -- ну не бывае так
"бывае" (HiAsm), но редко (HiAsm)
карма: 0
начавший
0
Ответов: 8930
Рейтинг: 823
#8: 2008-11-11 19:20:16 ЛС | профиль | цитата
nesco, про голубую каёмочку надо вспомнить
карма: 19

0
Ответов: 1088
Рейтинг: 112
#9: 2008-11-11 19:31:55 ЛС | профиль | цитата
Делал я схемку на эте тему. Только она не пашет почему-то...

#sha
Add(MainForm,1549148,322,105)
{
Left=20
Top=105
Width=441
Height=209
}
Add(Desktop,6505591,322,63)
{
}
Add(DropFile,815392,203,63)
{
link(onDropFile,835327:doEvent1,[])
}
Add(Label,2307507,77,63)
{
Width=433
Height=35
Align=2
Font=[MS Sans Serif,14,1,0,1]
Caption="Быстрая установка обоев рабочего стола"
}
Add(Label,11131418,126,63)
{
Top=165
Width=433
Height=17
Align=4
Caption="Перетащите картинку в область этого окна"
}
Add(Hub,835327,252,63)
{
link(onEvent1,6505591:doFromFile,[])
link(onEvent2,1549148:doClose,[(303,76)(303,132)])
}
Add(RadioButton,15095354,77,182)
{
Left=10
Top=45
Width=140
Caption="По цетру"
link(onSelect,13309234:doData,[])
}
Add(RadioButton,155522,77,231)
{
Left=10
Top=80
Width=140
Caption="3амостить"
link(onSelect,1661070:doData,[])
}
Add(RadioButton,10676208,77,280)
{
Left=10
Top=115
Width=140
Caption="Растянуть"
link(onSelect,14994478:doData,[])
}
Add(Registry,11887657,252,217)
{
HKey=1
Key="Control PanelDesktop"
Value="WallpaperStyle"
}
Add(Hub,11746221,203,224)
{
InCount=3
OutCount=1
link(onEvent1,11887657:doWrite,[])
}
Add(DoData,13309234,126,182)
{
Data=String(0)
link(onEventData,11746221:doEvent1,[(195,188)(195,230)])
}
Add(DoData,1661070,126,231)
{
Data=String(1)
link(onEventData,11746221:doEvent2,[])
}
Add(DoData,14994478,126,280)
{
Data=String(2)
link(onEventData,11746221:doEvent3,[(195,286)(195,244)])
}

карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 294
Рейтинг: 64
#10: 2008-11-11 21:40:43 ЛС | профиль | цитата
Sniper36
В целом пашет... а если о фишке "Замостить", то там еще параметр TileWallpaper в 1 выставлять надо.

#sha
Add(MainForm,1549148,546,133)
{
Left=20
Top=105
Width=441
Height=209
}
Add(Desktop,6505591,546,91)
{
}
Add(DropFile,815392,427,91)
{
link(onDropFile,835327:doEvent1,[])
}
Add(Label,2307507,301,91)
{
Width=433
Height=35
Align=2
Font=[MS Sans Serif,14,1,0,1]
Caption="Быстрая установка обоев рабочего стола"
}
Add(Label,11131418,350,91)
{
Top=165
Width=433
Height=17
Align=4
Caption="Перетащите картинку в область этого окна"
}
Add(Hub,835327,476,91)
{
link(onEvent1,6505591:doFromFile,[])
link(onEvent2,1549148:doClose,[(527,104)(527,160)])
}
Add(RadioButton,15095354,238,203)
{
Left=10
Top=45
Width=140
Caption="По цетру"
link(onSelect,13002002:doEvent1,[])
}
Add(RadioButton,155522,238,266)
{
Left=10
Top=80
Width=140
Caption="3амостить"
link(onSelect,14792987:doData,[])
}
Add(RadioButton,10676208,238,322)
{
Left=10
Top=115
Width=140
Caption="Растянуть"
link(onSelect,16678613:doEvent1,[])
}
Add(Registry,11887657,476,245)
{
HKey=1
Key="Control PanelDesktop"
Value="WallpaperStyle"
}
Add(Hub,11746221,427,252)
{
InCount=3
link(onEvent1,11887657:doWrite,[])
}
Add(DoData,13309234,336,203)
{
Data=String(0)
link(onEventData,11746221:doEvent1,[(419,209)(419,258)])
}
Add(DoData,14994478,336,329)
{
Data=String(2)
link(onEventData,11746221:doEvent3,[(419,335)(419,272)])
}
Add(Registry,3542199,371,252)
{
HKey=1
Key="Control PanelDesktop"
Value="TileWallpaper"
}
Add(DoData,14792987,280,266)
{
Data=String(1)
link(onEventData,9188790:doEvent2,[])
}
Add(Hub,9188790,329,259)
{
InCount=3
OutCount=1
link(onEvent1,3542199:doWrite,[])
}
Add(Hub,13002002,280,203)
{
link(onEvent1,13309234:doData,[])
link(onEvent2,9188790:doEvent1,[(317,216)(317,265)])
}
Add(Hub,16678613,280,322)
{
link(onEvent1,9188790:doEvent3,[(321,328)(321,279)])
link(onEvent2,14994478:doData,[])
}

карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#11: 2008-11-12 02:10:29 ЛС | профиль | цитата
Кому необходимо, то на SVN доступна новая весия DeskTop, которая поддерживает стили отрисовки

[svn]Desktop.pas[/svn]

А вот такой пример позволяет использовать картинки практически любых расширений


------------ Дoбавленo:

Добавлены новые Var-точки -- FileName и Style, позволяющие читать исходные параметры установленной картинки. Поправлен, так же, пример
карма: 22

1
файлы: 1desktop.sha [5.1KB] [228]
Голосовали:Konst
11
Сообщение
...
Прикрепленные файлы
(файлы не залиты)