Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 1881 |
// |
// |
| 1882 |
// |
// |
| 1883 |
procedure TGikoForm.FormShow(Sender: TObject); |
procedure TGikoForm.FormShow(Sender: TObject); |
|
var |
|
|
i :Integer; |
|
| 1884 |
begin |
begin |
| 1885 |
if FStartUp then begin |
if FStartUp then begin |
| 1886 |
ShowWindow(Application.Handle, SW_HIDE); |
ShowWindow(Application.Handle, SW_HIDE); |
| 10914 |
end; |
end; |
| 10915 |
|
|
| 10916 |
procedure TGikoForm.SetFocusForThreadListActionExecute(Sender: TObject); |
procedure TGikoForm.SetFocusForThreadListActionExecute(Sender: TObject); |
|
var |
|
|
rct: TRect; |
|
| 10917 |
begin |
begin |
| 10918 |
if FActiveContent <> nil then |
if FActiveContent <> nil then |
| 10919 |
WebBrowserClick(FActiveContent.Browser); //一回Browserに当てないと動かないときがある |
WebBrowserClick(FActiveContent.Browser); //一回Browserに当てないと動かないときがある |
|
|
Legend:
| Removed from v.1.515.2.9 |
|
| changed lines |
| |
Added in v.1.515.2.10 |
|
|
|