https://sourceforge.net/projects/lcars-system-3/
https://www.deviantart.com/pashaak
Code: Select all
;- Date-modified =20220204 Gui +Owner +lastfound -caption
;-- Date-modified =20220130 GUI background transparent user amateur+
;-- Date-modified =20220128 GUI transparency change with button alt+up/down
;-- Date-modified =20211107 not needed add # for title,Font/Color definitions are in column3
;-- Date-modified =20211106 different fonts and size for buttons
;-- Date-modified =20211104/3 different colors for BUTTONS after TITLE or SPACE
;-- Date-modified =20210917/3 csv Halifax / TITLE-button has another color / +Resize
;-- Date-modified =20210917/2 add TITLE or SPACE between buttons
;-- Date-modified =20210915 color buttons
;-- Date-modified =20210914 one button starts 3 URL's or programs
;--------------------------------------------------------------------------------
#NoTrayIcon
#Warn
#NoEnv
#Singleinstance Force
filename1:="Jr's Shortcut's"
setworkingdir,%a_scriptdir%
Settitlematchmode,2
Gui,2:default
transform,s,chr,127 ;- delimiter for stringsplit
WA:=A_screenwidth,HA:=A_screenheight,xx:=100
Gui,2: -dpiscale +Owner +LastFound -caption
WinSet, TransColor, EEAA99 ;- hide background
Gui,2: Color, EEAA99 ;- color background
;--------------------
col1:="",col2:="",col3:="",col4:=""
vert:=25 ;-- change here how many vertikal buttons want have ( inclusive EMPTY-LINE and TITLE )
; but then also change GuiSize ( Width and Height )
; add a separator line for better view after defined variable 'vert' ) here after line 18 > ==============
;--------------------
;-
;- I don't know which is the best font-size depending screen-size or scaling
;------ BUTTON-TITLE ---------------
FontTitle:="Trebuchet MS" ,SizeTitle:="16 norm bold",colbgr:="388E8E",coltxt:="Yellow"
;----------------------------------
;--------------------- Button-NAME - URL1 - URL2 - URL3 ----------------------------------------------------
;- if Column-2 is empty :
;- all definitions are in Column-3 : FontSize|FONT|BackGroundColor|TextColor
;-
;- Define the next rows :
;- _S;;15 Bold|Verdana|Green|Black; ;-- _S only space
;- OR
;- TOOLS;;11 norm|Verdana|D5D1C9|black; ;-- TITLE
;-
;- CHARMAP_CALC_NOTEPAD;charmap;calc;notepad ;-- run URL or program (1-3)
;------------------------------------------------------------------------------------------------------------
;-
sectx=
(Ltrim comments Join`r`n %
==================================================
Halifax_Retales;;13 Bold|Verdana|4DA6FF|Black;
Halifax_Retales_Chat;https://www.facebook.com/groups/HalifaxReTalesChat/?fref=mentions;;
Halifax_Retales_Facebook;https://www.facebook.com/HalifaxReTales;;
Halifax_Retales_Faves;https://faves.retales.ca/;;
Halifax_Retales_Twitter;https://twitter.com/HalifaxReTales;;
_S;;;
_S;;;
Stanfield_Airport;;13 Bold|Verdana|B284BE|Black;
Halifax_Airport;https://halifaxstanfield.ca/flight-information/departures/;;
Halifax_Airport_Twitter;https://twitter.com/HfxStanfield;;
Highway_Conditions;https://511.novascotia.ca/en/map.html#l=48&x=-7053745&y=5628400&z=3&lb=1&rb=1;;
Google_Maps;https://www.google.com/maps/@44.9471296,-63.3762733,11.25z
_S;;;
Tools;;13 Bold|Verdana|cc4499|Black;
App_Folder;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Jrs Shortcuts\Appilcation Folder.ahk;;
Ostomy_Supplies;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Jrs Shortcuts\Ostomy Supplies.ahk;;
Programs;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Jrs Shortcuts\Program's.ahk;;
Windows_11_Tools;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Jrs Shortcuts\Window's 11 Tool's.ahk;;
_S;;;
Utilities;;13 Bold|Verdana|4DA6FF|Black;
Eastlink;https://my.eastlink.ca/myaccount;;
Global_Benifits;https://www.globalben.com/Account/Login?logout=True;;
NS_Power_Outage_Map;http://outagemap.nspower.ca/external/default.html
NS_Pharmacare;https://ns.211.ca/services/medavie-blue-cross/pharmacare-boarding-transportation-and-ostomy-program/
Virgin_Plus;https://www.virginplus.ca/en/login/index.html;;
==================================================
Weather;;12 Bold|Verdana|DD4444|Black;
Canada_Hurricane_Center;https://weather.gc.ca/hurricane/track_e.html;;
Environment_Canada;https://weather.gc.ca/city/pages/ns-40_metric_e.html;;
National_Hurricane_Center;https://www.nhc.noaa.gov/?atl;;
The_Weather_Network;https://www.theweathernetwork.com/ca/weather/nova-scotia/halifax-stanfield-intl-airport;;
_S;;;
_S;;;
Shopping;;13 Italic|Verdana|ff7700|Black;
Amazon_Canada;https://www.amazon.ca/;;
Amazon_Canada_Phone;https://gethuman.com/phone-number/Amazon-Canada;;
_S;;;
_S;;;
Costco_Canada;https://www.costco.ca/?langId=-24;
Ikea_Canada;https://www.ikea.com/ca/en/;
Walmart_Canada;https://www.walmart.ca/en;
_S;;;
_S;;;
_S;;;
_S;;;
Bank;;13 Bold|Verdana|33FF33|Black;
TD_Bank;https://authentication.td.com/uap-ui/index.html?consumer=easyweb&locale=en_CA#/login/easyweb-getting-started;;
_S;;;
_S;;;
Tims_Card;;13 Bold|Verdana|DD4444|Black;
Tim_Hortons;https://www.timhortons.ca/;;
==================================================
Sports;;13 Bold|Verdana|DD4444|Black;
ESPN;https://www.espn.com/;;
Sportsnet;https://www.sportsnet.ca/;;
TSN_TV_Schedule;https://www.tsn.ca/live/schedule;;
TSN_Sports_News;https://www.tsn.ca/;;
_S;;;
_S;;;
News;;13 Bold|Verdana|ff7700|Black;
Chronicle_Herald;https://www.thechronicleherald.ca/;;
Global_News;https://globalnews.ca/halifax/;;
CityNews_Everywhere;https://www.halifaxtoday.ca/;;
_S;;;
NY_Post;https://nypost.com/;;
Las_Vegas_Sun;https://lasvegassun.com/;;
CNN_News;https://www.cnn.com/;;
_S;;;
_S;;;
_S;;;
_S;;;
EMail;;13 Bold|Verdana|FF8866|Black;
Thunderbird;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Firefox\Thunderbird.ahk;;
_S;;;
_S;;;
Schedule;;13 Bold|Verdana|DD4444|Black;
Calendar;C:\Users\Jr\AppData\Roaming\Microsoft\Windows\Network Shortcuts\Shortcuts\Calendar - Shortcut.lnk;;
==================================================
AutoHotkey_Shortcuts;;12 Bold|Verdana|4DA6FF|Black;
AHK_Scripts;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts;;
AHK_Running_Scripts;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\AHK Tool's\Ahk Task Manager.ahk;;
Forums;https://www.autohotkey.com/boards/viewforum.php?f=76;;
Master_Script_Reboot;E:\PortableApps\PortableApps\AutoHotkeyPortable\Data\Jr's Script.ahk;;
Window_Spy;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\AHK Tool's\WindowSpy.ahk;;
_S;;;
TV;;13 Bold|Verdana|B284BE|Black;
TV_Guide;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\TV Guide.ahk;;
TV_Guide_Sports;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\TV Guide Sports.ahk;;
_S;;;
_S;;;
Halifax_Development;;11 Bold|Verdana|33CC99|Black;
Halifax_Peninsula;https://skyscraperpage.com/forum/forumdisplay.php?f=223;;
_S;;;
Brave_Tools;;11 Bold|Verdana
Brave_Portable_Cache_Clear;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Brave Portable Cache Clear.ahk;;
Brave_Fullscreen;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Fullscreen.ahk;;
_S;;;
Favorites;;13 Bold|Verdana|4DA6FF|Black;
Firefox_Portable;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Firefox Portable.ahk;;
Brave_Portable;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Brave Portable.ahk;;
Portable_Apps;E:\PortableApps\Start.exe - Shortcut.lnk;;
TV_Show_Tracker;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\My TV Show Tracker.ahk;;
Your_Phone;E:\PortableApps\PortableApps\AutoHotkeyPortable\AHK Scripts\Your Phone.ahk;;
)
;---------------------
loop,parse,sectx,`n,`r
{
x:=a_loopfield
if x contains =====
continue
stringsplit,k,x,`;
col1 .= k1 . s , col2 .= k2 . s , col3 .= k3 . s , col4 .= k4 . s
}
stringsplit,q,col1,%s%
stringsplit,m,col2,%s%
stringsplit,n,col3,%s%
stringsplit,o,col4,%s%
;-----------------------
i:=0,totx:=(q0-1),x:= (wa*1)/xx ,y:= (ha*1)/xx, w:= (wa*14 )/xx,h:= (ha*2.5)/xx,v:=(ha*3)/xx ;- button x y w h v=distance vertical
;------------------------------
Loop,%totx%
{
i++
btname:="" , column2:="" , column3:="" , column4:=""
BTName := q%i% , column2:= m%i% , column3:= n%i%, column4:= o%i%
if (btname="_S")
{
Gui,2:Add,Text, x%x% y%y% w%w% h%h% center, ;- if space added
stringsplit,z,column3,`|
}
;-----------------
else if (column2="" and btname !="_S") ;- add title and background
{
Gui,2:font,s%SizeTitle% ,%FontTitle%
Gui,2:Add,Progress, x%x% y%y% w%w% h%h% Disabled Background%colbgr% ;- TITLE Button-backgroundcolor
Gui,2:Add,Text, xp yp wp hp c%coltxt% BackgroundTrans Center 0x200 v%btname%_%i% ,%btname%
stringsplit,z,column3,`|
}
else if (BTName !="" and column2 !="")
{
;---------------------------
;- after TITLE or SPACE > other buttons color background and text
;---
Gui,2:font,s%z1%,%z2%
Gui,2:Add,Progress, x%x% y%y% w%w% h%h% Disabled Background%Z3%
Gui,2:Add,Text, xp yp wp hp c%Z4% BackgroundTrans Center 0x200 gStart1 v%btname%_%i% ,%btname%
}
y+=%v%
Md:=mod(i,vert)
if md=0
x+=(wa*15)/xx,y:=(ha*1)/xx ;- if modulo = 0 them move to new x (right) y (top)
}
;--- 2 Buttons if needed instead of ESC or alt+ESC -------------------
/*
x:=(wa*51)/xx,y:=(ha*57)/xx,w:=(wa*8)/xx,h:=(ha*2.4)/xx
Gui,2:add,button,x%x% y%y% h%h% w%w% gMinimize,MINIMIZE
;-
x:=(wa*62)/xx,y:=(ha*57)/xx,w:=(wa*8)/xx,h:=(ha*2.4)/xx
Gui,2:add,button,x%x% y%y% h%h% w%w% gClose,CLOSE
*/
;--------- GUISIZE -------------------------------------------------------
x:=(wa*20)/xx,y:=(ha*15)/xx,w:=(wa*67)/xx,h:=(ha*85)/xx ;- GUI x y w h
;x:=(wa*.1)/xx,y:=(ha*.1)/xx,w:=(wa*71)/xx,h:=(ha*60)/xx ;- GUI x y w h
Gui,2:Show, x%x% y%y% h%h% w%w%,%filename1%
Return
;-------------------------------------------------------------------------
/*
CLOSE:
2Guiclose:
exitapp
;--------------
Minimize:
Gui,2:minimize
return
*/
;-------------------------------------------------------------------------
esc::exitapp ;- quit this script with ESC
!esc::Gui,2:minimize ;- minimize this script with alt+ESC
;--------------- start --------------------------
start1:
gui,2:submit,nohide
Mousegetpos,,,,Ctrl ;- Button1
r:= a_guicontrol ;- vVar ( Buttonname )
stringtrimleft,ct,ctrl,6 ;- Button-(1)
clm2:= m%ct%,clm3:= n%ct%,clm4:= o%ct%
;msgbox, 262208, ,R=%r%`nCT=%ct%`nCTRL=%ctrl%`nURL1=%clm2%`nURL2=%clm3%`nURL3=%clm4%
try
run,%clm2%
catch,err
{
gosub,checkerror
return
}
try
run,%clm3%
catch,err
{
gosub,checkerror
return
}
try
run,%clm4%
catch,err
{
gosub,checkerror
return
}
Gui,2:minimize
return
;-----------------
Checkerror:
x1:="Message=" . err.Message
x2:="Extra =" . err.extra
x3:="File =" . err.file
x4:="Line =" . err.line
x5:="What =" . err.what
msgbox, 262208,ERROR,Error=`n%x1%`n----------------------`n%x2%`n%x3%`n%x4%`n%x5%`n--------------------`n
return
;================================ END SCRIPT ================================