PureBasic Forums - English

Hello, I would like an example with an editable combobox on column 5 and why not a dategadget and thus have a complete example of editing a listgadget with all the compatible editing gadgets. Thank you in advance.

closeprogram cuts off communication with the software opened by runprogram, but does not close it.

because killprogram kills the program, it does not close it.

Hello, Here is an example to close Notepad, The example is a little clearer than one already described.
;-TOP

; Comment : Window Functions
; Author : mk-soft
; Version : v1.03.0
; Create : ?
; Update : 20.11.2021

Structure udtListWindows
Name.s
Class.s
Handle.i
Process.i
Childs.i
Level.i ...

Hello, Here is a working example for applications other than Notepad.
Procedure EndProgram(processID)
w=GetWindow_(GetDesktopWindow_(),#GW_CHILD)
Repeat
GetWindowThreadProcessId_(w,@pid)
If pid=processID
hWnd=w
;PostMessage_(hWnd,#WM_SYSCOMMAND,#SC_CLOSE,0) ; Returns 1 but Notepad is still ...

Yes, that's right, I want to change the color of the selected text. Too bad it's not a gadget attribute. THANKS

I want to change the appearance of the text selection.
https://1drv.ms/i/s!Atmzt_kAwqmYtPAhj3p ... A?e=EGSPS4

The color of the selection highlight box.

Oops, I'm not talking about how to select text. I'm talking about how to change text highlighting when selected. Sorry for my mistake.

Good morning,
Is there an easy way to change the text selection display in Editorgadget in Windows?

Hello this version is functional, but has the same problem as the previous one.
#CFM_BACKCOLOR = $4000000

Global lpPrevFunc
Global hwndRichEdit

OpenWindow(0,0,0,500,400,"Owner-Draw Text Selection")

hwndRichEdit = EditorGadget(0,0,0,WindowWidth(0),WindowHeight(0))
SendMessage_(GadgetID(0), #EM ...

Hello, here is an example that works.

EnableExplicit
; Selects Text inside an EditorGadget
; Line numbers range from 0 to CountGadgetItems(#Gadget)-1
; Char numbers range from 1 to the length of a line
; Set Line numbers to -1 to indicate the last line, and Char
; numbers to -1 to indicate the end ...

Ok

New to this.

Trying to use the code to create a shortcut if I use.

obj = getSpecialFolder(#CSIDL_WINDOWS) + "World Stamp Collector.exe"
lnk = getSpecialFolder(#CSIDL_DESKTOPDIRECTORY) + "WSC.lnk"

The shortcut is created but tells me it cannot find the exe file to run it if i browse it then ...

Hi

Prototype.l AccessibleObjectFromPoint(x,y,*ia,*var)
Global AccessibleObjectFromPoint.AccessibleObjectFromPoint,Value.string, vt.VARIANT,*pIAcc.IAccessible,Text$

Olelib = OpenLibrary(#PB_Any,"Oleacc.dll")
If Olelib
AccessibleObjectFromPoint=GetFunction(Olelib,"AccessibleObjectFromPoint ...