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.242 by yoffy, Mon Apr 5 10:49:03 2004 UTC revision 1.243 by yoffy, Mon Apr 5 11:02:40 2004 UTC
# Line 3313  begin Line 3313  begin
3313          if GikoSys.Setting.ListOrientation = gloHorizontal then begin          if GikoSys.Setting.ListOrientation = gloHorizontal then begin
3314                  if GikoSys.Setting.ListWidthState = glsMax then begin                  if GikoSys.Setting.ListWidthState = glsMax then begin
3315                          BrowserMinAction.Execute;                          BrowserMinAction.Execute;
3316                          ListView.SetFocus;                          if GikoForm.Visible then
3317                                    ListView.SetFocus;
3318                  end;                  end;
3319          end else begin          end else begin
3320                  if GikoSys.Setting.ListHeightState = glsMax then begin                  if GikoSys.Setting.ListHeightState = glsMax then begin
3321                          BrowserMinAction.Execute;                          BrowserMinAction.Execute;
3322                          ListView.SetFocus;                          if GikoForm.Visible then
3323                                    ListView.SetFocus;
3324                  end;                  end;
3325          end;          end;
3326  end;  end;
# Line 3680  begin Line 3682  begin
3682                          TreeView.TopItem.Expanded := True;                              //ツリートップ項目だけを開く                          TreeView.TopItem.Expanded := True;                              //ツリートップ項目だけを開く
3683                          //ツリーのトップ項目を選択する                          //ツリーのトップ項目を選択する
3684                          if GetActiveList = nil then begin                          if GetActiveList = nil then begin
3685                  try                                  try
3686                          TreeClick( TreeView.Items[0] );                                          TreeClick( TreeView.Items[0] );
3687                  except                                  except
3688                  end;                                  end;
   
3689                          end else begin                          end else begin
3690                                  for i := 0 to TreeView.Items.Count - 1 do begin                                  for i := 0 to TreeView.Items.Count - 1 do begin
3691                                          if TreeView.Items[i].Data = GetActiveList then begin                                          if TreeView.Items[i].Data = GetActiveList then begin
# Line 3930  begin Line 3931  begin
3931                  if GikoSys.Setting.ListOrientation = gloHorizontal then begin                  if GikoSys.Setting.ListOrientation = gloHorizontal then begin
3932                          if GikoSys.Setting.ListWidthState = glsMin then begin                          if GikoSys.Setting.ListWidthState = glsMin then begin
3933                                  BrowserMaxAction.Execute;                                  BrowserMaxAction.Execute;
3934                                  Browser.SetFocus;                                  if GikoForm.Visible then
3935                                            Browser.SetFocus;
3936                          end;                          end;
3937                  end else begin                  end else begin
3938                          if GikoSys.Setting.ListHeightState = glsMin then begin                          if GikoSys.Setting.ListHeightState = glsMin then begin
3939                                  BrowserMaxAction.Execute;                                  BrowserMaxAction.Execute;
3940                                  Browser.SetFocus;                                  if GikoForm.Visible then
3941                                            Browser.SetFocus;
3942                          end;                          end;
3943                  end;                  end;
3944          end;          end;

Legend:
Removed from v.1.242  
changed lines
  Added in v.1.243

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