Hello All,
I have customized InsertHyperlinkDialog to insert hyperlink onto my RadRichTextEditor. My custom dialog insert the hyperlink and also create list of all links saved into a database table.
Now I wonder, can I detect and event when a link is deleted from my document to make me clear out this link from my list ? As long as I get the event, I have put a tag to make sure I can identify which link must be deleted from my list correctly.
Thanks

I can't seem to make filtering and sorting work with my RadVirtualGrid. The control itself does the job mostly fine - lightning fast loading of 2000+ rows of data.
I've reduced it to a simple example: a single form with a single RadVirtualGrid, which uses all the code form the online example,
Only different between my simple example and the documented one is that I don't get the objects from a DB - just make them.
The grid populates fine - it's just the filter/sort which does nothing.
I can get the more advanced filter/sort option events to fire OK, but I only need the simple stuff - single column sorts and single column filtering
There's obviously something really simple I've missed -any suggestions ?
Code is:
Imports Telerik.WinControls.UI
Public Class RadForm1
Private columnNames As String() = New String() {"CompanyName", "ContactName", "ContactTitle", "Address", "PostalCode"}
' Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
"..\..\DataSources\Nwind.mdb;Persist Security Info=True" - NOT USED
Private data As New List(Of Customer)()
Private Sub VirtualGridPopulatingWithData_Load(sender As Object, e As EventArgs) Handles Me.Load
AddHandler Me.RadVirtualGrid1.CellValueNeeded, AddressOf radVirtualGrid1_CellValueNeeded
Me.RadVirtualGrid1.ColumnCount = columnNames.Length
SelectData()
End Sub
Private Sub radVirtualGrid1_CellValueNeeded(sender As Object, e As VirtualGridCellValueNeededEventArgs)
If e.ColumnIndex < 0 Then
Return
End If
If e.RowIndex = RadVirtualGrid.HeaderRowIndex Then
e.Value = columnNames(e.ColumnIndex)
End If
If e.RowIndex < 0 Then
e.FieldName = columnNames(e.ColumnIndex)
End If
If e.RowIndex >= 0 AndAlso e.RowIndex < data.Count Then
e.Value = data(e.RowIndex)(e.ColumnIndex)
End If
End Sub
Private Sub SelectData()
data = Customer.makeData
Me.RadVirtualGrid1.RowCount = data.Count
End Sub
End Class
Public Class Customer
Public Shared Function makeData() As List(Of Customer)
Dim someCustomers As New List(Of Customer)
someCustomers.Add(New Customer("1", "Company1", "Fred", "Mr", "addr1", "np7"))
someCustomers.Add(New Customer("2", "Company2", "Bill", "Mr", "addr2", "np8"))
someCustomers.Add(New Customer("3", "Company3", "Andi", "Mrs", "addr0", "np3"))
Return someCustomers
End Function
Public Sub New(customerId As String, companyName As String, contactName As String,
contactTitle As String, address As String, postalCode As String)
Me.CustomerId = customerId
Me.CompanyName = companyName
Me.ContactName = contactName
Me.ContactTitle = contactTitle
Me.Address = address
Me.PostalCode = postalCode
End Sub
Public Property CustomerId() As String
Get
Return m_CustomerId
End Get
Set(value As String)
m_CustomerId = value
End Set
End Property
Private m_CustomerId As String
Public Property CompanyName() As String
Get
Return m_CompanyName
End Get
Set(value As String)
m_CompanyName = value
End Set
End Property
Private m_CompanyName As String
Public Property ContactName() As String
Get
Return m_ContactName
End Get
Set(value As String)
m_ContactName = value
End Set
End Property
Private m_ContactName As String
Public Property ContactTitle() As String
Get
Return m_ContactTitle
End Get
Set(value As String)
m_ContactTitle = value
End Set
End Property
Private m_ContactTitle As String
Public Property Address() As String
Get
Return m_Address
End Get
Set(value As String)
m_Address = value
End Set
End Property
Private m_Address As String
Public Property PostalCode() As String
Get
Return m_PostalCode
End Get
Set(value As String)
m_PostalCode = value
End Set
End Property
Private m_PostalCode As String
Default Public ReadOnly Property Item(i As Integer) As String
Get
Select Case i
Case 0
Return CompanyName
Case 1
Return ContactName
Case 2
Return ContactTitle
Case 3
Return Address
Case 4
Return PostalCode
Case Else
Return [String].Empty
End Select
End Get
End Property
End Class
i would like to expand or collapse the group by clicking on the group name.
my code crashes at e.Item.Group because Group is null.
why is group null when i click on the group name?
private void Operation_lv_ItemMouseClick(object sender, ListViewItemEventArgs e) {
if (e.Item.Group != null) {
e.Item.Group.Expanded = !e.Item.Group.Expanded;
}
}
many thanks

"There is no property descriptor corresponding to property name:"
and the property name is blank. However, I can continue to work with the grid and click on different rows, it is just when I open the form and immediately click on the grid, is when I get this message. Thanks for any help.

You have an excellent example of how to do CellFormatting on a Details ListView for a Bound list. My issue is trying to mimmic the same effect with an unbound list.
Dim productRowView As DataRowView = TryCast(cell.Row.DataBoundItem, DataRowView)If productRowView IsNot Nothing AndAlso CBool(productRowView.Row("Discontinued")) = True Then e.CellElement.BackColor = Color.Yellow e.CellElement.ForeColor = Color.Red e.CellElement.GradientStyle = Telerik.WinControls.GradientStyles.Solid e.CellElement.Font = newFontElse e.CellElement.ResetValue(LightVisualElement.BackColorProperty, Telerik.WinControls.ValueResetFlags.Local) e.CellElement.ResetValue(LightVisualElement.ForeColorProperty, Telerik.WinControls.ValueResetFlags.Local) e.CellElement.ResetValue(LightVisualElement.GradientStyleProperty, Telerik.WinControls.ValueResetFlags.Local) e.CellElement.ResetValue(LightVisualElement.FontProperty, Telerik.WinControls.ValueResetFlags.Local)End If
I don't know how to find if a row is "Discontinued" when the data isn't bound to the list.
Right now my ListView is heavily lagged and I'm not sure if it's due to the fact that I'm not resetting the values or if it's due to the functions involved with formatting the cells.

how do i select an item programmatically in my listview so that the group is expanded, the item is selected and current, like radgridview isVisible = true, isCurrent = true ?
thanks
Hi,
Is it possible that each time we select a new item in the autocompletebox, the selected item disappears from the list of auto complete items.
This is to avoid to enter twice the same items.
If this is possible, how to do it?
I put an attachment to show what is my current behaviour. What i would like is that once if have selected tag, it does not appears anymore in the list of choice
FYI, I am using auto completion with unbound mode.
Thanks a lot

Hi,
Sometime the last chat message does not appear when the scrollbar is visible, to reproduced:
1- Type Test <ENTER> multiple time until you see the scrollbar
2- Scroll up to the middle so you can't see the last message
3- Type any word and scroll down
Now you can't see the last typed message, instead you may see small dot, You may need to repeat step 3 more than one time.
I'm not sure if it is related to Fluent Theme, because I wasn't able to reproduce it with Crystal Theme.
Thanks

I have a column with which get's edited using the ListViewDateTimeEditor.
The question is, how do I format the value that gets submitted to the ListView.
To be clear, I have already formatted the ListViewDateTimeEditor to use the following:
Dim Editor As New ListViewDateTimeEditorTryCast(Editor.EditorElement, BaseDateTimeEditorElement).Format = DateTimePickerFormat.CustomTryCast(Editor.EditorElement, BaseDateTimeEditorElement).CustomFormat = "MM/dd/yyyy"e.Editor = Editor
Even with this formatting, it still submits the full DateTime to the ListView when finished editing. How do I make it output only the formatted Date value, without the Time?
