Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.515.2.6 by h677, Mon Jun 27 19:27:23 2005 UTC revision 1.515.2.7 by h677, Mon Jun 27 20:46:40 2005 UTC
# Line 560  type Line 560  type
560          SortNextColumnAction: TAction;          SortNextColumnAction: TAction;
561      SortPrevColumnAction: TAction;      SortPrevColumnAction: TAction;
562      BeLogInOutAction: TAction;      BeLogInOutAction: TAction;
563        UnSelectedListViewAction: TAction;
564                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
565                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
566                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 918  type Line 919  type
919        Stage: TCustomDrawStage; var DefaultDraw: Boolean);        Stage: TCustomDrawStage; var DefaultDraw: Boolean);
920      procedure BeLogInOutActionExecute(Sender: TObject);      procedure BeLogInOutActionExecute(Sender: TObject);
921          procedure BeLogInOutActionUpdate(Sender: TObject);          procedure BeLogInOutActionUpdate(Sender: TObject);
922        procedure UnSelectedListViewActionExecute(Sender: TObject);
923          private          private
924                  { Private 宣言 }                  { Private 宣言 }
925          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 12302  begin Line 12304  begin
12304      end;      end;
12305    
12306  end;  end;
12307    //ListViewの選択状態を解除する
12308    procedure TGikoForm.UnSelectedListViewActionExecute(Sender: TObject);
12309    begin
12310            if ListView.Selected <> nil then begin
12311                    ListView.Selected.Focused := True;
12312                    ListView.Selected := nil;
12313            end;
12314    end;
12315    
12316  initialization  initialization
12317                                  OleInitialize(nil);                                  OleInitialize(nil);

Legend:
Removed from v.1.515.2.6  
changed lines
  Added in v.1.515.2.7

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