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.333 by h677, Fri Jun 4 13:58:16 2004 UTC revision 1.334 by h677, Fri Jun 4 14:06:06 2004 UTC
# Line 5993  procedure TGikoForm.BrowserTabChange(Sen Line 5993  procedure TGikoForm.BrowserTabChange(Sen
5993  var  var
5994          i, j: Integer;          i, j: Integer;
5995          idx: Integer;          idx: Integer;
         ThreadItem: TThreadItem;  
5996  begin  begin
5997    
5998  //      if NewTab = -1 then  //      if NewTab = -1 then
# Line 6031  begin Line 6030  begin
6030                                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true;                                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true;
6031                                  FBrowsers.Move(4, 0);                                  FBrowsers.Move(4, 0);
6032                          end;                          end;
                         ThreadItem := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Thread;  
6033                          TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront;                          TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront;
6034                          GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;                          GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;
6035                          OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;                          OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;

Legend:
Removed from v.1.333  
changed lines
  Added in v.1.334

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