ListView Frage'n
Posted: 14 Oct 2020, 02:17
Hallo, wie kann ich erreichen, dass das Bild, welches ich in der Spalte FileNameArr[counter[A_Index]] 'einmal' anklicke, in einer Rahmenlosen GUI an der Maus klebt. Wie ein Tooltip. Geht sowas?
Code: Select all
#SingleInstance force
#NoEnv
SetKeyDelay 20
SetTitleMatchMode, 2
MapsPic =
(
E29EA86D3DE41EBA638759CD2057D5C5;https://www.google.com/maps/vt/data=-V9-TK0q6WAaz3IsV0GA0ycLYcOMQ0PNNJEBUA_q3uRXBE7ewg9PGjtxTWmuevN_hAz23l4WgP6IFdB-vocHhp9VpY1XHnAH4NH8xm0tzABYaxJeJi6TbfDh_jQk7JSg6y5P2ddetR6FS0jrTxuEnTA5yLH3RkoJqxPKDNJPt_M
4D5BA5807538F20F22447CB2865FC894;https://www.google.com/maps/vt/data=X6du77TUdb5oN-hIZJc3eN_TOwi2TTF5GZR8t3Z_ml-K2x1_5geCYW7zaRjANtrlk5WL6RY4bgoX7bBrCTwmEbZiuTnlPjr6pT6VkFOuvZWh-2-cssREgGUXMi2AS1Cu-Gs0O0_MAmHEKBcA30h3vUS0K2Af4Yk5UZS8NtNheNw
5C1548941B721514241F1196B1974030;https://www.google.com/maps/vt/data=hq9tQMju8dpo52cxinRgt_hsA2-KmGEOsUaQD2lykQkwuTvknFAiCfEpgUj8MSL9olWcyCRgQW9Q2L1b3b8RsXn3MZZcSIUR9942BlDTRhKko6rww_BM2bBRluhIdwPKyKTOPU-Ic_9FwoFPK1dptpauBBOIUHAgbrigeAzKy10
)
MapsCal :=
(
"E29EA86D3DE41EBA638759CD2057D5C5;https://www.google.com/maps/place/50%C2%B019'54.0%22N+6%C2%B056'24.6%22E
4D5BA5807538F20F22447CB2865FC894;https://www.google.com/maps/place/50%C2%B019'58.8%22N+6%C2%B056'22.2%22E
5C1548941B721514241F1196B1974030;https://www.google.com/maps/place/50%C2%B019'58.2%22N+6%C2%B056'21.6%22E"
)
FileNameOriginal =
(
E29EA86D3DE41EBA638759CD2057D5C5;C:\Users\Administrator\Desktop\GPS Foto Content\original\017.JPG
4D5BA5807538F20F22447CB2865FC894;C:\Users\Administrator\Desktop\GPS Foto Content\original\018.JPG
5C1548941B721514241F1196B1974030;C:\Users\Administrator\Desktop\GPS Foto Content\original\021.JPG
)
KoordinatenFuerSort :=
(
"E29EA86D3DE41EBA638759CD2057D5C5;https://www.google.com/search?q=50%C2%B019'54.0%22N+6%C2%B056'24.6%22E;[email protected]
4D5BA5807538F20F22447CB2865FC894;https://www.google.com/search?q=50%C2%B019'58.8%22N+6%C2%B056'22.2%22E;[email protected]
5C1548941B721514241F1196B1974030;https://www.google.com/search?q=50%C2%B019'58.2%22N+6%C2%B056'21.6%22E;[email protected]"
)
FileZiel =
(
E29EA86D3DE41EBA638759CD2057D5C5;C:\Users\Administrator\Desktop\GPS Foto Content\2011\Juni\3\2011.Juni.3--07.07.22--017.JPG
4D5BA5807538F20F22447CB2865FC894;C:\Users\Administrator\Desktop\GPS Foto Content\2011\Juni\3\2011.Juni.3--07.13.16--018.JPG
5C1548941B721514241F1196B1974030;C:\Users\Administrator\Desktop\GPS Foto Content\2011\Juni\3\2011.Juni.3--07.15.40--021.JPG
)
MapsPicArr := Object()
counter := []
loop, Parse, % MapsPic, `n, `r
{
Arr:= StrSplit(A_LoopField, ";")
; if Arr.Length()=2
MapsPicArr[Arr[1]] := (Arr[2] ? Arr[2] : Arr[1])
counter.Push(Arr[1])
}
MapsCallArr := Object()
loop, Parse, % MapsCal, `n, `r
{
Arr:= StrSplit(A_LoopField, ";")
MapsCallArr[Arr[1]] := (Arr[2] ? Arr[2] : Arr[1])
}
FileNameArr := Object()
loop, Parse, % FileNameOriginal, `n, `r
{
Arr:= StrSplit(A_LoopField, ";")
FileNameArr[Arr[1]] := (Arr[2] ? Arr[2] : Arr[1])
}
KoordinatenFuerSortaArr := Object()
loop, Parse, % KoordinatenFuerSort, `n, `r
{
Arr:= StrSplit(A_LoopField, ";")
KoordinatenFuerSortaArr[Arr[1]] := (Arr[2] ? Arr[2] : Arr[1])
}
KoordinatenFuerSortbArr := Object()
loop, Parse, % KoordinatenFuerSort, `n, `r
{
Arr:= StrSplit(A_LoopField, ";")
KoordinatenFuerSortbArr[Arr[1]] := (Arr[3] ? Arr[3] : Arr[1])
}
FileZielArr := Object()
loop, Parse, % FileZiel, `n, `r
{
Arr:= StrSplit(A_LoopField, ";")
FileZielArr[Arr[1]] := (Arr[2] ? Arr[2] : Arr[1])
}
Loop % counter.MaxIndex()
MsgBox % "ID:`n" counter[A_Index] "`n`n"
. "Maps Pic URL:`n" MapsPicArr[counter[A_Index]] "`n`n"
. "Maps Navi URL:`n" MapsCallArr[counter[A_Index]] "`n`n"
. "KoordinatenA:`n" KoordinatenFuerSortaArr[counter[A_Index]] "`n`n"
. "KoordinatenB:`n" KoordinatenFuerSortbArr[counter[A_Index]] "`n`n"
. "Quelle:`n" FileNameArr[counter[A_Index]] "`n`n"
. "Quelle FileName:`n" yFileName(FileNameArr[counter[A_Index]]) "`n`n"
. "Ziel FileName:`n" yFileName(FileZielArr[counter[A_Index]]) "`n`n"
. "Ziel:`n" FileZielArr[counter[A_Index]] "`n`n"
yFileName(x){
x := StrSplit(x, "\")
While, x.MaxIndex()
Return x.Pop()
}
Gui, Add, ListView, w1500 r20 gActionListView, ID|GEO|FileName Quelle|FileName Ziel|BildMap
Loop % counter.MaxIndex()
LV_Add("", counter[A_Index]
, KoordinatenFuerSortbArr[counter[A_Index]]
, yFileName(FileNameArr[counter[A_Index]])
, yFileName(FileZielArr[counter[A_Index]])
, MapsPicArr[counter[A_Index]])
LV_ModifyCol()
Gui, Show, , Bilder GPS Data
ActionListView:
if (A_GuiEvent = "DoubleClick")
{
LV_GetText(BildUrl, A_EventInfo)
;MsgBox % A_EventInfo "`n" MapsPicArr[BildUrl]
Run % MapsPicArr[BildUrl]
Sleep, 2000
Run % FileNameArr[BildUrl]
}
return
GuiClose:
ExitApp
Return