[Delphi]Listview omdraaien en sorten op column

[JTW]

Ik ben een programma aan het maken met een listview erin, maar nu wilde ik die laten sorteren per kolom. Dat is me ook gelukt, was simpel, maar nu het probleem:

Ik wil dus dat alle items in de listview worden omgedraaid als ik nog een keer op die kolom klik.
Ik was al zover gekomen, maar ik kan de fout niet vinden:

code:

procedure TFormPOP3.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
         //columtosort is de kolom waar je op hebt geklikt en lastcolumntosort is de
         //kolom waar je de keer ervoor op hebt geklikt
  ColumnToSort := Column.Index;
  ListView.AlphaSort;
end;


procedure TFormPOP3.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
var
  ix: Integer;
  sign: integer;
begin
  ix := columntosort-1;
  if LastColumnToSort = columntosort then begin
    if columntosort = 0 then
      Compare := sign*CompareText(Item1.Caption,Item2.Caption)
    else
      Compare := sign*CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
    if sign = 1 then
      sign := -1
    else sign := 1;
  end else begin
  if columntosort = 0 then
    Compare := CompareText(Item1.Caption,Item2.Caption)
  else
    Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
  sign := -1;
  LastColumnToSort := columntosort;
  end;
end;

Alvast bedankt

[whoami]

Wil je nu dat wij de code voor jou gaan verzinnen?

Gewoon bijhouden op welke column je laatst gesorteerd hebt.
Als er bij een column_sort de huidige columnindex == vorige columnindex, moet je de Compare-Value veranderen.

Ga eens na wat CompareText returned als Item1 > Item2 enzo.... Denk eens goed na, en met bovenstaande tip kom je er wel.

[cimbom]

HINT:


Compare := ????? * -1
of
Compare := ????? * 1

[whoami]

Ok.
Met mijn tip en die van cimbom moet het gewoon een eitje zijn om tot de oplossing te komen...

[JTW]

Ik vermenigvuldig CompareText ook met sign(waarde 1 of -1), maar dat werkt niet.
Als ik ipv dat -CompareText gebruik, kan ik 1 keer omdraaien, maar daar blijft het ook bij.

Het gaat me dus om dat sign....
Volgens mij zou het moeten werken, maar dat doet het niet....

[ Voor 36% gewijzigd door JTW op 09-07-2003 16:40 ]

[Creepy]

JTW schreef op 09 July 2003 @ 16:38:
Het gaat me dus om dat sign....
Volgens mij zou het moeten werken, maar dat doet het niet....

Je initialiseert sign niet op het moment dat je de functie begin.

offtopic:
Overigens excuses aan whoami voor het volledig uitschrijven van z'n hint

[ Voor 19% gewijzigd door Creepy op 09-07-2003 16:58 ]

[LordLarry]

En als je debugged? Wat zie je dan gebeuren? Waar gaat het niet goed?

[LordLarry]

Creepy schreef op 09 July 2003 @ 16:45:
[...]

Je initialiseert sign niet op het moment dat je de functie begin.

Ja, dat is het idd. Het is zelfs een locale variable. Daar heb je niet aan, die blijft natuurlijk altijd hetzelfde als je die functie aanroept Maak m eens globaal.

[JTW]

[stom geblaat@mij]

Creepy schreef op 09 juli 2003 @ 16:45:
[...]

Je initialiseert sign niet op het moment dat je de functie begin.

nee, maar dat doe ik hier:

code:

begin
  ix := columntosort-1;
  if LastColumnToSort = columntosort then begin
// KNIP KNIP
  end else begin
// KNIP KNIP
  sign := -1;
  LastColumnToSort := columntosort;
  end;

aangezien LastColumnToSort nooit hetzelfde kan zijn als ColumnToSort aan het begin van het programma


[/ stom geblaat@mij]

ok, stom van me
bedankt

[ Voor 9% gewijzigd door JTW op 09-07-2003 16:56 ]