Get Computer Name using WMI:
FUNCTION wmi_GetComputerName()
LOCAL wmiObj
LOCAL compsObj
LOCAL compObj
LOCAL compName
compName = ""
wmiObj = GETOBJECT( "winmgmts://./root/cimv2" )
compsObj = wmiObj.ExecQuery( "Select * from Win32_ComputerSystem" )...
Hi everyone,
Push Your VFP App to the next Level: Blur / Acrylic Blur - the VFP developer can use this free DLL WindowComposition.dll to blur every window background under Windows 10 and 11 !!!
Just like e.g. the left side of the Setting Windows or the Taskbar of Windows 10 / 11 !!!
The DLL...
Hi Mike,
I assume Chriss is right in everything he wrote
if you set Desktop = .T., VFP makes the window internally a top level window - not shown in the Taskbar
that's why your code now also works with Windows 7
I believe it even works with Windows 2000, XP and Vista ...
Regards, Stefan
Hi Chriss,
for me IsTopLevelWindow( hWnd ) always returns 1 = .T.
any combinations of ShowWindow = 0, 1, 2 and Destop = .F., .T. => always 1 = .T. ?????????
Regards, Stefan
Hi Chriss,
thankx for hints and the links!
My post still has some new information:
- how to make the transparent background clickable
- how to make the transparent background clickable through
- how Visual FoxPro renders controls to the background
Just tested my Form with transparent...
Hi Mike,
nice function :-)
SetLayeredWindowAttributes: https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setlayeredwindowattributes
Windows 8: The WS_EX_LAYERED style is supported for top-level windows and child windows. Previous Windows versions support WS_EX_LAYERED...
Hi everyone,
how it works:
1) set the Backcolor of Your Form to colorKey
2) make Your Form a Layered Window
3) set the colorKey of this Layered Window: this makes the Background transparent :-)
#DEFINE GWL_EXSTYLE -20
#DEFINE WS_EX_LAYERED 0x00080000
#DEFINE LWA_COLORKEY 0x1
FUNCTION...
Hi Chris,
please try:
DECLARE INTEGER SetProgressTaskbar IN PROGRESSTASKBAR.DLL;
LONG hWnd,; && <= LONG !!!
INTEGER valueVal,;
INTEGER maxVal,;
INTEGER stateVal
VFP Help:
INTEGER 32-bit integer
LONG 32-bit long integer
- I really don't know what should be the difference between...
Thankx for Your feedback
I hope everyone has fun with this feature :-)
Regards, Stefan
I have started developing with Visual FoxPro in 1997
under and for all Windows versions:
Windows 95
Windows 98
Windows 2000
Windows Me
Windows XP
Windows Vista
Windows 7
Windows 8
Windows 8.1
Windows 10...
Hi Ravindra Patil,
please put the following code into the BeforeRowColChange event of Your grid:
LPARAMETERS nColIndex
WITH THIS
IF nColIndex = .ColumnCount
.ActivateCell( .ActiveRow + 1, 1 )
ENDIF
ENDWITH
Regards, Stefan
Hi erveryone,
Just as you can use the normal ProgressBar to create a progress bar on a form, the VFP developer can use this free DLL ProgressTaskbar.dll to visually spice up VFP Apps and create a progress bar in the taskbar of Windows 7 / 8 / 8.1 / 10 / 11 !!!
Just like e.g. the progress bar...
Hi ducklord,
Your observation is correct :-)
the modification date is updated when the table is closed: manually with USE - or - automatically by VFP
and this is not an issue but a feature: the modification date does not have to be updated for every user change
Regards, Stefan
Hi SitesMasstec,
You can use ATC() instead of AT()
ATC() is NOT case sensitive
using ATC() means, there is no need for LOWER() ... or UPPER()
.SelStart = ( ATC( MyText, THISFORM.txtCobs2.Value ) ) -1
Regards, Stefan
Hi Chris,
I agree with You:
the Microsoft RichTextBox Control Richtx32.ocx is much more comfortable !!! there is no need to know the start position and the length of the searched string
the use of the Microsoft RichTextBox Control Richtx32.ocx is free for VFP developers
the latest version...
Hi SitesMasstec,
You can realize this text highlight for both a native VFP Textbox and a native VFP Editbox
You have to know the start position (x) and the length (y) of the highlight text:
Textbox is named Text1
WITH THISFORM.Text1
.SelStart = x
.SelLength = y
.SetFocus...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.