Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
Drawing standard Windows icons
How to block the ALT+TAB shortcut (WinXP)
How to display a dialog box with which the user can add a data source (DSN)
How to retrieve adapter information for the local computer (including MAC address)
Using shared memory to exchange data between applications (processes)
GDI+: printing image file
How to start the screen saver and how to find whether the screen saver is active
Smart Card Database Query Functions
Storing registration key in the resources of an executable file
Using named pipes for interprocess communication
Creating a directory on the FTP
Creating a unique filename based on existing filename
How to disable the Windows Clipboard (VFP9)
How to download a file from HTTP server using URL Monikers functions
How to print FoxPro form -- II
How to Start a Process as Another User (NT/XP/2K)
Memory usage info for current VFP session (WinNT only)
Reading security permissions for NTFS files and folders
Setting the date and time that a file was created
How to adjust monitor brightness (Vista, monitor with DDC support)
How to find which fonts Windows uses for drawing captions, menus and message boxes
Using Path functions from Shell Lightweight Utility APIs (shlapi.dll)
Creating the Save dialog box to specify the drive, directory, and name of a file to save
How to remove a directory that is not empty
Drawing standard Windows icons

User rating: 8.5/10 (2 votes)
Rate this code sample:
  • ~
More code examples    Listed functions    Add comment     W32 Constants      Translate this page Printer friendly version of this code sample
Before you begin:

See also:
  • Displaying the associated icons and descriptions for files and folders
  • How to view icons stored in executable files
  • Drawing Windows frame controls
  • Drawing Windows predefined bitmaps
  • PUBLIC frm
    frm = CREATEOBJECT("Tform")
    frm.Visible = .T.
    * end of main
    
    DEFINE CLASS Tform As Form
    * Icon Ids
    #DEFINE IDI_APPLICATION  32512
    #DEFINE IDI_ASTERISK  32516
    #DEFINE IDI_ERROR  32513
    #DEFINE IDI_EXCLAMATION  32515
    #DEFINE IDI_HAND  IDI_ERROR
    #DEFINE IDI_INFORMATION  IDI_ASTERISK
    #DEFINE IDI_QUESTION  32514
    #DEFINE IDI_WARNING  IDI_EXCLAMATION
    #DEFINE IDI_WINLOGO  32517
    
        Width=400
        Height=130
        AutoCenter = .T.
        Caption = " Drawing standard Windows Icons"
    
        ADD OBJECT cmd As CommandButton WITH;
            Caption="Draw", Width=80, Height=27
    
    PROCEDURE Init
        THIS.declare
        THIS.Resize
    
    PROCEDURE Resize
        WITH THIS.cmd
            .Left = Int((ThisForm.Width - .Width)/2)
            .Top = THIS.Height - .Height - 20
        ENDWITH
        ThisForm.DrawIcons
    
    PROCEDURE DrawIcons
        THIS._draw(IDI_APPLICATION, 20,20)
        THIS._draw(IDI_HAND, 60,20)
        THIS._draw(IDI_QUESTION, 100,20)
        THIS._draw(IDI_EXCLAMATION, 140,20)
        THIS._draw(IDI_ASTERISK, 180,20)
        THIS._draw(IDI_WINLOGO, 220,20)
        THIS._draw(IDI_WARNING, 260,20)
        THIS._draw(IDI_ERROR, 300,20)
        THIS._draw(IDI_INFORMATION, 340,20)
    
    PROTECTED PROCEDURE _draw(lnIconId, X,Y)
        LOCAL hWindow, hdc, hicon
        hWindow = THIS.HWnd && GetFocus() for older VFP versions
    
        hdc = GetDC(hWindow)
    
        hicon = LoadIcon(0, lnIconId)
        IF hicon <> 0
            = DrawIcon(hdc, X,Y, hicon)
        ENDIF
        = ReleaseDC(hWindow, hdc)
    
    PROCEDURE declare
        DECLARE INTEGER GetFocus IN user32
        DECLARE INTEGER GetDC IN user32 INTEGER hWindow
    
        DECLARE INTEGER LoadIcon IN user32;
            INTEGER hInstance, INTEGER lpIconName
    
        DECLARE SHORT DrawIcon IN user32;
            INTEGER hDC, INTEGER X, INTEGER Y, INTEGER hIcon
    
        DECLARE INTEGER ReleaseDC IN user32;
            INTEGER hWindow, INTEGER hdc 
    
    PROCEDURE Paint
        ThisForm.DrawIcons
    
    PROCEDURE Moved
        ThisForm.DrawIcons
    
    PROCEDURE cmd.Click
        ThisForm.DrawIcons
    
    ENDDEFINE
    

    User rating: 8.5/10 (2 votes)
    Rate this code sample:
    • ~
    1864 bytes  
    Created: 2001-08-21 12:00:00  
    Modified: 2009-01-21 23:37:41  
    Visits in 7 days: 195  
    Listed functions:
    DrawIcon
    GetDC
    GetFocus
    LoadIcon
    ReleaseDC
    Printer friendly API declarations
    My comment:
    Since the icons are displayed not via native VFP controls, the Resize, Paint and Moved methods of the form need to be instructed to redraw the icons. Otherwise the icons would be wiped out when, for example, the form after having been partially moved beyond the main VFP window then is moved within.
    Word Index links for this example:
    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.


    Copyright 2001-2018 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.6.38), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
    Last Topics Visited (54.91.16.95)
    4 sec.Solutions
    7 sec.Function: 'ntohl'
    Function group: 'Windows Sockets 2 (Winsock)'
    11 sec.Function: 'waveInOpen'
    Function group: 'Windows Multimedia'
    14 sec.Example: 'Using NetWkstaTransportEnum to obtain MAC Address of remote server'
    16 sec.Example: 'Retrieving configuration information for the specified workstation (Win2000/XP)'
    19 sec.Example: 'Obtaining names of local and global groups for current user (WinNT/XP/2K)'
    23 sec.Example: 'How to play AVI file on the _screen'
    27 sec.Function: 'FtpSetCurrentDirectory'
    30 sec.Solutions
    33 sec.Function: 'CeRegQueryInfoKey'
    Function group: 'Remote Application Programming (RAPI)'
    Google
    Advertise here!