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.304 by h677, Sat May 22 14:56:10 2004 UTC revision 1.305 by yoffy, Sat May 22 15:53:25 2004 UTC
# Line 3278  begin Line 3278  begin
3278                                  BrowserTab.TabIndex := i;                                  BrowserTab.TabIndex := i;
3279                          end;                          end;
3280                  end;                  end;
3281                  if ( ActiveTab ) or ( BrowserTab.Tabs.Count = 1 ) then begin                  if ActiveTab then begin
3282                          BrowserTab.OnChange(nil);                          BrowserTab.OnChange(nil);
3283                  end;                  end;
3284          end else begin          end else begin
# Line 4116  begin Line 4116  begin
4116                          if not (TObject(listItem.Data) is TThreadItem) then Exit;                          if not (TObject(listItem.Data) is TThreadItem) then Exit;
4117    
4118                          threadItem := TThreadItem(ListItem.Data);                          threadItem := TThreadItem(ListItem.Data);
4119                          InsertBrowserTab(threadItem);                          InsertBrowserTab(threadItem, False);
4120                          if threadItem.IsLogFile then                          if threadItem.IsLogFile then
4121                                  ListView.UpdateItems(listItem.Index, listItem.Index);                                  ListView.UpdateItems(listItem.Index, listItem.Index);
4122                  end;                  end;
# Line 4778  begin Line 4778  begin
4778  //      Mouse.CursorPos := BrowserSizeButton.ClientToScreen(Point(  //      Mouse.CursorPos := BrowserSizeButton.ClientToScreen(Point(
4779  //                                                                                              System.Round(BrowserToolBar.ButtonWidth div 2),  //                                                                                              System.Round(BrowserToolBar.ButtonWidth div 2),
4780  //                                                                                              System.Round(BrowserToolBar.ButtonHeight div 2)));  //                                                                                              System.Round(BrowserToolBar.ButtonHeight div 2)));
4781            BrowserTab.OnChange(nil);
4782  end;  end;
4783    
4784  procedure TGikoForm.BrowserMinActionExecute(Sender: TObject);  procedure TGikoForm.BrowserMinActionExecute(Sender: TObject);
# Line 7707  begin Line 7708  begin
7708  end;  end;
7709    
7710  procedure TGikoForm.LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);  procedure TGikoForm.LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
7711    var
7712            favButton                       : TLinkToolButton;
7713            favThreadItem   : TFavoriteThreadItem;
7714  begin  begin
7715    
7716            case Button of
7717            mbMiddle:
7718                    begin
7719                            if Sender is TLinkToolButton then begin
7720                                    favButton := TLinkToolButton( Sender );
7721                                    if TObject( favButton.Data ) is TFavoriteThreadItem then begin
7722                                            favThreadItem := TFavoriteThreadItem( favButton.Data );
7723                                            if favThreadItem.Item <> nil then
7724                                                    InsertBrowserTab( favThreadItem.Item, False );
7725                                    end;
7726                            end;
7727                    end;
7728            end;
7729    
7730  end;  end;
7731    
7732  procedure TGikoForm.LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);  procedure TGikoForm.LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
# Line 9943  begin Line 9962  begin
9962          end;          end;
9963    
9964  procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject;  procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject;
9965    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
9966  var  var
9967          favItem                         : TTreeNode;          favItem                         : TTreeNode;
9968          favThreadItem   : TFavoriteThreadItem;          favThreadItem   : TFavoriteThreadItem;
# Line 9963  begin Line 9982  begin
9982                          if TObject( favItem.Data ) is TFavoriteThreadItem then begin                          if TObject( favItem.Data ) is TFavoriteThreadItem then begin
9983                                  favThreadItem := TFavoriteThreadItem( favItem.Data );                                  favThreadItem := TFavoriteThreadItem( favItem.Data );
9984                                  if favThreadItem.Item <> nil then                                  if favThreadItem.Item <> nil then
9985                                          InsertBrowserTab( favThreadItem.Item );                                          InsertBrowserTab( favThreadItem.Item, False );
9986                          end;                          end;
9987                  end;                  end;
9988          end;          end;

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

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