| 21 |
FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan, |
FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan, |
| 22 |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil, |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil, |
| 23 |
IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain, |
IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain, |
| 24 |
StdActns, GikoXMLDoc; |
StdActns, GikoXMLDoc, Variants; |
| 25 |
|
|
| 26 |
type |
type |
| 27 |
TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite); |
TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite); |
| 536 |
SetFocusForBrowserAction: TAction; |
SetFocusForBrowserAction: TAction; |
| 537 |
SetFocusForThreadListAction: TAction; |
SetFocusForThreadListAction: TAction; |
| 538 |
SetFocusForCabinetAction: TAction; |
SetFocusForCabinetAction: TAction; |
| 539 |
|
test1: TMenuItem; |
| 540 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 541 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 542 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 859 |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
| 860 |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
| 861 |
procedure SetFocusForCabinetActionExecute(Sender: TObject); |
procedure SetFocusForCabinetActionExecute(Sender: TObject); |
| 862 |
|
procedure test1Click(Sender: TObject); |
| 863 |
private |
private |
| 864 |
{ Private 宣言 } |
{ Private 宣言 } |
| 865 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 922 |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
| 923 |
FMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
FMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
| 924 |
FBrowsers: TList; |
FBrowsers: TList; |
| 925 |
|
FOleInPlaceActiveObject: IOleInPlaceActiveObject; //ここに必要らしい |
| 926 |
procedure SetBoardTreeNode( inBBS : TBBS ); |
procedure SetBoardTreeNode( inBBS : TBBS ); |
| 927 |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
| 928 |
function SetBoardListItem(Category: TCategory): Integer; |
function SetBoardListItem(Category: TCategory): Integer; |
| 1211 |
Application.OnDeactivate := AppFormDeactivate; |
Application.OnDeactivate := AppFormDeactivate; |
| 1212 |
Self.OnDeactivate := AppFormDeactivate; |
Self.OnDeactivate := AppFormDeactivate; |
| 1213 |
Application.HookMainWindow(Hook); |
Application.HookMainWindow(Hook); |
| 1214 |
//Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ |
Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ |
| 1215 |
|
|
| 1216 |
FTreeType := gttNone; |
FTreeType := gttNone; |
| 1217 |
|
|
| 1218 |
FSearchDialog := nil; |
FSearchDialog := nil; |
| 1219 |
BrowserNullTab := TBrowserRecord.Create; |
BrowserNullTab := TBrowserRecord.Create; |
| 1220 |
BrowserNullTab.Browser := Browser; |
BrowserNullTab.Browser := Browser; |
| 1221 |
BrowserNullTab.Browser.Navigate(BLANK_HTML); |
BrowserNullTab.Browser.Navigate(BLANK_HTML); |
| 1222 |
FBrowsers := TList.Create; |
FBrowsers := TList.Create; |
| 1223 |
for i := 0 to 4 do begin |
for i := 0 to 4 do begin |
| 1224 |
newBrowser := TWebBrowser.Create(nil); |
newBrowser := TWebBrowser.Create(nil); |
| 1231 |
newBrowser.OnStatusTextChange := BrowserStatusTextChange; |
newBrowser.OnStatusTextChange := BrowserStatusTextChange; |
| 1232 |
newBrowser.OnTitleChange := BrowserTitleChange; |
newBrowser.OnTitleChange := BrowserTitleChange; |
| 1233 |
newBrowser.Navigate(BLANK_HTML); |
newBrowser.Navigate(BLANK_HTML); |
| 1234 |
TOleControl(newBrowser).Visible := false; |
//TOleControl(newBrowser).Visible := false; |
| 1235 |
|
ShowWindow(newBrowser.Handle, SW_HIDE); |
| 1236 |
FBrowsers.Add(newBrowser); |
FBrowsers.Add(newBrowser); |
| 1237 |
end; |
end; |
| 1238 |
|
BrowserNullTab.Browser.BringToFront; |
| 1239 |
|
ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW); |
| 1240 |
|
|
| 1241 |
// 起動時に保存されてしまう対策 |
// 起動時に保存されてしまう対策 |
| 1242 |
FIsIgnoreResize := True; |
FIsIgnoreResize := True; |
| 2492 |
buf: string; |
buf: string; |
| 2493 |
PathRec: TPathRec; |
PathRec: TPathRec; |
| 2494 |
begin |
begin |
| 2495 |
|
if not( TObject(Sender) is TWebBrowser )then |
| 2496 |
|
Exit; |
| 2497 |
try |
try |
| 2498 |
try |
try |
| 2499 |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) and (Assigned(FActiveContent.Browser.Document)) then begin |
if (TWebBrowser(Sender) <> nil) and (not TWebBrowser(Sender).Busy) and (Assigned(TWebBrowser(Sender).Document)) then begin |
| 2500 |
while (FActiveContent.Browser.ReadyState <> READYSTATE_COMPLETE) and |
if LowerCase(OleVariant(IHTMLDocument2(TWebBrowser(Sender).Document)).charset) <> 'shift_jis' then begin |
| 2501 |
(FActiveContent.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
OleVariant(IHTMLDocument2(TWebBrowser(Sender).Document)).charset := 'shift_jis'; |
|
Application.ProcessMessages; |
|
|
end; |
|
|
if LowerCase(OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).charset) <> 'shift_jis' then begin |
|
|
OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).charset := 'shift_jis'; |
|
| 2502 |
end; |
end; |
| 2503 |
end; |
end; |
| 2504 |
except |
except |
| 2538 |
ShowWindow(FPreviewBrowser.Handle, SW_HIDE); |
ShowWindow(FPreviewBrowser.Handle, SW_HIDE); |
| 2539 |
TOleControl(FPreviewBrowser).Parent := nil; |
TOleControl(FPreviewBrowser).Parent := nil; |
| 2540 |
end; |
end; |
| 2541 |
FPreviewBrowser.Navigate('about:blank');//前回のプレビュー画像消去用 |
FPreviewBrowser.Navigate(BLANK_HTML);//前回のプレビュー画像消去用 |
| 2542 |
FPreviewURL := Text; |
FPreviewURL := Text; |
| 2543 |
PreviewTimer.Interval := GikoSys.Setting.PreviewWait; |
PreviewTimer.Interval := GikoSys.Setting.PreviewWait; |
| 2544 |
PreviewTimer.Enabled := True; |
PreviewTimer.Enabled := True; |
| 3281 |
newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes; |
newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes; |
| 3282 |
|
|
| 3283 |
BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
| 3284 |
|
BrowserTab.Repaint; |
| 3285 |
if ActiveTab then begin |
if ActiveTab then begin |
| 3286 |
BrowserTab.TabIndex := 0; |
BrowserTab.TabIndex := 0; |
| 3287 |
end; |
end; |
| 3306 |
newBrowser.Repaint := true; |
newBrowser.Repaint := true; |
| 3307 |
|
|
| 3308 |
i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
| 3309 |
|
BrowserTab.Repaint; |
| 3310 |
if ActiveTab then begin |
if ActiveTab then begin |
| 3311 |
BrowserTab.TabIndex := i; |
BrowserTab.TabIndex := i; |
| 3312 |
end; |
end; |
| 3323 |
BrowserTab.TabIndex := -1; |
BrowserTab.TabIndex := -1; |
| 3324 |
SetContent(BrowserNullTab); |
SetContent(BrowserNullTab); |
| 3325 |
end; |
end; |
| 3326 |
BrowserTab.Repaint; |
|
| 3327 |
if GikoSys.Setting.URLDisplay then |
if GikoSys.Setting.URLDisplay then |
| 3328 |
AddressComboBox.Text := ThreadItem.URL; |
AddressComboBox.Text := ThreadItem.URL; |
| 3329 |
|
|
| 3340 |
// OldCursor: TCursor; |
// OldCursor: TCursor; |
| 3341 |
i: Integer; |
i: Integer; |
| 3342 |
url: OleVariant; |
url: OleVariant; |
| 3343 |
|
idx: Integer; |
| 3344 |
begin |
begin |
| 3345 |
|
idx := BrowserTab.TabIndex; |
| 3346 |
if (FActiveContent <> nil) and |
if (FActiveContent <> nil) and |
| 3347 |
(FActiveContent.Thread <> inThread.Thread) and |
(FActiveContent.Thread <> inThread.Thread) and |
| 3348 |
(Assigned(FActiveContent.Browser.Document)) then begin |
(Assigned(FActiveContent.Browser.Document)) then begin |
| 3369 |
BrowserNameLabel.Caption := ''; |
BrowserNameLabel.Caption := ''; |
| 3370 |
ItemImage.Picture := nil; |
ItemImage.Picture := nil; |
| 3371 |
BrowserNullTab.Thread := nil; |
BrowserNullTab.Thread := nil; |
| 3372 |
TOleControl(BrowserNullTab.Browser).Visible := true; |
//TOleControl(BrowserNullTab.Browser).Visible := true; |
| 3373 |
|
ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW); |
| 3374 |
FActiveContent := nil; |
FActiveContent := nil; |
| 3375 |
Exit; |
Exit; |
| 3376 |
end else if inThread.Browser = nil then begin |
end else if inThread.Browser = nil then begin |
| 3390 |
FBrowsers.Move(4, 0); |
FBrowsers.Move(4, 0); |
| 3391 |
end; |
end; |
| 3392 |
|
|
|
|
|
| 3393 |
BBSID := inThread.FThread.ParentBoard.BBSID; |
BBSID := inThread.FThread.ParentBoard.BBSID; |
| 3394 |
FileName := inThread.FThread.FileName; |
FileName := inThread.FThread.FileName; |
| 3395 |
|
|
| 3403 |
if inThread.FThread.ParentBoard.UnRead < 0 then inThread.FThread.ParentBoard.UnRead := 0; |
if inThread.FThread.ParentBoard.UnRead < 0 then inThread.FThread.ParentBoard.UnRead := 0; |
| 3404 |
TreeView.Refresh; |
TreeView.Refresh; |
| 3405 |
end; |
end; |
|
if(FActiveContent <> nil) and (FActiveContent <> inThread) then begin |
|
|
if (FActiveContent.Browser <> BrowserNullTab.Browser) and |
|
|
(TOleControl(FActiveContent.Browser).Visible) then |
|
|
TOleControl(FActiveContent.Browser).Visible := false; |
|
|
end; |
|
| 3406 |
LockWindowUpdate(Self.Handle); |
LockWindowUpdate(Self.Handle); |
| 3407 |
if not TOleControl(inThread.FBrowser).Visible then |
ShowWindow(inThread.FBrowser.Handle, SW_SHOW); |
|
TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる |
|
| 3408 |
LockWindowUpdate(0); |
LockWindowUpdate(0); |
| 3409 |
if (not Assigned(inThread.Browser.Document)) then begin |
if (not Assigned(inThread.Browser.Document)) then begin |
| 3410 |
inThread.Browser.Navigate('about:blank'); |
inThread.Browser.Navigate('about:blank'); |
| 3411 |
end; |
end; |
| 3412 |
if inThread.Browser <> BrowserNullTab.Browser then begin |
//if inThread.Browser <> BrowserNullTab.Browser then begin |
| 3413 |
while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and |
while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and |
| 3414 |
(inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
(inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
| 3415 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 3416 |
|
if idx <> BrowserTab.TabIndex then begin |
| 3417 |
|
BrowserTab.OnChange(nil); |
| 3418 |
|
Exit; |
| 3419 |
|
end; |
| 3420 |
end; |
end; |
| 3421 |
end; |
//end; |
| 3422 |
|
|
| 3423 |
if not inThread.FThread.IsLogFile then begin |
if not inThread.FThread.IsLogFile then begin |
| 3424 |
try |
try |
| 3425 |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
| 3426 |
doc := Idispatch( olevariant(BrowserNullTab.Browser.ControlInterface).Document) as IHTMLDocument2; |
doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2; |
| 3427 |
doc.open; |
doc.open; |
| 3428 |
doc.charset := 'Shift_JIS'; |
doc.charset := 'Shift_JIS'; |
| 3429 |
doc.Write(s); |
doc.Write(s); |
| 3464 |
inThread.FThread.UnRead := False; |
inThread.FThread.UnRead := False; |
| 3465 |
ListView.Refresh; |
ListView.Refresh; |
| 3466 |
end; |
end; |
| 3467 |
|
if(FActiveContent <> nil) and (FActiveContent <> inThread) then begin |
| 3468 |
|
if (FActiveContent.Browser <> BrowserNullTab.Browser) then |
| 3469 |
|
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE); |
| 3470 |
|
end; |
| 3471 |
FActiveContent := inThread; |
FActiveContent := inThread; |
| 3472 |
|
|
| 3473 |
BrowserBoardNameLabel.Caption := inThread.FThread.ParentBoard.Title; |
BrowserBoardNameLabel.Caption := inThread.FThread.ParentBoard.Title; |
| 5238 |
end; |
end; |
| 5239 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free; |
| 5240 |
BrowserTab.Tabs.Delete(i); |
BrowserTab.Tabs.Delete(i); |
| 5241 |
if idx >= i then begin |
if idx > i then begin |
| 5242 |
if idx > (BrowserTab.Tabs.Count - 1) then |
BrowserTab.TabIndex := idx - 1; |
|
BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1 |
|
|
else if (idx = 0) and (BrowserTab.Tabs.Count > 0) then |
|
|
BrowserTab.TabIndex := 0 |
|
|
else |
|
|
BrowserTab.TabIndex := idx - 1; |
|
| 5243 |
end else begin |
end else begin |
| 5244 |
BrowserTab.TabIndex := idx; |
if BrowserTab.Tabs.Count -1 >= idx then |
| 5245 |
|
BrowserTab.TabIndex := idx |
| 5246 |
|
else |
| 5247 |
|
BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1; |
| 5248 |
end; |
end; |
| 5249 |
if BrowserTab.Tabs.Count = 0 then begin |
if BrowserTab.Tabs.Count = 0 then begin |
| 5250 |
BrowserNullTab.Thread := nil; |
BrowserNullTab.Thread := nil; |
| 5301 |
end; |
end; |
| 5302 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free; |
| 5303 |
BrowserTab.Tabs.Delete(i); |
BrowserTab.Tabs.Delete(i); |
| 5304 |
if idx >= i then begin |
if idx > i then begin |
| 5305 |
if idx > (BrowserTab.Tabs.Count - 1) then |
BrowserTab.TabIndex := idx - 1; |
|
BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1 |
|
|
else if (idx = 0) and (BrowserTab.Tabs.Count > 0) then |
|
|
BrowserTab.TabIndex := 0 |
|
|
else |
|
|
BrowserTab.TabIndex := idx - 1; |
|
| 5306 |
end else begin |
end else begin |
| 5307 |
BrowserTab.TabIndex := idx; |
if BrowserTab.Tabs.Count -1 >= idx then |
| 5308 |
|
BrowserTab.TabIndex := idx |
| 5309 |
|
else |
| 5310 |
|
BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1; |
| 5311 |
end; |
end; |
| 5312 |
if(BrowserTab.TabIndex <> -1) and |
if(BrowserTab.TabIndex <> -1) and |
| 5313 |
( TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser = nil) then begin |
( TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser = nil) then begin |
| 5889 |
begin |
begin |
| 5890 |
|
|
| 5891 |
// if NewTab = -1 then |
// if NewTab = -1 then |
| 5892 |
ThreadItem := nil; |
// ThreadItem := nil; |
| 5893 |
if not BrowserTab.Dragging then begin |
if not BrowserTab.Dragging then begin |
| 5894 |
FTabHintIndex := -1; |
FTabHintIndex := -1; |
| 5895 |
BrowserTab.Hint := ''; |
BrowserTab.Hint := ''; |
| 5912 |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
| 5913 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[4]) then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[4]) then begin |
| 5914 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser := nil; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser := nil; |
| 5915 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
| 5916 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent <> nil then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent <> nil then begin |
| 5917 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent.Free; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent.Free; |
| 5918 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent := nil; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent := nil; |
| 6098 |
begin |
begin |
| 6099 |
// AddMessageList('DocumentComplete', nil); |
// AddMessageList('DocumentComplete', nil); |
| 6100 |
if TObject(Sender) is TWebBrowser then begin |
if TObject(Sender) is TWebBrowser then begin |
| 6101 |
BrowserRecord := nil; |
if TWebBrowser(Sender) <> Browser then begin |
| 6102 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
BrowserRecord := nil; |
| 6103 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(Sender) then begin |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 6104 |
BrowserRecord := TBrowserRecord(BrowserTab.Tabs.Objects[i]); |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(Sender) then begin |
| 6105 |
break; |
BrowserRecord := TBrowserRecord(BrowserTab.Tabs.Objects[i]); |
| 6106 |
|
break; |
| 6107 |
|
end; |
| 6108 |
end; |
end; |
| 6109 |
end; |
if BrowserRecord <> nil then begin |
| 6110 |
if BrowserRecord <> nil then begin |
if BrowserRecord.FEvent <> nil then |
| 6111 |
if BrowserRecord.FEvent <> nil then |
BrowserRecord.FEvent.Free; |
| 6112 |
BrowserRecord.FEvent.Free; |
FDispHtmlDocument := Idispatch(OleVariant(BrowserRecord.Browser.ControlInterface).Document) as DispHTMLDocument; |
| 6113 |
FDispHtmlDocument := Idispatch(OleVariant(BrowserRecord.Browser.ControlInterface).Document) as DispHTMLDocument; |
BrowserRecord.FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2); |
| 6114 |
BrowserRecord.FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2); |
BrowserRecord.FEvent.OnContextMenu := OnDocumentContextMenu; |
| 6115 |
BrowserRecord.FEvent.OnContextMenu := OnDocumentContextMenu; |
BrowserRecord.FEvent.OnClick := WebBrowserClick; //追加したOnClickイベント |
| 6116 |
BrowserRecord.FEvent.OnClick := WebBrowserClick; //追加したOnClickイベント |
end; |
| 6117 |
|
end else begin |
| 6118 |
|
FDispHtmlDocument := Idispatch(OleVariant(Browser.ControlInterface).Document) as DispHTMLDocument; |
| 6119 |
|
if FEvent <> nil then |
| 6120 |
|
FEvent.Free; |
| 6121 |
|
FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2); |
| 6122 |
|
FEvent.OnContextMenu := OnDocumentContextMenu; |
| 6123 |
|
FEvent.OnClick := WebBrowserClick; //追加したOnClickイベント |
| 6124 |
end; |
end; |
| 6125 |
end; |
end; |
| 6126 |
end; |
end; |
| 8912 |
FavoriteTreeViewDeleteActionExecute( Sender ); |
FavoriteTreeViewDeleteActionExecute( Sender ); |
| 8913 |
end; |
end; |
| 8914 |
VK_RETURN: |
VK_RETURN: |
| 8915 |
|
begin |
| 8916 |
FavoriteClick( FavoriteTreeView.Selected ); |
FavoriteClick( FavoriteTreeView.Selected ); |
| 8917 |
|
FavoriteTreeView.Selected.Expanded := not FavoriteTreeView.Selected.Expanded; |
| 8918 |
|
end; |
| 8919 |
VK_SPACE: |
VK_SPACE: |
| 8920 |
FavoriteTreeViewDblClick( Sender ); |
FavoriteTreeViewDblClick( Sender ); |
| 8921 |
end; |
end; |
| 9900 |
TreeDoubleClick( TreeView.Selected ); |
TreeDoubleClick( TreeView.Selected ); |
| 9901 |
end else if Key = VK_RETURN then begin |
end else if Key = VK_RETURN then begin |
| 9902 |
TreeClick( TreeView.Selected ); |
TreeClick( TreeView.Selected ); |
| 9903 |
|
TreeView.Selected.Expanded := not TreeView.Selected.Expanded; |
| 9904 |
end; |
end; |
| 9905 |
end; |
end; |
| 9906 |
|
|
| 9940 |
|
|
| 9941 |
// ギコナビのメッセージループを横取りします |
// ギコナビのメッセージループを横取りします |
| 9942 |
procedure TGikoForm.HandleAppMessage(var Msg: TMsg; var Handled: Boolean); |
procedure TGikoForm.HandleAppMessage(var Msg: TMsg; var Handled: Boolean); |
| 9943 |
|
|
| 9944 |
var |
var |
| 9945 |
key : Word; |
key : Word; |
| 9946 |
begin |
begin |
| 9947 |
{ |
{ case Msg.message of |
|
case Msg.message of |
|
| 9948 |
WM_KEYDOWN: |
WM_KEYDOWN: |
| 9949 |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
| 9950 |
if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin |
if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin |
| 9968 |
XBUTTON2: |
XBUTTON2: |
| 9969 |
end; |
end; |
| 9970 |
end; |
end; |
| 9971 |
} |
}end; |
|
end; |
|
| 9972 |
|
|
| 9973 |
procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject; |
procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject; |
| 9974 |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 10052 |
doc := Idispatch( olevariant(Self.FBrowser.ControlInterface).Document) as IHTMLDocument2; |
doc := Idispatch( olevariant(Self.FBrowser.ControlInterface).Document) as IHTMLDocument2; |
| 10053 |
Self.Thread.ScrollTop := doc.Body.ScrollTop; |
Self.Thread.ScrollTop := doc.Body.ScrollTop; |
| 10054 |
end; |
end; |
| 10055 |
TOleControl(Self.FBrowser).Visible := false; |
//TOleControl(Self.FBrowser).Visible := false; |
| 10056 |
|
ShowWindow(Self.FBrowser.Handle, SW_HIDE); |
| 10057 |
end; |
end; |
| 10058 |
|
|
| 10059 |
end; |
end; |
| 10103 |
TreeView.SetFocus; |
TreeView.SetFocus; |
| 10104 |
end; |
end; |
| 10105 |
|
|
| 10106 |
|
procedure TGikoForm.test1Click(Sender: TObject); |
| 10107 |
|
begin |
| 10108 |
|
// FActiveContent.FBrowser.OleObject.Document.Body.Style.zoom := 1.5; |
| 10109 |
|
// newBrowser.OleObject.Document.Body.Style.zoom := 1.5; |
| 10110 |
|
BrowserNullTab.FBrowser.Navigate('http://8547.teacup.com/chigakubu/bbs/'); |
| 10111 |
|
end; |
| 10112 |
|
|
| 10113 |
initialization |
initialization |
| 10114 |
OleInitialize(nil); |
OleInitialize(nil); |
| 10115 |
finalization |
finalization |