| 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); |
| 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; |
| 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 |