| |
| |
|
Torsten
Rümker | Como sí en el Ayuda a Profano schön a lesen es, puede ser con el Message ~lb_dir una Listbox veranlassen el Inhalt des aktuellen Verzeichnisses Mostrar que se.
Deshalb Yo veces folgende Zeilen Verfaßt para testen.
KompilierenMarcaSeparación
Aunque stürzt el Interpreter jedesmal de, si él intenta todos para laufen a bringen.
Und Yo vengo simplemente no en él como correcto heißen muß.
Como siempre para jede Ayuda dankbar
Torsten |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 15.05.2006 ▲ |
|
| |
|
|
RGH | ¡Hola,
el letzte Parámetro de SendMessage darf natürlich kein String ser, pero muß el Adresse en el Suchmaske ser. So gehts:
KompilierenMarcaSeparación $H Messages.ph
Declare Lb&, dir$
Cls
Lb& = Create("LISTBOX",%Hwnd,"",0023,0023,0302,0401)
dir$ = "*.*"
Sendmessage (Lb&, ~Lb_dir, $4038, Addr(dir$))
Setfocus(%Hwnd)
Waitin>
Saludo
Roland |
|
| |
| 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 | 15.05.2006 ▲ |
|
| |
|
|
Nico
Madysa | |
| |
| |
| |
|
|
Torsten
Rümker | Klar sería deine Solución auch trabajo.
Aber como así oft es, sieht uno el Wald antes lauter Bäumen no.
Oder anders: por qué simplemente wenns auch schwer va.
[Editar] Mir fällt grad una, por qué Yo el método no genutzt hatte, Yo quería sólo Verzeichnisse haben [/Editar]
Gracias en cada fall para el Respuesta.
MfG
Torsten
PS: Yo debería me echt langsam merken, el uno no Cuerdas transferencia kann. |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 15.05.2006 ▲ |
|
| |
|
|
Michael
Wodrich | [quote:8c07f72e55]PS: Yo debería me echt langsam merken, el uno no Cuerdas transferencia kann.[/quote:8c07f72e55]
Se puede una wenig mogeln...
KompilierenMarcaSeparación!
$H Messages.ph
--------------------------
Declare global_txt$
Proc txt$
Parameters derText$
global_txt$ = derText$
Return Addr(global_txt$) geht leider nicht mit "derText$", da nach
EndProc Verlassen der Funktion nicht mehr verfügbar.
--------------------------
Declare LB&
Cls
LB& = Create("LISTBOX",%hWnd,"",0023,0023,0302,0401)
SendMessage (LB&, ~LB_Dir, $4038, txt$("*.*"))
SetFocus(%hWnd)
Programmieren, das spannendste Detektivspiel der Welt. | 16.05.2006 ▲ | |
|
| |
|
|
Torsten
Rümker | Tja, war alles muy hilfreich, desafortunadamente Yo sólo en el Nachhinein gemerkt,
el Yo el Yo como rausbekomme nada brauche.
Yo habe todavía una vez nachgedacht. Alles Yo brauche, Es el Möglichkeit,
una Verzeichnisstruktur darzustellen. So una Art Treeview, como en el Windows - Explorer en el linken Página.
Lo se para una Directorio-Auswahl-Diálogo ser, el Yo en Installation meines Wettbewerbsbeitrages
uso möchte.
MfG
Torsten |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 16.05.2006 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | ¡Hola Personas!
[quote:c8bc61b7c5]Se puede una wenig mogeln... [/quote:c8bc61b7c5]
Sí, por qué no...
KompilierenMarcaSeparación
Remember: Seit Profano 7.? son Literate (Texto en Anführungsstrichen) como Parámetro para APIs erlaubt...
@Torsten: Auf meiner inoffiziellen HP [...]  liegt una Ejemplo para algo como, aber para deine Zwecke es el eigendlich überdimensioniert... (TvDemo + FileBrowser)
Reicht ChooseDir$ no?
SeeYou
Pascal |
|
| |
| |
| |
|
|
Torsten
Rümker | [quote:fbc75d2c1a=Uwe Pascal Niemeier]
Reicht ChooseDir$ no?[/quote:fbc75d2c1a]
Wenn Yo, el Choosedir como Element en una eigenen Diálogo bekomme, entonces lo reichen.
So wirkt todos Ding en el Bildschirm algo verlassen, während el Installation.
Außerdem es schwieriger Verzeichnisse hinzuzufügen.
MfG
Torsten |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 16.05.2006 ▲ |
|
| |
|
|
Michael
Wodrich | Hier una klitzekleine Erweiterung (Pascals Tipp todavía no eingearbeitet).
Nur Verzeichnisse y Laufwerke:
KompilierenMarcaSeparación $H c:\profan\include\Messages.ph
--------------------------
Declare global_txt$
Proc txt$
Parameters derText$
global_txt$ = derText$
Return Addr(global_txt$) geht leider nicht mit "derText$", da nach
EndProc Verlassen der Funktion nicht mehr verfügbar.
--------------------------
Declare LB&
Cls
LB& = Create("LISTBOX",%hWnd,"",0023,0023,0302,0401)
SendMessage (LB&, ~LB_Dir, $4038, txt$("*.*"))
SetFocus(%hWnd)
Declare anz&
anz& = GetCount(LB&) - 1
WhileLoop anz&, 0, -1
Case Left$(GetString$(LB&,&loop),1) <> "[" : DeleteString(LB&,&loop)
EndWhile
WaitInput
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 16.05.2006 ▲ |
|
| |
|
|
Torsten
Rümker | Yo glaube así kann Yo qué anfangen.
Sieht zwar no así schön de Yo lo gerne hätte, sería aber en cada Fall
el Installation optisch aufpeppen.
Tiempo una bischen testen.
Gracias para el Tips.
MfG
Torsten |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 17.05.2006 ▲ |
|
| |
|
|
Torsten
Rümker | So el Mostrar funktioniert sí bastante bien,
ahora brauche Yo sólo todavía Ayuda en herauszubekommen, si en una Eintrag simplemente oder doppelt geklickt wurde.
Puedo sí con GetFocus abfragen si el Listbox angeklickt wurde, y luego el aktuellen Eintrag auslesen.
Aber como merke Yo si el Eintrag por Haga doble clic en selektiert wurde?
MfG
Torsten |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 18.05.2006 ▲ |
|
| |
|
|
Peter
Max
Müller | |
| |
|
(779)
Deutsch
English
Français
Español
Italia