| |
|
|
- Page 1 - |
|
Normann Strübli | Hi,
of me was in last Time again little To reading I me More circa my hardware-proposition gekümmert have. but does Yes nothing to thing :roll:
Also Have I started with MASM started so I the genialen XPIA finally sensible benefit can have me the book Assembler - Grundlagen the Programming of Marcus Roming and Joachin Rhode bought what of my opinion to for Assembler Beginner fine suitable is. sure there in the internet too many References, but a little advertisement had on these place time his there me the book so well gefällt
and Frank has right if it says Assembler is generally none so heavy - means ran! it rewards itself.
so NU but finally my eigentliche question: i want with whom Split gladly a Sorting to own criteria manage let. i want means to several properties at the same time sort let - z.B. to Produktgruppe UND colour. moreover have I simply a slot prepares with the Content R123 as example. R standing for colour ruddy and 123 hold for what other. If I these slot now Sort let have I my target already access, though to the users of these slot Yes nothing see - would Yes stupid. simply The Column on 0 To settle bring Yes nothing there one tappt im dunkeln Yes again breiter can make. Can means defined decompose in the wide somehow fix? If the on normalen ways not goes see You Frank there a chance the in your Dll irgenwie with aufzunehmen? then could one too others Information in the List view hide z.B. eindeutige ID-numbers The the users not sees one but nevertheless read can.
gruß Normann |
|
|
| |
|
|
|
| |
|
- Page 1 - |
|
Frank Abbing | Hello Normann and iF,
[quote:a341181023]Can of/ one such List view not say the The Spaltenbreiten not by the users veränderbar are? [/quote:a341181023] the goes of my Wissens to not. but there's nevertheless a method, The You in your Profan-Waitinput-Loop pack can. my Testcode Gebührenverwaltung_Stammtisch.prf power the indeed so: CompileMarkSeparationx&=0
y&=GetColumnWidth(listview&,0)
Case y&<>130:x&=1
y&=GetColumnWidth(listview&,1)
Case y&<>110:x&=1
y&=GetColumnWidth(listview&,2)
Case y&<>110:x&=1
y&=GetColumnWidth(listview&,3)
Case y&<>110:x&=1
y&=GetColumnWidth(listview&,4)
Case y&<>110:x&=1
y&=GetColumnWidth(listview&,5)
Case y&<>110:x&=1
If x&
*** Wenn ja, dann "linker Mausknopf losgelassen" simulieren und ursprüngliche
*** Spaltenbreiten wieder herstellen.
mouse_event(4,0,0,0,0)
SetColumnWidth(listview&,0,130)
SetColumnWidth(listview&,1,110)
SetColumnWidth(listview&,2,110)
SetColumnWidth(listview&,3,110)
SetColumnWidth(listview&,4,110)
SetColumnWidth(listview&,5,110)
EndIf
there it with you only circa a row goes, is the hoisted Yes yet less Übrigens can you indeed another second, unsichtbares List view Generate...
Welcome with Assembler, Normann! though must I you say: windows 64 bit standing to the door and there will for Assembler some Change... :roll: |
|
|
| |
|
|
|
Normann Strübli | [quote:07f3459f4b]windows 64 bit standing to the door and there will for Assembler some Change...[/quote:07f3459f4b]well you are Yes well - mach me only courage! remaining still but everything Abwärtskompatibel... or not?! Also if one The Grundlagen knows then kanns Yes not wrong his.
|
|
|
| |
|
|
|
Normann Strübli | and It's all right still!
unzwar plenty eleganter
Frank, Please guck you the whole time accurate on. really none so heavy, would means beautiful if Dus then still in your List view.dll to assimilate could (büdde!) then need one whom kram with the Subclassing not. The View source is a geänderter of your Examples - weils for me so faster went.
i want the too yet dahingehend strain, the only defined Split solid are.
what means You? CompileMarkSeparation $H windows.ph
$H structs.ph
$H messages.ph
$H commctrl.ph
$H Structs.ph
set("FastMode",1)
Strukturen
STRUCT HD_NOTIFY = ~HD_NOTIFY
DECLARE HD_NOTIFY#
Dim HD_NOTIFY#,HD_NOTIFY
Declare bereich#,listview&,lvdll&,text$,bytes&,bereich#,x&,y&,z&
Def GetSysColor(1) !"USER32","GetSysColor"
$I Listview_Funktionen.inc
proc ListviewCallback
Parameters Wnd&, Msg&, WParam&, LParam&
if Msg& = ~WM_NOTIFY
HD_NOTIFY# = lparam&
if HD_NOTIFY#.iItem& = ~HDN_BeginTrackW Die HDN_BeginTrack Botschaft abfangen und löschen!
If @GetCheck(Check&)
return 1
endif
else
Return ~CallWindowProc(~GetProp(Wnd&,"OldCallback"),Wnd&, Msg&,WParam&,LParam&)
endif
endif
Return ~CallWindowProc(~GetProp(Wnd&,"OldCallback"),Wnd&, Msg&,WParam&,LParam&)
Endproc
lvdll&=usedll("Listview.dll")
SetTrueColor 1
Windowstyle 543
Windowtitle "Listview mit fester Spaltenbreite"
Window 0,0-600,600
Cls GetSysColor(15)
Usefont "MS Sans Serif",10,0,0,0,0
SetDialogFont 1
x&=MixRGBs(GetSysColor(15),$00ffffff)
listview&=CreateListView(%hwnd,%hinstance,0,x&,-1,$31)
Declare Check&
Check& = @Create("CheckBox",%hwnd,"Spaltenbreite Fixieren",400,30,120,20)
text$="LVData/Laeufer_mit_Header.csv"
bytes&=@FileSize(text$)
If bytes&>0
Dim bereich#,bytes&
ReadFileQuick(addr(text$),bereich#,0,bytes&)
x&=SetColumnsFromMem(listview&,bereich#,addr(y&))
CsvToListview(listview&,(bereich#+y&),(bytes&-y&),x&)
Dispose bereich#
EndIf
*** Die Breite der drei ersten Spalten korregieren
SetColumnWidth(listview&,0,-1)
SetColumnWidth(listview&,1,-1)
SetColumnWidth(listview&,2,-1)
AutoSortListview listview&,1,1,1,1,2,2
ShowListView(listview&,32,32,354,456)
InitMessages(%hwnd)
~SetProp(listview&,"OldCallback",~SetWindowLong(listview&,~GWL_WNDPROC, ProcAddr(ListviewCallback,4)))
While 1
waitinput
Case %key=2:BREAK
Wend
CloseMessages(%hwnd)
freedll lvdll&
$I Listview_Dispose font>
End
|
|
|
| |
|
|
|
Jörg Sellmeyer | Hello Normann, this is Yes terrific. Also is the festlegung bestimmter Split right simply. one must only in the Callbackroutine The If-request strain: CompileMarkSeparation Greeting Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 03/09/05 ▲ |
|
|
|
|
Normann Strübli | Hi Jörg,
*lol* How simply. but nu say me yet Please wieso the so is. (Seh just the woods not sheer trees) in the Win32 standing still the following: [quote:75fbb01985] iButton index of the mouse button involved in generating the notification message. Diese member can be one of these values:
ValueMeaning 0Left button 1Right button 2Middle button [/quote:75fbb01985] means wieso is the iButton with the Header-index equips and not the squeezed mouse-Button? Hä?
Greeting Normann |
|
|
| |
|
|
|
Jörg Sellmeyer | Tja, there become You well BG ask must. I habs through puren chance rausgekriegt. before I in the Help nachgelesen have, have I simply time the value for Button tested. would have been I before nachgelesen, would I well neither on it come Greeting Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 03/09/05 ▲ |
|
|
|
|
Frank Abbing | Hi,
Yes, functions well! with this Notifymessage I had me yet none correctly. engage will be I solid install. |
|
|
| |
|
|
|
Normann Strübli | Thank you!
PS: be the weekend time again not there, means not wonder if I on something not answer.
gruß Normann |
|
|
| |
|
|
|
Frank Abbing | Hi,
ready. Have it as Ex-Style for CreateListview() realized. is Style $400 staid, then can The wide the columns in this List view not changed go. So one lokaler Style, counts but always for all Split. |
|
|
| |
|
|
|
Normann Strübli | Hello Frank,
can it his the the Style $400 not functions? have it yet not using I always only defined Split unveränderbar made have.
Greeting Normann |
|
|
| |
|
|
| |
|
- Page 2 - |
|
|
Frank Abbing | Hello Normann,
Yes, you're right. he had functions, but somehow is it in the last Version again lost gone. I trouble me therefore. |
|
|
| |
|
|
|
Frank Abbing | so, Error found. in the next Version functions The solid Split again. |
|
|
| |
|
|