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.322 by yoffy, Thu Jun 3 09:22:42 2004 UTC revision 1.323 by yoffy, Thu Jun 3 09:42:05 2004 UTC
# Line 4125  begin Line 4125  begin
4125                          end;                          end;
4126                          SetActiveList( Item );                          SetActiveList( Item );
4127                  end;                  end;
4128    
4129                    if Item is TBoard then begin // not TCategory
4130                            if GikoSys.Setting.ListOrientation = gloHorizontal then begin
4131                                    if GikoSys.Setting.ListWidthState = glsMax then begin
4132                                            BrowserMinAction.Execute;
4133                                            if GikoForm.Visible then
4134                                                    ListView.SetFocus;
4135                                    end;
4136                            end else begin
4137                                    if GikoSys.Setting.ListHeightState = glsMax then begin
4138                                            BrowserMinAction.Execute;
4139                                            if GikoForm.Visible then
4140                                                    ListView.SetFocus;
4141                                    end;
4142                            end;
4143                    end;
4144          end;          end;
4145  end;  end;
4146    
# Line 6815  begin Line 6831  begin
6831                          Exit;                          Exit;
6832    
6833                  InsertBrowserTab(ThreadItem, ActiveTab);                  InsertBrowserTab(ThreadItem, ActiveTab);
6834    
6835                    if GikoSys.Setting.ListOrientation = gloHorizontal then begin
6836                            if GikoSys.Setting.ListWidthState = glsMin then begin
6837                                    BrowserMaxAction.Execute;
6838                                    if GikoForm.Visible then
6839                                            Browser.SetFocus;
6840                            end;
6841                    end else begin
6842                            if GikoSys.Setting.ListHeightState = glsMin then begin
6843                                    BrowserMaxAction.Execute;
6844                                    if GikoForm.Visible then
6845                                            Browser.SetFocus;
6846                            end;
6847                    end;
6848          end;          end;
6849  end;  end;
6850    
# Line 9895  begin Line 9925  begin
9925                  SetActiveList(Node.data);                  SetActiveList(Node.data);
9926          end;          end;
9927    
9928            if TObject( Node.Data ) is TBoard then begin // not TCategory
9929                    if GikoSys.Setting.ListOrientation = gloHorizontal then begin
9930                            if GikoSys.Setting.ListWidthState = glsMax then begin
9931                                    BrowserMinAction.Execute;
9932                                    if GikoForm.Visible then
9933                                            ListView.SetFocus;
9934                            end;
9935                    end else begin
9936                            if GikoSys.Setting.ListHeightState = glsMax then begin
9937                                    BrowserMinAction.Execute;
9938                                    if GikoForm.Visible then
9939                                            ListView.SetFocus;
9940                            end;
9941                    end;
9942            end;
9943    
9944  end;  end;
9945    
9946  // TreeView がダブルクリックされた  // TreeView がダブルクリックされた

Legend:
Removed from v.1.322  
changed lines
  Added in v.1.323

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