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.46 by h677, Wed Sep 17 07:13:03 2003 UTC revision 1.47 by h677, Fri Sep 19 16:02:50 2003 UTC
# Line 19  uses Line 19  uses
19          Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,          Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,
20          FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,          FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,
21          HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,          HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,
22      IndividualAbon;      IndividualAbon, Dialogs;
23    
24  type  type
25          TGikoTreeType = (gttNone, gtt2ch, gttHistory);          TGikoTreeType = (gttNone, gtt2ch, gttHistory);
# Line 470  type Line 470  type
470      N51: TMenuItem;      N51: TMenuItem;
471      N52: TMenuItem;      N52: TMenuItem;
472      N53: TMenuItem;      N53: TMenuItem;
473        SearchBoardName: TMenuItem;
474        N55: TMenuItem;
475        TreeSelectSearchBoardName: TAction;
476                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
477                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
478                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 735  type Line 738  type
738      procedure SelectComboBoxEnter(Sender: TObject);      procedure SelectComboBoxEnter(Sender: TObject);
739      procedure AntiIndividualAbonClick(Sender: TObject);      procedure AntiIndividualAbonClick(Sender: TObject);
740      procedure N51Click(Sender: TObject);      procedure N51Click(Sender: TObject);
741        procedure TreeSelectSearchBoardNameExecute(Sender: TObject);
742          private          private
743                  { Private 宣言 }                  { Private 宣言 }
744    
# Line 3969  var Line 3973  var
3973          Editor: TEditorForm;          Editor: TEditorForm;
3974          Item: TThreadItem;          Item: TThreadItem;
3975          msg: string;          msg: string;
     //buf: Integer;  
3976  begin  begin
3977          Item := GetActiveContent;          Item := GetActiveContent;
3978          if Item = nil then Exit;          if Item = nil then Exit;
# Line 7204  procedure TGikoForm.N51Click(Sender: TOb Line 7207  procedure TGikoForm.N51Click(Sender: TOb
7207  begin  begin
7208          N42Click(Sender);          N42Click(Sender);
7209  end;  end;
7210    //板名検索
7211    procedure TGikoForm.TreeSelectSearchBoardNameExecute(Sender: TObject);
7212    var
7213        s : String;
7214            msg : String;
7215            CurItem : TTreeNode;
7216        next : boolean;
7217        position : Integer;
7218    begin
7219        if InputQuery('板名検索','板名の入力',s) then begin
7220            next := true;
7221            while next do begin
7222                            if TreeView.Selected = nil then
7223                            CurItem := TreeView.Items.GetFirstNode
7224                            else begin
7225                                    CurItem := TreeView.Selected.GetNext;
7226                                    if CurItem = nil then
7227                                            CurItem := TreeView.Items.GetFirstNode;
7228                            end;
7229                            while CurItem <> nil do begin
7230                            if (CurItem.ImageIndex <> 2) and (AnsiPos(s,CurItem.Text) <> 0) then begin
7231                                    break;
7232                            end;
7233                            CurItem := CurItem.GetNext;
7234                            end;
7235                try
7236                    if CurItem = nil then begin
7237                            msg := '先頭に戻りますか?';
7238                                    if MsgBox(Handle, msg, '', MB_YESNO or MB_ICONEXCLAMATION) = mrYes  then begin
7239                                            CurItem := TreeView.Items.GetFirstNode;
7240                            end else begin
7241                                    Exit;
7242                            end;
7243                        TreeView.Select(CurItem);
7244                            TreeView.SetFocus;
7245                    end else begin
7246                            TreeView.Select(CurItem);
7247                        TreeView.SetFocus;
7248                            msg := '次に行きますか?';
7249                                    if MsgBox(Handle, msg, '', MB_YESNO or MB_ICONEXCLAMATION) = mrYes  then begin
7250                                            next := true;
7251                            end else begin
7252                                    next := false;
7253                            end;
7254                    end;
7255    
7256                except
7257                    Exit;
7258                end;
7259            end;
7260        end;
7261    end;
7262    
7263  initialization  initialization
7264                                  OleInitialize(nil);                                  OleInitialize(nil);

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

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