Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
Form Magnifier
GDI+: saving image of FoxPro form to graphics file (BMP, GIF, JPG, PNG, TIF)
How to extract frames from AVI files
Retrieving information about the specified icon
Validating the heap of the calling process
Winsock: how to retrieve a service information corresponding to a port
Class library providing access to the System Registry
Creating the Open dialog box to specify the drive, directory, and name of a file to open
Drawing a window caption using the DrawCaption routine
Enumerating connections made to a shared resource for the local computer (WinNT only)
GDI+: Storing content of the Clipboard to a bitmap file
How to activate Windows Calculator
Mapping and disconnecting network drives
Playing WAV files on InteractiveChange
Pocket PC: custom RAPI class for operating with the Object Store Databases
Retrieving list of files on the FTP directory
Storing the environment strings in cursor
Using GetNearestColor
Winsock: changing the byte ordering
How to delete IE cookies, clear IE history and delete files in Temporary Internet Files directory
Retrieving geometrical parameters of the system desktop window
Retrieving the rectangle area where the mouse cursor is confined
Changing pitch and speed of a wave file
Reading and setting Environment variables
Form Magnifier

User rating: 7/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
Versions:
click to open
Before you begin:

After you activate the magnifier the form`s part under the mouse cursor will be constantly redrawn on the main FoxPro window.

See also:
  • Scrolling text on the form horizontally (a newsreel)
  • Scrolling text on the form vertically (a movie cast)
  • Shaking VFP form controls
  • Playing AVI on _screen
  • Displaying animated images

  • LOCAL oForm
    oForm = CREATEOBJECT("Tform")
    oForm.Show(1)
    * end of main
    
    DEFINE CLASS Tform As Form
        Width=350
        Height=160
        BorderStyle=2
        MaxButton=.F.
        MinButton=.F.
        Autocenter=.T.
        Caption="Magnifier"
        hForm=0
        hDC=0
    
        ADD OBJECT chMagnify As CheckBox WITH Value=.F.,;
        Left=20, Top=20, Autosize=.T., Caption="Activate Magnifier"
    
        ADD OBJECT chInvert As CheckBox WITH Value=.F.,;
        Left=20, Top=56, Autosize=.T., Caption="Invert colors"
    
        ADD OBJECT lbl1 As Label WITH;
        Left=190, Top=20, Autosize=.T., Caption="Scale:"
    
        ADD OBJECT cmbScale As ComboBox WITH Style=2,;
        Left=240, Top=20, Width=70, Height=21
    
        ADD OBJECT cmdClose As CommandButton WITH Cancel=.T.,;
        Left=140, Top=112, Width=70, Height=27, Caption="Close"
    
    PROCEDURE Init
        THIS.declare
    
    PROCEDURE Activate
        IF THIS.hForm = 0
            THIS.hForm = GetFocus()
            THIS.hDC = GetDC(THIS.hForm)
        ENDIF
    
    PROCEDURE Destroy
        IF THIS.hDC <> 0
            = ReleaseDC(THIS.hForm, THIS.hDC)
        ENDIF
    
    PROCEDURE cmdClose.Click
        ThisForm.Release
    
    PROCEDURE cmbScale.Init
        WITH THIS
            .AddItem("Normal")
            .AddItem("x 2")
            .AddItem("x 3")
            .AddItem("x 4")
            .ListIndex=3
        ENDWITH
    
    PROCEDURE MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
        THIS.Magnify
    
    PROCEDURE chMagnify.MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
        ThisForm.Magnify
    
    PROCEDURE chInvert.MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
        ThisForm.Magnify
    
    PROCEDURE lbl1.MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
        ThisForm.Magnify
    
    PROCEDURE cmbScale.MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
        ThisForm.Magnify
    
    PROCEDURE cmdClose.MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
        ThisForm.Magnify
    
    PROCEDURE Magnify
    #DEFINE SRCCOPY 0xCC0020
    #DEFINE NOTSRCCOPY 0x00330008
    #DEFINE cnDstWidth 600
    #DEFINE cnDstHeight 140
    
        IF THIS.chMagnify.Value
            LOCAL cBuffer, nX, nY, hDstWin, hDstDC,;
                nMode, nSrcWidth, nSrcHeight, nScale
    
            hDstWin = GetActiveWindow()
            hDstDC = GetWindowDC(hDstWin)
    
            cBuffer = REPLICATE(Chr(0), 8)
            = GetCursorPos(@cBuffer)
            = ScreenToClient(THIS.hForm, @cBuffer)
    
            nX = buf2dword(SUBSTR(cBuffer, 1,4))
            nY = buf2dword(SUBSTR(cBuffer, 5,4))
    
            nScale = THIS.cmbScale.ListIndex
            nSrcWidth = INT(cnDstWidth/nScale)
            nSrcHeight = INT(cnDstHeight/nScale)
    
            nMode = IIF(THIS.chInvert.Value,;
                NOTSRCCOPY, SRCCOPY)
    
            = StretchBlt(hDstDC, 10, 100,;
                cnDstWidth, cnDstHeight, THIS.hDC,;
                nX-nSrcWidth/2, nY-nSrcHeight/2,;
                nSrcWidth, nSrcHeight, nMode)
    
            = ReleaseDC(hDstWin, hDstDC)
        ENDIF
    
    PROCEDURE declare
        DECLARE INTEGER GetActiveWindow IN user32
        DECLARE INTEGER GetCursorPos IN user32 STRING @lpPoint
        DECLARE INTEGER GetWindowDC IN user32 INTEGER hwnd
        DECLARE INTEGER GetDC IN user32 INTEGER hwnd
        DECLARE INTEGER GetFocus IN user32
    
        DECLARE INTEGER ReleaseDC IN user32;
            INTEGER hWindow, INTEGER hdc
    
        DECLARE INTEGER ScreenToClient IN user32;
            INTEGER hWindow, STRING @lpPoint
    
        DECLARE INTEGER StretchBlt IN gdi32;
            INTEGER hdcDest, INTEGER nXOriginDest,;
            INTEGER nYOriginDest, INTEGER nWidthDest,;
            INTEGER nHeightDest, INTEGER hdcSrc,;
            INTEGER nXOriginSrc, INTEGER nYOriginSrc,;
            INTEGER nWidthSrc, INTEGER nHeightSrc,;
            INTEGER dwRop
    
    ENDDEFINE
    
    FUNCTION buf2dword(lcBuffer)
    RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;
        BitLShift(Asc(SUBSTR(lcBuffer, 2,1)), 8) +;
        BitLShift(Asc(SUBSTR(lcBuffer, 3,1)), 16) +;
        BitLShift(Asc(SUBSTR(lcBuffer, 4,1)), 24)
    
    
    

    User rating: 7/10 (2 votes)
    Rate this code sample:
    • ~
    3530 bytes  
    Created: 2003-07-14 21:11:08  
    Modified: 2007-03-15 11:33:17  
    Visits in 7 days: 86  
    Listed functions:
    GetActiveWindow
    GetCursorPos
    GetDC
    GetFocus
    GetWindowDC
    ReleaseDC
    ScreenToClient
    StretchBlt
    Printer friendly API declarations
    My comment:
    StretchBlt function copies a rectangle area of the form to the main FoxPro window.
    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-2017 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.158.214.111)
    4 sec.Solutions
    5 sec.
    Function group: 'Atom'
    7 sec.Function: 'GetSystemInfo'
    Function group: 'System Information'
    10 sec.Example: 'Accessing examples contained in this reference from a VFP application'
    14 sec.Function: 'NetConnectionEnum'
    Function group: 'Network Management'
    16 sec.Function: 'AVIStreamGetFrameClose'
    Function group: 'Windows Multimedia'
    19 sec.
    Function group: 'Font and Text'
    21 sec.Examples
    24 sec.Function: 'CreateURLMonikerEx'
    Function group: 'URL Monikers'
    28 sec.Function: 'inet_addr'
    Google
    Advertise here!