| 540 |
ThreadlistMaxAndFocusAction: TAction; |
ThreadlistMaxAndFocusAction: TAction; |
| 541 |
BrowserMaxAndFocusAction: TAction; |
BrowserMaxAndFocusAction: TAction; |
| 542 |
UpBoardButton: TToolButton; |
UpBoardButton: TToolButton; |
| 543 |
|
SelectTimer: TTimer; |
| 544 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 545 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 546 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 869 |
procedure SetFocusForCabinetActionUpdate(Sender: TObject); |
procedure SetFocusForCabinetActionUpdate(Sender: TObject); |
| 870 |
procedure ListViewSelectItem(Sender: TObject; Item: TListItem; |
procedure ListViewSelectItem(Sender: TObject; Item: TListItem; |
| 871 |
Selected: Boolean); |
Selected: Boolean); |
| 872 |
|
procedure SelectTimerTimer(Sender: TObject); |
| 873 |
private |
private |
| 874 |
{ Private 宣言 } |
{ Private 宣言 } |
| 875 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 10294 |
if not GikoSys.Setting.BrowserTabVisible then |
if not GikoSys.Setting.BrowserTabVisible then |
| 10295 |
if Item <> nil then |
if Item <> nil then |
| 10296 |
if TObject( Item.Data ) is TThreadItem then |
if TObject( Item.Data ) is TThreadItem then |
| 10297 |
InsertBrowserTab( TThreadItem(Item.Data) ); |
SelectTimer.Enabled := True; |
| 10298 |
|
|
| 10299 |
end; |
end; |
| 10300 |
|
|
| 10301 |
|
procedure TGikoForm.SelectTimerTimer(Sender: TObject); |
| 10302 |
|
begin |
| 10303 |
|
SelectTimer.Enabled := False; |
| 10304 |
|
ListClick; |
| 10305 |
|
end; |
| 10306 |
|
|
| 10307 |
initialization |
initialization |
| 10308 |
OleInitialize(nil); |
OleInitialize(nil); |
| 10309 |
finalization |
finalization |