Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Round.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.20 by h677, Tue Aug 23 15:41:59 2005 UTC revision 1.21 by h677, Thu Nov 3 03:16:40 2005 UTC
# Line 272  procedure TRoundDialog.RoundNameComboBox Line 272  procedure TRoundDialog.RoundNameComboBox
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);
# Line 362  end; Line 362  end;
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,

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26