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.696 by h677, Sun Sep 13 15:09:07 2009 UTC revision 1.697 by h677, Mon Oct 5 14:32:28 2009 UTC
# Line 3869  begin Line 3869  begin
3869                  TreeSelectFavoriteAddPupupMenu.Visible := False;                  TreeSelectFavoriteAddPupupMenu.Visible := False;
3870                  TreeSelectLogDeleteSeparator.Visible := False;                  TreeSelectLogDeleteSeparator.Visible := False;
3871                  TreeSelectLogDeletePopupMenu.Visible := False;                  TreeSelectLogDeletePopupMenu.Visible := False;
3872            SearchBoardName.Visible := False;
3873          end else if TObject(FClickNode.Data) is TBoard then begin          end else if TObject(FClickNode.Data) is TBoard then begin
3874                  TreeSelectThreadPupupMenu.Visible := False;                  TreeSelectThreadPupupMenu.Visible := False;
3875                  TreeSelectBoardPupupMenu.Visible := True;                  TreeSelectBoardPupupMenu.Visible := True;
# Line 3879  begin Line 3880  begin
3880                  TreeSelectFavoriteAddPupupMenu.Visible := True;                  TreeSelectFavoriteAddPupupMenu.Visible := True;
3881                  TreeSelectLogDeleteSeparator.Visible := False;                  TreeSelectLogDeleteSeparator.Visible := False;
3882                  TreeSelectLogDeletePopupMenu.Visible := False;                  TreeSelectLogDeletePopupMenu.Visible := False;
3883            SearchBoardName.Visible := True;
3884          end else if TObject(FClickNode.Data) is TFavoriteBoardItem then begin          end else if TObject(FClickNode.Data) is TFavoriteBoardItem then begin
3885                  TreeSelectThreadPupupMenu.Visible := False;                  TreeSelectThreadPupupMenu.Visible := False;
3886                  TreeSelectBoardPupupMenu.Visible := True;                  TreeSelectBoardPupupMenu.Visible := True;
# Line 3889  begin Line 3891  begin
3891                  TreeSelectFavoriteAddPupupMenu.Visible := True;                  TreeSelectFavoriteAddPupupMenu.Visible := True;
3892                  TreeSelectLogDeleteSeparator.Visible := False;                  TreeSelectLogDeleteSeparator.Visible := False;
3893                  TreeSelectLogDeletePopupMenu.Visible := False;                  TreeSelectLogDeletePopupMenu.Visible := False;
3894            SearchBoardName.Visible := False;
3895          end else if (TObject(FClickNode.Data) is TThreadItem) then begin          end else if (TObject(FClickNode.Data) is TThreadItem) then begin
3896                  TreeSelectThreadPupupMenu.Visible := True;                  TreeSelectThreadPupupMenu.Visible := True;
3897                  TreeSelectBoardPupupMenu.Visible := False;                  TreeSelectBoardPupupMenu.Visible := False;
# Line 3899  begin Line 3902  begin
3902                  TreeSelectFavoriteAddPupupMenu.Visible := True;                  TreeSelectFavoriteAddPupupMenu.Visible := True;
3903                  TreeSelectLogDeleteSeparator.Visible := True;                  TreeSelectLogDeleteSeparator.Visible := True;
3904                  TreeSelectLogDeletePopupMenu.Visible := True;                  TreeSelectLogDeletePopupMenu.Visible := True;
3905            SearchBoardName.Visible := False;
3906          end else if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin          end else if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin
3907                  TreeSelectThreadPupupMenu.Visible := True;                  TreeSelectThreadPupupMenu.Visible := True;
3908                  TreeSelectBoardPupupMenu.Visible := False;                  TreeSelectBoardPupupMenu.Visible := False;
# Line 3909  begin Line 3913  begin
3913                  TreeSelectFavoriteAddPupupMenu.Visible := True;                  TreeSelectFavoriteAddPupupMenu.Visible := True;
3914                  TreeSelectLogDeleteSeparator.Visible := True;                  TreeSelectLogDeleteSeparator.Visible := True;
3915                  TreeSelectLogDeletePopupMenu.Visible := True;                  TreeSelectLogDeletePopupMenu.Visible := True;
3916            SearchBoardName.Visible := False;
3917          end else if (TObject(FClickNode.Data) is TCategory) then begin          end else if (TObject(FClickNode.Data) is TCategory) then begin
3918                  TreeSelectThreadPupupMenu.Visible := False;                  TreeSelectThreadPupupMenu.Visible := False;
3919                  TreeSelectBoardPupupMenu.Visible := False;                  TreeSelectBoardPupupMenu.Visible := False;
# Line 3919  begin Line 3924  begin
3924                  TreeSelectFavoriteAddPupupMenu.Visible := False;                  TreeSelectFavoriteAddPupupMenu.Visible := False;
3925                  TreeSelectLogDeleteSeparator.Visible := False;                  TreeSelectLogDeleteSeparator.Visible := False;
3926                  TreeSelectLogDeletePopupMenu.Visible := False;                  TreeSelectLogDeletePopupMenu.Visible := False;
3927            SearchBoardName.Visible := True;
3928          end else if FClickNode.IsFirstNode then begin          end else if FClickNode.IsFirstNode then begin
3929                  TreeSelectThreadPupupMenu.Visible := False;                  TreeSelectThreadPupupMenu.Visible := False;
3930                  TreeSelectBoardPupupMenu.Visible := False;                  TreeSelectBoardPupupMenu.Visible := False;
# Line 3929  begin Line 3935  begin
3935                  TreeSelectFavoriteAddPupupMenu.Visible := False;                  TreeSelectFavoriteAddPupupMenu.Visible := False;
3936                  TreeSelectLogDeleteSeparator.Visible := False;                  TreeSelectLogDeleteSeparator.Visible := False;
3937                  TreeSelectLogDeletePopupMenu.Visible := False;                  TreeSelectLogDeletePopupMenu.Visible := False;
3938            SearchBoardName.Visible := True;
3939          end else begin          end else begin
3940                  TreeSelectThreadPupupMenu.Visible := False;                  TreeSelectThreadPupupMenu.Visible := False;
3941                  TreeSelectBoardPupupMenu.Visible := False;                  TreeSelectBoardPupupMenu.Visible := False;
# Line 3939  begin Line 3946  begin
3946                  TreeSelectFavoriteAddPupupMenu.Visible := False;                  TreeSelectFavoriteAddPupupMenu.Visible := False;
3947                  TreeSelectLogDeleteSeparator.Visible := False;                  TreeSelectLogDeleteSeparator.Visible := False;
3948                  TreeSelectLogDeletePopupMenu.Visible := False;                  TreeSelectLogDeletePopupMenu.Visible := False;
3949            SearchBoardName.Visible := False;
3950          end;          end;
3951  end;  end;
3952    

Legend:
Removed from v.1.696  
changed lines
  Added in v.1.697

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