Hallo DaddyH,
die ListViews für die ich diese Lösung brauche befinden sich in Frames verschiedener Fenster.
Zunächst will ich die Aufgabe aber mit meinem kleinen Beispielprogramm lösen, hier hab ich nur eine ListView.
Für mein Beispielprogramm hab ich nun eine neue
Unit ListeSortieren erstellt(sie ist von Thomas Stutz, swissdelphicenter.ch) und diese in meiner
Unit LVT unter uses eingebunden. Leider funktioniert die Sortierung nicht wie gewünscht.
Muß der Aufruf jetzt vielleicht anders lauten, oder muss ich in der
Unit ListeSortieren die "function CustomSortProc(Item1,..." anders deklarieren?
Gruß okoeller
Delphi-Quellcode:
unit ListeSortieren;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TCustomSortStyle = (cssAlphaNum, cssNumeric, cssDateTime);
function CustomSortProc(Item1, Item2: TListItem; SortColumn: Integer): Integer;
stdcall;
var
{ variable to hold the sort style }
LvSortStyle: TCustomSortStyle;
{ array to hold the sort order }
LvSortOrder:
array[0..4]
of Boolean;
// High[LvSortOrder] = Number of Lv Columns
implementation
function CustomSortProc(Item1, Item2: TListItem; SortColumn: Integer): Integer;
stdcall;
var
s1, s2:
string;
i1, i2: Integer;
r1, r2: Boolean;
d1, d2: TDateTime;
{ Helper functions }
. . .