| |
| |
|
Konrad
Flachs | Hi,
wisely someone How is a Drag&Drop function program can?
The function ought to about so o.ä. looks:
1.) in the Profanprogramm is a z.B. a Listbox
2.) in the Dateiexplorer selektiere I a File and ziehe tappt im dunkeln with
the left Mouse button in my Listbox.
3.) The Dateiname appear in the Listbox
ideas?!
Greeting
Konrad |
|
| |
| |
| |
|
|
Michael
Dell | Hi,
here new nice Presentation Thomas Hölzer (PRFellow):
CompileMarkSeparationPRFellow-Vorlage
Autor: Thomas Hölzer
Eine Drag-ListBox
Näheres siehe in win32.hlp
Def MakeDragList(1) !"COMCTL32","MakeDragList"
Def DrawInsert(3) !"COMCTL32","DrawInsert"
Declare i%,h&
SetTrueColor 1
WindowTitle "WinFellow"
Cls RGB(192,192,192)
Let h&=CreateListbox(%hwnd,"",280,48,185,200)
While lt(i%,11)
AddString(h&,str$(i%))
Inc i%
Wend
MakeDragList(h&)
While 1
GetMessage
IF GetFocus(h&)
DrawInsert(%hwnd,h&,GetCurSel(h&))
EndIf
Wend
PRFellow (Freeware) Gibts incidentally here: [...]  
Salu
Michael... |
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 04/07/05 ▲ |
|
| |
|
|
Frank
Abbing | Hi,
the code not working under WindowsXP Home. |
|
| |
| |
| |
|
|
Andreas
Miethe
 |
CompileMarkSeparation $H Windows.ph
$H Messages.ph
$H Shellapi.ph
Set("Fastmode",1)
Proc Newproc
Parameters Wnd&,Msg&,wParam&,lParam&
Declare Dummy$
If Msg& = ~WM_DROPFILES
Whileloop 0,~DragQueryFile(wParam&,$FFFFFFFF,0,0)-1
Dummy$ = Space$(~Max_Path)
~DragQueryFile(wParam&,&Loop,Addr(Dummy$),~Max_Path)
AddString(Listbox&,Trim$(Dummy$))
EndWhile
Return 0
Endif
Return ~CallWindowProc(OldProc&,Wnd&,Msg&,wParam&,lParam&)
EndProc
Declare Ende&,Listbox&,OldProc&
CLS ~GetSysColor(~COLOR_BTNFACE)
SetDialogFont ~GetStockObject(~DEFAULT_GUI_FONT)
ListBox& = Create("Listbox",%hwnd,"",0,0,300,300)
~DragAcceptFiles(Listbox&,1)
OldProc& = ~SetWindowLong(%hwnd,~GWL_WNDPROC,ProcAddr(NewProc,4))
Whilenot ende&
Waitinput
Wend
End
greeting
Andreas |
|
| |
| Gruss Andreas ________ ________ ________ ________ _ Profan 3.3 - XProfanX2 Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher Homepage : [...] | 04/07/05 ▲ |
|
| |
|
|
Frank
Abbing | Hi,
Yes, Andreas has always perfect Codes on camp  .
functions very well! |
|
| |
| |
| |
|
|
Frank
Abbing | Hello.
Andreas, have you got another example parat, the whom umgekehrten lane goes? circa a entry from the Listbox into WindowsExplorer To copy? |
|
| |
| |
| |
|
|
Andreas
Miethe
| Hello Frank,
Have I unfortunately not.
greeting
Andreas |
|
| |
| Gruss Andreas ________ ________ ________ ________ _ Profan 3.3 - XProfanX2 Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher Homepage : [...] | 04/07/05 ▲ |
|
| |
|
|
Frank
Abbing | Hello Andreas,
ah, still one new Aufgabengebiet for Profanentwickler discover... |
|
| |
| |
| |
|
(903)
Deutsch
English
Français
Español
Italia