*-----------------------------------------------------------------------------* 
 Procedure _BrowseUp ( ControlName , ParentForm , z ) 
 *-----------------------------------------------------------------------------* 
    Local i , s  , _Alias , _RecNo , _BrowseArea , _BrowseRecMap , _DeltaScroll // [4] 
  
    i := Iif( pcount() == 2 , GetControlIndex ( ControlName , ParentForm ) , z ) 
  
                                                                 // BAA 18-Мар-2012 09:55:49 
    _HMG_ActiveDlgProcHandle := _HMG_aControlParenthandles    // Так как есть такой hwndDlg 
  
  
    _DeltaScroll := ListView_GetSubItemRect ( _HMG_aControlhandles , 0 , 0 ) 
  
    _BrowseRecMap := _HMG_aControlRangeMax  
  
    s := LISTVIEW_GETFIRSTITEM ( _HMG_aControlHandles  ) 
  
    If s == 1 
       _Alias := Alias() 
       _BrowseArea := _HMG_aControlSpacing  
       If Select (_BrowseArea) == 0 
          Return 
       EndIf 
       Select &_BrowseArea 
       _RecNo := RecNo() 
       Go _BrowseRecMap [1] 
       Skip -1 
  
       IF ! _BrowseRecMap [1] == RecNo()   // BAA 18-Мар-2012 10:09:03 Что бы не дергалось 
  
          _BrowseVscrollUpdate( i ) 
          _BrowseUpdate( '', '', i ) 
          ListView_Scroll( _HMG_aControlHandles , _DeltaScroll[2] * (-1) , 0 ) 
  
       ENDIF  
  
       Go _RecNo 
       if Select( _Alias ) != 0 
          Select &_Alias 
       Else 
          Select 0 
       Endif 
  
       ListView_SetCursel ( _HMG_aControlHandles  , 1 ) 
    Else 
       if _HMG_ActiveDlgProcHandle == 0 
          ListView_SetCursel ( _HMG_aControlHandles  , s - 1 ) 
       endif 
       _BrowseVscrollFastUpdate ( i , -1 ) 
    EndIf 
  
    _BrowseOnChange (i) 
  
                                   // BAA 18-Мар-2012 09:55:41 
    _HMG_ActiveDlgProcHandle := 0 
  
 Return 
  
 *-----------------------------------------------------------------------------* 
 Procedure _BrowseDown ( ControlName , ParentForm , z ) 
 *-----------------------------------------------------------------------------* 
    Local i , PageLength , s , _Alias , _RecNo , _BrowseArea , _BrowseRecMap , _DeltaScroll // [4] 
  
    i := Iif( pcount() == 2 , GetControlIndex ( ControlName , ParentForm ) , z ) 
  
                                                                     // BAA 18-Мар-2012 09:56:02 
    _HMG_ActiveDlgProcHandle := _HMG_aControlParenthandles        // Так как есть такой hwndDlg 
  
    _DeltaScroll := ListView_GetSubItemRect ( _HMG_aControlhandles , 0 , 0 ) 
  
    _BrowseRecMap := _HMG_aControlRangeMax  
  
    s := LISTVIEW_GETFIRSTITEM ( _HMG_aControlHandles  ) 
  
    PageLength := LISTVIEWGETCOUNTPERPAGE ( _HMG_aControlhandles ) 
  
    If s == PageLength 
       if _HMG_aControlContainerHandle  != 0 
          Return 
       EndIf 
  
       _Alias      := Alias() 
       _BrowseArea := _HMG_aControlSpacing  
  
       If Select (_BrowseArea) == 0 
          Return 
       EndIf 
  
       Select &_BrowseArea 
       _RecNo := RecNo() 
  
       Go _BrowseRecMap [1] 
       Skip 
  
       _BrowseUpdate( '', '', i ) 
       _BrowseVscrollUpdate( i ) 
  
       ListView_Scroll( _HMG_aControlHandles , _DeltaScroll[2] * (-1) , 0 ) 
  
       Go _RecNo 
  
       if Select( _Alias ) != 0 
          Select &_Alias 
       Else 
          Select 0 
       Endif 
  
       ListView_SetCursel ( _HMG_aControlHandles  , Len(_HMG_aControlRangeMax ) ) 
    Else 
       if _HMG_ActiveDlgProcHandle == 0 
          ListView_SetCursel ( _HMG_aControlHandles  , s+1 ) 
       endif 
       _BrowseVscrollFastUpdate ( i , 1 ) 
    EndIf 
  
    _BrowseOnChange (i) 
  
                                     // BAA 18-Мар-2012 09:56:16 
    _HMG_ActiveDlgProcHandle :=  0 
  
 Return 
 

/* 
  * MINIGUI - Harbour Win32 GUI library Demo 
 */ 
  
 #include "minigui.ch" 
  
 Function Main 
     Local Item1 := GetUserName() 
     Local Item2 := GetComputerName() 
  
 	DEFINE WINDOW Form1 ; 
 		AT 0,0 ; 
 		WIDTH 300 ; 
 		HEIGHT 300 ; 
 		TITLE "MiniGUI Demo" ; 
 		MAIN ; 
 		NOMAXIMIZE NOSIZE 
  
 		@ 5,10 FRAME Frame1 CAPTION "Frame" WIDTH 200 HEIGHT 150 
  
 		@ 20,20 LABEL Label1 VALUE "User Name" AUTOSIZE 
 		@ 45,20 TEXTBOX TextBox1 VALUE "" 
  
                 Form1.Label1.Cargo := "TextBox1"  // f.e., store the TextBox name in the label's cargo 
  
 		@ 80,20 LABEL Label2 VALUE "Computer Name" AUTOSIZE 
 		@105,20 TEXTBOX TextBox2 VALUE "" 
  
                 Form1.Label2.Cargo := "TextBox2" 
  
 		@ 180,20 BUTTON Button1 CAPTION "Get Names" ON CLICK _GetNames() 
 		@ 220,20 BUTTON Button2 CAPTION "Set Names" ON CLICK _SetNames() 
  
 		@ 180,150 BUTTON Button3 CAPTION "Disable Frame" ON CLICK DisableFrame() 
 		@ 220,150 BUTTON Button4 CAPTION "Enable Frame" ON CLICK EnableFrame() 
  
 		SET WINDOWPROPERTY "PROP_ITEM1" VALUE Item1 
 		SET WINDOWPROPERTY "PROP_ITEM2" VALUE Item2 
  
 	END WINDOW 
  
         Form1.Frame1.Cargo := {"Label1","TextBox1","Label2","TextBox2"}  // store the Label and TextBox names in the frame's cargo 
  
 	CENTER WINDOW Form1 
  
 	ACTIVATE WINDOW Form1 
  
 Return Nil 
  
  
 Static Function _GetNames() 
     Local Item1 
     Local Item2 
  
    GET WINDOWPROPERTY "PROP_ITEM1" OF Form1 VALUE Item1 
    GET WINDOWPROPERTY "PROP_ITEM2" OF Form1 VALUE Item2 
  
    Form1.TextBox1.Value := Item1 //GetUserName() 
    Form1.TextBox2.Value := Item2 //GetComputerName() 
  
 Return Nil 
  
  
 Static Function _SetNames() 
 Local cBoxName1, cBoxName2 
  
    cBoxName1 := Form1.Label1.Cargo  // to take the TextBox name from the label's cargo 
    cBoxName2 := Form1.Label2.Cargo 
  
    Form1.&(cBoxName1).Value := GetUserName() 
    Form1.&(cBoxName2).Value := GetComputerName() 
  
 Return Nil 
  
  
 Static Function DisableFrame() 
 Local aControls, i 
  
    Form1.Frame1.Enabled := .f. 
  
    aControls := Form1.Frame1.Cargo // array of child control's names in this frame 
  
    For i:=1 To Len(aControls) 
        SetProperty("Form1", aControls, "Enabled", .f.) 
    Next 
  
 Return Nil 
  
  
 Static Function EnableFrame() 
 Local aControls, i 
  
    Form1.Frame1.Enabled := .t. 
  
    aControls := Form1.Frame1.Cargo 
  
    For i:=1 To Len(aControls) 
        SetProperty("Form1", aControls, "Enabled", .t.) 
    Next 
  
 Return Nil