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.305 by yoffy, Sat May 22 15:53:25 2004 UTC revision 1.306 by h677, Sun May 23 03:28:25 2004 UTC
# Line 851  type Line 851  type
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
# Line 873  type Line 872  type
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;                        //リスト番号表示フラグ
# Line 916  type Line 914  type
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;
# Line 1213  begin Line 1210  begin
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;
# Line 2487  var Line 2483  var
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;
# Line 3224  begin Line 3221  begin
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
# Line 3245  begin Line 3247  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;
# Line 3264  begin Line 3270  begin
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;
# Line 3308  var Line 3318  var
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
# Line 3332  begin Line 3343  begin
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;
# Line 3375  begin Line 3390  begin
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
# Line 3402  begin Line 3418  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を更新させる。
# Line 3425  begin Line 3442  begin
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
# Line 5254  begin Line 5271  begin
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;
# Line 5307  begin Line 5328  begin
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;
# Line 5894  begin Line 5919  begin
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;
# Line 5946  begin Line 5976  begin
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;
# Line 6119  begin Line 6131  begin
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;
# Line 7362  var Line 7373  var
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));
# Line 8348  var Line 8359  var
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
# Line 8395  begin Line 8406  begin
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 );
# Line 8426  procedure TGikoForm.AllResActionExecute( Line 8439  procedure TGikoForm.AllResActionExecute(
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;
# Line 8444  begin Line 8458  begin
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 );
# Line 9920  begin Line 9936  begin
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                  // ギコナビで使うショートカットは受け取りたいのでイベントはカットしない                  // ギコナビで使うショートカットは受け取りたいのでイベントはカットしない
# Line 9941  begin Line 9959  begin
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;
# Line 10049  begin Line 10072  begin
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);

Legend:
Removed from v.1.305  
changed lines
  Added in v.1.306

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