XProfan

- Page 1 -

Frank
Abbing

Hallo Normann und iF,

[quote:a341181023]Kann man einer solchen Listview nicht sagen das die Spaltenbreiten nicht durch den Anwender veränderbar sind? [/quote:a341181023]
Das geht meines Wissens nach nicht.
Aber es gibt dennoch eine Methode, die du in deine Profan-Waitinput-Schleife packen kannst. Mein Testcode Gebührenverwaltung_Stammtisch.prf macht das ja auch so:
Kompilieren Markieren Separieren

x&=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

Da es bei dir nur um eine Zeile geht, ist der Aufwand ja noch geringer

Übrigens kannst du ja auch noch ein zweites, unsichtbares Listview generieren...

Benvenuto bei Assembler, Normann! Allerdings muß ich dir sagen: Windows 64 Bit steht vor der Tür und da wird sich per Assembler einiges ändern... :roll:

08.03.2005 ▲

Normann
Strübli

[quote:07f3459f4b]Windows 64 Bit steht vor der Tür und da wird sich per Assembler einiges ändern...[/quote:07f3459f4b]Na Du bist ja gut - mach mir nur mut!

Bleibt doch aber alles Abwärtskompatibel... oder nicht?!
Außerdem wenn man die Grundlagen kennt dann kanns ja nicht verkehrt sein.

Normann
Strübli

Und es geht doch!

unzwar viel eleganter

Frank, bitte guck dir das ganze mal genauer an.
Eigentlich gar nicht so schwer, wäre also schön wenn Dus dann doch in deine
Listview.dll integrieren könntest (büdde!)
Dann braucht man den kram mit dem Subclassing nicht.
Der Quelltext ist ein geänderter von Deinen Beispielen - weils per mich so schneller ging.

Ich möchte das auch noch dahingehend erweitern, das nur bestimmte Spalten fest sind.

Was meint Du?
Kompilieren Markieren Separieren

 $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

Hallo Normann,
Das ist ja fantastisch. Außerdem ist die festlegung bestimmter Spalten recht einfach.
Man muß nur in der Callbackroutine die If-Abfrage erweitern:
Kompilieren Markieren Separieren

If And(@GetCheck(Check&),HD_NOTIFY#.iButton& = 1)

    Messagebox("Das geht nicht!","Ätsch!!",0)
    return 1

End

Saluto
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Normann
Strübli

Hi Jörg,

*lol* wie einfach.
Aber nu sag mir noch bitte wieso das so ist.
(Seh gerade den Wald vor lauter Bäumen nicht)
In der Win32 steht doch folgendes:
[quote:75fbb01985]
iButton
Index of the mouse button involved in generating the notification message. This member can be one of these values:

ValueMeaning
0Left button
1Right button
2Middle button
[/quote:75fbb01985]
Also wieso ist das iButton mit dem Testata-index bestückt und nicht mit der gedrückten Maus-Taste?
Hä?

Saluto
Normann

Jörg
Sellmeyer

Tja, da wirst Du wohl BG fragen müssen. Ich habs durch puren
Zufall rausgekriegt. Bevor ich in der Aiuto nachgelesen habe,
habe ich einfach mal il valore per Button getestet.
Hätte ich vorher nachgelesen, wäre ich wohl auch nicht drauf
gekommen

Saluto
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Frank
Abbing

Hi,

ja, funktioniert gut! Mit dieser Notifymessage hatte ich mich noch gar nicht richtig beschäftigt

Werde ich fest einbauen.

10.03.2005 ▲

Normann
Strübli

Dankeschön!

PS: Bin das Wochenende mal wieder nicht da, also nicht wundern falls ich
auf etwas nicht Antworte.

gruß
Normann

10.03.2005 ▲

Frank
Abbing

Hi,

fertig. Hab es als Ex-Style per CreateListview() realisiert. Ist Style $400 gesetzt, dann kann die Breite der Spalten in diesem Listview nicht verändert werden. Ist also ein lokaler Style, gilt aber immer per alle Spalten.

11.03.2005 ▲

Normann
Strübli

Hallo Frank,

kann es sein das der Style $400 nicht funktioniert?
Habe ihn bisher nicht benutzt da ich immer nur bestimmte Spalten unveränderbar gemacht habe.

Saluto
Normann

02.11.2005 ▲

- Page 2 -

Frank
Abbing

Hallo Normann,

ja, du hast recht.
Er hatte funktioniert, aber irgendwie ist er in der letzten Version wieder verloren gegangen. Ich kümmere mich darum.

03.11.2005 ▲