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.317 by h677, Wed May 26 04:30:51 2004 UTC revision 1.318 by h677, Wed May 26 18:40:54 2004 UTC
# Line 21  uses Line 21  uses
21          FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,          FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,
22          HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,          HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,
23          IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain,          IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain,
24          StdActns, GikoXMLDoc, Variants;          StdActns, GikoXMLDoc, Variants, ExtActns;
25    
26  type  type
27          TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite);          TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite);
# Line 536  type Line 536  type
536      SetFocusForBrowserAction: TAction;      SetFocusForBrowserAction: TAction;
537      SetFocusForThreadListAction: TAction;      SetFocusForThreadListAction: TAction;
538      SetFocusForCabinetAction: TAction;      SetFocusForCabinetAction: TAction;
539        Xday1: TMenuItem;
540        FileRun1: TFileRun;
541                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
542                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
543                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 842  type Line 844  type
844      procedure BrowserNameToolBarResize(Sender: TObject);      procedure BrowserNameToolBarResize(Sender: TObject);
845      procedure BrowserToolBarResize(Sender: TObject);      procedure BrowserToolBarResize(Sender: TObject);
846      procedure BrowserTabResize(Sender: TObject);      procedure BrowserTabResize(Sender: TObject);
847                  procedure ListViewClick(Sender: TObject);          procedure TreeViewClick(Sender: TObject);
     procedure TreeViewClick(Sender: TObject);  
848      procedure TreeViewKeyDown(Sender: TObject; var Key: Word;      procedure TreeViewKeyDown(Sender: TObject; var Key: Word;
849        Shift: TShiftState);        Shift: TShiftState);
850      procedure FavoriteTreeViewMouseDown(Sender: TObject;      procedure FavoriteTreeViewMouseDown(Sender: TObject;
# Line 858  type Line 859  type
859      procedure SetFocusForBrowserActionUpdate(Sender: TObject);      procedure SetFocusForBrowserActionUpdate(Sender: TObject);
860      procedure SetFocusForThreadListActionExecute(Sender: TObject);      procedure SetFocusForThreadListActionExecute(Sender: TObject);
861      procedure SetFocusForCabinetActionExecute(Sender: TObject);      procedure SetFocusForCabinetActionExecute(Sender: TObject);
862        procedure Xday1Click(Sender: TObject);
863          private          private
864                  { Private 宣言 }                  { Private 宣言 }
865          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 920  type Line 922  type
922                  FToolBarSettingSender : TToolBarSettingSenderType;      // ツールバー設定をクリックしたクールバー                  FToolBarSettingSender : TToolBarSettingSenderType;      // ツールバー設定をクリックしたクールバー
923                  FMouseDownPos           : TPoint;                               // ブラウザタブでマウスを押したときの座標                  FMouseDownPos           : TPoint;                               // ブラウザタブでマウスを押したときの座標
924                  FBrowsers: TList;                  FBrowsers: TList;
         FOleInPlaceActiveObject: IOleInPlaceActiveObject; //ここに必要らしい  
925                  procedure SetBoardTreeNode( inBBS : TBBS );                  procedure SetBoardTreeNode( inBBS : TBBS );
926                  function SetCategoryListItem(ABBS2ch: TBBS): Integer;                  function SetCategoryListItem(ABBS2ch: TBBS): Integer;
927                  function SetBoardListItem(Category: TCategory): Integer;                  function SetBoardListItem(Category: TCategory): Integer;
# Line 1229  begin Line 1230  begin
1230                  newBrowser.OnStatusTextChange   := BrowserStatusTextChange;                  newBrowser.OnStatusTextChange   := BrowserStatusTextChange;
1231                  newBrowser.OnTitleChange                := BrowserTitleChange;                  newBrowser.OnTitleChange                := BrowserTitleChange;
1232                  newBrowser.Navigate(BLANK_HTML);                  newBrowser.Navigate(BLANK_HTML);
                 //TOleControl(newBrowser).Visible := false;  
1233                  ShowWindow(newBrowser.Handle, SW_HIDE);                  ShowWindow(newBrowser.Handle, SW_HIDE);
1234                  FBrowsers.Add(newBrowser);                  FBrowsers.Add(newBrowser);
1235          end;          end;
# Line 9808  begin Line 9808  begin
9808          boardPlugIn.PlugInMenu( item.Handle );          boardPlugIn.PlugInMenu( item.Handle );
9809    
9810  end;  end;
   
 procedure TGikoForm.ListViewClick(Sender: TObject);  
 begin  
 end;  
   
9811  // TreeView がクリックされた  // TreeView がクリックされた
9812  procedure TGikoForm.TreeClick( Node : TTreeNode );  procedure TGikoForm.TreeClick( Node : TTreeNode );
9813  var  var
# Line 10101  begin Line 10096  begin
10096          TreeView.SetFocus;          TreeView.SetFocus;
10097  end;  end;
10098    
10099    procedure TGikoForm.Xday1Click(Sender: TObject);
10100    const
10101            HostsFileName : string = 'hosts';
10102    var
10103            chrWinPath  : array [0..MAX_PATH] of char;
10104            chrSysPath  : array [0..MAX_PATH] of char;
10105            tmpPath: string;
10106            OSver : TOSVERSIONINFO;
10107    begin
10108            OSver.dwOSVersionInfoSize  :=  SizeOf(OSver);
10109            GetVersionEx(OSver);
10110            case  OSver.dwPlatformId  of
10111                    //Windows3.1
10112                    VER_PLATFORM_WIN32s:
10113                            ShowMessage('どうやって動かしてるんですか?');
10114                    //Windows95
10115                    VER_PLATFORM_WIN32_WINDOWS:
10116                    begin
10117                            GetWindowsDirectory(chrWinPath, sizeof(chrWinPath));
10118                            tmpPath := chrWinPath;
10119                            tmpPath := IncludeTrailingPathDelimiter(tmpPath);
10120                            tmpPath := tmpPath + HostsFileName;
10121                    end;
10122                    //WindowsNT
10123                    VER_PLATFORM_WIN32_NT:
10124                    begin
10125                            GetSystemDirectory(chrSysPath, sizeof(chrSysPath));
10126                            tmpPath := chrSysPath;
10127                            tmpPath := IncludeTrailingPathDelimiter(tmpPath);
10128                            tmpPath := tmpPath + 'Drivers\Etc\' + HostsFileName;
10129                    end;
10130            end;
10131            FileRun1.Parameters := tmpPath;
10132            FileRun1.Execute;
10133    end;
10134    
10135  initialization  initialization
10136                                  OleInitialize(nil);                                  OleInitialize(nil);
10137  finalization  finalization

Legend:
Removed from v.1.317  
changed lines
  Added in v.1.318

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