| 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); |
| 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; |
| 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); |