XProfan

Español

Jörg
Sellmeyer

¡Hola,

Se puede una Treeview wunderbar con el tastatur steuern. Leider kommt pero no la en el Programa a. El Tastaturnavigation funktioniert zwar aber WaitInput no es durchbrochen.
Sehr ligeramente al Ejemplo en el Ayuda nachzuvollziehen. Yo sólo el "Print %key,%message" eingefügt.
Treeview con Ratón aktivieren: Werte voluntad adecuado
Weiter con Tastatur: lo passiert sólo todavía qué en el Treeview

Kompilieren Marca Separación

CLS
var hToolBmp& = create("HPIC", 0, "TOOLBAR")
var hIL& = Crear("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
var hTV& = Crear("TreeView",%hwnd,hIL&,420,40,200,(height(%HWnd)-70))
DeleteObject hToolBmp&' no es mehr benötigt
imprimir "Profan-Kringel: ";ImageList("AddIcon", hIL&, create("hIcon", "A"));""
imprimir "Klassen: ";classof(hTV&);tab(24);classof(hIL&)
imprimir "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/Encabezamiento (2)"
SetText hTV&, ProcEbene&,"Prozeduren (3)"
SetText hTV&, StrukturEbene&,"Strukturen/Klassen (4)"
SetText hTV&, KommentarEbene&,"Kommentare/Faltungen (99)"
TreeView("Select",hTV&, T6&)
imprimir "Anzahl:  ";GetCount(hTV&);tab(24);getCount(hIL&)
DrawIcon hIL&, 10, 420, 15
var ende% = 0
var item& = 0
usermessages Ord("p")

whilenot ende%

    waitinput
    Imprimir %key,%mensaje

    if %key = 27

        ende% = 1

    elseif clicked(hTV&)

        item& = TreeView("GetSelected", hTV&)
        imprimir 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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Solange du sólo en el Control navigierst, passiert nichts. Aber siobald Usted con ENTER una Eintrag auswählst se Waitinput verlassen y %mensaje ha una Valor 295, así dass Usted en el Programa darauf reagieren kannst.

Saludo
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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Das finde Yo aber untypisch para así una Treeview. In allen Programmen, el Yo bisher getestet habe, passiert ya qué, si yo con el Pfeiltasten navigiere. Simpelstes Ejemplo: el Explorer. Auch z. B. Irfanview es así a steuern.

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

14.01.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¿Puede lo sí en Su Wunschliste para X3 conjunto. Dann kann Yo sí veces schauen, qué como posible es ...

Saludo
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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Dann setz Yo hiermit en mi Wunschliste. Usted könntest Usted esta Hilo doch simplemente Su XProfan.com Merkliste conjunto y el entonces abarbeiten. Oder gibt's ya irgendwo una allgemeine Wunschliste?

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

24.01.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Noch no. Es en efecto ni Weile hin. Zuerst muss Yo, el aktuellen Bugfix en X2.0c en una Parche einbauen y en mi Homepage hochladen, entonces una aktuelle Installations-CD con X2.0c a JDS enviar y schließlich en el nächsten Fiesta Tiempo encontrar, en mich el Thema XProfan X2 con FreePascal 32Bit y 64Bit a befassen.

Saludo
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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Musst No!

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

24.01.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Hier tener Yo zumindest rausbekommen, cómo el Werte auch en Tastaturnavigation erhält:

Einfach después de el Ansteuern uno Elementes Enter drücken y ya funktioniert lo...
So simplemente kann Programmieren ser

Kompilieren Marca Separación

CLS
var hToolBmp& = create("HPIC", 0, "TOOLBAR")
var hIL& = Crear("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
var hTV& = Crear("TreeView",%hwnd,hIL&,420,40,200,(height(%HWnd)-70))
DeleteObject hToolBmp&' no es mehr benötigt
imprimir "Profan-Kringel: ";ImageList("AddIcon", hIL&, create("hIcon", "A"));""
imprimir "Klassen: ";classof(hTV&);tab(24);classof(hIL&)
imprimir "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/Encabezamiento (2)"
SetText hTV&, ProcEbene&,"Prozeduren (3)"
SetText hTV&, StrukturEbene&,"Strukturen/Klassen (4)"
SetText hTV&, KommentarEbene&,"Kommentare/Faltungen (99)"
TreeView("Select",hTV&, T6&)
imprimir "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&)
    imprimir GetText $(hTV&, item&);".";GetText $(hTV&, TreeView("GetParent", hTV&, item&)),item&

    if %key = 27

        ende% = 1

    endif

endwhile