Round FoxPro form -- Visual FoxPro : Using Win32 (WinAPI) Functions


	Using Win32 functions in Visual FoxPro	Image Gallery




functions • examples • solutions • updates • about •	links • articles •	login •


	Keyboard Input ..msdn

	ActivateKeyboardLayout
	BlockInput
	EnableWindow
	GetActiveWindow
	GetAsyncKeyState
	GetFocus
	GetKBCodePage
	GetKeyboardLayout
	GetKeyboardLayoutList
	GetKeyboardLayoutName
	GetKeyboardState
	GetKeyNameText
	GetKeyState
	IsWindowEnabled
	keybd_event
	MapVirtualKey
	RegisterHotKey
	SetFocus
	SetKeyboardState
	ToAscii
	UnregisterHotKey
	VkKeyScan


	Code examples:

	An alternative way of setting Form.Closable to False



	Animating a transition of the VFP form (a wire-frame rectangle)



	Attaching menu to a top-level form



	Copying picture of the active form to the Clipboard using Enhanced Metafile API functions



	Creating a clipping region from the path selected into the device context of a form



	Disabling drawing in the VFP form



	Displaying animated images on FoxPro form with BitBlt and StretchBlt functions



	Dragging files from Explorer window and dropping them on FoxPro control (requires VFP9)



	Drawing a window caption using the DrawCaption routine



	Drawing standard Windows icons



	Form Magnifier



	GDI+: copying to the Clipboard (a) image of active FoxPro window/form, (b) image file



	GDI+: saving image of FoxPro form to graphics file (BMP, GIF, JPG, PNG, TIF)



	GDI+: sending image of FoxPro form to printer



	GetFocus returns a HWND value



	How to block the ALT+TAB shortcut (WinXP)



	How to block the PrintScreen key



	How to copy the image of a form to the Clipboard using Bitmap API functions



	How to create transparent areas inside a form -- punching holes in the form



	How to drag a Form not using its Titlebar or Caption



	How to intercept window messages sent to VFP form



	How to print FoxPro form



	How to print FoxPro form -- II



	How to put a horizontal text scrolling on the form (a news line)



	How to put a vertical text scrolling on the form (a movie cast)



	How to start the screen saver and how to find whether the screen saver is active



	How to view icons stored in executable files (Icon Viewer)



	Placing a button on the VFP form as a new child window



	Retrieving top-child window for the VFP form



	Retrieving window and menu help context identifiers



	Round FoxPro form



	Running a regular FoxPro form while main VFP window is minimized



	Setting the mouse capture to the specified window



	Setting the Window Region for a form



	Shortcut Menu Class



	Storing screen shot of a form to bitmap file



	Storing screen shot of a form to enhanced metafile (*.emf)



	The window and its ancestors



	Tracking mouse movement to detect when to start dragging



	Using Common Controls: the Header Control



	Using FrameRgn for displaying system colors



	Using IsChild() for testing ThisForm.ShowWindow property

Round FoxPro form

User rating: 8/10 (1 votes)

Rate this code sample:

More code examples Listed functions Add comment W32 Constants Translate this page

Versions:
click to open

Before you begin:

Download badge.zip and extract an image file before testing this code sample:

Screen Copy VFP

How to draw a custom Window Caption on FoxPro form

A way to make a transparent area in a form -- a hole in the form

An alternative way of setting Form.Closable to False

Semi-transparent form

The VFP code converts to C# with only language and platform specific changes:

Screen Copy C#


	Members area. Log in to view this example.

		Sign up for the Membership

User rating: 8/10 (1 votes)

Rate this code sample:

2369 bytes
Created: 2001-09-09 12:00:00
Modified: 2011-12-10 09:20:22
Visits in 7 days: 128

Listed functions:

CreateEllipticRgn
DeleteObject
GetFocus
GetSystemMetrics
ReleaseCapture
SendMessage
SetWindowRgn

My comment:

Although this form has no visible title bar, you can still move it by clicking and dragging at any point beyond controls.

Read MSDN article How to Move a Form that Has No Titlebar or Caption.

* * *
Nov.7, 2005:

With the SetLayeredWindowAttributes function, parts of the form with the same color can be cut off. Note that the frame of the form still must be removed using Region API calls.

* * *
Visual FoxPro 8.0 Samples: Creating Irregularly Shaped Windows Sample.

* * *
In .NET, the Region property of Form object allows to create irregular forms without directly calling API functions.

Word Index links for this example:

form that has no titlebar or caption

move a form that has no titlebar

Translate this page:

Spanish

Portuguese

German

French

Italian

FreeTranslation.com offers instant, free translations of text or web pages.


	User Contributed Notes:



	There are no notes on this subject.




functions • examples • solutions • updates • about •	links • articles •	login •




	Copyright © 2001-2013 News2News, Inc. Before reproducing or distributing any data from this site please ask for an approval from its owner. Unless otherwise specified, this page is for your personal and non-commercial use. The information on this page is presented AS IS, meaning that you may use it at your own risk. Microsoft Visual FoxPro and Windows are trade marks of Microsoft Corp. All other trademarks are the property of their respective owners. Privacy policy

	Credits: PHP (4.4.9), an HTML-embedded scripting language, MySQL (5.1.55-log), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice. Hosted by Korax Online Inc.

Last Topics Visited (54.224.75.101)
3 sec.	Function: 'TextOut'



6.47 hrs.	Example: 'Creating a console window for Visual FoxPro application'



	Function: 'AVIStreamRelease'



14.16 hrs.	Example: 'How to release and renew a lease on an IP address previously obtained through Dynamic Host Configuration Protocol (DHCP)'



	Example: 'Extensible Storage Engine class library'



1 day(s)	Function: 'SQLGetDiagRec'



	Example: 'System Image List Viewer'



	Example: 'Copying picture of the active form to the Clipboard using Enhanced Metafile API functions'



2 day(s)	Function: 'CreateRectRgn'



	Function: 'FindText'