(905)  S'inscrire

Français
Bugs et vermeintliche

Treeview Tastaturnavigation

 

Jörg
Sellmeyer
Salut,

On peut un Treeview wunderbar avec qui clavier steuern. malheureusement venez cela mais pas im Programme à. qui Tastaturnavigation funktioniert zwar mais WaitInput wird pas durchbrochen.
très léger am Beispiel dans qui Aider nachzuvollziehen. je hab seulement cela "Print %clé,%message" eingefügt.
Treeview avec souris aktivieren: Werte volonté angezeigt
Weiter avec clavier: es passiert seulement encore quoi im Treeview
KompilierenMarqueSéparation
CLS
var hToolBmp& = create(«PCSI», 0, "TOOLBAR")
var hIL& = Créer("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
var hTV& = Créer("TreeView",%hwnd,hIL&,420,40,200,(height(%HWnd)-70))
DeleteObject hToolBmp&' wird pas plus nécessaire
imprimer "Profan-Kringel: ";ImageList("AddIcon", hIL&, create("hIcon", "A"));»
imprimer "Klassen: ";classof(hTV&);tab(24);classof(hIL&)
imprimer "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/En-tête (2)"
SetText hTV&, ProcEbene&,"Prozeduren (3)"
SetText hTV&, StrukturEbene&,"Strukturen/Klassen (4)"
SetText hTV&, KommentarEbene&,"Kommentare/Faltungen (99)"
TreeView("Select",hTV&, T6&)
imprimer "Anzahl:  ";GetCount(hTV&);tab(24);getCount(hIL&)
DrawIcon hIL&, 10, 420, 15
var ende% = 0
var item& = 0
usermessages Ord("p")

whilenot ende%

    waitinput
    Imprimer %clé,%message

    si %clé = 27

        ende% = 1

    elseif clicked(hTV&)

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

    endif

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




RGH
Solange du seulement im Contrôle navigierst, passiert rien. mais siobald Du avec ENTER une Eintrag auswählst wird Waitinput sortir de et %message hat une Wert 295, so dass Du im Programme puis réagir peux.

Salut
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
14.01.2012  ▲
 




Jörg
Sellmeyer
cela finde je mais untypisch pour so un Treeview. dans allen Programmen, qui je bisher getestet habe, passiert déjà quoi, si je avec den Pfeiltasten navigiere. Simpelstes Beispiel: qui Explorer. aussi z. B. Irfanview est trop steuern.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
14.01.2012  ▲
 




RGH
peux es oui sur Votre Wunschliste pour X3 mettons. ensuite peux je oui la fois regarder, quoi là possible ist ...

Salut
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
14.01.2012  ▲
 




Jörg
Sellmeyer
ensuite setz je es hiermit sur mon Wunschliste. Du könntest Dir cette Fil doch simple sur Votre XProfan.com La liste de voeux mettons et qui ensuite abarbeiten. ou bien gibt's déjà irgendwo une allgemeine Wunschliste?
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
24.01.2012  ▲
 




RGH
encore pas. c'est oui aussi encore une Weile hin. d'abord muss Je l' aktuellen Bugfix sur X2.0c dans une Patch einbauen et sur mon Page d'accueil hochladen, ensuite une aktuelle Installations-CD avec X2.0c à JDS envoyons et schließlich im prochain Urlaub Zeit trouver, um mich dem Thema XProfan X2 avec Free Pascal 32Bit et 64Bit trop befassen.

Salut
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
24.01.2012  ▲
 



Musst Du pas!
 
24.01.2012  ▲
 




Jörg
Sellmeyer
ici hab je zumindest rausbekommen, comment on qui Werte aussi chez Tastaturnavigation erhält:

simple pour dem Ansteuern eines Elementes Enter drücken et déjà funktioniert es...
So simple peux Programmieren son
KompilierenMarqueSéparation
CLS
var hToolBmp& = create(«PCSI», 0, "TOOLBAR")
var hIL& = Créer("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
var hTV& = Créer("TreeView",%hwnd,hIL&,420,40,200,(height(%HWnd)-70))
DeleteObject hToolBmp&' wird pas plus nécessaire
imprimer "Profan-Kringel: ";ImageList("AddIcon", hIL&, create("hIcon", "A"));»
imprimer "Klassen: ";classof(hTV&);tab(24);classof(hIL&)
imprimer "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/En-tête (2)"
SetText hTV&, ProcEbene&,"Prozeduren (3)"
SetText hTV&, StrukturEbene&,"Strukturen/Klassen (4)"
SetText hTV&, KommentarEbene&,"Kommentare/Faltungen (99)"
TreeView("Select",hTV&, T6&)
imprimer "Anzahl:  ";GetCount(hTV&);tab(24);getCount(hIL&)
DrawIcon hIL&, 10, 420, 15
var ende% = 0
var item& = 0
usermessages Ord("p")

whilenot ende%

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

    si %clé = 27

        ende% = 1

    endif

endwhile

je setz cela la fois sur erledigt.
 
XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
18.11.2015  ▲
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

8.488 Views

Untitledvor 0 min.
Georg Teles26.04.2023
Sven Bader13.03.2023
RudiB.07.04.2022
Heiko Dix04.10.2021
plus...

Themeninformationen

cet Thema hat 3 participant:

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


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie