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.483 by h677, Wed Nov 3 03:24:27 2004 UTC revision 1.484 by h677, Wed Nov 3 04:52:45 2004 UTC
# Line 579  type Line 579  type
579      ListColumnPopupMenu: TPopupMenu;      ListColumnPopupMenu: TPopupMenu;
580      JumpToNumOfResAction: TAction;      JumpToNumOfResAction: TAction;
581      FavoriteTreeViewCollapseAction: TAction;      FavoriteTreeViewCollapseAction: TAction;
582        RightTabCloseAction: TAction;
583        LeftTabCloseAction: TAction;
584                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
585                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
586                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 923  type Line 925  type
925      procedure MenuToolBarResize(Sender: TObject);      procedure MenuToolBarResize(Sender: TObject);
926      procedure ListToolBarResize(Sender: TObject);      procedure ListToolBarResize(Sender: TObject);
927      procedure BrowserToolBarResize(Sender: TObject);      procedure BrowserToolBarResize(Sender: TObject);
928        procedure RightTabCloseActionExecute(Sender: TObject);
929        procedure RightTabCloseActionUpdate(Sender: TObject);
930        procedure LeftTabCloseActionExecute(Sender: TObject);
931        procedure LeftTabCloseActionUpdate(Sender: TObject);
932          private          private
933                  { Private 宣言 }                  { Private 宣言 }
934          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 11942  begin Line 11948  begin
11948          CoolBarResized( Sender, BrowserCoolBar );          CoolBarResized( Sender, BrowserCoolBar );
11949  end;  end;
11950    
11951    procedure TGikoForm.RightTabCloseActionExecute(Sender: TObject);
11952    var
11953            i: Integer;
11954            idx: Integer;
11955    begin
11956            idx := BrowserTab.TabIndex;
11957            if idx = -1 then Exit;
11958            BrowserTab.Tabs.BeginUpdate;
11959            for i := BrowserTab.Tabs.Count - 1 downto idx + 1 do begin
11960                    TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
11961                    BrowserTab.Tabs.Delete(i);
11962            end;
11963            BrowserTab.Tabs.EndUpdate;
11964    end;
11965    
11966    procedure TGikoForm.RightTabCloseActionUpdate(Sender: TObject);
11967    begin
11968            RightTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 1);
11969    end;
11970    
11971    procedure TGikoForm.LeftTabCloseActionExecute(Sender: TObject);
11972    var
11973            i: Integer;
11974            idx: Integer;
11975    begin
11976            idx := BrowserTab.TabIndex;
11977            if idx = -1 then Exit;
11978            BrowserTab.Tabs.BeginUpdate;
11979            if idx > 0 then begin
11980                    for i := idx - 1 downto 0 do begin
11981                            TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
11982                            BrowserTab.Tabs.Delete(i);
11983                    end;
11984            end;
11985            BrowserTab.Tabs.EndUpdate;
11986    end;
11987    
11988    procedure TGikoForm.LeftTabCloseActionUpdate(Sender: TObject);
11989    begin
11990            LeftTabCloseAction.Enabled := (BrowserTab.Tabs.Count > 1);
11991    end;
11992    
11993  initialization  initialization
11994                                  OleInitialize(nil);                                  OleInitialize(nil);
11995  finalization  finalization

Legend:
Removed from v.1.483  
changed lines
  Added in v.1.484

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