Работа с ярлыками

Форумы Помощь по пакетуРабота с ярлыками ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 20

Рейтинг: 0

#1: 2024-12-03 09:37:26 ЛС | профиль | цитата

Можно ли организовать работу с ярлыками, как перетаскиванием на форму (с этим более менее понятно), так и наоборот, с формы на рабочий стол или в какую либо директорию в эксплорере (тотал коммандоре)?

П.С.: Разобрался, есть пример: Elements\delphi\Example\Files\DragAndDrop.sha

Редактировалось 2 раз(а), последний 2024-12-03 13:16:51

карма: 1

Ответов: 793

Рейтинг: 168

#2: 2024-12-03 19:50:26 ЛС | профиль | цитата

DSAnd писал(а):

Немного проще можно сделать. Перетаскивать любые файлы на форму и обратно в любое место. ПКМ на пустом месте – можно изменить вид отображения списка.


Add(MainForm,2953706,63,84)
{
 link(onCreate,6554915:doStrCat,[])
}
Add(WebBrowser,14811829,245,98)
{
 Left=235
 Top=145
 Align=5
 URL=""
 link(onNavigate,5840605:doText,[])
 link(URL,12860965:Var2,[])
}
Add(Dir,12612719,189,98)
{
 link(onEnd,14811829:doNavigate,[])
}
Add(StrCat,6554915,112,98)
{
 Str2="links"
 link(onStrCat,7139125:doEvent1,[])
 link(Str1,12612719:TempDir,[(118,89)(153,89)(153,138)(209,138)])
}
Add(StatusBar,5840605,301,98)
{
 Panels=#4:=500|
 link(Text,12860965:Var3,[(307,84)])
 link(Panel,15706691:Value,[])
}
Add(Memory,15706691,308,42)
{
 Default=Integer(0)
}
Add(Hub,7139125,161,98)
{
 link(onEvent1,12612719:doDir,[])
 link(onEvent2,12612719:doCurrentDir,[])
}
Add(GetDataEx,12860965,245,79)
{
 Angle=3
 link(Data,6554915:Result,[(237,84)(237,145)(118,145)])
}

карма: 16

Ответов: 20

Рейтинг: 0

#3: 2024-12-04 10:36:07 ЛС | профиль | цитата

Gunta, благодарю за хорошее решение, но есть ли возможность сохранить вид данного проводника в файле рядом с программой (тип сортировки, вид и т.д.) и было бы неплохо сделать фон.

карма: 1

Ответов: 793

Рейтинг: 168

#4: 2024-12-04 13:31:02 ЛС | профиль | цитата

DSAnd писал(а):

есть ли возможность сохранить вид данного проводника в файле рядом с программой (тип сортировки, вид и т.д.) и было бы неплохо сделать фон

Пока не понял, что куда сохранить….
А фон всё усложняет


Add(MainForm,15952888,196,182)
{
 Color=15780518
 Point(Handle)
 link(onCreate,449910:doEvent1,[])
}
Add(WebBrowser,14811829,441,203)
{
 Left=235
 Top=145
 Align=5
 URL=""
 Silent=0
 Point(Handle)
 link(onNavigate,5840605:doText,[])
 link(URL,12860965:Var2,[])
}
Add(Dir,12612719,371,203)
{
 link(onEnd,14811829:doNavigate,[])
}
Add(StrCat,6554915,273,203)
{
 Str2="links"
 link(onStrCat,7139125:doEvent1,[])
 link(Str1,12612719:CurrentDir,[(279,194)(314,194)(314,243)(377,243)])
}
Add(StatusBar,5840605,497,203)
{
 Panels=#4:=500|
 link(Text,12860965:Var3,[(503,189)])
 link(Panel,15706691:Value,[])
}
Add(Memory,15706691,504,147)
{
 Default=Integer(0)
}
Add(Hub,7139125,322,203)
{
 OutCount=3
 link(onEvent1,12612719:doDir,[])
 link(onEvent2,12612719:doCurrentDir,[])
 link(onEvent3,6052387:doColor,[(347,223)(347,286)])
}
Add(GetDataEx,12860965,441,184)
{
 Angle=3
 link(Data,15846842:Var3,[(419,189)(419,250)])
}
Add(WinTools,14193740,455,252)
{
 Point(doTransparentColor)
 link(Handle,14811829:Handle,[])
}
Add(SelectColor,6052387,385,280)
{
 Color=16777215
 link(onColor,14193740:doTransparentColor,[])
}
Add(DropFile,12577441,196,273)
{
 link(onDropFile,11154779:doCopy,[])
}
Add(DirTools,11154779,266,273)
{
 FilesOnly=1
 link(Dest,15846842:Var2,[])
}
Add(GetDataEx,15846842,273,245)
{
 link(Data,6554915:Result,[])
}
Add(WinTools,14407171,196,231)
{
 link(Handle,15952888:Handle,[])
}
Add(Hub,449910,238,196)
{
 link(onEvent1,14407171:doPopup,[(260,202)(260,172)(186,172)(186,244)])
 link(onEvent2,6554915:doStrCat,[])
}

карма: 16

Ответов: 20

Рейтинг: 0

#5: 2024-12-04 14:19:38 ЛС | профиль | цитата

Фон - картинка, а настройки нужны те, которые меняются из контекстного меню на форме (как у стандартного проводника). Допустим нужен не список, а обычные значки, выровнять по сетке и т.д.

Редактировалось 1 раз(а), последний 2024-12-04 14:19:59

карма: 1

Форумы Помощь по пакетуРабота с ярлыками ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)