Notiz - APP

Veröffentliche deine funktionierenden Skripte und Funktionen

Moderator: jNizM

seven7
Posts: 1
Joined: 15 Apr 2016, 05:42

Notiz - APP

15 Apr 2016, 06:00

Hallo,
ich habe eine kleine Notiz-App geschrieben.

Code: Select all

#NoTrayIcon
#SingleInstance force
Process, Priority,,Low
ListLines, Off
SetWinDelay,-1
SetControlDelay, -1
CoordMode,mouse,screen

edittab=>1<

WinGetActiveTitle,lasttitle
IniRead,x,msgnote.ini,MAIN,x,20
IniRead,y,msgnote.ini,MAIN,y,20
IniRead,w,msgnote.ini,MAIN,w,300
IniRead,h,msgnote.ini,MAIN,h,160
IniRead,tt1,msgnote.ini,MAIN,text1,0
Stringreplace,tt1,tt1,|,`r`n,all

IniRead,tt2,msgnote.ini,MAIN,text2,0
Stringreplace,tt2,tt2,|,`r`n,all

IniRead,tt3,msgnote.ini,MAIN,text3,0
Stringreplace,tt3,tt3,|,`r`n,all

h:=400
mnh:=300
msgnotewinsmallonoff=off

Hotkey,IfWinActive,msgnote
hotkey,f1,set
hotkey,wheelup,wu
hotkey,wheeldown,wd
edittaban:=1
textview:=tt%edittaban%

Gui,3: +LastFound  
gui,3: color,white,blue
Gui,3:  +Border -Caption +AlwaysOnTop +ToolWindow -SysMenu +Owner +resize  +OwnDialogs
gui,3: font,S10
gui,3: margin,0,0
gui,3: font,S10
gui,3: add,button,section gwait,X
gui,3: add,button,ys,M
gui,3: add,button,ys gtc1,1
gui,3: add,button,ys gtc2,2
gui,3: add,button,ys gtc3,3
gui,3: font,S16
gui,3: add,text,ys vud,Uhrzeit : Datrum                                                                                                                                                                                                                                                                                                                                                                         *
gui,3: add,edit, cwhite xs section  r5 w350 -VScroll -hScroll vMainEdit,%textview%
gui,3: show,x%x% y%y% w%w% h%h% ,msgnote
ControlFocus,Edit1,msgnote
Critical
SetBatchLines, -1	
sendinput,{pgdn}
sendinput,{pgdn}
sendinput,{pgdn}
sendinput,{pgdn}
sendinput,{pgdn}
sendinput,{pgdn}
sendinput,{pgdn}
sendinput,{pgdn}
sendinput,{pgdn}
sendinput,{pgdn}
loop,50
	sendinput,{down}
;MyWindowID := WinExist("msgnote")
;OnMessage(0x201,"WM_LBUTTONDOWN")

WinSet, Transparent, 180,msgnote
WinActivate,%lasttitle%
WinGetPos,mnx,mny,mnw,mnh,msgnote
cw:=mnw-w
WinMove,msgnote,,,,,45,
maxwin=off
settimer,check,500
save=ok
gui,3: color,yellow,blue
edittab=>1<

return

tc1:
ControlGetText,tt,Edit1,msgnote
tt%edittaban%:=tt

gui,3: color,yellow,blue
edittab=>1<
edittaban:=1
textview:=tt%edittaban%
ControlSetText,Edit1,%textview%,msgnote
return
tc2:
ControlGetText,tt,Edit1,msgnote
tt%edittaban%:=tt

gui,3: color,Fuchsia,blue
edittab=>2<
edittaban:=2
textview:=tt%edittaban%
ControlSetText,Edit1,%textview%,msgnote
return
tc3:
ControlGetText,tt,Edit1,msgnote
tt%edittaban%:=tt

gui,3: color,Lime,blue
edittab=>3<
edittaban:=3
textview:=tt%edittaban%
ControlSetText,Edit1,%textview%,msgnote
return
;##########################################################
wu:
sendinput,{up}
return
wd:
sendinput,{down}
return

set:
	FormatTime,t,, dd.MM , HH:mm
	sendinput,---%t%-------------------{enter}
	return
;##########################################################
check:

bl:=A_sec/2        ; Blink
ifinstring,bl,.5
		{
		FormatTime,ts,,dddd - MMMM d,  HH:mm 
		ControlSetText,Static1,%edittab% %ts%,msgnote
		}
	else
		{
		FormatTime,ts,,dddd - MMMM d,  HH mm
		ControlSetText,Static1,%edittab% %ts%,msgnote
		}


MouseGetPos, , , win, control
WinGetTitle, title, ahk_id %win%

if title=msgnote
	{
	
	if control=Button2
		{
		GetKeyState, state,LButton
    		if state=D
			{
			Critical
			SetBatchLines, -1
			settimer,check,off
			WinGetPos,xxs,yys,,,msgnote
			MouseGetPos,xms,yms
			Loop
				{
				GetKeyState, state,LButton, P
    				if state = U  ; The key has been released, so break out of the loop.
        					break
  				MouseGetPos, xs, ys
 				xxx:=round(xxs-(xms-xs))
 				yyy:=Round(yys-(yms-ys))
 				WinMove,msgnote,,%xxx%,%yyy%
				}
			settimer,check,500
			WinGetPos,x,y,,,msgnote
			MouseMove,%x%,%y%
			}
		return
	}



	if maxwin=off
		{
		WinMove,msgnote,,%mnx%,%mny%,%mnw%,%mnh%
		WinActivate,msgnote
		ControlFocus,Edit1,msgnote
		maxwin=on
		save=off
		SoundBeep,1000,50
		return
		}
	}
else
	{
	maxwin=off
	if save=off
		{
		WinGetPos,mnx,mny,mnw,mnh,msgnote
		savepos("msgnote")
		SoundBeep,1700,50
		save=ok
		}
	WinMove,msgnote,,,,,45
	}
	
return

;##########################################################
3guisize:
NewWidth := A_GuiWidth
NewHeight := A_GuiHeight
GuiControl, Move, MainEdit, W%NewWidth% H%NewHeight%
return


savepos(win)
{
sleep,100
global tt,cw,maxwin,edittaban,tt1,tt2,tt3,edittaban
WinGetPos,x,y,w,h,%win%
ControlGetText,tt,Edit1,msgnote
tt%edittaban%:=tt
  w:=w-cw
  IniWrite,%x%,msgnote.ini,MAIN,x
  IniWrite,%y%,msgnote.ini,MAIN,y
  IniWrite,%w%,msgnote.ini,MAIN,w
  IniWrite,%h%,msgnote.ini,MAIN,h

   Stringreplace,stt,tt1,`r`n,|,all
   IniWrite,%stt%,msgnote.ini,MAIN,text1

   Stringreplace,stt,tt2,`r`n,|,all
   IniWrite,%stt%,msgnote.ini,MAIN,text2

   Stringreplace,stt,tt3,`r`n,|,all
   IniWrite,%stt%,msgnote.ini,MAIN,text3


}

max:

~esc::
if maxwin=on
	{
	
	WinActivate,%lasttitle%
	WinGetPos,x,y,,,%lasttitle%
	MouseMove,%x%,%y%
	SoundBeep,500,50
	return
	}
WinGetActiveTitle,lasttitle
CoordMode,mouse,screen
MouseMove,%mnx%,%mny%
SoundBeep,2000,50
return

!F12::
if maxwin=off
		WinMove,msgnote,,%mnx%,%mny%,%mnw%,%mnh%
savepos("msgnote")
exitapp

wait:
settimer,check,off
loop,180
{
	t:=180-a_index
	WinSet, Transparent,%t%,msgnote
	sleep,1
}
SoundBeep,500,50
winhide,msgnote
sleep,10000
winshow,msgnote
SoundBeep,500,50
settimer,check,500
loop,180
{	
	WinSet, Transparent,%a_index%,msgnote
	sleep,1
}
return



Julius
Posts: 65
Joined: 15 Sep 2015, 07:41
Facebook: https://www.facebook.com/kommhelp.e.V/?fref=ts
Contact:

Re: Notiz - APP

02 May 2016, 16:46

Hi, ich versteh nicht so ganz, wie das funktioniert. Gibt es irgendwo Hinweise?
User avatar
divanebaba
Posts: 743
Joined: 20 Dec 2016, 03:53
Location: Diaspora

Re: Notiz - APP

27 Nov 2017, 10:12

Hmm.
Außer der Funktion, extremes Nervensägen durch lästiges Piepen, Aufpoppen, Einrollen und Ein- und Ausblenden, habe ich keine weitere finden können.
Das Beenden, einzig durch den Task-Manager oder auch !F12, macht das Glücksgefühl, ein nützliches Skript gefunden zu haben, komplett.
Ich denke, als Vorlage, zum Sezieren einzelner Funktionen, könnte das Skript taugen.
Zum Notizen hinterlegen, würde ich bisher selbst Klopapier bevorzugen.
Ich meine auch, Hinweise zum Gebrauch oder zu der Funktionsweise sind unerlässlich, ja sogar dringend.
[Starklichtbirne IQ >> 250!!] Dank deutscher Lehrerempfehlung, nur Süperdepp und Hartz4-Bezieher, statt Abitürient und Einkommensbezieher.
[Strong light bulb IQ >> 250!!] Thanks to german teacher's recommendation, willful and welfare recipient, instead of high school graduate and moneymaker.

Entering high school for foreign children is not prohibited in GERMANY, it's only made nearly impossible by government.
Virtually the only way - visiting high school abroad.

ADVERTISING: Patent pending strip accumulator - süper advanced technology - priceless inexpensive, space-saving, energy efficient - Patent priority for sale.

Return to “Skripte und Funktionen”

Who is online

Users browsing this forum: No registered users and 4 guests