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.253 by yoffy, Wed Apr 7 04:48:10 2004 UTC revision 1.254 by yoffy, Wed Apr 7 11:55:40 2004 UTC
# Line 5567  begin Line 5567  begin
5567                          AddressComboBox.Text := ThreadItem.URL;                          AddressComboBox.Text := ThreadItem.URL;
5568                  end;                  end;
5569          end;          end;
5570    
5571            if GikoSys.Setting.ListOrientation = gloHorizontal then begin
5572                    if GikoSys.Setting.ListWidthState = glsMin then begin
5573                            BrowserMaxAction.Execute;
5574                            if GikoForm.Visible then
5575                                    Browser.SetFocus;
5576                    end;
5577            end else begin
5578                    if GikoSys.Setting.ListHeightState = glsMin then begin
5579                            BrowserMaxAction.Execute;
5580                            if GikoForm.Visible then
5581                                    Browser.SetFocus;
5582                    end;
5583            end;
5584  end;  end;
5585    
5586  procedure TGikoForm.BrowserTabClick(Sender: TObject);  procedure TGikoForm.BrowserTabClick(Sender: TObject);
5587  var  var
5588          idx: Integer;          idx: Integer;

Legend:
Removed from v.1.253  
changed lines
  Added in v.1.254

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