| |
|
|
ByteAttack | Hello Community,
i want gladly whom Click in a ListView evaluate. though have I yet others inquire walk, sodas one WaitInput for my WhileNot Loop not question comes. I must everything with GetMessage make. example:
the functions too lovely, still unfortunately scrolls then the ListView with my Cursor always with... the happens with WaitInput but not |
|
|
| |
|
|
|
Rolf Koch | Hi Marc-Gordon,
How siehts from, if you The Thread.pcu of If using?
Rolf |
|
|
| |
|
|
|
ByteAttack | unfortunately helped the too nothing. is eh one merkwürdiges behaviour the ListViews. it scrolls of course always high and down, according as where the mouse befindet, and if I one other ListView anklicke, or whom Focus somewhere differently set, scrolls it munter moreover ??? |
|
|
| |
|
|
|
ByteAttack | Nochmal I! has someone this Error too notice? If No, becomes the well on my Logitech Maustreiber XP lying??? |
|
|
| |
|
|
|
Jörg Sellmeyer | Hello Marc-Gordon, the Phänomen kenn I. In my ListViewGenerator diving it too ex and on on. Have unfortunately yet no rule thereby found. Greeting Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 05/14/05 ▲ |
|
|
|
|
| Poste still time something Testbares - Perhaps as exe - so get one always integrally quick suitable Answer.
salvo. |
|
|
| |
|
|
|
ByteAttack | |
|
| |
|
|
|
| sustain same at Start ne Exception.
salvo. |
|
|
| |
|
|
|
Rolf Koch | and by me becomes the window opened and directly again closed without Info o.ä.
and another Info: i'm noticed, in the Menu supra on your Page. gives it a new Dll? there standing Include Files Liestview.dll. As I said, only Info. |
|
|
| |
|
|
|
ByteAttack | everything NEW made. One simple Testprogramm and View source. If the now not functions, I'm going into superannuation... CompileMarkSeparation $P+
SetErrorLevel 0
USERMESSAGES 16,$0044
Declare prgexit%,lvdll&,ilist&,MerkeX%,MerkeY%,X%,Y%,listview&,bereich#,icons#,bytes&,x&,y&,text$
Dim bereich#,200000
Dim icons#,40000
Def GetSystemMetrics(1) !"USER32","GetSystemMetrics"
DEF MoveWindow(6) ! "USER32","MoveWindow","%%%%%%","%"
Def GetSysColor(1) !"USER32","GetSysColor"
$I ListView_Funktionen.inc
lvdll&=usedll("Listview.dll")
ilist&=CreateImageList(1,0)
Proc Update
Declare innenX%,innenY%,left%,viertel%,YBereich%
innenX%=(%WinRight-%WinLeft)-(GetSystemMetrics(33)+GetSystemMetrics(33))
innenY%=(%WinBottom-%WinTop)-(GetSystemMetrics(4)+GetSystemMetrics(33)+GetSystemMetrics(33))
MerkeX%=%WinRight-%WinLeft
MerkeY%=%WinBottom-%WinTop
if MerkeX%<640
SetWindowPos %hwnd=%WinLeft,%WinTop-640,MerkeY%;0
elseif MerkeY%<480
SetWindowPos %hwnd=%WinLeft,%WinTop-MerkeX%,480;0
endif
MoveWindow(listview&,5,5,innenX%-10,innenY%-20,59,1)
EndProc
Hauptfenster
SetTrueColor 1
WindowStyle 31
WindowTitle "ListView Test"
Window %maxX/2-320,(%maxY/2-240)-640,480
CLS GetSysColor(15)
listview&=CreateListView(%hwnd,%hinstance,0,$00FFFFFF,-1,$30)
SetImageList(listview&,ilist&)
text$="C:"
bytes&=FilelistToCsv(addr(text$),bereich#,0,0,31,icons#)
x&=SetColumnsFromMem(listview&,bereich#,addr(y&))
CsvToListview(listview&,(bereich#+y&),(bytes&-y&),x&)
x&=GetLines(listview&)
SetIconsFromMem(listview&,0,icons#,x&)
Dispose icons#
Dispose bereich#
AutoSortListview listview&,1,2,1,2,1
SetColumnWidth(listview&,0,-1)
SetColumnWidth(listview&,1,-1)
SetColumnWidth(listview&,2,-1)
SetColumnWidth(listview&,3,-1)
SetColumnWidth(listview&,4,-2)
SortManual(listview&,0,0)
ShowListView(listview&,5,5,780,550)
InitMessages(%hwnd)
MerkeX%=%WinRight-%WinLeft
MerkeY%=%WinBottom-%WinTop
Update
Declare handle&
Dim bereich#,320
WhileNot prgexit%
GetMessage
Case %Umessage=16:prgexit%=1
X%=%WinRight-%WinLeft
Y%=%WinBottom-%WinTop
CaseNot X%=MerkeX%:Update
CaseNot Y%=MerkeY%:Update
Clear bereich#
y&=GetControlParas(bereich#)
If y&<>0
handle&=Long(bereich#,0) Listview Handle
text$=String$(bereich#,64) Itemtext
WindowTitle text$
EndIf
Wend
Dispose bereich#
CloseMessages(%hwnd)
Dispose clv1#
Dispose clv2#
Dispose clvall#
Dispose tem#
freedll lvdll&
|
|
|
| |
|
|
|
GDL | Hello Marc
WinME crashes kommplett ex.only over Reset again To terminate.
Hello Georg |
|
|
| |
|
|
|
| by me scrolls The LV too wrong. your example working - it's located not on the Maustreiber - sooner on it the The messages not reset go. there wiederrum should Frank time look How it this with the XProfan-Getmessage arrange can.
For which need the Getmessage at all so urgently - instead of the Waitinput ?
salvo. |
|
|
| |
|
|