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.394 by yoffy, Sun Aug 15 16:06:59 2004 UTC revision 1.395 by yoffy, Sun Aug 15 16:20:29 2004 UTC
# Line 8816  begin Line 8816  begin
8816                  and (FActiveContent.FBrowser.Busy) then Exit;                  and (FActiveContent.FBrowser.Busy) then Exit;
8817    
8818          FResRangeMenuSelect                             := Ord( grrAll );          FResRangeMenuSelect                             := Ord( grrAll );
8819            AllResAction.Checked                    := True;
8820    
8821          if GikoSys.ResRange <> Ord( grrAll ) then begin          if GikoSys.ResRange <> Ord( grrAll ) then begin
8822                  GikoSys.ResRange := Ord( grrAll );                  GikoSys.ResRange := Ord( grrAll );
# Line 10985  begin Line 10986  begin
10986          if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)          if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
10987                  and (FActiveContent.FBrowser.Busy) then Exit;                  and (FActiveContent.FBrowser.Busy) then Exit;
10988    
10989          FResRangeMenuSelect                             := 100;          FResRangeMenuSelect                                             := 100;
10990            OnlyAHundredResAction.Checked   := True;
10991    
10992          if GikoSys.ResRange <> 100 then begin          if GikoSys.ResRange <> 100 then begin
10993                  GikoSys.ResRange                                        := 100;                  GikoSys.ResRange                                        := 100;
# Line 11021  begin Line 11023  begin
11023                  and (FActiveContent.FBrowser.Busy) then Exit;                  and (FActiveContent.FBrowser.Busy) then Exit;
11024    
11025          FResRangeMenuSelect                             := Ord( grrKoko );          FResRangeMenuSelect                             := Ord( grrKoko );
11026            OnlyKokoResAction.Checked       := True;
11027    
11028          if GikoSys.ResRange <> Ord( grrKoko ) then begin          if GikoSys.ResRange <> Ord( grrKoko ) then begin
11029                  GikoSys.ResRange                                        := Ord( grrKoko );                  GikoSys.ResRange                                        := Ord( grrKoko );
# Line 11056  begin Line 11059  begin
11059                  and (FActiveContent.FBrowser.Busy) then Exit;                  and (FActiveContent.FBrowser.Busy) then Exit;
11060    
11061          FResRangeMenuSelect                             := Ord( grrNew );          FResRangeMenuSelect                             := Ord( grrNew );
11062            OnlyNewResAction.Checked        := True;
11063    
11064          if GikoSys.ResRange <> Ord( grrNew ) then begin          if GikoSys.ResRange <> Ord( grrNew ) then begin
11065                  GikoSys.ResRange                                        := Ord( grrNew );                  GikoSys.ResRange                                        := Ord( grrNew );

Legend:
Removed from v.1.394  
changed lines
  Added in v.1.395

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