Width = 408
Height = 22
AutoSize = True
- ButtonWidth = 25
+ ButtonWidth = 24
Caption = #12502#12521#12454#12470#12484#12540#12523#12496#12540
EdgeBorders = []
Flat = True
Action = BrowserMaxAction
end
object ToolButton7: TToolButton
- Left = 25
+ Left = 24
Top = 0
Action = BrowserMinAction
end
object ToolButton3: TToolButton
- Left = 50
+ Left = 48
Top = 0
Width = 8
Style = tbsSeparator
end
object TopButton: TToolButton
- Left = 58
+ Left = 56
Top = 0
Action = ScrollTopAction
end
object LastBotton: TToolButton
- Left = 83
+ Left = 80
Top = 0
Action = ScrollLastAction
end
object NewButton: TToolButton
- Left = 108
+ Left = 104
Top = 0
Action = ScrollNewAction
end
object KokoButton: TToolButton
- Left = 133
+ Left = 128
Top = 0
Action = ScrollKokoAction
end
object ToolButton9: TToolButton
- Left = 158
+ Left = 152
Top = 0
Width = 8
Style = tbsSeparator
end
- object AllResToolButton: TToolButton
- Left = 166
- Top = 0
- Action = AllResAction
- Style = tbsCheck
- end
object SelectResToolButton: TToolButton
- Left = 191
+ Left = 160
Top = 0
Action = SelectResAction
Style = tbsCheck
end
object ResRangeButton: TToolButton
- Left = 216
+ Left = 184
Top = 0
Action = ResRangeAction
DropdownMenu = ResRangePopupMenu
Style = tbsDropDown
end
object ToolButton16: TToolButton
- Left = 252
+ Left = 219
Top = 0
Width = 8
Caption = 'ToolButton16'
Style = tbsSeparator
end
object EditorButton: TToolButton
- Left = 260
+ Left = 227
Top = 0
Action = EditorAction
end
object ToolButton11: TToolButton
- Left = 285
+ Left = 251
Top = 0
Width = 8
Style = tbsSeparator
end
object IEButton: TToolButton
- Left = 293
+ Left = 259
Top = 0
Action = IEAction
DropdownMenu = BrowserPopupMenu
Style = tbsDropDown
end
object ToolButton5: TToolButton
- Left = 329
+ Left = 294
Top = 0
Width = 8
Style = tbsSeparator
end
object ItemReloadButton: TToolButton
- Left = 337
+ Left = 302
Top = 0
Action = ItemReloadAction
end
object ToolButton20: TToolButton
- Left = 362
+ Left = 326
Top = 0
Width = 8
Caption = 'ToolButton20'
Style = tbsSeparator
end
object UpBoardButton: TToolButton
- Left = 370
+ Left = 334
Top = 0
Action = UpBoardAction
end
object OnlyAHundredRes: TAction
Category = #12473#12524#12483#12489
AutoCheck = True
- Caption = #26368#26032'100'#12524#12473#12398#12415#34920#31034
+ Caption = #26368#26032'100'#12524#12473#12398#12415#34920#31034'(&H)'
GroupIndex = 2
Hint = #26368#26032'100'#12524#12473#12398#12415#34920#31034
ImageIndex = 38
object OnlyKokoResAction: TAction
Category = #12473#12524#12483#12489
AutoCheck = True
- Caption = #26410#35501#12524#12473#12398#12415#34920#31034
+ Caption = #26410#35501#12524#12473#12398#12415#34920#31034'(&K)'
GroupIndex = 2
Hint = #26410#35501#12524#12473#12398#12415#34920#31034
ImageIndex = 38
object OnlyNewResAction: TAction
Category = #12473#12524#12483#12489
AutoCheck = True
- Caption = #26032#30528#12524#12473#12398#12415#34920#31034
+ Caption = #26032#30528#12524#12473#12398#12415#34920#31034'(&N)'
GroupIndex = 2
Hint = #26032#30528#12524#12473#12398#12415#34920#31034
ImageIndex = 38
object ResRangePopupMenu: TPopupMenu
Left = 37
Top = 468
+ object A14: TMenuItem
+ Action = AllResAction
+ AutoCheck = True
+ end
object N1001: TMenuItem
Action = OnlyAHundredRes
AutoCheck = True
SelectResAction: TAction;
ToolButton16: TToolButton;
AllResAction: TAction;
- AllResToolButton: TToolButton;
N50: TMenuItem;
A11: TMenuItem;
S5: TMenuItem;
OnlyAHundredRes: TAction;
OnlyNewResAction: TAction;
OnlyKokoResAction: TAction;
+ A14: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure CabinetPanelHide(Sender: TObject);
try
// \83\8c\83X\95\\8e¦\94Í\88Í
if not GikoSys.Setting.ResRangeHold then
- GikoSys.Setting.ResRange := GikoSys.ResRange;
+ GikoSys.Setting.ResRange := FResRangeMenuSelect;
except
end;
LockWindowUpdate(0);
try
TreeView.Items.BeginUpdate;
- Node := TreeView.Items.GetFirstNode.Free;
+ TreeView.Items.GetFirstNode.Free;
TreeView.Items.Clear;
TreeView.Items.EndUpdate;
except
Dlg.SelectComboBox.Text := FSelectResWord;
Dlg.ShowModal;
if Dlg.ModalResult = mrOK then begin
+ SelectResAction.Checked := True;
if Length( Dlg.SelectComboBox.Text ) = 0 then begin
- // \8bó\93ü\97Í\82Å OK \82Í\83L\83\83\83\93\83Z\83\8b\82Æ\93¯\88Ó\8b`
- case GikoSys.ResRange of
- Ord( grrAll ): AllResAction.Execute;
- Ord( grrSelect ): AllResAction.Execute;
- else ResRangeAction.Execute;
- end;
+ // \8bó\93ü\97Í\82Å OK \82Í\8di\82è\8d\9e\82Ý\89ð\8f\9c\82Æ\93¯\88Ó\8b`
+ ResRangeAction.Execute;
end else begin
- // \83{\83^\83\93\82Ì\8dX\90V
- AllResAction.Checked := False;
- SelectResAction.Checked := True;
- ResRangeAction.Checked := False;
GikoSys.ResRange := Ord( grrSelect );
// \8dÅ\8cã\82É\90Ý\92è\82µ\82½\82à\82Ì\82ð\8ao\82¦\82Ä\82¨\82
end;
end else begin
// \83L\83\83\83\93\83Z\83\8b
- case GikoSys.ResRange of
- Ord( grrAll ): AllResAction.Execute;
- Ord( grrSelect ): {* nothing *};
- else ResRangeAction.Execute;
- end;
+ if GikoSys.ResRange <> Ord( grrSelect ) then
+ ResRangeAction.Execute;
end;
finally
Dlg.Release;
if(FActiveContent <> nil) and (FActiveContent.FBrowser <> nil )
and (FActiveContent.FBrowser.Busy) then Exit;
- // \83{\83^\83\93\82Ì\8dX\90V
- AllResAction.Checked := True;
- SelectResAction.Checked := False;
- ResRangeAction.Checked := False;
+ FResRangeMenuSelect := Ord( grrAll );
if GikoSys.ResRange <> Ord( grrAll ) then begin
GikoSys.ResRange := Ord( grrAll );
FilterList : TStringList;
i: Integer;
begin
- if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
- and (FActiveContent.FBrowser.Busy) then Exit;
-
- // \95\\8e¦\82Ì\8dX\90V
- AllResAction.Checked := False;
- SelectResAction.Checked := False;
- ResRangeButton.Down := True;
- GikoSys.ResRange := FResRangeMenuSelect;
case FResRangeMenuSelect of
- Ord( grrKoko ): OnlyKokoResAction.Checked := True;
- Ord( grrNew ): OnlyNewResAction.Checked := True;
- 100: OnlyAHundredRes.Checked := True;
- end;
-
- // \83t\83B\83\8b\83^\95¶\8e\9a\97ñ\82ð\8bó\82É\82·\82é
- FilterList := TStringList.Create;
- try
- GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
- GikoSys.FSelectResFilter.Reverse := False;
- finally
- FilterList.Destroy;
- end;
-
- FSelectResWord := '';
-
- // \83X\83\8c\83b\83h\82ð\8dÄ\95`\89æ
- for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
+ Ord( grrAll ): AllResAction.Execute;
+ Ord( grrKoko ): OnlyKokoResAction.Execute;
+ Ord( grrNew ): OnlyNewResAction.Execute;
+ 100: OnlyAHundredRes.Execute;
end;
- ThreadItem := GetActiveContent;
- if ThreadItem <> nil then
- InsertBrowserTab( ThreadItem, True );
end;
procedure TGikoForm.FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
and (FActiveContent.FBrowser.Busy) then Exit;
- // \95\\8e¦\82Ì\8dX\90V
- AllResAction.Checked := False;
- SelectResAction.Checked := False;
- ResRangeButton.Down := True;
- OnlyAHundredRes.Checked := True;
- OnlyKokoResAction.Checked := False;
- OnlyNewResAction.Checked := False;
- GikoSys.ResRange := 100;
FResRangeMenuSelect := 100;
- // \83t\83B\83\8b\83^\95¶\8e\9a\97ñ\82ð\8bó\82É\82·\82é
- FilterList := TStringList.Create;
- try
- GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
- GikoSys.FSelectResFilter.Reverse := False;
- finally
- FilterList.Destroy;
- end;
+ if GikoSys.ResRange <> 100 then begin
+ GikoSys.ResRange := 100;
- FSelectResWord := '';
+ // \83t\83B\83\8b\83^\95¶\8e\9a\97ñ\82ð\8bó\82É\82·\82é
+ FilterList := TStringList.Create;
+ try
+ GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
+ GikoSys.FSelectResFilter.Reverse := False;
+ finally
+ FilterList.Destroy;
+ end;
- // \83X\83\8c\83b\83h\82ð\8dÄ\95`\89æ
- for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
+ FSelectResWord := '';
+
+ // \83X\83\8c\83b\83h\82ð\8dÄ\95`\89æ
+ for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
+ TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
+ end;
+ ThreadItem := GetActiveContent;
+ if ThreadItem <> nil then
+ InsertBrowserTab( ThreadItem, True );
end;
- ThreadItem := GetActiveContent;
- if ThreadItem <> nil then
- InsertBrowserTab( ThreadItem, True );
end;
procedure TGikoForm.OnlyKokoResActionExecute(Sender: TObject);
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
and (FActiveContent.FBrowser.Busy) then Exit;
- // \95\\8e¦\82Ì\8dX\90V
- AllResAction.Checked := False;
- SelectResAction.Checked := False;
- ResRangeButton.Down := True;
- OnlyAHundredRes.Checked := False;
- OnlyKokoResAction.Checked := True;
- OnlyNewResAction.Checked := False;
- GikoSys.ResRange := Ord( grrKoko );
FResRangeMenuSelect := Ord( grrKoko );
- // \83t\83B\83\8b\83^\95¶\8e\9a\97ñ\82ð\8bó\82É\82·\82é
- FilterList := TStringList.Create;
- try
- GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
- GikoSys.FSelectResFilter.Reverse := False;
- finally
- FilterList.Destroy;
- end;
+ if GikoSys.ResRange <> Ord( grrKoko ) then begin
+ GikoSys.ResRange := Ord( grrKoko );
- FSelectResWord := '';
+ // \83t\83B\83\8b\83^\95¶\8e\9a\97ñ\82ð\8bó\82É\82·\82é
+ FilterList := TStringList.Create;
+ try
+ GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
+ GikoSys.FSelectResFilter.Reverse := False;
+ finally
+ FilterList.Destroy;
+ end;
- // \83X\83\8c\83b\83h\82ð\8dÄ\95`\89æ
- for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
+ FSelectResWord := '';
+
+ // \83X\83\8c\83b\83h\82ð\8dÄ\95`\89æ
+ for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
+ TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
+ end;
+ ThreadItem := GetActiveContent;
+ if ThreadItem <> nil then
+ InsertBrowserTab( ThreadItem, True );
end;
- ThreadItem := GetActiveContent;
- if ThreadItem <> nil then
- InsertBrowserTab( ThreadItem, True );
end;
procedure TGikoForm.OnlyNewResActionExecute(Sender: TObject);
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
and (FActiveContent.FBrowser.Busy) then Exit;
- // \95\\8e¦\82Ì\8dX\90V
- AllResAction.Checked := False;
- SelectResAction.Checked := False;
- ResRangeButton.Down := True;
- OnlyAHundredRes.Checked := False;
- OnlyKokoResAction.Checked := False;
- OnlyNewResAction.Checked := True;
- GikoSys.ResRange := Ord( grrNew );
FResRangeMenuSelect := Ord( grrNew );
- // \83t\83B\83\8b\83^\95¶\8e\9a\97ñ\82ð\8bó\82É\82·\82é
- FilterList := TStringList.Create;
- try
- GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
- GikoSys.FSelectResFilter.Reverse := False;
- finally
- FilterList.Destroy;
- end;
+ if GikoSys.ResRange <> Ord( grrNew ) then begin
+ GikoSys.ResRange := Ord( grrNew );
- FSelectResWord := '';
+ // \83t\83B\83\8b\83^\95¶\8e\9a\97ñ\82ð\8bó\82É\82·\82é
+ FilterList := TStringList.Create;
+ try
+ GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
+ GikoSys.FSelectResFilter.Reverse := False;
+ finally
+ FilterList.Destroy;
+ end;
- // \83X\83\8c\83b\83h\82ð\8dÄ\95`\89æ
- for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
- TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
+ FSelectResWord := '';
+
+ // \83X\83\8c\83b\83h\82ð\8dÄ\95`\89æ
+ for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
+ TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
+ end;
+ ThreadItem := GetActiveContent;
+ if ThreadItem <> nil then
+ InsertBrowserTab( ThreadItem, True );
end;
- ThreadItem := GetActiveContent;
- if ThreadItem <> nil then
- InsertBrowserTab( ThreadItem, True );
end;
initialization