property Items.IsItemLocked (Item as HITEM) as Boolean
Returns a value that indicates whether the item is locked or unlocked.

 TypeDescription 
   Item as HITEM A long expression that indicates the handle of the item.  
   Boolean A boolean expression that indicates whether the item is locked or unlocked.  
Use the IsItemLocked property to check whether an item is locked or unlocked. A locked item is always displayed on the top or bottom side of the control no matter if the control's list is scrolled up or down. Use the LockedItemCount property to add or remove items fixed/locked to the top or bottom side of the control. Use the LockedItem property to access a locked item by its position. Use the ShowLockedItems property to show or hide the locked items.

The following VB sample prints the locked item from the cursor:

Private Sub G2antt1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    ' Converts the container coordinates to client coordinates
    X = X / Screen.TwipsPerPixelX
    Y = Y / Screen.TwipsPerPixelY
    Dim h As HITEM
    Dim c As Long
    Dim hit As EXG2ANTTLibCtl.HitTestInfoEnum
    ' Gets the item from (X,Y)
    With G2antt1
        h = .ItemFromPoint(X, Y, c, hit)
        If Not (h = 0) Then
            If (.Items.IsItemLocked(h)) Then
                Debug.Print .Items.CellValue(h, c)
            End If
        End If
    End With
End Sub

The following C++ sample prints the locked item from the cursor:

#include "Items.h"
void OnMouseMoveG2antt1(short Button, short Shift, long X, long Y) 
{
	long c = 0, hit = 0, hItem = m_g2antt.GetItemFromPoint( X, Y, &c, &hit );
	if ( hItem != 0 )
	{
		CItems items = m_g2antt.GetItems();
		if ( items.GetIsItemLocked( hItem ) )
		{
			COleVariant vtItem( hItem ), vtColumn( c );
			CString strCaption = V2S( &items.GetCellValue( vtItem, vtColumn ) ), strOutput;
			strOutput.Format( "Cell: '%s', Hit = %08X\n", strCaption, hit );
			OutputDebugString( strOutput );
		}
	}
}

The following VB.NET sample prints the locked item from the cursor:

Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
    With AxG2antt1
        Dim i As Integer, c As Integer, hit As EXG2ANTTLib.HitTestInfoEnum
        i = .get_ItemFromPoint(e.x, e.y, c, hit)
        If Not (i = 0) Then
            With .Items
                If (.IsItemLocked(i)) Then
                    Debug.WriteLine("Cell: " & .CellValue(i, c) & " Hit: " & hit.ToString())
                End If
            End With
        End If
    End With
End Sub

The following C# sample prints the locked item from the cursor:

private void axG2antt1_MouseMoveEvent(object sender, AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent e)
{
	int c = 0;
	EXG2ANTTLib.HitTestInfoEnum hit;
	int i = axG2antt1.get_ItemFromPoint(e.x, e.y, out c, out hit);
	if (i != 0)
		if ( axG2antt1.Items.get_IsItemLocked( i ) )
		{
			object cap = axG2antt1.Items.get_CellValue(i, c);
			string s = cap != null ? cap.ToString() : "";
			s = "Cell: " + s + ", Hit: " + hit.ToString();
			System.Diagnostics.Debug.WriteLine(s);
		}
}

The following VFP sample prints the locked item from the cursor:

*** ActiveX Control Event ***
LPARAMETERS button, shift, x, y

local c, hit
c = 0
hit = 0
with thisform.G2antt1
	.Items.DefaultItem = .ItemFromPoint( x, y, @c, @hit )
	with .Items
		if ( .DefaultItem <> 0 )
			if ( .IsItemLocked( 0 ) )
				wait window nowait .CellValue( 0, c ) + " " + Str( hit )
			endif
		endif
	endwith
endwith

 


Send comments on this topic.
1999-2017 Exontrol.COM, Software. All rights reserved.