Re: treeview bug
- Posted by Tone Skoda <tone.skoda at siol.net> Apr 24, 2001
- 357 views
This is a multi-part message in MIME format. ------=_NextPart_000_0007_01C0CCB3.11C7E860 boundary="----=_NextPart_001_0008_01C0CCB3.11CF8980" ------=_NextPart_001_0008_01C0CCB3.11CF8980 charset="iso-8859-2" fogot to attach ------=_NextPart_001_0008_01C0CCB3.11CF8980 charset="iso-8859-2" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META content=3D"text/html; charset=3Diso-8859-2" = http-equiv=3DContent-Type> <META content=3D"MSHTML 5.00.2614.3401" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>fogot to = ------=_NextPart_001_0008_01C0CCB3.11CF8980-- ------=_NextPart_000_0007_01C0CCB3.11C7E860 Content-Type: application/octet-stream; name="TVBug.EXW" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="TVBug.EXW" -- bug in treeview without warning include win32lib.ew atom LV, TV object junk with trace integer ok constant=20 Win =3D create( Window, "TreeView bug", 0, Default, Default, 640, 460, 0 = ) =20 TV =3D create( TreeView, "Treeview", Win, 10, 10, 300, --CW_USEDEFAULT, 300, --CW_USEDEFAULT, or_all({TVS_HASLINES, TVS_LINESATROOT, TVS_HASBUTTONS, TVS_SHOWSELALWAYS})) atom mask mask =3D or_all( {LVIF_IMAGE, LVIF_PARAM, LVIF_TEXT}) constant closefolder =3D addIcon( extractIcon( "clsdfold.ico" ) ), openfolder =3D addIcon( extractIcon( "openfold.ico" )) sequence folders, location, lParams, lv folders =3D {} location =3D {} lParams =3D {} =20 ok =3D addTVItem( TV, closefolder, openfolder, "Windows 1", 0 ) ok =3D addTVItem( TV, closefolder, openfolder, "DOS 2", 0 ) ok =3D addTVItem( TV, closefolder, openfolder, "Linux 3", 0 ) ok =3D addTVItem( TV, closefolder, openfolder, "Generic 4", 0 ) --ok =3D message_box("filled","",MB_ICONINFORMATION) -- if you comment this line bug is gone ok =3D deleteItem( TV, -1 ) --ok =3D message_box("deleted","",MB_ICONINFORMATION) ok =3D addTVItem( TV, closefolder, openfolder, "Windows 1", 0 ) trace (1) -- bug here! ok =3D addTVItem( TV, closefolder, openfolder, "DOS 2", 0 ) WinMain( Win, Normal ) ------=_NextPart_000_0007_01C0CCB3.11C7E860--