PureBasic Forums - English

Code: Select all

:
:
#SendKeyWait=	120
#SendKeyDelay= 2

i=GetForegroundWindow_();				Marker Tool
m=GetWindowThreadProcessId_(i,0)
n=GetWindowThreadProcessId_(HandleIde,0);	IDE

If m<>n
	AttachThreadInput_(m,n,#True)
	SetForegroundWindow_(HandleIde)
EndIf
Delay(#SendKeyWait)

keybd_event_(#VK_CONTROL,0,0,0)
keybd_event_(#VK_F2,0,0,0)
keybd_event_(#VK_F2,0,#KEYEVENTF_KEYUP,0)
keybd_event_(#VK_CONTROL,0,#KEYEVENTF_KEYUP,0)

If m<>n
	AttachThreadInput_(m,n,#False)
	SetForegroundWindow_(i)
EndIf
:
:

Code: Select all

; hwnd = ...  ; handle of the IDE Window 
; use of SendMessage_() or PostMessage_() and Delay() ?? 
PostMessage_(hwnd, #WM_KEYDOWN, #VK_CONTROL, #Null) ; lParam probably needs some attention 
PostMessage_(hwnd, #WM_KEYDOWN, #VK_F2,      #Null) ; -"- 
PostMessage_(hwnd, #WM_KEYUP,   #VK_CONTROL, #Null) ; -"- 

; Borrowed from MSDN.... WM_KEYDOWN 
; lParam 
; The repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag, as shown following.
; 
; Bits  Meaning 
; 0-15  The repeat count for the current message. The value is the number of times the keystroke is autorepeated as a result of the user holding down the key. If the keystroke is held long enough, multiple messages are sent. However, the repeat count is not cumulative. 
; 16-23 The scan code. The value depends on the OEM. 
; 24    Indicates whether the key is an extended key, such as the right-hand ALT and CTRL keys that appear on an enhanced 101- or 102-key keyboard. The value is 1 if it is an extended key; otherwise, it is 0. 
; 25-28 Reserved; do not use. 
; 29    The context code. The value is always 0 for a WM_KEYDOWN message. 
; 30    The previous key state. The value is 1 if the key is down before the message is sent, or it is zero if the key is up. 
; 31    The transition state. The value is always 0 For a WM_KEYDOWN message. 

Code: Select all

; Common.pb
; #MARKER_Marker            = 22 ; line markers 
; 
; ScintillaHighlighting.pb
;   Procedure AddMarker()
;   Procedure ClearMarkers()
;   Procedure MarkerJump()
;   Procedure.s GetMarkerString()  ; get a list of all markers as a string
;   Procedure ApplyMarkerString(Markers$) ; apply a string of marker numbers to the file

Code: Select all

hwnd = FindWindow_(@"WindowClass_2", @"PureBasic 6.21 (x64)") 
If hwnd : hwnd = FindWindowEx_(hwnd, #Null, @"PureSplitter", #Null) : EndIf 
If hwnd : hwnd = FindWindowEx_(hwnd, #Null, @"PureSplitter", #Null) : EndIf 
If hwnd : hwnd = FindWindowEx_(hwnd, #Null, @"PureContainer", #Null) : EndIf 
If hwnd : hwnd = FindWindowEx_(hwnd, #Null, @"Scintilla", #Null) : EndIf 
If hwnd 
  Debug "Found PureBasic Scintilla Control == " + hwnd 
  hwndScintilla = hwnd  
EndIf 

Code: Select all

#MarkerId=22
If SendMessage_(\HandleScintilla,#SCI_MARKERGET,line-1,0) & (1<<#MarkerId)
	n=#SCI_MARKERDELETE
Else
	n=#SCI_MARKERADD
EndIf
SendMessage_(\HandleScintilla,n,line-1,#MarkerId)

; or a simple line:
; SendMessage_(\HandleScintilla, #SCI_MARKERADD + Bool(SendMessage_(\HandleScintilla,#SCI_MARKERGET,line-1,0) & (1<<#MarkerId)), line-1, #MarkerId)