+procedure TRoundDialog.RoundListViewColumnClick(Sender: TObject;
+ Column: TListColumn);
+begin
+ if (Sender is TCustomListView) then begin
+
+ if FColumnToSort > -1 then
+ (Sender as TCustomListView).Column[FColumnToSort].ImageIndex := -1;
+
+ if FColumnToSort = Column.Index then
+ FSortOrder := not FSortOrder
+ else
+ FSortOrder := false;
+
+ if FSortOrder then
+ Column.ImageIndex := 3
+ else
+ Column.ImageIndex := 2;
+
+ FColumnToSort := Column.Index;
+ (Sender as TCustomListView).AlphaSort;
+ end;
+end;
+
+procedure TRoundDialog.RoundListViewCompare(Sender: TObject; Item1,
+ Item2: TListItem; Data: Integer; var Compare: Integer);
+var
+ ix: Integer;
+begin
+ if FColumnToSort = 0 then begin
+ if not FSortOrder then begin
+ Compare := CompareText(Item1.Caption,Item2.Caption);
+ if Compare = 0 then
+ Compare := CompareValue(Item1.ImageIndex, item2.ImageIndex);
+ end else begin
+ Compare := -CompareText(Item1.Caption,Item2.Caption);
+ if Compare = 0 then
+ Compare := -CompareValue(Item1.ImageIndex,item2.ImageIndex);
+ end;
+ end else begin
+ ix := FColumnToSort - 1;
+ if not FSortOrder then begin
+ Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
+ if Compare = 0 then
+ Compare := CompareValue(Item1.ImageIndex, item2.ImageIndex);
+ end else begin
+ Compare := -CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
+ if Compare = 0 then
+ Compare := -CompareValue(Item1.ImageIndex, item2.ImageIndex);
+ end;
+ end;
+end;
+(*
+* \83J\83\89\83\80\8fã\82Å\89E\83N\83\8a\83b\83N\82µ\82½\82ç\83\\81[\83g\82ð\89ð\8f\9c\82µ\82Ä\8f\89\8aú\8fó\91Ô\82É\96ß\82·
+*)
+procedure TRoundDialog.RoundListViewColumnRightClick(Sender: TObject;
+ Column: TListColumn; Point: TPoint);
+begin
+ RoundNameComboBox.OnChange(Sender);
+end;
+