Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.315 by h677, Mon May 24 17:55:50 2004 UTC revision 1.316 by h677, Tue May 25 16:23:25 2004 UTC
# Line 21  uses Line 21  uses
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);
# Line 536  type Line 536  type
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);
# Line 858  type Line 859  type
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;
# Line 920  type Line 922  type
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;
# Line 1208  begin Line 1211  begin
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);
# Line 1228  begin Line 1231  begin
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;
# Line 2486  var Line 2492  var
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
# Line 2534  begin Line 2538  begin
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;
# Line 3277  begin Line 3281  begin
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;
# Line 3301  begin Line 3306  begin
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;
# Line 3317  begin Line 3323  begin
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    
# Line 3334  var Line 3340  var
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
# Line 3361  begin Line 3369  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
# Line 3381  begin Line 3390  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    
# Line 3395  begin Line 3403  begin
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);
# Line 3457  begin Line 3464  begin
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;
# Line 5227  begin Line 5238  begin
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;
# Line 5292  begin Line 5301  begin
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
# Line 5882  var Line 5889  var
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 := '';
# Line 5905  begin Line 5912  begin
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;
# Line 6090  var Line 6098  var
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;
# Line 8895  begin Line 8912  begin
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;
# Line 9880  begin Line 9900  begin
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    
# Line 9919  end; Line 9940  end;
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
# Line 9947  begin Line 9968  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);
# Line 10032  begin Line 10052  begin
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;
# Line 10082  begin Line 10103  begin
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

Legend:
Removed from v.1.315  
changed lines
  Added in v.1.316

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26