| 536 |
SetFocusForBrowserAction: TAction; |
SetFocusForBrowserAction: TAction; |
| 537 |
SetFocusForThreadListAction: TAction; |
SetFocusForThreadListAction: TAction; |
| 538 |
SetFocusForCabinetAction: TAction; |
SetFocusForCabinetAction: TAction; |
|
test1: TMenuItem; |
|
| 539 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 540 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 541 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 858 |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
| 859 |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
| 860 |
procedure SetFocusForCabinetActionExecute(Sender: TObject); |
procedure SetFocusForCabinetActionExecute(Sender: TObject); |
|
procedure test1Click(Sender: TObject); |
|
| 861 |
private |
private |
| 862 |
{ Private 宣言 } |
{ Private 宣言 } |
| 863 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 10101 |
TreeView.SetFocus; |
TreeView.SetFocus; |
| 10102 |
end; |
end; |
| 10103 |
|
|
|
procedure TGikoForm.test1Click(Sender: TObject); |
|
|
begin |
|
|
// FActiveContent.FBrowser.OleObject.Document.Body.Style.zoom := 1.5; |
|
|
// newBrowser.OleObject.Document.Body.Style.zoom := 1.5; |
|
|
BrowserNullTab.FBrowser.Navigate('http://8547.teacup.com/chigakubu/bbs/'); |
|
|
end; |
|
|
|
|
| 10104 |
initialization |
initialization |
| 10105 |
OleInitialize(nil); |
OleInitialize(nil); |
| 10106 |
finalization |
finalization |