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.319 by h677, Sun May 30 17:23:09 2004 UTC revision 1.320 by h677, Tue Jun 1 14:27:26 2004 UTC
# Line 863  type Line 863  type
863      procedure BrowserMaxAndFocusActionExecute(Sender: TObject);      procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
864      procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);      procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);
865      procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);      procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
866        procedure ListViewExit(Sender: TObject);
867          private          private
868                  { Private 宣言 }                  { Private 宣言 }
869          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 2004  var Line 2005  var
2005          i                       : Integer;          i                       : Integer;
2006  begin  begin
2007          //タブクローズ          //タブクローズ
2008          NotSelectTabCloseAction.Execute;          AllTabCloseAction.Execute;
2009          BrowserTabCloseAction.Execute;          SetContent(BrowserNullTab);
2010          //TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る)          //TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る)
2011          TreeView.Items.Clear;          TreeView.Items.Clear;
2012    
# Line 10090  begin Line 10091  begin
10091    result := true;    result := true;
10092    if Sender <> nil then    if Sender <> nil then
10093    try    try
10094          TOleControl(Sender).SetFocus;          if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then
10095                    FActiveContent.FBrowser.SetFocus;
10096    except    except
10097    end;    end;
10098  end;  end;
# Line 10146  begin Line 10148  begin
10148          SetFocusForThreadListAction.Execute;          SetFocusForThreadListAction.Execute;
10149  end;  end;
10150    
10151    procedure TGikoForm.ListViewExit(Sender: TObject);
10152    begin
10153            ListView.Repaint;
10154    end;
10155    
10156  initialization  initialization
10157                                  OleInitialize(nil);                                  OleInitialize(nil);
10158  finalization  finalization

Legend:
Removed from v.1.319  
changed lines
  Added in v.1.320

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