| 272 |
begin |
begin |
| 273 |
//カラムのソート記号イメージを解除する |
//カラムのソート記号イメージを解除する |
| 274 |
if FColumnToSort > -1 then |
if FColumnToSort > -1 then |
| 275 |
(Sender as TCustomListView).Column[FColumnToSort].ImageIndex := -1; |
RoundListView.Column[FColumnToSort].ImageIndex := -1; |
| 276 |
FColumnToSort := -1; |
FColumnToSort := -1; |
|
|
|
| 277 |
if RoundNameComboBox.ItemIndex = 0 then |
if RoundNameComboBox.ItemIndex = 0 then |
| 278 |
SetRoundItem('') |
SetRoundItem('') |
| 279 |
else |
else |
| 280 |
SetRoundItem(RoundNameComboBox.Items[RoundNameComboBox.itemIndex]); |
SetRoundItem(RoundNameComboBox.Items[RoundNameComboBox.itemIndex]); |
| 281 |
|
|
| 282 |
end; |
end; |
| 283 |
|
|
| 284 |
procedure TRoundDialog.SetRoundItem(RoundName: string); |
procedure TRoundDialog.SetRoundItem(RoundName: string); |
| 362 |
procedure TRoundDialog.RoundListViewColumnClick(Sender: TObject; |
procedure TRoundDialog.RoundListViewColumnClick(Sender: TObject; |
| 363 |
Column: TListColumn); |
Column: TListColumn); |
| 364 |
begin |
begin |
| 365 |
if FColumnToSort > -1 then |
if (Sender is TCustomListView) then begin |
|
(Sender as TCustomListView).Column[FColumnToSort].ImageIndex := -1; |
|
| 366 |
|
|
| 367 |
if FColumnToSort = Column.Index then |
if FColumnToSort > -1 then |
| 368 |
FSortOrder := not FSortOrder |
(Sender as TCustomListView).Column[FColumnToSort].ImageIndex := -1; |
|
else |
|
|
FSortOrder := false; |
|
| 369 |
|
|
| 370 |
if FSortOrder then |
if FColumnToSort = Column.Index then |
| 371 |
Column.ImageIndex := 3 |
FSortOrder := not FSortOrder |
| 372 |
else |
else |
| 373 |
Column.ImageIndex := 2; |
FSortOrder := false; |
| 374 |
|
|
| 375 |
|
if FSortOrder then |
| 376 |
|
Column.ImageIndex := 3 |
| 377 |
|
else |
| 378 |
|
Column.ImageIndex := 2; |
| 379 |
|
|
| 380 |
FColumnToSort := Column.Index; |
FColumnToSort := Column.Index; |
| 381 |
(Sender as TCustomListView).AlphaSort; |
(Sender as TCustomListView).AlphaSort; |
| 382 |
|
end; |
| 383 |
end; |
end; |
| 384 |
|
|
| 385 |
procedure TRoundDialog.RoundListViewCompare(Sender: TObject; Item1, |
procedure TRoundDialog.RoundListViewCompare(Sender: TObject; Item1, |