| 851 |
procedure TreeSelectNameCopyExecute(Sender: TObject); |
procedure TreeSelectNameCopyExecute(Sender: TObject); |
| 852 |
procedure FavoriteTreeViewMouseUp(Sender: TObject; |
procedure FavoriteTreeViewMouseUp(Sender: TObject; |
| 853 |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
|
procedure ThreadPanelResize(Sender: TObject); |
|
| 854 |
procedure OnlyAHundredResUpdate(Sender: TObject); |
procedure OnlyAHundredResUpdate(Sender: TObject); |
| 855 |
procedure test1Click(Sender: TObject); |
procedure test1Click(Sender: TObject); |
| 856 |
private |
private |
| 872 |
FBrowserSizeWidth: Integer; |
FBrowserSizeWidth: Integer; |
| 873 |
|
|
| 874 |
// FFavorite: TFavorite; |
// FFavorite: TFavorite; |
|
FBrowserComplete: Boolean; |
|
| 875 |
FTabHintIndex: Integer; |
FTabHintIndex: Integer; |
| 876 |
FListStyle: TViewStyle; //リストアイコンスタイル |
FListStyle: TViewStyle; //リストアイコンスタイル |
| 877 |
FItemNoVisible: Boolean; //リスト番号表示フラグ |
FItemNoVisible: Boolean; //リスト番号表示フラグ |
| 914 |
FOldFormWidth : Integer; // 直前のウィンドウの幅 |
FOldFormWidth : Integer; // 直前のウィンドウの幅 |
| 915 |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
| 916 |
FMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
FMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
|
FNewBrowserCount: Integer; |
|
| 917 |
FBrowsers: TList; |
FBrowsers: TList; |
| 918 |
procedure SetBoardTreeNode( inBBS : TBBS ); |
procedure SetBoardTreeNode( inBBS : TBBS ); |
| 919 |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
| 1210 |
FSearchDialog := nil; |
FSearchDialog := nil; |
| 1211 |
BrowserNullTab := TBrowserRecord.Create; |
BrowserNullTab := TBrowserRecord.Create; |
| 1212 |
BrowserNullTab.Browser := Browser; |
BrowserNullTab.Browser := Browser; |
|
FNewBrowserCount := 0; |
|
| 1213 |
FBrowsers := TList.Create; |
FBrowsers := TList.Create; |
| 1214 |
for i := 0 to 4 do begin |
for i := 0 to 4 do begin |
| 1215 |
newBrowser := TWebBrowser.Create(nil); |
newBrowser := TWebBrowser.Create(nil); |
| 1216 |
TOleControl(newBrowser).Parent := BrowserPanel; |
TOleControl(newBrowser).Parent := BrowserPanel; |
| 1217 |
TOleControl(newBrowser).Align := alClient; |
TOleControl(newBrowser).Align := alClient; |
|
newBrowser.Navigate(BLANK_HTML); |
|
| 1218 |
newBrowser.OnDocumentComplete := BrowserDocumentComplete; |
newBrowser.OnDocumentComplete := BrowserDocumentComplete; |
| 1219 |
newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2; |
newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2; |
| 1220 |
newBrowser.OnEnter := BrowserEnter; |
newBrowser.OnEnter := BrowserEnter; |
| 1221 |
newBrowser.OnNewWindow2 := BrowserNewWindow2; |
newBrowser.OnNewWindow2 := BrowserNewWindow2; |
| 1222 |
newBrowser.OnStatusTextChange := BrowserStatusTextChange; |
newBrowser.OnStatusTextChange := BrowserStatusTextChange; |
| 1223 |
newBrowser.OnTitleChange := BrowserTitleChange; |
newBrowser.OnTitleChange := BrowserTitleChange; |
| 1224 |
|
newBrowser.Navigate(BLANK_HTML); |
| 1225 |
TOleControl(newBrowser).Visible := false; |
TOleControl(newBrowser).Visible := false; |
| 1226 |
FBrowsers.Add(newBrowser); |
FBrowsers.Add(newBrowser); |
| 1227 |
end; |
end; |
| 2483 |
begin |
begin |
| 2484 |
try |
try |
| 2485 |
try |
try |
| 2486 |
if (FActiveContent <> nil) and (Assigned(TWebBrowser(Sender).Document)) then begin |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) and (Assigned(FActiveContent.Browser.Document)) then begin |
| 2487 |
// if LowerCase(OleVariant(IHTMLDocument2(TWebBrowser(Sender).Document)).charset) <> 'shift_jis' then |
if LowerCase(OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).charset) <> 'shift_jis' then begin |
| 2488 |
// OleVariant(IHTMLDocument2(TWebBrowser(Sender).Document)).charset := 'shift_jis'; |
OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).charset := 'shift_jis'; |
| 2489 |
|
end; |
| 2490 |
end; |
end; |
| 2491 |
except |
except |
| 2492 |
end; |
end; |
| 3221 |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3222 |
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[4]) then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[4]) then begin |
| 3223 |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil; |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil; |
| 3224 |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin |
| 3225 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free; |
| 3226 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil; |
| 3227 |
|
end; |
| 3228 |
break; |
break; |
| 3229 |
end; |
end; |
| 3230 |
end; |
end; |
| 3231 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser := TWebBrowser(FBrowsers[4]); |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser := TWebBrowser(FBrowsers[4]); |
| 3232 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
| 3233 |
FBrowsers.Move(4, 0); |
FBrowsers.Move(4, 0); |
| 3234 |
end; |
end; |
| 3235 |
if ActiveTab then begin |
if ActiveTab then begin |
| 3247 |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3248 |
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[4]) then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[4]) then begin |
| 3249 |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil; |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil; |
| 3250 |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin |
| 3251 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free; |
| 3252 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil; |
| 3253 |
|
end; |
| 3254 |
break; |
break; |
| 3255 |
end; |
end; |
| 3256 |
end; |
end; |
| 3270 |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3271 |
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[4]) then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[4]) then begin |
| 3272 |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil; |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil; |
| 3273 |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin |
| 3274 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free; |
| 3275 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil; |
| 3276 |
|
end; |
| 3277 |
break; |
break; |
| 3278 |
end; |
end; |
| 3279 |
end; |
end; |
| 3318 |
s: string; |
s: string; |
| 3319 |
// OldCursor: TCursor; |
// OldCursor: TCursor; |
| 3320 |
i: Integer; |
i: Integer; |
| 3321 |
|
url: OleVariant; |
| 3322 |
begin |
begin |
| 3323 |
if (FActiveContent <> nil) and |
if (FActiveContent <> nil) and |
| 3324 |
(FActiveContent.Thread <> inThread.Thread) and |
(FActiveContent.Thread <> inThread.Thread) and |
| 3343 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3344 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = TWebBrowser(FBrowsers[4]) then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = TWebBrowser(FBrowsers[4]) then begin |
| 3345 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser := nil; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser := nil; |
| 3346 |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent <> nil then begin |
| 3347 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent.Free; |
| 3348 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent := nil; |
| 3349 |
|
end; |
| 3350 |
break; |
break; |
| 3351 |
end; |
end; |
| 3352 |
end; |
end; |
| 3390 |
end; |
end; |
| 3391 |
LockWindowUpdate(Self.Handle); |
LockWindowUpdate(Self.Handle); |
| 3392 |
TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる |
TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる |
| 3393 |
TOleControl(inThread.FBrowser).BringToFront; |
TOleControl(inThread.FBrowser).BringToFront; |
| 3394 |
|
LockWindowUpdate(0); |
| 3395 |
if not inThread.FThread.IsLogFile then begin |
if not inThread.FThread.IsLogFile then begin |
| 3396 |
|
|
| 3397 |
if (not Assigned(inThread.Browser.Document)) then begin |
if (not Assigned(inThread.Browser.Document)) then begin |
| 3418 |
try |
try |
| 3419 |
doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2; |
doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2; |
| 3420 |
GikoSys.CreateHTML2(doc, inThread.FThread, sTitle); |
GikoSys.CreateHTML2(doc, inThread.FThread, sTitle); |
| 3421 |
|
inThread.FBrowser.OnDocumentComplete(inThread.FBrowser, inThread.FBrowser.Parent, url); |
| 3422 |
inThread.OnlyHundred := GikoSys.OnlyAHundredRes; |
inThread.OnlyHundred := GikoSys.OnlyAHundredRes; |
| 3423 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 3424 |
//ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。 |
//ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。 |
| 3442 |
inThread.FThread.UnRead := False; |
inThread.FThread.UnRead := False; |
| 3443 |
ListView.Refresh; |
ListView.Refresh; |
| 3444 |
end; |
end; |
| 3445 |
LockWindowUpdate(0); |
// LockWindowUpdate(0); |
| 3446 |
if(FActiveContent <> nil) and (FActiveContent <> inThread) then begin |
if(FActiveContent <> nil) and (FActiveContent <> inThread) then begin |
| 3447 |
if (FActiveContent.Browser <> BrowserNullTab.Browser) and |
if (FActiveContent.Browser <> BrowserNullTab.Browser) and |
| 3448 |
(TOleControl(FActiveContent.Browser).Visible) then |
(TOleControl(FActiveContent.Browser).Visible) then |
| 5271 |
= TWebBrowser(FBrowsers[4]) )then |
= TWebBrowser(FBrowsers[4]) )then |
| 5272 |
begin |
begin |
| 5273 |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser := nil; |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser := nil; |
| 5274 |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin |
| 5275 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free; |
| 5276 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil; |
| 5277 |
|
end; |
| 5278 |
break; |
break; |
| 5279 |
end; |
end; |
| 5280 |
end; |
end; |
| 5328 |
= TWebBrowser(FBrowsers[4]) )then |
= TWebBrowser(FBrowsers[4]) )then |
| 5329 |
begin |
begin |
| 5330 |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser := nil; |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser := nil; |
| 5331 |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin |
| 5332 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free; |
| 5333 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil; |
| 5334 |
|
end; |
| 5335 |
break; |
break; |
| 5336 |
end; |
end; |
| 5337 |
end; |
end; |
| 5919 |
FBrowsers.Move(j ,0); |
FBrowsers.Move(j ,0); |
| 5920 |
end else begin |
end else begin |
| 5921 |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
| 5922 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[4]) then |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[4]) then begin |
| 5923 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser := nil; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser := nil; |
| 5924 |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent <> nil then begin |
| 5925 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent.Free; |
| 5926 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent := nil; |
| 5927 |
|
end; |
| 5928 |
|
end; |
| 5929 |
end; |
end; |
| 5930 |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[4]); |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[4]); |
| 5931 |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true; |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true; |
| 5976 |
p2 := p; |
p2 := p; |
| 5977 |
p := BrowserTab.ScreenToClient(p); |
p := BrowserTab.ScreenToClient(p); |
| 5978 |
idx := BrowserTab.IndexOfTabAt(p.X, p.Y); |
idx := BrowserTab.IndexOfTabAt(p.X, p.Y); |
| 5979 |
if idx <> -1 then begin |
if idx <> -1 then |
|
OldIndex := BrowserTab.TabIndex; |
|
| 5980 |
DeleteTab(TBrowserRecord(BrowserTab.Tabs.Objects[idx])); |
DeleteTab(TBrowserRecord(BrowserTab.Tabs.Objects[idx])); |
|
{if idx = OldIndex then begin |
|
|
if BrowserTab.Tabs.Count > idx then |
|
|
BrowserTab.TabIndex := idx |
|
|
else if BrowserTab.Tabs.Count = idx then |
|
|
BrowserTab.TabIndex := idx - 1 |
|
|
else if BrowserTab.Tabs.Count > 0 then |
|
|
BrowserTab.TabIndex := 0; |
|
|
if TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser = nil then begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser |
|
|
:= TWebBrowser(FBrowsers[4]); |
|
|
FBrowsers.Move(4, 0); |
|
|
end; |
|
|
BrowserTab.OnChange(nil); |
|
|
|
|
|
end; |
|
|
} |
|
|
end; |
|
| 5981 |
//end else if Button = mbRight then begin |
//end else if Button = mbRight then begin |
| 5982 |
//PopupMenuでBrowserTabPoupMenuを指定しているのでここでわざわざ呼び出すと2重になる |
//PopupMenuでBrowserTabPoupMenuを指定しているのでここでわざわざ呼び出すと2重になる |
| 5983 |
//OnContextPopupでもしもActiveなTab以外で呼び出されたらTabを切り替えるようにした。 |
//OnContextPopupでもしもActiveなTab以外で呼び出されたらTabを切り替えるようにした。 |
| 5984 |
{ // マウス右ボタン |
{ // マウス右ボタン |
| 5985 |
GetCursorPos(p); |
GetCursorPos(p); |
| 5986 |
p2 := p; |
p2 := p; |
| 6131 |
end; |
end; |
| 6132 |
end; |
end; |
| 6133 |
if BrowserRecord <> nil then begin |
if BrowserRecord <> nil then begin |
|
FBrowserComplete := True; |
|
| 6134 |
if BrowserRecord.FEvent <> nil then |
if BrowserRecord.FEvent <> nil then |
| 6135 |
BrowserRecord.FEvent.Free; |
BrowserRecord.FEvent.Free; |
| 6136 |
FDispHtmlDocument := Idispatch(OleVariant(BrowserRecord.Browser.ControlInterface).Document) as DispHTMLDocument; |
FDispHtmlDocument := Idispatch(OleVariant(BrowserRecord.Browser.ControlInterface).Document) as DispHTMLDocument; |
| 7373 |
Num: Integer; |
Num: Integer; |
| 7374 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 7375 |
begin |
begin |
| 7376 |
Doc := Browser.Document as IHtmlDocument2; |
Doc := FactiveContent.FBrowser.Document as IHtmlDocument2; |
| 7377 |
Range := Doc.selection.createRange as IHTMLTxtRange; |
Range := Doc.selection.createRange as IHTMLTxtRange; |
| 7378 |
s := CustomStringReplace(Range.text, ' ', ' ');//全角空白を半角空白に |
s := CustomStringReplace(Range.text, ' ', ' ');//全角空白を半角空白に |
| 7379 |
s := ZenToHan(Trim(s)); |
s := ZenToHan(Trim(s)); |
| 8359 |
Dlg: TListSelectDialog; |
Dlg: TListSelectDialog; |
| 8360 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
| 8361 |
FilterList : TStringList; |
FilterList : TStringList; |
| 8362 |
idx : Integer; |
i, idx : Integer; |
| 8363 |
begin |
begin |
| 8364 |
Dlg := TListSelectDialog.Create(Self); |
Dlg := TListSelectDialog.Create(Self); |
| 8365 |
try |
try |
| 8406 |
end; |
end; |
| 8407 |
|
|
| 8408 |
// スレッドの再描画 |
// スレッドの再描画 |
| 8409 |
FActiveContent.Repaint := true; |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 8410 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
| 8411 |
|
end; |
| 8412 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 8413 |
if ThreadItem <> nil then |
if ThreadItem <> nil then |
| 8414 |
InsertBrowserTab( ThreadItem, True ); |
InsertBrowserTab( ThreadItem, True ); |
| 8439 |
var |
var |
| 8440 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
| 8441 |
FilterList : TStringList; |
FilterList : TStringList; |
| 8442 |
|
i: Integer; |
| 8443 |
begin |
begin |
| 8444 |
// ボタンの更新 |
// ボタンの更新 |
| 8445 |
AllResAction.Checked := True; |
AllResAction.Checked := True; |
| 8458 |
FSelectResWord := ''; |
FSelectResWord := ''; |
| 8459 |
|
|
| 8460 |
// スレッドを再描画 |
// スレッドを再描画 |
| 8461 |
FActiveContent.Repaint := true; |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 8462 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
| 8463 |
|
end; |
| 8464 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 8465 |
if ThreadItem <> nil then |
if ThreadItem <> nil then |
| 8466 |
InsertBrowserTab( ThreadItem, True ); |
InsertBrowserTab( ThreadItem, True ); |
| 9936 |
Result := True; |
Result := True; |
| 9937 |
end else begin |
end else begin |
| 9938 |
// それ以外のイベントは Browser に流す |
// それ以外のイベントは Browser に流す |
| 9939 |
Dispatch := Browser.Application; |
if(FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
| 9940 |
if Dispatch <> nil then begin |
Dispatch := FActiveContent.Browser.Application; |
| 9941 |
Dispatch.QueryInterface( IOleInPlaceActiveObject, iOIPAO ); |
if Dispatch <> nil then begin |
| 9942 |
if iOIPAO <> nil then |
Dispatch.QueryInterface( IOleInPlaceActiveObject, iOIPAO ); |
| 9943 |
iOIPAO.TranslateAccelerator( Msg ); |
if iOIPAO <> nil then |
| 9944 |
|
iOIPAO.TranslateAccelerator( Msg ); |
| 9945 |
|
end; |
| 9946 |
end; |
end; |
| 9947 |
|
|
| 9948 |
// ギコナビで使うショートカットは受け取りたいのでイベントはカットしない |
// ギコナビで使うショートカットは受け取りたいのでイベントはカットしない |
| 9959 |
|
|
| 9960 |
case Msg.message of |
case Msg.message of |
| 9961 |
WM_KEYDOWN: |
WM_KEYDOWN: |
| 9962 |
if IsDialogMessage( Browser.Handle, Msg ) then begin |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
| 9963 |
key := Msg.wParam; |
if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin |
| 9964 |
Handled := BrowserKeyDown( Msg, key, KeyDataToShiftState( Msg.lParam ) ); |
key := Msg.wParam; |
| 9965 |
|
Handled := BrowserKeyDown( Msg, key, KeyDataToShiftState( Msg.lParam ) ); |
| 9966 |
|
end; |
| 9967 |
end; |
end; |
| 9968 |
|
|
| 9969 |
WM_XBUTTONDOWN: |
WM_XBUTTONDOWN: |
| 9970 |
case Msg.wParam shr 16 of |
case Msg.wParam shr 16 of |
| 9971 |
XBUTTON1: |
XBUTTON1: |
| 9972 |
if IsDialogMessage( Browser.Handle, Msg ) then begin |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
| 9973 |
UpBoardAction.Execute; |
if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin |
| 9974 |
Handled := True; |
UpBoardAction.Execute; |
| 9975 |
end else if IsDialogMessage( ListView.Handle, Msg ) then begin |
Handled := True; |
| 9976 |
UpFolderAction.Execute; |
end else if IsDialogMessage( ListView.Handle, Msg ) then begin |
| 9977 |
Handled := True; |
UpFolderAction.Execute; |
| 9978 |
|
Handled := True; |
| 9979 |
|
end; |
| 9980 |
end; |
end; |
| 9981 |
XBUTTON2: |
XBUTTON2: |
| 9982 |
end; |
end; |
| 10072 |
|
|
| 10073 |
end; |
end; |
| 10074 |
|
|
|
procedure TGikoForm.ThreadPanelResize(Sender: TObject); |
|
|
var |
|
|
idx : Integer; |
|
|
rec : TBrowserRecord; |
|
|
begin |
|
|
{ idx := BrowserTab.TabIndex; |
|
|
if idx >= 0 then begin |
|
|
if BrowserTab.Tabs.Objects[ idx ] is TBrowserRecord then begin |
|
|
rec := TBrowserRecord( BrowserTab.Tabs.Objects[ idx ] ); |
|
|
SetWindowPos( rec.Browser.Handle, HWND_TOPMOST, 0, 0, BrowserPanel.Width, BrowserPanel.Height, SWP_NOACTIVATE or SWP_NOZORDER); |
|
|
end; |
|
|
end; |
|
|
} |
|
|
end; |
|
|
|
|
| 10075 |
procedure TGikoForm.OnlyAHundredResUpdate(Sender: TObject); |
procedure TGikoForm.OnlyAHundredResUpdate(Sender: TObject); |
| 10076 |
begin |
begin |
| 10077 |
OnlyAHundredRes.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
OnlyAHundredRes.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |