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.316 by h677, Tue May 25 16:23:25 2004 UTC revision 1.317 by h677, Wed May 26 04:30:51 2004 UTC
# Line 536  type Line 536  type
536      SetFocusForBrowserAction: TAction;      SetFocusForBrowserAction: TAction;
537      SetFocusForThreadListAction: TAction;      SetFocusForThreadListAction: TAction;
538      SetFocusForCabinetAction: TAction;      SetFocusForCabinetAction: TAction;
     test1: TMenuItem;  
539                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
540                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
541                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 859  type Line 858  type
858      procedure SetFocusForBrowserActionUpdate(Sender: TObject);      procedure SetFocusForBrowserActionUpdate(Sender: TObject);
859      procedure SetFocusForThreadListActionExecute(Sender: TObject);      procedure SetFocusForThreadListActionExecute(Sender: TObject);
860      procedure SetFocusForCabinetActionExecute(Sender: TObject);      procedure SetFocusForCabinetActionExecute(Sender: TObject);
     procedure test1Click(Sender: TObject);  
861          private          private
862                  { Private 宣言 }                  { Private 宣言 }
863          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 10103  begin Line 10101  begin
10101          TreeView.SetFocus;          TreeView.SetFocus;
10102  end;  end;
10103    
 procedure TGikoForm.test1Click(Sender: TObject);  
 begin  
 //      FActiveContent.FBrowser.OleObject.Document.Body.Style.zoom := 1.5;  
 //    newBrowser.OleObject.Document.Body.Style.zoom := 1.5;  
         BrowserNullTab.FBrowser.Navigate('http://8547.teacup.com/chigakubu/bbs/');  
 end;  
   
10104  initialization  initialization
10105                                  OleInitialize(nil);                                  OleInitialize(nil);
10106  finalization  finalization

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

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