| |
|
|
Torsten Rümker | How Yes in the Help Profan beautiful To reading is, can with the Message ~lb_dir a Listbox join whom Content the current Verzeichnisses Show To let. therefore have I time following Lines Verfaßt to that testing. CompileMarkSeparation though crashes the Interpreter jedesmal ex, if it attempts the whole to that walk To bring. what about me come simply not on it as correctly. hot must.
How always for each Help grateful
Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 05/15/06 ▲ |
|
|
|
|
RGH | Hi, the last Parameter of SendMessage must naturally no String his, separate must The address on The Suchmaske his. so GEHTS: CompileMarkSeparation $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 >
Greeting 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 | 05/15/06 ▲ |
|
|
|
|
Nico Madysa | |
|
| |
|
|
|
Torsten Rümker | clear would your Solution too functions. but as so often is, sees one whom woods not sheer trees. or differently: Why simply ifs too heavy goes. [Edit] me falls strain one, why I The method not used having, I wished only directories having [/Edit] thanks in any case for Answer.
MfG Torsten
PS: I ought to me Real slow remember, the one no Strings transfer can. |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 05/15/06 ▲ |
|
|
|
|
Michael Wodrich | [quote:8c07f72e55]PS: I ought to me Real slow remember, the one no Strings transfer can.[/quote:8c07f72e55] one can yes a little mogeln... CompileMarkSeparation!
$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. | 05/16/06 ▲ | |
|
|
|
|
Torsten Rümker | Tja, was everything very helpful, unfortunately have I first in the Nachhinein Pinned, that I the I there rausbekomme none need.
I have once more thought. everything I need, is the Possibility, a Verzeichnisstruktur darzustellen. so a manner Treeview, How in the windows - Explorer on the left Page. it should for a directory-selection-dialog his, whom I with the installation of my Wettbewerbsbeitrages use would like.
MfG Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 05/16/06 ▲ |
|
|
|
|
Uwe ''Pascal'' Niemeier | Hello people! [quote:c8bc61b7c5]one can yes a little mogeln... [/quote:c8bc61b7c5] Yes, Why not... CompileMarkSeparation Remember: since Profan 7.? are Literate (Text in Anführungsstrichen) as Parameter for APIs allows... @Torsten: On of my inoffiziellen HP [...] lying an example for something like, but for your tack is the eigendlich überdimensioniert... (TvDemo + FileBrowser) Reicht ChooseDir$ not?
SeeYou Pascal |
|
|
| |
|
|
|
Torsten Rümker | [quote:fbc75d2c1a=Uwe Pascal Niemeier] Reicht ChooseDir$ not?[/quote:fbc75d2c1a] If I the Choosedir as element on a own dialog get, then would it wealthy. so works the whole thing on-screen something leave, during the installation. Also is it tougher directories hinzuzufügen.
MfG Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 05/16/06 ▲ |
|
|
|
|
Michael Wodrich | here a klitzekleine expansion (Pascals Tipp not yet eingearbeitet).
only directories and drives: CompileMarkSeparation $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
Best wishes Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 05/16/06 ▲ |
|
|
|
|
Torsten Rümker | I faith so can I what begin. sees of course not so beautiful from How I it gladly had, would but In any drop The installation optisch aufpeppen. time one little testing. thanks for hints.
MfG Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 05/17/06 ▲ |
|
|
|
|
Torsten Rümker | so the Show functions Yes integrally well, now need I only yet Help circa to get, whether on a entry simply or twice clicked watts. I can Yes with GetFocus inquire whether The Listbox klicked watts, and then whom actually entry read. but How observe I whether the entry by Double click selektiert watts?
MfG Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 05/18/06 ▲ |
|
|
|
|
Peter Max Müller | |
|
|