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.245 by yoffy, Mon Apr 5 14:21:02 2004 UTC revision 1.246 by yoffy, Mon Apr 5 14:39:55 2004 UTC
# Line 842  type Line 842  type
842      procedure TreeViewKeyDown(Sender: TObject; var Key: Word;      procedure TreeViewKeyDown(Sender: TObject; var Key: Word;
843        Shift: TShiftState);        Shift: TShiftState);
844      procedure MaximizeTimerTimer(Sender: TObject);      procedure MaximizeTimerTimer(Sender: TObject);
845        procedure FavoriteTreeViewMouseDown(Sender: TObject;
846          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
847          private          private
848                  { Private 宣言 }                  { Private 宣言 }
849          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 3098  var Line 3100  var
3100           //     OldIndex: Integer;           //     OldIndex: Integer;
3101          favItem : TFavoriteThreadItem;          favItem : TFavoriteThreadItem;
3102  begin  begin
3103            if Threaditem = nil then Exit;
3104    
3105          if ThreadItem.IsLogFile then begin          if ThreadItem.IsLogFile then begin
3106          //favItem := TFavoriteThreadItem.CreateWithItem( ThreadItem );                  //favItem := TFavoriteThreadItem.CreateWithItem( ThreadItem );
3107          favItem := TFavoriteThreadItem.Create(ThreadItem.URL, ThreadItem.Title );                  favItem := TFavoriteThreadItem.Create(ThreadItem.URL, ThreadItem.Title );
3108              if not AddHistory( favItem ) then                  if not AddHistory( favItem ) then
3109                  favItem.Free;                          favItem.Free;
3110                  for i := 0 to BrowserTab.Tabs.Count - 1 do begin                  for i := 0 to BrowserTab.Tabs.Count - 1 do begin
3111                          if TObject(BrowserTab.Tabs.Objects[i]) is TThreadItem then begin                          if TObject(BrowserTab.Tabs.Objects[i]) is TThreadItem then begin
3112                                  if TThreadItem(BrowserTab.Tabs.Objects[i]) = ThreadItem then begin                                  if TThreadItem(BrowserTab.Tabs.Objects[i]) = ThreadItem then begin
# Line 3877  begin Line 3881  begin
3881                          if not (TObject(listItem.Data) is TThreadItem) then Exit;                          if not (TObject(listItem.Data) is TThreadItem) then Exit;
3882    
3883                          threadItem := TThreadItem(ListItem.Data);                          threadItem := TThreadItem(ListItem.Data);
3884                          if threadItem.IsLogFile then begin                          InsertBrowserTab(threadItem);
3885                                  InsertBrowserTab(listItem.Data);                          if threadItem.IsLogFile then
3886                                  ListView.UpdateItems(listItem.Index, listItem.Index);                                  ListView.UpdateItems(listItem.Index, listItem.Index);
                         end else begin  
                                 InsertBrowserTab(listItem.Data);  
                         end;  
3887                  end;                  end;
3888          end;          end;
3889  {       if ssDouble in Shift then begin  {       if ssDouble in Shift then begin
# Line 6328  begin Line 6329  begin
6329          end else if TObject(Item) is TFavoriteThreadItem then begin          end else if TObject(Item) is TFavoriteThreadItem then begin
6330                  FavThread := TFavoriteThreadItem(Item);                  FavThread := TFavoriteThreadItem(Item);
6331                  ThreadItem := FavThread.Item;                  ThreadItem := FavThread.Item;
6332                  if ThreadItem <> nil then                  if ThreadItem = nil then
6333                          InsertBrowserTab(ThreadItem, ActiveTab);                          Exit;
6334    
6335                    InsertBrowserTab(ThreadItem, ActiveTab);
6336    
6337                    if ThreadItem.IsLogFile then begin
6338                            if GikoSys.Setting.ListOrientation = gloHorizontal then begin
6339                                    if GikoSys.Setting.ListWidthState = glsMin then begin
6340                                            BrowserMaxAction.Execute;
6341                                            if GikoForm.Visible then
6342                                                    Browser.SetFocus;
6343                                    end;
6344                            end else begin
6345                                    if GikoSys.Setting.ListHeightState = glsMin then begin
6346                                            BrowserMaxAction.Execute;
6347                                            if GikoForm.Visible then
6348                                                    Browser.SetFocus;
6349                                    end;
6350                            end;
6351                    end;
6352          end;          end;
6353  end;  end;
6354    
# Line 9346  begin Line 9365  begin
9365          MaximizeTimer.Enabled := False;          MaximizeTimer.Enabled := False;
9366  end;  end;
9367    
9368    procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject;
9369      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
9370    var
9371            favItem                         : TTreeNode;
9372            favThreadItem   : TFavoriteThreadItem;
9373    begin
9374    
9375            case Button of
9376            mbMiddle:
9377                    begin
9378                            favItem := FavoriteTreeView.GetNodeAt( X, Y );
9379                            if favItem = nil then Exit;
9380    
9381                            if TObject( favItem.Data ) is TFavoriteThreadItem then begin
9382                                    favThreadItem := TFavoriteThreadItem( favItem.Data );
9383                                    if favThreadItem.Item <> nil then
9384                                            InsertBrowserTab( favThreadItem.Item );
9385                            end;
9386                    end;
9387            end;
9388    
9389    end;
9390    
9391  initialization  initialization
9392                                  OleInitialize(nil);                                  OleInitialize(nil);
9393  finalization  finalization

Legend:
Removed from v.1.245  
changed lines
  Added in v.1.246

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