PureBasic Forums - English

Code: Select all

;{ ShowInformation by Michael Vogel Vo.o1}

	; INSTALLATION:
	;
	; •	copy the compiled exe file into the directory "...\Purbasic\Catalogs"
	; •	set up the tool using "Configure Tools..." with the following parameters (from top to bottom):
	;
	;	%COMPILEFILE\..\Catalogs\Tool ShowInfo.exe
	;	"%TEMPFILE" %CURSOR
	;	%COMPILEFILE\..
	;	Show I&nformation
	;	Menu Or Shortcut
	;	Alt+N
	;
	; 	[_]	Wait until tool quits
	; 	[_]	Reload Source after tool has quit
	; 	[_]	into the current source

;}
; Define

	#Programtitle="Show Information"

	Enumeration
		#CopyNothing
		#CopyProcedureLine
		#CopyCursorText
		;
		#Source
		#Window
		#Info
	EndEnumeration

	#CopyMode=#CopyCursorText;	GetKeyState_(#VK_MENU)&128

	If CountProgramParameters()<>2
		MessageBox_(0,"'Show Information' needs two parameters!"+#CR$+"(''%TEMPFILE'' %CURSOR)","Error",#MB_ICONERROR|#MB_OK)
		End
	EndIf

	Global SourceFile.s=ProgramParameter()
	Global Zeile.s=ProgramParameter()
	Global Info.s
	Global Cursor.i=Val(StringField(Zeile,1,"x"))
	Global Count.i
	Global n

	; MessageBox_(0,"Filename: "+SourceFile+#CR$+"Cursor-Position: "+Str(Cursor),"Ok",#MB_ICONINFORMATION|#MB_OK)

	If OpenFile(#Source,SourceFile)

		While Eof(#Source)=#Null And Cursor
			Count+1
			Zeile=Trim(ReadString(#Source))
			If LCase(Left(Zeile,9))="procedure"
				Info=StringField(Zeile,2," ")
				n=Count
			EndIf
			Cursor-1
		Wend
		CloseFile(#Source)

		CompilerSelect #CopyMode
		CompilerCase #CopyProcedureLine
			SetClipboardText(Str(n))
		CompilerCase #CopyCursorText
			SetClipboardText(Zeile)
		CompilerEndSelect

		n=Len(Info)
		If n
			n*6+10
			GetCursorPos_(Mouse.POINT)
			OpenWindow(#Window,Mouse\x+10,Mouse\y-15,n,18,#Programtitle,#PB_Window_BorderLess|#PB_Window_Invisible)
			SetWindowColor(#Window,#Black)
			StickyWindow(#Window,#True)
			TextGadget(#Info,1,1,n-2,16," "+Info,#SS_NOPREFIX|#SS_LEFTNOWORDWRAP)
			SetGadgetColor(#Info,#PB_Gadget_BackColor,#Yellow)
			SetGadgetColor(#Info,#PB_Gadget_FrontColor,#Black)
			HideWindow(#Window,#Null)
			AddWindowTimer(#Window,#Null,250)

			n=ElapsedMilliseconds()+1500
			Repeat
				WaitWindowEvent()
			Until ElapsedMilliseconds()>n
			End

		EndIf

	Else
		MessageBox_(0,"The source code file '"+GetFilePart(SourceFile)+"' is locked!"+#CR$,"Error",#MB_ICONERROR|#MB_OK)
		End
	EndIf

; EndDefine

Code: Select all

; Compile & assign ct_sci_kybd_lineDel.exe --> Shorcut = [Ctrl+Shift+D]
; This becomes the opposite of duplicate line via Shorcut = [Ctrl+D]
Define.i ri, hSci = Val(GetEnvironmentVariable("PB_TOOL_Scintilla"))
If hSci
  SendMessageTimeout_(hSci,#SCI_LINEDELETE,0,0,#SMTO_ABORTIFHUNG,2000,@ri)
EndIf

Code: Select all

GetEnvironmentVariable ("PB_TOOL_Scintilla")