Welcome to the SRP Forum! Please refer to the SRP Forum FAQ post if you have any questions regarding how the forum works.
EntitySize less than 64 bug
Hey
If we make the EntitySize less than 64 and we move the appointment to row 2 then row 1 (One) disappears.
If we move the appointment one row down then another row disappears. (Two)
Regards, Ed Keeman
** example**********************************************
ctrl = @window:'.SCHEDULE'
Qualifier = 1
Qualifier<4> = 1
Qualifier<7> = 0
call Send_Message(ctrl, 'QUALIFY_EVENT', 'ALL_OLES', Qualifier)
Set_Property(ctrl,'VIEW','MultiDayHorz')
data = ''
data<1,4> = 'One'
data<2,4> = 'Two'
data<3,4> = 'Three'
data<4,4> = 'Four'
data<5,4> = 'Five'
for i = 1 to 5
data = 'ENT'
data = 1
data = i
next
Set_Property(ctrl, 'OLE.EntityList',data)
Set_Property(ctrl, "EntityChecked[All]", 1)
Set_Property(ctrl,'EntitySize[All]', 60) ;* < ====================================
id = time()
list = 5
list<1,2> = id
list<1,3> = date() + .5
list<1,4> = list<1,3> + 2/24
list<1,7> = 'Title'
list<1,8> = 'Desc'
Set_Property(ctrl,'Appointmentlist',list)
call Send_Message(Ctrl, "OLE.EnsureVisible", id)
*******************************************************************
If we make the EntitySize less than 64 and we move the appointment to row 2 then row 1 (One) disappears.
If we move the appointment one row down then another row disappears. (Two)
Regards, Ed Keeman
** example**********************************************
ctrl = @window:'.SCHEDULE'
Qualifier = 1
Qualifier<4> = 1
Qualifier<7> = 0
call Send_Message(ctrl, 'QUALIFY_EVENT', 'ALL_OLES', Qualifier)
Set_Property(ctrl,'VIEW','MultiDayHorz')
data = ''
data<1,4> = 'One'
data<2,4> = 'Two'
data<3,4> = 'Three'
data<4,4> = 'Four'
data<5,4> = 'Five'
for i = 1 to 5
data = 'ENT'
data = 1
data = i
next
Set_Property(ctrl, 'OLE.EntityList',data)
Set_Property(ctrl, "EntityChecked[All]", 1)
Set_Property(ctrl,'EntitySize[All]', 60) ;* < ====================================
id = time()
list = 5
list<1,2> = id
list<1,3> = date() + .5
list<1,4> = list<1,3> + 2/24
list<1,7> = 'Title'
list<1,8> = 'Desc'
Set_Property(ctrl,'Appointmentlist',list)
call Send_Message(Ctrl, "OLE.EnsureVisible", id)
*******************************************************************
Comments
What happens next? Do we get a solution?
Regards, Ed