Suite Pro - SOLVED_Drag n Drop in treewiew dose'n work in RTL

SOLVED_Drag n Drop in treewiew dose'n work in RTL

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Suite Pro
Forum Description: Topics Related to Codejock Suite Pro
URL: http://forum.codejock.com/forum_posts.asp?TID=16296
Printed Date: 31 January 2025 at 5:10am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: SOLVED_Drag n Drop in treewiew dose'n work in RTL

Posted By: unforgiven
Subject: SOLVED_Drag n Drop in treewiew dose'n work in RTL
Date Posted: 26 February 2010 at 2:59pm

Hi all
I used Treeview on my prog ,I can drag n drop some node to textbox ,but when i change Righttoleft= True drag n drop dose not work and nothings drag n drop on textbox!
anybody can solove this proglem or guide me ?
thanks all
------------------
codejock ver = 13.2

Replies:

Posted By: unforgiven
Date Posted: 27 February 2010 at 9:40am

I don't know,it's a bug for this control or i can't work that!? pls someone reply me

Posted By: unforgiven
Date Posted: 08 March 2010 at 9:48am

I want to know Dose bug of RTL drag and drop in treeview solve in new version 13.3.1 and 14 or not?
Admin please reply me
thanks

Posted By: unforgiven
Date Posted: 13 March 2010 at 2:53am

Is there any way to solve this problem? or dose anybody has a experience problem with RTL Drag & drop Treeview?
Dear Oleg please help me

Posted By: Oleg
Date Posted: 16 March 2010 at 8:19am

Hi,

Actually I can't reproduce it.

I created small sample with such code

Private Sub FlatEdit1_OLEDragDrop(ByVal Data As XtremeSuiteControls.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
FlatEdit1.Text = Data.GetData(1)
End Sub

Private Sub FlatEdit1_OLEDragOver(ByVal Data As XtremeSuiteControls.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single, ByVal state As Integer)
Effect = vbDropEffectCopy
End Sub

Private Sub Form_Load()
TreeView1.Nodes.Add , , , "Root"
End Sub

Private Sub TreeView1_OLEStartDrag(Data As XtremeSuiteControls.DataObject, AllowedEffects As Long)
AllowedEffects = vbDropEffectCopy
Data.SetData TreeView1.SelectedItem.Text
End Sub

and works good for RTL mode.

-------------
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS

Posted By: unforgiven
Date Posted: 16 March 2010 at 4:30pm

Dear Oleg
First of all thanks to reply and spending time to reading this topic

your code work good
thanks

Posted By: unforgiven
Date Posted: 24 April 2010 at 4:09pm

Hi again
I did use your code in my project . but i have new problem.when i darg & drop node to textbox,content of textbox isn't show with correct font.
but in english font everythings is ok ,
please trim my code
thank's again

Posted By: unforgiven
Date Posted: 26 April 2010 at 1:51am

I recently findout this bug was in 13.2.1 and fixed in 13.3.1