(849)  Login

English
Bugs and vermeintliche

Treeview Tastaturnavigation

 

Jörg
Sellmeyer
Hi,

one can yes a Treeview wonderful with the keyboard steer. unfortunately comes the but not Program on. The Tastaturnavigation functions of course but WaitInput won't durchbrochen.
Very slight on the example in the Help nachzuvollziehen. I Have only the "Print %key,%message" eingefügt.
Treeview with mouse enable: values go displayed
moreover with keyboard: it happens only yet what in the Treeview
CompileMarkSeparation
CLS
var hToolBmp& = create("HPIC", 0, "TOOLBAR")
var hIL& = Create("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
var hTV& = Create("TreeView",%hwnd,hIL&,420,40,200,(height(%HWnd)-70))
DeleteObject hToolBmp&' won't More needed
print "Profan-Kringel: ";ImageList("AddIcon", hIL&, create("hIcon", "A"));""
print "Klassen: ";classof(hTV&);tab(24);classof(hIL&)
print "Handles: ";hTV&;tab(24);hIL&
var HeaderEbene& = TreeView("InsertItem",hTV&, 0,0,"Includes/Header")
var ProcEbene& = TreeView("InsertItem",hTV&, 0,1,"Prozeduren")
var StrukturEbene& = TreeView("InsertItem",hTV&, 0,2,"Strukturen/Klassen")
var KommentarEbene& = TreeView("InsertItem",hTV&, 0,3,"Kommentare/Faltungen")
TreeView("InsertItem",hTV&, HeaderEbene&,4,"Text 1")
TreeView("InsertItem",hTV&, ProcEbene&,5,"Text 2")
TreeView("InsertItem",hTV&, StrukturEbene&,6,"Text 3")
TreeView("InsertItem",hTV&, KommentarEbene&,7,"Text 4")
TreeView("InsertItem",hTV&, KommentarEbene&,52,"Text 5")
var T6& = TreeView("InsertItem",hTV&, KommentarEbene&,9,"Text 6")
TreeView("InsertItem",hTV&, T6&,10,"Text 7")
TreeView("SetItemImage",hTV&, KommentarEbene&,10)
TreeView("SetChildren",hTV&, Procebene&,1)
TreeView("SetChildren",hTV&, HeaderEbene&,1)
TreeView("SetChildren",hTV&, StrukturEbene&,1)
TreeView("SetChildren",hTV&, KommentarEbene&,1)
TreeView("SetChildren",hTV&, T6&,1)
TreeView("Expand",hTV&, ProcEbene&, 2)
SetText hTV&, HeaderEbene&,"Includes/Header (2)"
SetText hTV&, ProcEbene&,"Prozeduren (3)"
SetText hTV&, StrukturEbene&,"Strukturen/classes (4)"
SetText hTV&, KommentarEbene&,"Kommentare/Faltungen (99)"
TreeView("Select",hTV&, T6&)
print "Anzahl:  ";GetCount(hTV&);tab(24);getCount(hIL&)
DrawIcon hIL&, 10, 420, 15
var end% = 0
var item& = 0
usermessages Ord("p")

whilenot end%

    waitinput
    Print %key,%message

    if %key = 27

        end% = 1

    elseif clicked(hTV&)

        item& = TreeView("GetSelected", hTV&)
        print GetText$(hTV&, item&);".";GetText$(hTV&, TreeView("GetParent", hTV&, item&))

    endif

endwhile
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
11/29/11  ▲
 




RGH
as long as You only Control navigate, happens nothing. but siobald You with ENTER a entry auswählst becomes Waitinput leave and %message has a worth 295, so that You in the program hereon react can.

Greeting
Roland
 
XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
01/14/12  ▲
 




Jörg
Sellmeyer
the find I but untypisch for so one Treeview. In all Programs, The I yet tested have, happens already what, if I with the Pfeiltasten navigate. Simpelstes example: the Explorer. too z. B. Irfanview is so To steer.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
01/14/12  ▲
 




RGH
can it Yes on your wishlist for X3 settle. then can I Yes time look, what there possible is ...

Greeting
Roland
 
XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
01/14/12  ▲
 




Jörg
Sellmeyer
then setz I it herewith on my wishlist. You could you this Thread still simply on your XProfan.com Remember-List settle and the then work out. or gibt's already somewhere a general wishlist?
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
01/24/12  ▲
 




RGH
yet not. its indeed another while there. first must I the actually Bugfix on X2.0c in a Patch install and on my Homepage Upload, then a actually Installations-CD with X2.0c on JDS send and finally in the next leave Time find, circa me the Topic XProfan X2 with FreePascal 32bit and 64bit To befassen.

Greeting
Roland
 
XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
01/24/12  ▲
 



must You do not!
 
01/24/12  ▲
 




Jörg
Sellmeyer
here Have I at least rausbekommen, How one The values too with Tastaturnavigation sustain:

simply to the Ansteuern one Elementes Enter pressing and already functions it...
so simply can program his
CompileMarkSeparation
CLS
var hToolBmp& = create("HPIC", 0, "TOOLBAR")
var hIL& = Create("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
var hTV& = Create("TreeView",%hwnd,hIL&,420,40,200,(height(%HWnd)-70))
DeleteObject hToolBmp&' won't More needed
print "Profan-Kringel: ";ImageList("AddIcon", hIL&, create("hIcon", "A"));""
print "Klassen: ";classof(hTV&);tab(24);classof(hIL&)
print "Handles: ";hTV&;tab(24);hIL&
var HeaderEbene& = TreeView("InsertItem",hTV&, 0,0,"Includes/Header")
var ProcEbene& = TreeView("InsertItem",hTV&, 0,1,"Prozeduren")
var StrukturEbene& = TreeView("InsertItem",hTV&, 0,2,"Strukturen/Klassen")
var KommentarEbene& = TreeView("InsertItem",hTV&, 0,3,"Kommentare/Faltungen")
TreeView("InsertItem",hTV&, HeaderEbene&,4,"Text 1")
TreeView("InsertItem",hTV&, ProcEbene&,5,"Text 2")
TreeView("InsertItem",hTV&, StrukturEbene&,6,"Text 3")
TreeView("InsertItem",hTV&, KommentarEbene&,7,"Text 4")
TreeView("InsertItem",hTV&, KommentarEbene&,52,"Text 5")
var T6& = TreeView("InsertItem",hTV&, KommentarEbene&,9,"Text 6")
TreeView("InsertItem",hTV&, T6&,10,"Text 7")
TreeView("SetItemImage",hTV&, KommentarEbene&,10)
TreeView("SetChildren",hTV&, Procebene&,1)
TreeView("SetChildren",hTV&, HeaderEbene&,1)
TreeView("SetChildren",hTV&, StrukturEbene&,1)
TreeView("SetChildren",hTV&, KommentarEbene&,1)
TreeView("SetChildren",hTV&, T6&,1)
TreeView("Expand",hTV&, ProcEbene&, 2)
SetText hTV&, HeaderEbene&,"Includes/Header (2)"
SetText hTV&, ProcEbene&,"Prozeduren (3)"
SetText hTV&, StrukturEbene&,"Strukturen/classes (4)"
SetText hTV&, KommentarEbene&,"Kommentare/Faltungen (99)"
TreeView("Select",hTV&, T6&)
print "Anzahl:  ";GetCount(hTV&);tab(24);getCount(hIL&)
DrawIcon hIL&, 10, 420, 15
var end% = 0
var item& = 0
usermessages Ord("p")

whilenot end%

    waitinput
    item& = TreeView("GetSelected", hTV&)
    print GetText$(hTV&, item&);".";GetText$(hTV&, TreeView("GetParent", hTV&, item&)),item&

    if %key = 27

        end% = 1

    endif

endwhile

I setz the time on Done.
 
XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
11/18/15  ▲
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

8.735 Views

Untitledvor 0 min.
Georg Teles04/26/23
Sven Bader03/13/23
RudiB.04/07/22
Heiko Dix10/04/21
More...

Themeninformationen

this Topic has 3 subscriber:

Jörg Sellmeyer (4x)
RGH (3x)
iF (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie