SHDocVw_TLB,
MSHTML_TLB,
{$IFEND}
- ComCtrls, BrowserRecord, Graphics, Messages, Setting, Dialogs;
+ ComCtrls, BrowserRecord, Graphics, Messages, Setting, Dialogs,
+ ActiveX, GikoSystem, MoveHistoryItem, HistoryList;
const
CAPTION_NAME: string = '\83M\83R\83i\83r';
TOOL_ICON_FAV_BOARD = 31; //!< \82¨\8bC\82É\93ü\82è\94Â\83A\83C\83R\83\93
TOOL_ICON_FAV_THREAD = 32; //!< \82¨\8bC\82É\93ü\82è\83X\83\8c\83A\83C\83R\83\93
+ //! HTTP
+ PROTOCOL_HTTP : string = 'http://';
//! \83M\83R\83i\83r\83T\83C\83g\82ÌURL
- URL_GIKONAVI: string = 'http://gikonavi.sourceforge.jp/';
+ URL_GIKONAVI: string = 'gikonavi.sourceforge.jp/';
+ //! \83M\83R\83i\83r(\94ð\93ï\8f\8a\94Å)\83T\83C\83g\82ÌURL
+ URL_GIKONAVIGO: string = 'gikonavigoeson.sourceforge.jp/';
//! Monazilla\83T\83C\83g\82ÌURL
- URL_MONAZILLA: string = 'http://www.monazilla.org/';
+ URL_MONAZILLA: string = 'www.monazilla.org/';
//! 2\82¿\82á\82ñ\82Ë\82é\82ÌURL
- URL_2ch: string = 'http://www.2ch.net/';
+ URL_2ch: string = 'www.2ch.net/';
//! \83M\83R\83i\83rWiki\82ÌURL
- URL_Wiki: string = 'http://gikowiki.dyndns.info/index.php?FAQ';
+ URL_Wiki: string = 'sourceforge.jp/projects/gikonavi/wiki/FAQ';
+ //! \83M\83R\83i\83r(\94ð\93ï\8f\8a\94Å)Wiki\82ÌURL
+ URL_GoWiki: string = 'sourceforge.jp/projects/gikonavigoeson/wiki/FAQ';
SELECTCOMBOBOX_NAME: string = ''; // '\83X\83\8c\83b\83h\8di\8d\9e\8c\9f\8dõ';
SELECTCOMBOBOX_COLOR: TColor = clWindow;
type
+
TGikoDM = class(TDataModule)
GikoFormActionList: TActionList;
OnlyAHundredResAction: TAction;
TabsSaveAction: TAction;
TabsOpenAction: TAction;
BrowsBoradHeadAction: TAction;
- TabAutoSaveAction: TAction;
- TabAutoLoadAction: TAction;
JumpToNumOfResAction: TAction;
FavoriteTreeViewCollapseAction: TAction;
RightTabCloseAction: TAction;
WikiFAQWebPageAction: TAction;
ToobarImageList: TImageList;
SaveDialog: TSaveDialog;
+ ThreadSizeCalcForFileAction: TAction;
+ SetInputAssistAction: TAction;
+ OpenFindDialogAction: TAction;
+ ArchiveItemAction: TAction;
+ LiveItemAction: TAction;
+ FavoriteTreeViewItemNameCopyAction: TAction;
+ CloseAllEditorAction: TAction;
+ PrevMoveHistory: TAction;
+ NextMoveHistory: TAction;
+ ClickActiveElementAction: TAction;
+ VKDownAction: TAction;
+ VKUpAction: TAction;
+ VKRightAction: TAction;
+ VKLeftAction: TAction;
+ StoredTaskTrayAction: TAction;
+ AllImageLinkToClipbordAction: TAction;
+ NewImageLinkToClipBoardAction: TAction;
+ SetForcusForAddresBarAction: TAction;
+ NewBoardSearchAction: TAction;
+ NGWordEditFormAction: TAction;
+ ScrollPageDownAction: TAction;
+ ScrollPageUpAction: TAction;
+ AllLinkToClipboardAction: TAction;
+ NewLinkToClipboardAction: TAction;
+ AddIDtoNGWord0Action: TAction;
+ AddIDtoNGWord1Action: TAction;
+ ExtractSameIDAction: TAction;
+ ShowTabListAction: TAction;
+ DereferenceResAction: TAction;
+ UpdateGikonaviAction: TAction;
+ konoURLPATHAction: TAction;
+ konoURLQueryAction: TAction;
+ PopupMenuSettingAction: TAction;
+ GikoNaviGoesonWebPageAction: TAction;
+ GoWikiFAQWebPageAction: TAction;
+ ThreadSearchAction: TAction;
+ ThreadNgEditAction: TAction;
procedure EditNGActionExecute(Sender: TObject);
procedure ReloadActionExecute(Sender: TObject);
procedure GoFowardActionExecute(Sender: TObject);
procedure SelectItemSaveForDatExecute(Sender: TObject);
procedure TabsSaveActionExecute(Sender: TObject);
procedure TabsOpenActionExecute(Sender: TObject);
- procedure TabAutoSaveActionExecute(Sender: TObject);
- procedure TabAutoLoadActionExecute(Sender: TObject);
procedure BeLogInOutActionExecute(Sender: TObject);
- procedure BeLogInOutActionUpdate(Sender: TObject);
procedure KokomadeActionExecute(Sender: TObject);
procedure ZenbuActionExecute(Sender: TObject);
procedure KokoResActionExecute(Sender: TObject);
procedure MidokuActionExecute(Sender: TObject);
procedure AllSelectActionExecute(Sender: TObject);
procedure AllSelectActionUpdate(Sender: TObject);
+ procedure ThreadSizeCalcForFileActionExecute(Sender: TObject);
+ procedure SetInputAssistActionExecute(Sender: TObject);
+ procedure OpenFindDialogActionExecute(Sender: TObject);
+ procedure ArchiveItemActionExecute(Sender: TObject);
+ procedure LiveItemActionExecute(Sender: TObject);
+ procedure FavoriteTreeViewItemNameCopyActionExecute(Sender: TObject);
+ procedure CloseAllEditorActionExecute(Sender: TObject);
+ procedure CloseAllEditorActionUpdate(Sender: TObject);
+ procedure PrevMoveHistoryUpdate(Sender: TObject);
+ procedure PrevMoveHistoryExecute(Sender: TObject);
+ procedure NextMoveHistoryUpdate(Sender: TObject);
+ procedure NextMoveHistoryExecute(Sender: TObject);
+ procedure ClickActiveElementActionExecute(Sender: TObject);
+ procedure VKDownActionExecute(Sender: TObject);
+ procedure VKUpActionExecute(Sender: TObject);
+ procedure VKRightActionExecute(Sender: TObject);
+ procedure VKLeftActionExecute(Sender: TObject);
+ procedure StoredTaskTrayActionExecute(Sender: TObject);
+ procedure LeftTabSelectActionUpdate(Sender: TObject);
+ procedure RightmostTabSelectActionUpdate(Sender: TObject);
+ procedure NewImageLinkToClipBoardActionExecute(Sender: TObject);
+ procedure AllImageLinkToClipbordActionExecute(Sender: TObject);
+ procedure SetForcusForAddresBarActionExecute(Sender: TObject);
+ procedure NewBoardSearchActionExecute(Sender: TObject);
+ procedure ScrollPageDownActionExecute(Sender: TObject);
+ procedure ScrollPageUpActionExecute(Sender: TObject);
+ procedure AllLinkToClipboardActionExecute(Sender: TObject);
+ procedure NewLinkToClipboardActionExecute(Sender: TObject);
+ procedure AddIDtoNGWord0ActionExecute(Sender: TObject);
+ procedure AddIDtoNGWord1ActionExecute(Sender: TObject);
+ procedure ExtractSameIDActionExecute(Sender: TObject);
+ procedure ShowTabListActionExecute(Sender: TObject);
+ procedure DereferenceResActionExecute(Sender: TObject);
+ procedure UpdateGikonaviActionExecute(Sender: TObject);
+ procedure konoURLPATHActionExecute(Sender: TObject);
+ procedure konoURLQueryActionExecute(Sender: TObject);
+ procedure konoURLQueryActionUpdate(Sender: TObject);
+ procedure PopupMenuSettingActionExecute(Sender: TObject);
+ procedure GikoNaviGoesonWebPageActionExecute(Sender: TObject);
+ procedure GoWikiFAQWebPageActionExecute(Sender: TObject);
+ procedure ThreadSearchActionExecute(Sender: TObject);
+ procedure ThreadNgEditActionExecute(Sender: TObject);
private
{ Private \90é\8c¾ }
- procedure RepaintStatusBar;
procedure ClearResFilter;
procedure SetResRange(range: Integer);
procedure SetThreadAreaHorNormal;
procedure SetThreadAreaVertical(gls : TGikoListState);
procedure SetThreadReadProperty(read: Boolean);
procedure SelectThreadSaveToFile(dat: Boolean);
+ function GetSortProperties(List: TObject;var vSortOrder: Boolean): Boolean;
+ procedure RecalcThreadSize(limit : Integer);
+ procedure ClearSelectComboBox;
+ procedure ClearMailAllEditor();
+ procedure ClearNameTextAllEditor();
+// procedure MoveURLWithHistory(URL : String; KeyMask: Boolean = False);
+ procedure BackToHistory(item: TMoveHistoryItem);
+ function GetActiveThreadLinks : IHTMLElementCollection;
+ procedure GetLinkURLs(links : IHTMLElementCollection;
+ URLs : TStringList; const Start: Integer; Exts : TStringList);
public
{ Public \90é\8c¾ }
+ procedure RepaintStatusBar;
+ function EditorFormExists(): boolean;
+ procedure GetTabURLs(AStringList: TStringList);
+ procedure OpenURLs(AStringList: TStringList);
+ procedure MoveURLWithHistory(URL : String; KeyMask: Boolean = False);
+ procedure SaveThreadSearchSetting;
published
{ Published \90é\8c¾ }
//! TAction\82ÅGetActiveContent\82ªnil\88È\8aO\82Å\97L\8cø\82É\82È\82é
procedure DependActiveCntentActionUpdate(Sender: TObject);
//! TAction\82ÅGetActiveContent\82ªnil\88È\8aO\82©\82Â\83\8d\83O\82ð\8e\9d\82Á\82Ä\82¢\82é\82Æ\97L\8cø\82É\82È\82é
procedure DependActiveCntentLogActionUpdate(Sender: TObject);
- //! TAction\82ÅActiveList\82ªTBoard\82Å\97L\8cø\82É\82È\82é
+ //! TAction\82ÅActiveList\82ªTBoard(\94ñ\93Á\8eê\94Â)\82Å\97L\8cø\82É\82È\82é
procedure DependActiveListTBoardActionUpdate(Sender: TObject);
+ //! TAction\82ÅActiveList\82ªTBoard\82Å\97L\8cø\82É\82È\82é
+ procedure DependActiveListTBoardWithSpeciapActionUpdate(Sender: TObject);
end;
var
uses
Windows, Math, Clipbrd,
- Giko, GikoSystem, GikoUtil, BoardGroup,
+ Giko, GikoUtil, BoardGroup,
FavoriteArrange, Favorite, MojuUtils,
Editor, ListSelect, Search, Option, Round,
KeySetting, Gesture, Kotehan, ToolBarSetting,
ToolBarUtil, NewBoard, HTMLCreate, IndividualAbon,
GikoBayesian, About, ShellAPI,
RoundName, RoundData, Menus, ListViewUtils,
- ThreadControl, GikoMessage;
+ ThreadControl, GikoMessage, InputAssist,
+ DefaultFileManager, Forms, NewBoardURL, UpdateCheck,
+ PopupMenuSetting, ThreadSearch, ThreadNGEdt;
+const
+ MSG_ERROR : string = '\83G\83\89\81[';
{$R *.dfm}
// *************************************************************************
and (GikoForm.GetActiveContent.IsLogFile);
end;
// *************************************************************************
-//! TAction\82ÅActiveList\82ªTBoard\82Å\97L\8cø\82É\82È\82é
+//! TAction\82ÅActiveList\82ªTBoard(\94ñ\93Á\8eê\94Â)\82Å\97L\8cø\82É\82È\82é
// *************************************************************************
procedure TGikoDM.DependActiveListTBoardActionUpdate(Sender: TObject);
begin
+ TAction(Sender).Enabled := (GikoForm.GetActiveList is TBoard) and
+ (GikoForm.GetActiveList <> BoardGroup.SpecialBoard);
+end;
+// *************************************************************************
+//! TAction\82ÅActiveList\82ªTBoard\82Å\97L\8cø\82É\82È\82é
+// *************************************************************************
+procedure TGikoDM.DependActiveListTBoardWithSpeciapActionUpdate(Sender: TObject);
+begin
TAction(Sender).Enabled := (GikoForm.GetActiveList is TBoard);
end;
// *************************************************************************
procedure TGikoDM.EditNGActionExecute(Sender: TObject);
begin
//\83e\83L\83X\83g\82É\8aÖ\98A\95t\82¯\82ç\82ê\82½\83A\83v\83\8a\82ÅNG\83\8f\81[\83h\83t\83@\83C\83\8b\82ð\83I\81[\83v\83\93
- GikoSys.FAbon.EditNGwords;
+ if (GikoSys.FAbon.EditNGwords(GikoForm) = True) then
+ ReloadAction.Execute;
end;
// *************************************************************************
//! NG\83\8f\81[\83h\93Ç\82Ý\8d\9e\82Ý\81i\8dÄ\93Ç\82Ý\8d\9e\82Ý\81j
begin
//\83\8a\83\8d\81[\83h\82ð\8eÀ\8ds\81@\8e¸\94s\82µ\82½\82ç\83\81\83b\83Z\81[\83W\8fo\97Í
if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin
- MsgBox(GikoForm.Handle, 'NG\83\8f\81[\83h\83t\83@\83C\83\8b\82Ì\8dÄ\93Ç\82Ý\8d\9e\82Ý\82É\8e¸\94s\82µ\82Ü\82µ\82½', '\83G\83\89\81[', MB_OK or MB_ICONEXCLAMATION);
+ MsgBox(GikoForm.Handle, 'NG\83\8f\81[\83h\83t\83@\83C\83\8b\82Ì\8dÄ\93Ç\82Ý\8d\9e\82Ý\82É\8e¸\94s\82µ\82Ü\82µ\82½',
+ MSG_ERROR, MB_OK or MB_ICONEXCLAMATION);
end else begin
//\91S\82Ä\82Ì\83^\83u\82É\8dÄ\95`\89æ\82ð\90Ý\92è
GikoForm.RepaintAllTabsBrowser();
begin
//\88ê\82Â\8cã\82ë\82Ì\93Ç\82Ý\8d\9e\82Ý\81@\8e¸\94s\82µ\82½\82ç\83\81\83b\83Z\81[\83W\8fo\97Í
if GikoSys.FAbon.GoBack =false then begin
- MsgBox(GikoForm.Handle, '\88ê\82Â\8cã\82ë\82ÌNG\83\8f\81[\83h\83t\83@\83C\83\8b\82Ì\93Ç\82Ý\8d\9e\82Ý\82É\8e¸\94s\82µ\82Ü\82µ\82½', '\83G\83\89\81[', MB_OK or MB_ICONEXCLAMATION);
+ MsgBox(GikoForm.Handle, '\88ê\82Â\8cã\82ë\82ÌNG\83\8f\81[\83h\83t\83@\83C\83\8b\82Ì\93Ç\82Ý\8d\9e\82Ý\82É\8e¸\94s\82µ\82Ü\82µ\82½',
+ MSG_ERROR, MB_OK or MB_ICONEXCLAMATION);
end else begin
//\83X\83e\81[\83^\83X\82É\95\\8e¦\82³\82ê\82éNG\83\8f\81[\83h\83t\83@\83C\83\8b\96¼\82ð\8dX\90V
RepaintStatusBar;
begin
//\88ê\82Â\8cã\82ë\82Ì\93Ç\82Ý\8d\9e\82Ý\81@\8e¸\94s\82µ\82½\82ç\83\81\83b\83Z\81[\83W\8fo\97Í
if GikoSys.FAbon.GoForward =false then begin
- MsgBox(GikoForm.Handle, '\88ê\82Â\91O\82ÌNG\83\8f\81[\83h\83t\83@\83C\83\8b\82Ì\93Ç\82Ý\8d\9e\82Ý\82É\8e¸\94s\82µ\82Ü\82µ\82½', '\83G\83\89\81[', MB_OK or MB_ICONEXCLAMATION);
+ MsgBox(GikoForm.Handle, '\88ê\82Â\91O\82ÌNG\83\8f\81[\83h\83t\83@\83C\83\8b\82Ì\93Ç\82Ý\8d\9e\82Ý\82É\8e¸\94s\82µ\82Ü\82µ\82½',
+ MSG_ERROR, MB_OK or MB_ICONEXCLAMATION);
end else begin
//\83X\83e\81[\83^\83X\82É\95\\8e¦\82³\82ê\82éNG\83\8f\81[\83h\83t\83@\83C\83\8b\96¼\82ð\8dX\90V
RepaintStatusBar;
begin
//\83X\83e\81[\83^\83X\82É\95\\8e¦\82³\82ê\82éNG\83\8f\81[\83h\83t\83@\83C\83\8b\96¼\82ð\8dX\90V
s := GikoSys.FAbon.NGwordname;
- GikoForm.StatusBar.Panels.Items[2].Text := s;
+ GikoForm.StatusBar.Panels.Items[GiKo.NGWORDNAME_PANEL].Text := s;
//\83X\83e\81[\83^\83X\82Ì\95\\8e¦\83T\83C\83Y\82Ì\83\8a\83T\83C\83Y
- GikoForm.StatusBar.Panels[2].Width := Max(GikoForm.StatusBar.Canvas.TextWidth(s), 100);
+ GikoForm.StatusBar.Panels[GiKo.NGWORDNAME_PANEL].Width
+ := Max(GikoForm.StatusBar.Canvas.TextWidth(s), 100);
GikoForm.StatusBarResize(nil);
end;
// *************************************************************************
//! \83A\83h\83\8c\83X\83o\81[\82É\95\\8e¦\82µ\82Ä\82¢\82é\83A\83h\83\8c\83X\82Ö\88Ú\93®\82·\82é
// *************************************************************************
procedure TGikoDM.MoveToActionExecute(Sender: TObject);
-var
- URL: string;
- idx: Integer;
begin
//\83A\83h\83\8c\83X\83R\83\93\83{\83{\83b\83N\83X\82©\82çURL\82ð\8eæ\93¾
- URL := Trim(GikoForm.AddressComboBox.Text);
//URL\82É\88Ú\93®
- GikoForm.MoveToURL(URL);
- //\88È\89º\81A\97\9a\97ð\82Ì\8f\88\97\9d
- idx := GikoForm.AddressComboBox.Items.IndexOf(URL);
- if idx = -1 then begin
- GikoForm.AddressComboBox.Items.Insert(0, URL);
- if GikoForm.AddressComboBox.Items.Count > GikoSys.Setting.AddressHistoryCount then
- GikoForm.AddressComboBox.Items.Delete(GikoForm.AddressComboBox.Items.Count - 1);
- end else begin
- GikoForm.AddressComboBox.Items.Delete(idx);
- GikoForm.AddressComboBox.Items.Insert(0, URL);
- end;
+ MoveURLWithHistory( Trim(GikoForm.AddressComboBox.Text) );
end;
// *************************************************************************
//! \82¨\8bC\82É\93ü\82è\82Ì\92Ç\89Á\83_\83C\83A\83\8d\83O\82ð\8aJ\82
// *************************************************************************
procedure TGikoDM.FavoriteTreeViewReloadActionExecute(Sender: TObject);
var
- ThreadItem: TThreadItem;
FavThread: TFavoriteThreadItem;
- Board: TBoard;
FavBoard: TFavoriteBoardItem;
shiftDown: Boolean;
begin
-
- if GikoForm.ClickNode = nil then Exit;
+ if (GikoForm.ClickNode = nil) then Exit;
shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
if TObject( GikoForm.ClickNode.Data ) is TFavoriteThreadItem then begin
FavThread := TFavoriteThreadItem( GikoForm.ClickNode.Data );
- ThreadItem := FavThread.Item;
- if ThreadItem <> nil then
- GikoForm.DownloadContent(ThreadItem, shiftDown);
+ if FavThread.Item <> nil then
+ GikoForm.DownloadContent(FavThread.Item, shiftDown);
end else if TObject( GikoForm.ClickNode.Data ) is TFavoriteBoardItem then begin
FavBoard := TFavoriteBoardItem( GikoForm.ClickNode.Data );
- Board := FavBoard.Item;
- GikoForm.DownloadList(Board, shiftDown);
+ GikoForm.DownloadList(FavBoard.Item, shiftDown);
end;
end;
// *************************************************************************
-//! \91I\91ð\82³\82ê\82Ä\82¢\82é\83X\83\8c\83b\83h\82ÌURL\82ð\83R\83s\81[\82·\82é
+//! \91I\91ð\82³\82ê\82Ä\82¢\82é\82¨\8bC\82É\93ü\82è\82ÌURL\82ð\83R\83s\81[\82·\82é
// *************************************************************************
procedure TGikoDM.FavoriteTreeViewURLCopyActionExecute(Sender: TObject);
begin
end;
end;
// *************************************************************************
-//! \91I\91ð\82³\82ê\82Ä\82¢\82é\94Â\82Ì\96¼\91O\82ð\83R\83s\81[\82·\82é
+//! \91I\91ð\82³\82ê\82Ä\82¢\82é\82¨\8bC\82É\93ü\82è\82Ì\96¼\91O\82ð\83R\83s\81[\82·\82é
// *************************************************************************
procedure TGikoDM.FavoriteTreeViewNameCopyActionExecute(Sender: TObject);
begin
if (TObject(GikoForm.ClickNode.Data) is TFavoriteItem) then begin
Clipboard.AsText :=
TFavoriteItem(GikoForm.ClickNode.Data).GetItemTitle + #13#10;
+ end else begin
+ Clipboard.AsText :=
+ GikoForm.ClickNode.Text + #13#10;
+
end;
end;
// *************************************************************************
-//! \91I\91ð\82³\82ê\82Ä\82¢\82é\83X\83\8c\83b\83h\82Ì\96¼\91O\82ÆURL\82ð\83R\83s\81[\82·\82é
+//! \91I\91ð\82³\82ê\82Ä\82¢\82é\82¨\8bC\82É\93ü\82è\82Ì\96¼\91O\82ÆURL\82ð\83R\83s\81[\82·\82é
// *************************************************************************
procedure TGikoDM.FavoriteTreeViewNameURLCopyActionExecute(
Sender: TObject);
end;
// *************************************************************************
-//! \91I\91ð\82³\82ê\82Ä\82¢\82é\83X\83\8c\83b\83h\82ð\8dí\8f\9c\82·\82é
+//! \91I\91ð\82³\82ê\82Ä\82¢\82é\82¨\8bC\82É\93ü\82è\83X\83\8c\83b\83h\82ð\8dí\8f\9c\82·\82é
// *************************************************************************
procedure TGikoDM.FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);
const
GikoForm.ResRangeMenuSelect := 100;
OnlyAHundredResAction.Checked := True;
- //\81@\95\\8e¦\94Í\88Í\82ð\90Ý\92è\82·\82é
- SetResRange(100);
+ //\81@\95\\8e¦\94Í\88Í\82ð\90Ý\92è\82·\82é\81B\90Ý\92è\92l\82©\82ç\82Æ\82Á\82Ä\82\82é\81B
+ SetResRange(GikoSys.Setting.ResRangeExCount);
end;
// *************************************************************************
//! \96¢\93Ç\83\8c\83X\82Ì\82Ý\95\\8e¦
procedure TGikoDM.SetThreadAreaHorNormal;
begin
//\92Ê\8fí\95\\8e¦\82É\82·\82é
- if GikoForm.ActiveContent <> nil then
- SendMessage(GikoForm.ActiveContent.Browser.Handle, WM_SETREDRAW, 0, 0); //\95`\89æ\92â\8e~
GikoForm.ViewPanel.Width := GikoForm.BrowserSizeWidth;
BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
GikoSys.Setting.ListWidthState := glsNormal;
- if GikoForm.ActiveContent <> nil then
- SendMessage(GikoForm.ActiveContent.Browser.Handle, WM_SETREDRAW, 1, 0); //\95`\89æ
end;
// *************************************************************************
//! \83X\83\8c\83b\83h\95\\8e¦\83G\83\8a\83A\8dÅ\91å/\8dÅ\8f¬\95\\8e¦\82É\82·\82é \92\8d)ListOrientation = gloHorizontal\81@
// *************************************************************************
procedure TGikoDM.SetThreadAreaHorizontal(gls : TGikoListState);
begin
- if GikoForm.ActiveContent <> nil then
- SendMessage(GikoForm.ActiveContent.Browser.Handle, WM_SETREDRAW, 0, 0); //\95`\89æ\92â\8e~
if GikoSys.Setting.ListWidthState = glsNormal then
GikoForm.BrowserSizeWidth := GikoForm.ViewPanel.Width;
//\8dÅ\91å\95\\8e¦
BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
GikoSys.Setting.ListWidthState := glsMin;
end;
- if GikoForm.ActiveContent <> nil then
- SendMessage(GikoForm.ActiveContent.Browser.Handle, WM_SETREDRAW, 1, 0); //\95`\89æ
end;
// *************************************************************************
//! \83X\83\8c\83b\83h\95\\8e¦\83G\83\8a\83A\92Ê\8fí\95\\8e¦\82É\82·\82é \92\8d)ListOrientation = gloVertical
procedure TGikoDM.SetThreadAreaVerNormal;
begin
//\92Ê\8fí\95\\8e¦\82É\82·\82é
- if GikoForm.ActiveContent <> nil then
- SendMessage(GikoForm.ActiveContent.Browser.Handle, WM_SETREDRAW, 0, 0); //\95`\89æ\92â\8e~
GikoForm.ViewPanel.Height := GikoForm.BrowserSizeHeight;
BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
GikoSys.Setting.ListHeightState := glsNormal;
- if GikoForm.ActiveContent <> nil then
- SendMessage(GikoForm.ActiveContent.Browser.Handle, WM_SETREDRAW, 1, 0); //\95`\89æ
end;
// *************************************************************************
//! \83X\83\8c\83b\83h\95\\8e¦\83G\83\8a\83A\8dÅ\91å/\8dÅ\8f¬\95\\8e¦\82É\82·\82é \92\8d)ListOrientation = gloVertical
// *************************************************************************
procedure TGikoDM.SetThreadAreaVertical(gls : TGikoListState);
begin
- if GikoForm.ActiveContent <> nil then
- SendMessage(GikoForm.ActiveContent.Browser.Handle, WM_SETREDRAW, 0, 0); //\95`\89æ\92â\8e~
if GikoSys.Setting.ListHeightState = glsNormal then
GikoForm.BrowserSizeHeight := GikoForm.ViewPanel.Height;
if (gls = glsMin) then begin
BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
GikoSys.Setting.ListHeightState := glsMax;
end;
- if GikoForm.ActiveContent <> nil then
- SendMessage(GikoForm.ActiveContent.Browser.Handle, WM_SETREDRAW, 1, 0); //\95`\89æ
end;
// *************************************************************************
//! \83X\83\8c\83b\83h\95\\8e¦\83G\83\8a\83A\82ð\91å\82«\82\95\\8e¦\82·\82é
if Item = nil then Exit;
Editor := TEditorForm.Create(GikoForm.GetMainForm);
Editor.SetThreadItem(Item);
- GikoSys.LoadKeySetting(Editor.ActionList, GikoSys.GetEditorKeyFileName);
Editor.Show;
- Editor.BodyEdit.SetFocus;
+ Editor.SetFocusEdit;
end;
// *************************************************************************
//! \83X\83\8c\82ð\83u\83\89\83E\83U\82Å\95\\8e¦\82·\82é
if MsgBox(GikoForm.Handle, StringReplace( DEL_MSG, '^0', ThreadItem.Title, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
Exit;
GikoForm.DeleteTab(TBrowserRecord(GikoForm.BrowserTab.Tabs.Objects[idx]));
+ GikoForm.DeleteHistory(ThreadItem);
ThreadItem.DeleteLogFile;
if ThreadItem.ParentBoard = GikoForm.ActiveList then
GikoForm.ListView.Refresh;
end;
end;
// *************************************************************************
+//! \8d¶\82Ì\83^\83u\82ð\91I\91ð\82·\82é\82ÌUpdate\83C\83x\83\93\83g
+// *************************************************************************
+procedure TGikoDM.LeftTabSelectActionUpdate(Sender: TObject);
+begin
+ if ( not GikoSys.Setting.LoopBrowserTabs ) then begin
+ LeftmostTabSelectActionUpdate(Sender);
+ end else begin
+ TAction(Sender).Enabled := (GikoForm.BrowserTab.Tabs.Count > 1);
+ end;
+end;
+
+// *************************************************************************
//! \83^\83u\82Ì\90\94\82ª\82P\88È\8fã\82Å\81A\83^\83u\82Ì\83C\83\93\83f\83b\83N\83X\82ª\82O\88È\8aO\82Å\97L\8cø\82É\82È\82éUpdate\83C\83x\83\93\83g
// *************************************************************************
procedure TGikoDM.LeftmostTabSelectActionUpdate(Sender: TObject);
end else if GikoForm.BrowserTab.TabIndex > 0 then begin
GikoForm.BrowserTab.TabIndex := GikoForm.BrowserTab.TabIndex - 1;
GikoForm.BrowserTab.OnChange(nil);
- end;
+ end else begin
+ if (GikoSys.Setting.LoopBrowserTabs) and
+ (GikoForm.BrowserTab.TabIndex = 0) then begin
+ GikoForm.BrowserTab.TabIndex := GikoForm.BrowserTab.Tabs.Count - 1;
+ GikoForm.BrowserTab.OnChange(nil);
+ end;
+ end;
end;
end;
// *************************************************************************
end else if GikoForm.BrowserTab.TabIndex < (GikoForm.BrowserTab.Tabs.Count - 1) then begin
GikoForm.BrowserTab.TabIndex := GikoForm.BrowserTab.TabIndex + 1;
GikoForm.BrowserTab.OnChange(nil);
- end;
+ end else begin
+ if (GikoSys.Setting.LoopBrowserTabs) and
+ (GikoForm.BrowserTab.TabIndex = (GikoForm.BrowserTab.Tabs.Count - 1)) then begin
+ GikoForm.BrowserTab.TabIndex := 0;
+ GikoForm.BrowserTab.OnChange(nil);
+ end;
+ end;
end;
end;
// *************************************************************************
-//! \83^\83u\82Ì\90\94\82ª\82P\88È\8fã\82Å\81A\83^\83u\82ª\89E\92[\88È\8aO\82Å\97L\8cø\82É\82È\82éUpdate\83C\83x\83\93\83g
+//! \89E\82Ì\83^\83u\82ð\91I\91ð\82·\82éUpdate\83C\83x\83\93\83g
// *************************************************************************
procedure TGikoDM.RightTabSelectActionUpdate(Sender: TObject);
begin
- TAction(Sender).Enabled := (GikoForm.BrowserTab.Tabs.Count > 0)
- and (GikoForm.BrowserTab.TabIndex <> GikoForm.BrowserTab.Tabs.Count - 1);
+ if ( not GikoSys.Setting.LoopBrowserTabs ) then begin
+ RightmostTabSelectActionUpdate(Sender);
+ end else begin
+ TAction(Sender).Enabled := (GikoForm.BrowserTab.Tabs.Count > 1);
+ end;
end;
+
// *************************************************************************
//! \88ê\94Ô\89E\82Ì\83^\83u\82ð\91I\91ð\82·\82é
// *************************************************************************
end;
end;
// *************************************************************************
+//! \88ê\94Ô\89E\82Ì\83^\83u\82ð\91I\91ð\82·\82é\82ÌUpdate\83C\83x\83\93\83g
+// *************************************************************************
+procedure TGikoDM.RightmostTabSelectActionUpdate(Sender: TObject);
+begin
+ TAction(Sender).Enabled := (GikoForm.BrowserTab.Tabs.Count > 0)
+ and (GikoForm.BrowserTab.TabIndex <> GikoForm.BrowserTab.Tabs.Count - 1);
+
+end;
+// *************************************************************************
//! \91I\91ð\82³\82ê\82Ä\82¢\82é\83X\83\8c\83b\83h\82ð\82¨\8bC\82É\93ü\82è\82É\92Ç\89Á
// *************************************************************************
procedure TGikoDM.ThreadFavoriteAddActionExecute(Sender: TObject);
////////////////////////////////\83X\83\8c\83b\83h\82Ü\82Å\82¨\82µ\82Ü\82¢/////////////////////
procedure TGikoDM.DataModuleCreate(Sender: TObject);
begin
+ // GikoDM\82æ\82è\82à\91\81\82\8f\89\8aú\89»\82³\82ê\82é\95K\97v\82ª\82 \82é\83t\83@\83C\83\8b\82ª\82¢\82é\82Æ\82±\82¯\82é\81I\81I
+ // \8f\89\8aú\89»\8f\87\94Ô\82É\92\8d\88Ó\82·\82é\82±\82Æ\81I\81I
+ //\8f\89\89ñ\8bN\93®\8e\9e\82Ì\8f\89\8aú\89»\83t\83@\83C\83\8b\90Ý\92è
+ TDefaultFileManager.CopyDefaultFiles(GikoSys.Setting.GetDefaultFilesFileName);
end;
// *************************************************************************
//! \83\8d\83O\8c\9f\8dõ\83_\83C\83A\83\8d\83O\82ð\95\\8e¦\82·\82é
try
if Dlg.ShowModal = mrOk then begin
GikoSys.SaveKeySetting(GikoFormActionList, Setting.KEY_SETTING_FILE_NAME);
- GikoSys.SaveKeySetting(Dlg.EditorForm.ActionList, Setting.KEY_SETTING_FILE_NAME);
+ GikoSys.SaveKeySetting(Dlg.EditorForm.ActionList, Setting.EKEY_SETTING_FILE_NAME);
GikoSys.Setting.Gestures.SaveGesture( GikoSys.Setting.GetGestureFileName );
end;
Dlg: TNewBoardDialog;
Msg: string;
begin
- if GikoForm.EditorFormExists then begin
+ if (EditorFormExists) then begin
Msg := '\83\8c\83X\83G\83f\83B\83^\82ð\91S\82Ä\95Â\82¶\82Ä\82\82¾\82³\82¢';
- MsgBox(GikoForm.Handle, Msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
+ MsgBox(GikoForm.Handle, Msg, MSG_ERROR, MB_OK or MB_ICONSTOP);
Exit;
end;
Dlg := TNewBoardDialog.Create(GikoForm);
GikoForm.DeleteHistory(ThreadItem);
GikoForm.DeleteTab(ThreadItem);
ThreadItem.DeleteLogFile;
-
- GikoForm.TreeView.Refresh; // UnRead \82Ì\95\\8e¦\82ð\8dX\90V
end;
+ GikoForm.TreeView.Refresh; // UnRead \82Ì\95\\8e¦\82ð\8dX\90V
GikoForm.ListView.Refresh;
finally
List.Free;
if MsgBox(GikoForm.Handle, DEL_MSG, DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
Exit;
GikoSys.Setting.NameList.Clear;
- GikoForm.AllEditroFormNameTextClearClear;
+ ClearNameTextAllEditor
end;
// *************************************************************************
//! \83\8c\83X\83G\83f\83B\83^\82Ì\83\81\81[\83\8b\97\9a\97ð\82ð\8fÁ\8b\8e\82·\82é
if MsgBox(GikoForm.Handle, DEL_MSG, DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
Exit;
GikoSys.Setting.MailList.Clear;
- GikoForm.AllEditroFormMailTextClearClear;
+ ClearMailAllEditor;
end;
// *************************************************************************
//! \83M\83R\83i\83r\82ð\8fI\97¹\82·\82é
//! \83^\83u\82Ì\8f\87\94Ô\82ð\95Û\91¶
// *************************************************************************
procedure TGikoDM.TabsSaveActionExecute(Sender: TObject);
+const
+ Filename = 'tab.sav';
+ bFilename = '~tab.sav';
+var
+ SaveStringList: TStringList;
begin
- if not GikoForm.SaveTabURLs then begin
- if TabsSaveAction.Tag = 0 then
- ShowMessage('\95Û\91¶\82·\82é\83^\83u\82ª\82 \82è\82Ü\82¹\82ñ')
- else if TabsSaveAction.Tag = 1 then
- GikoDM.TabsOpenAction.Tag := -1;
+ SaveStringList := TStringList.Create;
+ try
+ GetTabURLs(SaveStringList);
+ try
+ if FileExists( GikoSys.GetAppDir + Filename) then begin
+ CopyFile(PChar(GikoSys.GetAppDir + Filename),
+ PChar(GikoSys.GetAppDir + bFilename), False);
+ end;
+ except
+ end;
+ SaveStringList.SaveToFile(GikoSys.GetAppDir + Filename);
+ finally
+ SaveStringList.Free;
end;
end;
// *************************************************************************
-//! \83^\83u\82Ì\8f\87\94Ô\82ð\95\9c\8c³
+//! \83u\83\89\83E\83U\83^\83u\82É\90Ý\92è\82³\82ê\82Ä\82¢\82é\83X\83\8c\83b\83h\82ÌURL\8eæ\93¾
// *************************************************************************
-procedure TGikoDM.TabsOpenActionExecute(Sender: TObject);
+procedure TGikoDM.GetTabURLs(AStringList: TStringList);
+var
+ rec : TBrowserRecord;
+ i : Integer;
begin
- if TabsOpenAction.Tag <> -1 then begin
- if not GikoForm.LoadTabURLs then begin
- if TabsOpenAction.Tag = 0 then
- ShowMessage('\95\\8e¦\82·\82é\83^\83u\82ª\82 \82è\82Ü\82¹\82ñ\81B');
- end;
- end;
+ for i := 0 to GikoForm.BrowserTab.Tabs.Count -1 do begin
+ try
+ rec := TBrowserRecord( GikoForm.BrowserTab.Tabs.Objects[ i ] );
+ if( rec <> nil) and (rec.Thread <> nil) then
+ AStringList.Add( rec.Thread.URL );
+ except
+ end;
+ end;
end;
// *************************************************************************
-//! \83^\83u\82Ì\8f\87\94Ô\82ð\8e©\93®\95Û\91¶
+//! \8ew\92è\82³\82ê\82½URL\82ð\8aJ\82«\81C\90æ\93ª\82Ì\83^\83u\82É\83t\83H\81[\83J\83X\82·\82é
// *************************************************************************
-procedure TGikoDM.TabAutoSaveActionExecute(Sender: TObject);
-begin
- GikoForm.SaveTabURLs;
+procedure TGikoDM.OpenURLs(AStringList: TStringList);
+var
+ GikoTab : TGikoTabAppend;
+ i, bound : Integer;
+ item : TThreadItem;
+begin
+ if (AStringList <> nil) then begin
+ GikoTab := GikoSys.Setting.BrowserTabAppend;
+ try
+ bound := AStringList.Count - 1;
+ if bound > -1 then begin
+ GikoSys.Setting.BrowserTabAppend := gtaLast;
+ for i := 0 to bound do begin
+ item := BBSsFindThreadFromURL( AStringList[ i ] );
+ if item <> nil then
+ GikoForm.InsertBrowserTab( item, false );
+ end;
+ //\8dÅ\8f\89\82Ì\82P\96\87\82É\90Ý\92è
+ if (GikoSys.Setting.URLDisplay) and
+ (GikoForm.BrowserTab.Tabs.Count > 0) then begin
+ GikoForm.AddressComboBox.Text :=
+ TBrowserRecord(GikoForm.BrowserTab.Tabs.Objects[0]).Thread.URL;
+ end;
+ end;
+ finally
+ GikoSys.Setting.BrowserTabAppend := GikoTab;
+ end;
+ end;
end;
// *************************************************************************
-//! \83^\83u\82Ì\8f\87\94Ô\82ð\8e©\93®\95\9c\8c³
+//! \83^\83u\82Ì\8f\87\94Ô\82ð\95\9c\8c³
// *************************************************************************
-procedure TGikoDM.TabAutoLoadActionExecute(Sender: TObject);
+procedure TGikoDM.TabsOpenActionExecute(Sender: TObject);
+const
+ TABFILE = 'tab.sav';
+var
+ URLs : TStringList;
+ fileName : string;
begin
- GikoForm.LoadTabURLs;
+ URLs := TStringList.Create();
+ try
+ fileName := GikoSys.GetAppDir + TABFILE;
+ if FileExists(fileName) then begin
+ try
+ URLs.LoadFromFile(fileName);
+ if (URLs.Count = 0) then begin
+ // \8bó\82Ì\83t\83@\83C\83\8b\82Ì\8fê\8d\87\81C\83o\83b\83N\83A\83b\83v\82ð\8dí\8f\9c\82µ\82È\82¢\82½\82ß\82É\8dí\8f\9c
+ SysUtils.DeleteFile(fileName);
+ end else begin
+ OpenURLs(URLs);
+ end;
+ except
+ on EFOpenError do ShowMessage('\83^\83u\83t\83@\83C\83\8b\82ª\8aJ\82¯\82Ü\82¹\82ñ');
+ end;
+ end;
+ finally
+ URLs.Free;
+ end;
+
+ if (GikoForm.BrowserTab.Tabs.Count = 0) and
+ (TabsOpenAction.Tag <> 1) then begin
+ ShowMessage('\95\\8e¦\82·\82é\83^\83u\82ª\82 \82è\82Ü\82¹\82ñ\81B');
+ end;
end;
// *************************************************************************
//! Be2ch\82É\83\8d\83O\83C\83\93/\83\8d\83O\83A\83E\83g\82·\82é
// *************************************************************************
procedure TGikoDM.BeLogInOutActionExecute(Sender: TObject);
+var
+ TmpCursor: TCursor;
+ msg : String;
begin
- GikoSys.Setting.BeLogin := not GikoSys.Setting.BeLogin;
-end;
-// *************************************************************************
-//! Be2ch\82É\83\8d\83O\83C\83\93/\83\8d\83O\83A\83E\83g\82·\82é\82ÌUpdate\83C\83x\83\93\83g
-// *************************************************************************
-procedure TGikoDM.BeLogInOutActionUpdate(Sender: TObject);
-begin
- if (GikoSys.Setting.BeUserID <> '') and (GikoSys.Setting.BeCode <> '') then begin
- if (GikoSys.Setting.BeLogin) then BeLogInOutAction.Checked := true
- else BeLogInOutAction.Checked := false;
- BeLogInOutAction.Enabled := true
- end else
- BeLogInOutAction.Enabled := false;
+ if GikoSys.Belib.Connected then begin
+ //\83\8d\83O\83A\83E\83g
+ GikoSys.Belib.Disconnect;
+ BeLogInOutAction.Checked := False;
+ GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmBeLogout), nil, gmiOK);
+ end else begin
+ TmpCursor := GikoForm.ScreenCursor;
+ GikoForm.ScreenCursor := crHourGlass;
+ try
+ GikoSys.Belib.ClientUA := 'gikoNavi/1.00';
+ GikoSys.Belib.UserName := GikoSys.Setting.BeUserID;
+ GikoSys.Belib.Password := GikoSys.Setting.BePassword;
+ if GikoSys.Setting.ReadProxy then begin
+ GikoSys.Belib.ProxyAddress := GikoSys.Setting.ReadProxyAddress;
+ GikoSys.Belib.ProxyPort := GikoSys.Setting.ReadProxyPort;
+ end else begin
+ GikoSys.Belib.ProxyAddress := '';
+ GikoSys.Belib.ProxyPort := 0;
+ end;
+ if GikoSys.Belib.Connect then begin
+ GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmBeLogin) + GikoSys.Setting.BeUserID, nil, gmiOK);
+ BeLogInOutAction.Checked := True;
+ end else begin
+ GikoForm.AddMessageList(GikoSys.Belib.ErrorMsg, nil, gmiNG);
+ GikoForm.PlaySound('Error');
+ BeLogInOutAction.Checked := False;
+ end;
+ finally
+ GikoForm.ScreenCursor := TmpCursor;
+ end;
+ end;
end;
////////////////////////////////\83t\83@\83C\83\8b\82Ü\82Å\82¨\82µ\82Ü\82¢/////////////////////
// *************************************************************************
ThreadItem: TThreadItem;
begin
No := GikoForm.KokoPopupMenu.Tag;
- if No = 0 then Exit;
- ThreadItem := GikoForm.GetActiveContent;
- if ThreadItem = nil then Exit;
+ if No = 0
+ then Exit;
+ ThreadItem := GikoForm.KokoPopupThreadItem;
+ if not Assigned(ThreadItem) then
+ Exit;
ThreadItem.Kokomade := No;
- GikoForm.ActiveContent.Thread.ScrollTop :=
- OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
+ GikoForm.ActiveContent.Thread.ScrollTop := GikoForm.ActiveContent.Browser.OleObject.Document.Body.ScrollTop;
GikoForm.ActiveContent.Repaint := true;
GikoForm.InsertBrowserTab(GikoForm.ActiveContent.Thread, true);
//INFO 2005/11/19 \88ê\92U\89B\95Á\81A\95K\97v\82È\82çGikoForm\82Ì\95û\82É\83\81\83\\83b\83h\82ð\92Ç\89Á\82·\82é
var
ThreadItem: TThreadItem;
begin
- ThreadItem := GikoForm.GetActiveContent;
+ ThreadItem := GikoForm.GetActiveContent(True);
if ThreadItem = nil then Exit;
ThreadItem.Kokomade := -1;
- GikoForm.ActiveContent.Thread.ScrollTop :=
- OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
+ GikoForm.ActiveContent.Thread.ScrollTop := GikoForm.ActiveContent.Browser.OleObject.Document.Body.ScrollTop;
GikoForm.ActiveContent.Repaint := true;
GikoForm.InsertBrowserTab(GikoForm.ActiveContent.Thread, true);
//INFO 2005/11/19 \88ê\92U\89B\95Á\81A\95K\97v\82È\82çGikoForm\82Ì\95û\82É\83\81\83\\83b\83h\82ð\92Ç\89Á\82·\82é
begin
Number := GikoForm.KokoPopupMenu.Tag;
if Number = 0 then Exit;
- Item := GikoForm.GetActiveContent;
+ Item := GikoForm.KokoPopupThreadItem;
if Item = nil then Exit;
Editor := TEditorForm.Create(GikoForm);
Editor.SetThreadItem(Item);
- GikoSys.LoadKeySetting(Editor.ActionList, GikoSys.GetEditorKeyFileName);
- Editor.BodyEdit.Text := '>>' + IntToStr(Number) + #13#10;
+ Editor.SetTextEdit('>>' + IntToStr(Number) + #13#10);
Editor.Show;
- Editor.BodyEdit.SetFocus;
+ Editor.SetFocusEdit;
end;
// *************************************************************************
//! \91I\91ð\82µ\82½\83\8c\83X\82ð\83R\83s\81[\82·\82é
//! \91I\91ð\82µ\82½\83\8c\83X\82ð\83R\83s\81[\82·\82é
// *************************************************************************
procedure TGikoDM.SameIDResAnchorActionExecute(Sender: TObject);
+const
+ LIMIT = 20;
var
ThreadItem : TThreadItem;
- No, count, rc : Integer;
- body : string;
- limited: boolean;
+ No : Integer;
+ AID: string;
begin
No := GikoForm.KokoPopupMenu.Tag;
if No = 0 then Exit;
- ThreadItem := GikoForm.GetActiveContent;
+ ThreadItem := GikoForm.KokoPopupThreadItem;
if ThreadItem = nil then Exit;
- count := GikoSys.GetSameIDResCount(No, GikoForm.ActiveContent.Thread);
- limited := false;
- if count > 20 then begin
- rc := GikoUtil.MsgBox(GikoForm.Handle,
- '20\8cÂ\88È\8fã\82 \82è\82Ü\82·\82ª\81A\82·\82×\82Ä\95\\8e¦\82µ\82Ü\82·\82©\81H',
- 'ID\83|\83b\83v\83A\83b\83v\8cx\8d\90',
- MB_YESNO or MB_ICONQUESTION);
- limited := rc <> ID_YES;
- end;
- body := GikoSys.GetSameIDResAnchor(No, ThreadItem, limited);
- GikoForm.ActiveContent.IDAnchorPopup(body);
+
+ AID := GikoSys.GetResID(No, ThreadItem);
+ if not IsNoValidID(AID) then begin
+ GikoForm.ShowSameIDAncher(AID);
+ end;
end;
// *************************************************************************
//! \82±\82Ì\83\8c\83X\82 \82Ú\81`\82ñ\81@\81i\92Ê\8fí\81j
begin
IndividualForm := TIndividualAbonForm.Create(GikoForm);
try
- ThreadItem := GikoForm.GetActiveContent;
- ThreadItem.ScrollTop :=
- OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
+ ThreadItem := GikoForm.GetActiveContent(True);
+ ThreadItem.ScrollTop := GikoForm.ActiveContent.Browser.OleObject.Document.Body.ScrollTop;
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin
ReadList := TStringList.Create;
begin
IndividualForm := TIndividualAbonForm.Create(GikoForm);
try
- ThreadItem := GikoForm.GetActiveContent;
- ThreadItem.ScrollTop :=
- OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
+ ThreadItem := GikoForm.GetActiveContent(True);
+ ThreadItem.ScrollTop := GikoForm.ActiveContent.Browser.OleObject.Document.Body.ScrollTop;
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin
if (IndividualForm.ShowModal = mrOK) then begin
// *************************************************************************
procedure TGikoDM.GikoNaviWebPageActionExecute(Sender: TObject);
begin
- GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
+ GikoSys.OpenBrowser(PROTOCOL_HTTP + URL_GIKONAVI, gbtAuto);
+end;
+// *************************************************************************
+//! \83M\83R\83i\83r(\94ð\93ï\8f\8a\94Å)\82Ì\83E\83F\83u\83T\83C\83g\82ð\95\\8e¦\82·\82é
+// *************************************************************************
+procedure TGikoDM.GikoNaviGoesonWebPageActionExecute(Sender: TObject);
+begin
+ GikoSys.OpenBrowser(PROTOCOL_HTTP + URL_GIKONAVIGO, gbtAuto);
end;
// *************************************************************************
//! \83\82\83i\83W\83\89\82Ì\83E\83F\83u\83T\83C\83g\82ð\95\\8e¦\82·\82é
// *************************************************************************
procedure TGikoDM.MonazillaWebPageActionExecute(Sender: TObject);
begin
- GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
+ GikoSys.OpenBrowser(PROTOCOL_HTTP + URL_MONAZILLA, gbtAuto);
end;
// *************************************************************************
//! \82Q\82¿\82á\82ñ\82Ë\82é\83g\83b\83v\83y\81[\83W\82ð\95\\8e¦\82·\82é
// *************************************************************************
procedure TGikoDM.BBS2chWebPageActionExecute(Sender: TObject);
begin
- GikoSys.OpenBrowser(URL_2ch, gbtAuto);
+ GikoSys.OpenBrowser(PROTOCOL_HTTP + URL_2ch, gbtAuto);
end;
// *************************************************************************
//! \83M\83R\83i\83r\82Ì\83t\83H\83\8b\83_\82ð\8aJ\82
'\83w\83\8b\83v\82ª\8c©\82Â\82©\82è\82Ü\82¹\82ñ\82Å\82µ\82½' + #13#10 +
'\83w\83\8b\83v\83t\83@\83C\83\8b\82ð\83M\83R\83i\83r\82Ì\83t\83H\83\8b\83_\82É\92u\82¢\82Ä\82\82¾\82³\82¢' + #13#10 +
'\83w\83\8b\83v\82Í\83M\83R\83i\83r\82Ì\83T\83C\83g\82É\92u\82¢\82Ä\82 \82è\82Ü\82·',
- '\83G\83\89\81[',
+ MSG_ERROR,
MB_ICONSTOP);
Exit;
end;
// *************************************************************************
procedure TGikoDM.WikiFAQWebPageActionExecute(Sender: TObject);
begin
- GikoSys.OpenBrowser(URL_Wiki, gbtAuto);
+ GikoSys.OpenBrowser(PROTOCOL_HTTP + URL_Wiki, gbtAuto);
+end;
+// *************************************************************************
+//! \83M\83R\83i\83r(\94ð\93ï\8f\8a\94Å)Wiki\82Ì\83E\83F\83u\83T\83C\83g\82ð\95\\8e¦\82·\82é
+// *************************************************************************
+procedure TGikoDM.GoWikiFAQWebPageActionExecute(Sender: TObject);
+begin
+ GikoSys.OpenBrowser(PROTOCOL_HTTP + URL_GoWiki, gbtAuto);
end;
////////////////////////////////\83w\83\8b\83v\82Ü\82Å\82¨\82µ\82Ü\82¢/////////////////////
// *************************************************************************
// *************************************************************************
procedure TGikoDM.UpFolderActionUpdate(Sender: TObject);
begin
- UpFolderAction.Enabled := not (GikoForm.GetActiveList is TBBS);
+ UpFolderAction.Enabled := not (GikoForm.GetActiveList is TBBS) and
+ (GikoForm.GetActiveList <> BoardGroup.SpecialBoard);
end;
// *************************************************************************
//! \95\\8e¦\81@\95\\8e¦\83\8a\83X\83g\82Ì\83\82\81[\83h\95Ï\8dX
end;
end;
// *************************************************************************
+//! SelectComboBox\82Ì\92l\82ð\83N\83\8a\83A\82·\82é
+// *************************************************************************
+procedure TGikoDM.ClearSelectComboBox;
+begin
+ if GikoForm.SelectComboBoxPanel.Visible then begin
+ GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME;
+ GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
+ GikoForm.ListView.SetFocus;
+ end;
+end;
+// *************************************************************************
//! \83X\83\8c\83b\83h\82ð\82·\82×\82Ä\95\\8e¦\82·\82é
// *************************************************************************
procedure TGikoDM.AllItemActionExecute(Sender: TObject);
// SelectComboBox \82Ì\97\9a\97ð\82ð\8dX\90V\82µ\82Ä\82¨\82
GikoForm.ModifySelectList;
// SelectComboBox \82Ì\92l\82ð\83N\83\8a\83A
- if GikoForm.SelectComboBoxPanel.Visible then begin
- GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME;
- GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
- GikoForm.ListView.SetFocus;
- end;
+ ClearSelectComboBox;
except
end;
end;
// SelectComboBox \82Ì\97\9a\97ð\82ð\8dX\90V\82µ\82Ä\82¨\82
GikoForm.ModifySelectList;
// SelectComboBox \82Ì\92l\82ð\83N\83\8a\83A
- if GikoForm.SelectComboBoxPanel.Visible then begin
- GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME;
- GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
- GikoForm.ListView.SetFocus;
- end;
+ ClearSelectComboBox;
except
end;
end;
// SelectComboBox \82Ì\97\9a\97ð\82ð\8dX\90V\82µ\82Ä\82¨\82
GikoForm.ModifySelectList;
// SelectComboBox \82Ì\92l\82ð\83N\83\8a\83A
- if GikoForm.SelectComboBoxPanel.Visible then begin
- GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME;
- GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
- GikoForm.ListView.SetFocus;
- end;
+ ClearSelectComboBox;
+ except
+ end;
+end;
+// *************************************************************************
+//! DAT\97\8e\82¿\83X\83\8c\83b\83h\82Ì\82Ý\95\\8e¦\82·\82é
+// *************************************************************************
+procedure TGikoDM.ArchiveItemActionExecute(Sender: TObject);
+begin
+ try
+ if GikoForm.ViewType <> gvtArch then
+ GikoForm.SetListViewType(gvtArch);
+ GikoSys.Setting.ThreadRange := gtrArch;
+ ArchiveItemAction.Checked := True;
+ // SelectComboBox \82Ì\97\9a\97ð\82ð\8dX\90V\82µ\82Ä\82¨\82
+ GikoForm.ModifySelectList;
+ // SelectComboBox \82Ì\92l\82ð\83N\83\8a\83A
+ ClearSelectComboBox;
except
end;
end;
// *************************************************************************
+//! \90¶\91¶\83X\83\8c\83b\83h\82Ì\82Ý\95\\8e¦\82·\82é
+// *************************************************************************
+procedure TGikoDM.LiveItemActionExecute(Sender: TObject);
+begin
+ try
+ if GikoForm.ViewType <> gvtLive then
+ GikoForm.SetListViewType(gvtLive);
+ GikoSys.Setting.ThreadRange := gtrLive;
+ LiveItemAction.Checked := True;
+ // SelectComboBox \82Ì\97\9a\97ð\82ð\8dX\90V\82µ\82Ä\82¨\82
+ GikoForm.ModifySelectList;
+ // SelectComboBox \82Ì\92l\82ð\83N\83\8a\83A
+ ClearSelectComboBox;
+ except
+ end;
+end;
+
+// *************************************************************************
//! \83X\83\8c\83b\83h\82Ì\95\\8e¦\94Í\88Í\82ð\90Ý\92è
// *************************************************************************
procedure TGikoDM.ThreadRangeActionExecute(Sender: TObject);
gtrAll: AllItemAction.Execute;
gtrLog: LogItemAction.Execute;
gtrNew: NewItemAction.Execute;
+ gtrArch: ArchiveItemAction.Execute;
+ gtrLive: LiveItemAction.Execute;
end;
end;
// *************************************************************************
Editor := TEditorForm.Create(GikoForm);
Editor.SetBoard(TBoard(GikoForm.GetActiveList));
Editor.Show;
- Editor.BodyEdit.SetFocus;
+ Editor.SetFocusEdit;
end;
// *************************************************************************
//! \8c»\8dÝ\95\\8e¦\82µ\82Ä\82¢\82é\94Â\82ð\83u\83\89\83E\83U\82Å\95\\8e¦\82·\82é
try
GikoForm.SelectListItem(List);
for i := 0 to List.Count - 1 do begin
- if TObject(List[i]) is TBoard then
+ if TObject(List[i]) is TCategory then
+ s := s + TCategory(List[i]).Title + #13#10
+ else if TObject(List[i]) is TBoard then
s := s + TBoard(List[i]).Title + #13#10
else if TObject(List[i]) is TThreadItem then
s := s + TThreadItem(List[i]).Title + #13#10;
// *************************************************************************
procedure TGikoDM.SelectItemNameCopyActionUpdate(Sender: TObject);
begin
- if ((GikoForm.GetActiveList is TBoard) or
+ if ((GikoForm.GetActiveList is TBBS) or
+ (GikoForm.GetActiveList is TBoard) or
(GikoForm.GetActiveList is TCategory))and (GikoForm.ListView.SelCount > 0) then
TAction(Sender).Enabled := True
else
shiftDown: Boolean;
begin
shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
+ GikoForm.ActiveListColumnSave;
if GikoForm.GetActiveList is TCategory then begin
List := TList.Create;
try
begin
if (GikoForm.GetActiveList is TCategory) and (GikoForm.ListView.SelCount > 0) then
TAction(Sender).Enabled := True
- else if GikoForm.GetActiveList is TBoard then
- TAction(Sender).Enabled := True
- else
+ else if GikoForm.GetActiveList is TBoard then begin
+ TAction(Sender).Enabled :=
+ (GikoForm.GetActiveList <> BoardGroup.SpecialBoard);
+ end else
TAction(Sender).Enabled := False;
end;
// *************************************************************************
cnt := RoundList.Count[grtBoard];
cnt := cnt + RoundList.Count[grtItem];
if cnt > 500 then begin
- MsgBox(GikoForm.Handle, '\8f\84\89ñ\82Í500\88È\8fã\93o\98^\82Å\82«\82Ü\82¹\82ñ', '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
+ MsgBox(GikoForm.Handle, '\8f\84\89ñ\82Í500\88È\8fã\93o\98^\82Å\82«\82Ü\82¹\82ñ', MSG_ERROR, MB_OK or MB_ICONSTOP);
Exit;
end;
// *************************************************************************
procedure TGikoDM.LogFolderOpenActionUpdate(Sender: TObject);
begin
- if ((GikoForm.GetActiveList is TBoard) or (GikoForm.GetActiveList is TCategory))
- and (GikoForm.ListView.SelCount > 0) then
+ if (((GikoForm.GetActiveList is TBoard) and
+ (GikoForm.GetActiveList <> BoardGroup.SpecialBoard))
+ or (GikoForm.GetActiveList is TCategory))
+ and (GikoForm.ListView.SelCount > 0) then
TAction(Sender).Enabled := True
else
TAction(Sender).Enabled := False;
end;
// *************************************************************************
+//! \83X\83\8c\88ê\97\97\82Ì\95\\8e¦\82µ\82Ä\82¢\82é\93à\97e\82É\82µ\82½\82ª\82Á\82Ä\81A\83\\81[\83g\83J\83\89\83\80\82Ì\88Ê\92u\82Æ\95û\8cü\82ð\8eæ\93¾\82·\82é
+// *************************************************************************
+function TGikoDM.GetSortProperties(List: TObject;
+ var vSortOrder: Boolean): Boolean;
+begin
+ Result := True;
+ if (List <> nil) then begin
+ if (List is TBBS) then begin
+ vSortOrder := GikoSys.Setting.BBSSortOrder;
+ end else if (List is TCategory) then begin
+ vSortOrder := GikoSys.Setting.CategorySortOrder;
+ end else if (List is TBoard) then begin
+ vSortOrder := GikoSys.Setting.BoardSortOrder;
+ end else begin
+ Result := False;
+ end;
+ end else begin
+ Result := False;
+ end;
+end;
+// *************************************************************************
//! \8c»\8dÝ\82Ì\83J\83\89\83\80\82ð\83\\81[\83g\82·\82é
// *************************************************************************
procedure TGikoDM.SortActiveColumnActionExecute(Sender: TObject);
var
i : Integer;
so : boolean;
- si : Integer;
begin
- for i := 0 to GikoForm.ListView.Columns.Count - 1 do begin
- if (GikoForm.ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT1) or
- (GikoForm.ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT2) then begin
- GikoForm.SortOrder := not GikoForm.SortOrder;
- so := GikoForm.SortOrder;
- si := GikoForm.SortIndex;
- TListViewUtils.ListViewSort(nil, GikoForm.ListView,
- GikoForm.ListView.Column[ i ], ListNumberVisibleAction.Checked,
- so, si );
- GikoForm.SortIndex := si;
- GikoForm.SortOrder := so;
- break;
+ if GetSortProperties(GikoForm.GetActiveList, so) then begin
+ for i := 0 to GikoForm.ListView.Columns.Count - 1 do begin
+ if (GikoForm.ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT1) or
+ (GikoForm.ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT2) then begin
+ so := not so;
+ TListViewUtils.ListViewSort(nil, GikoForm.ListView,
+ GikoForm.ListView.Column[ i ], ListNumberVisibleAction.Checked,
+ so);
+ break;
+ end;
end;
end;
end;
procedure TGikoDM.SortNextColumnActionExecute(Sender: TObject);
var
i, id : Integer;
- so : boolean;
- si : Integer;
begin
for i := 0 to GikoForm.ListView.Columns.Count - 1 do begin
if (GikoForm.ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT1) or
id := i + 1;
if id > GikoForm.ListView.Columns.Count - 1 then
id := 0;
- GikoForm.SortOrder := id = 0;
- so := GikoForm.SortOrder;
- si := GikoForm.SortIndex;
TListViewUtils.ListViewSort( nil, GikoForm.ListView,
GikoForm.ListView.Column[ id ], ListNumberVisibleAction.Checked,
- so, si );
- GikoForm.SortIndex := si;
- GikoForm.SortOrder := so;
+ id = 0);
break;
end;
end;
procedure TGikoDM.SortPrevColumnActionExecute(Sender: TObject);
var
i, id : Integer;
- so : boolean;
- si : Integer;
begin
for i := 0 to GikoForm.ListView.Columns.Count - 1 do begin
if (GikoForm.ListView.Column[ i ].ImageIndex = ITEM_ICON_SORT1) or
id := i - 1;
if id < 0 then
id := GikoForm.ListView.Columns.Count - 1;
- GikoForm.SortOrder := id = 0;
- so := GikoForm.SortOrder;
- si := GikoForm.SortIndex;
TListViewUtils.ListViewSort( nil, GikoForm.ListView,
GikoForm.ListView.Column[ id ], ListNumberVisibleAction.Checked,
- so, si );
- GikoForm.SortIndex := si;
- GikoForm.SortOrder := so;
+ id = 0);
break;
end;
end;
// *************************************************************************
procedure TGikoDM.SetFocusForBrowserActionExecute(Sender: TObject);
begin
- GikoForm.ActiveContent.Browser.SetFocus;
+ GikoForm.ActiveContent.Browser.SetFocus;
end;
// *************************************************************************
//! \83u\83\89\83E\83U\82É\83t\83H\81[\83J\83X\82ð\93\96\82Ä\82éUpdate\83C\83x\83\93\83g
AllSelectAction.Enabled := GikoForm.ListView.SelCount > 0;
end;
////////////////////////////////\95Ò\8fW\82Ü\82Å\82¨\82µ\82Ü\82¢/////////////////////
+//! \83X\83\8c\83b\83h\82Ì\83T\83C\83Y\82ð\8dÄ\8cv\8eZ\82·\82é
+procedure TGikoDM.ThreadSizeCalcForFileActionExecute(Sender: TObject);
+const
+ RECALC_MES : String = '\83X\83\8c\83b\83h\82Ì\97e\97Ê\82ð\83t\83@\83C\83\8b\82©\82ç\8dÄ\8cv\8eZ\82µ\82Ü\82·\81B'#13#10 +
+ '\82±\82Ì\91\80\8dì\92\86\81A\83M\83R\83i\83r\82Ì\91¼\82Ì\91\80\8dì\82ð\82·\82é\82Æ\83f\81[\83^\82ª\94j\89ó\82³\82ê\82é\8b°\82ê\82ª\82 \82è\82Ü\82·\81B' +
+ '\82Ü\82½\82±\82Ì\91\80\8dì\82Í\81A\94ñ\8fí\82É\8e\9e\8aÔ\82ª\82©\82©\82é\8fê\8d\87\82ª\82 \82è\82Ü\82·\82ª\81A\82æ\82ë\82µ\82¢\82Å\82·\82©\81H';
+ RECALC_TITLE : String = '\83X\83\8c\83b\83h\82Ì\97e\97Ê\82ð\83t\83@\83C\83\8b\82©\82ç\8dÄ\8cv\8eZ';
+ LIMIT_SIZE = 1024;
+var
+ limitSize : Integer;
+ limitStr : String;
+begin
+{ \82Ü\82¸\81A\8e\9e\8aÔ\82ª\82©\82©\82é\82±\82Æ\82ð\8cx\8d\90\82·\82é\83\81\83b\83Z\81[\83W\82ð\8fo\97Í
+ \8dÄ\8cv\8eZ\82·\82é\83X\83\8c\83b\83h\82Ì\83T\83C\83Y\82Ìè\87\92l\81i\83f\83t\83H\83\8b\83g1024B)\82ð\8am\94F
+ \83v\83\89\83O\83C\83\93\82ð\97\98\97p\82µ\82È\82¢\82Æ\82±\82ë\82Å\91S\82Ä\82Ì\83\8d\83O\97L\82è\83X\83\8c\83b\83h\82ð\8c\9f\8dõ
+ è\87\92l\88È\89º\82Ì\83T\83C\83Y\82Ì\8fê\8d\87\81ADAT\82Ì\83t\83@\83C\83\8b\83T\83C\83Y\82Æ\94ä\8ar\81A\82¸\82ê\82Ä\82¢\82ê\82Î\81A
+ DAT\82Ì\83t\83@\83C\83\8b\83T\83C\83Y\82Å\8dX\90V\82·\82é
+}
+ if MsgBox(GikoForm.Handle, RECALC_MES,
+ RECALC_TITLE, MB_YESNO or MB_ICONWARNING) = ID_YES then begin
+ //è\87\92l\82Ì\8am\94F
+ limitSize := LIMIT_SIZE;
+ limitStr := IntToStr(limitSize);
+ if InputQuery('è\87\92l\93ü\97Í', '\8ew\92è\82µ\82½\90\94\92l B\88È\89º\82Ì\97e\97Ê\82Ì\83X\83\8c\83b\83h\82Ì\82Ý\8dÄ\8cv\8eZ\82µ\82Ü\82·', limitStr) then begin
+ limitSize := StrToInt(MojuUtils.ZenToHan(limitStr));
+ if (limitSize < 0) then begin
+ ShowMessage('è\87\92l\82É\95\89\82Í\8ew\92è\82Å\82«\82Ü\82¹\82ñ\81I');
+ ThreadSizeCalcForFileActionExecute(nil);
+ end else begin
+ RecalcThreadSize(limitSize);
+ end;
+ end;
+ end;
+end;
+//! limit\82æ\82è\82à\83T\83C\83Y\82Ì\8f¬\82³\82¢\83X\83\8c\83b\83h\82Ì\97e\97Ê\82ðDAT\83t\83@\83C\83\8b\82©\82ç\8cv\8eZ
+procedure TGikoDM.RecalcThreadSize(limit : Integer);
+var
+ i, j, tmpSize : Integer;
+ Obj : TObject;
+ Board : TBoard;
+ Thread: TThreadItem;
+ dat : TStringList;
+begin
+ // \8dÄ\8cv\8eZ\83X\83^\81[\83g\81@\83v\83\89\83O\83C\83\93\82ð\97\98\97p\82µ\82È\82¢\82Æ\82±\82ë\82ð\91S\95\94\8c©\82é\81I
+ GikoForm.ScreenCursor := crHourGlass;
+ try
+ GikoForm.ProgressBar.Max := BoardGroups[0].Count;
+ for i := 0 to BoardGroups[0].Count - 1 do begin
+ Obj := BoardGroups[0].Objects[i];
+ if (Obj <> nil) then begin
+ Board := TBoard(Obj);
+ if not Board.IsThreadDatRead then begin
+ GikoSys.ReadSubjectFile(Board);
+ end;
+ for j := 0 to Board.Count - 1 do begin
+ Thread := Board.Items[j];
+ if (Thread <> nil) and (Thread.IsLogFile)
+ and (Thread.Size <= limit) then begin
+ dat := TStringList.Create;
+ try
+ tmpSize := Thread.Size;
+ try
+ dat.LoadFromFile(Thread.GetThreadFileName);
+ tmpSize := Length(dat.Text);
+ tmpSize := tmpSize - dat.Count;
+ except
+ end;
+ Thread.Size := tmpSize;
+ finally
+ dat.Free;
+ end;
+ end;
+ end;
+ end;
+ GikoForm.ProgressBar.StepBy(1);
+ end;
+ finally
+ GikoForm.ScreenCursor := crDefault;
+ end;
+ GikoForm.ProgressBar.Position := 0;
+ ShowMessage('\8cv\8eZ\8fI\97¹\82µ\82Ü\82µ\82½\81B');
+end;
+// *************************************************************************
+//! \93ü\97Í\83A\83V\83X\83g\82Ì\90Ý\92è\83t\83H\81[\83\80\82ð\8cÄ\82Ñ\8fo\82·
+// *************************************************************************
+procedure TGikoDM.SetInputAssistActionExecute(Sender: TObject);
+var
+ form : TInputAssistForm;
+begin
+ form := TInputAssistForm.Create(GikoForm);
+ try
+ form.SetUpFromMain;
+ form.ShowModal;
+ finally
+ form.Release;
+ end;
+end;
+// *************************************************************************
+//! \8c»\8dÝ\95\\8e¦\82µ\82Ä\82¢\82é\83X\83\8c\83b\83h\82Ì\8c\9f\8dõ\83_\83C\83A\83\8d\83O\82ð\95\\8e¦\82·\82é
+// *************************************************************************
+procedure TGikoDM.OpenFindDialogActionExecute(Sender: TObject);
+begin
+ if( GikoForm.ActiveContent <> nil) and (GikoForm.ActiveContent.Browser <> nil) then begin
+ GikoForm.ActiveContent.OpenFindDialog;
+ end;
+end;
+
+// *************************************************************************
+//! \91I\91ð\82³\82ê\82Ä\82¢\82é\82¨\8bC\82É\93ü\82è\82Ì\95\\8e¦\96¼\82ð\83R\83s\81[\82·\82é
+// *************************************************************************
+procedure TGikoDM.FavoriteTreeViewItemNameCopyActionExecute(
+ Sender: TObject);
+begin
+ if GikoForm.ClickNode = nil then Exit;
+
+ Clipboard.AsText :=
+ GikoForm.ClickNode.Text + #13#10;
+end;
+
+// *************************************************************************
+//! \95\\8e¦\82³\82ê\82Ä\82¢\82é\82·\82×\82Ä\82Ì\83\8c\83X\83G\83f\83B\83^\82ð\95Â\82¶\82é
+// *************************************************************************
+procedure TGikoDM.CloseAllEditorActionExecute(Sender: TObject);
+var
+ i : Integer;
+begin
+ if ( EditorFormExists ) then begin
+ //\83X\83N\83\8a\81[\83\93\8fã\82Ì\91S\82Ä\82Ì\83t\83H\81[\83\80\82©\82ç\81AEditorForm\82ð\95Â\82¶\82é
+ for i := Screen.CustomFormCount - 1 downto 0 do begin
+ if TObject(Screen.CustomForms[i]) is TEditorForm then begin
+ TEditorForm(Screen.CustomForms[i]).Close;
+ end;
+ end;
+ end;
+end;
+// *************************************************************************
+//! \83X\83N\83\8a\81[\83\93\8fã\82É\83\8c\83X\83G\83f\83B\83^\82ª\82¢\82½\8fê\8d\87\81C\97L\8cø\82É\82È\82é
+// *************************************************************************
+procedure TGikoDM.CloseAllEditorActionUpdate(Sender: TObject);
+begin
+ if (Sender is TAction) then begin
+ TAction(Sender).Enabled := EditorFormExists;
+ end;
+end;
+// *************************************************************************
+//! \83X\83N\83\8a\81[\83\93\8fã\82ÉEditorForm\82ª\82¢\82é\82©
+// *************************************************************************
+function TGikoDM.EditorFormExists(): boolean;
+var
+ i : Integer;
+begin
+ Result := false;
+ //\83X\83N\83\8a\81[\83\93\8fã\82Ì\91S\82Ä\82Ì\83t\83H\81[\83\80\82©\82ç\81AEditorForm\82ð\92T\82·
+ for i := Screen.CustomFormCount - 1 downto 0 do begin
+ if (Screen.CustomForms[i] is TEditorForm) then begin
+ Result := true;
+ Break;
+ end;
+ end;
+end;
+
+// *************************************************************************
+//! \83X\83N\83\8a\81[\83\93\8fã\82É\82¢\82é\82·\82×\82Ä\82ÌEditorForm\82©\82ç\96¼\91O\82Ì\97\9a\97ð\82ð\8dí\8f\9c\82·\82é
+// *************************************************************************
+procedure TGikoDM.ClearNameTextAllEditor();
+var
+ i : Integer;
+begin
+ for i := 0 to Screen.CustomFormCount - 1 do begin
+ if (Screen.CustomForms[i] is TEditorForm) then begin
+ TEditorForm(Screen.CustomForms[i]).NameComboBox.Items.Clear;
+ end;
+ end;
+end;
+// *************************************************************************
+//! \83X\83N\83\8a\81[\83\93\8fã\82É\82¢\82é\82·\82×\82Ä\82ÌEditorForm\82©\82ç\83\81\81[\83\8b\97\9a\97ð\82ð\8dí\8f\9c\82·\82é
+// *************************************************************************
+procedure TGikoDM.ClearMailAllEditor();
+var
+ i : Integer;
+begin
+ for i := 0 to Screen.CustomFormCount - 1 do begin
+ if TObject(Screen.CustomForms[i]) is TEditorForm then
+ TEditorForm(Screen.CustomForms[i]).MailComboBox.Items.Clear;
+ end;
+end;
+
+// *************************************************************************
+//! \83\8a\83\93\83N\97\9a\97ð\82ð\96ß\82é\82Ì\8dX\90V\8f\88\97\9d
+// *************************************************************************
+procedure TGikoDM.PrevMoveHistoryUpdate(Sender: TObject);
+begin
+ PrevMoveHistory.Enabled :=
+ (MoveHisotryManager.HisotryIndex > 0)
+end;
+// *************************************************************************
+//! \83\8a\83\93\83N\97\9a\97ð\82ð\96ß\82é
+// *************************************************************************
+procedure TGikoDM.PrevMoveHistoryExecute(Sender: TObject);
+begin
+ if ( GikoForm.BrowserTab.TabIndex >= 0 ) then begin
+ BackToHistory(MoveHisotryManager.getPrevItem
+ (TBrowserRecord(GikoForm.BrowserTab.Tabs
+ .Objects[GikoForm.BrowserTab.TabIndex])));
+ end else begin
+ BackToHistory(MoveHisotryManager.getPrevItem( nil ) );
+ end;
+end;
+//! \83\8a\83\93\83N\97\9a\97ð\8f\88\97\9d
+procedure TGikoDM.BackToHistory(item: TMoveHistoryItem);
+var
+ browser : TWebBrowser;
+ doc : IHTMLDocument2;
+begin
+ if ( item <> nil ) then begin
+ if ( GikoForm.GetActiveContent = item.ThreadItem ) then begin
+ browser := TBrowserRecord(GikoForm.BrowserTab.Tabs
+ .Objects[GikoForm.BrowserTab.TabIndex]).Browser;
+ if (browser <> nil) then begin
+ try
+ doc := browser.ControlInterface.Document as IHTMLDocument2;
+ (doc.body as IHTMLElement2).ScrollTop := item.ScrollTop;
+ except
+ end;
+ end;
+ end else begin
+ //URL\82É\88Ú\93®
+ MoveURLWithHistory(item.ThreadItem.URL, True);
+ end;
+ end;
+end;
+//! \97\9a\97ð\8f\88\97\9d\82Â\82«URL\88Ú\93®
+procedure TGikoDM.MoveURLWithHistory(URL : String; KeyMask: Boolean = False);
+var
+ idx : Integer;
+begin
+ //URL\82É\88Ú\93®
+ GikoForm.MoveToURL(URL, KeyMask);
+ //\88È\89º\81A\97\9a\97ð\82Ì\8f\88\97\9d
+ idx := GikoForm.AddressComboBox.Items.IndexOf(URL);
+ if idx = -1 then begin
+ GikoForm.AddressComboBox.Items.Insert(0, URL);
+ if GikoForm.AddressComboBox.Items.Count > GikoSys.Setting.AddressHistoryCount then
+ GikoForm.AddressComboBox.Items.Delete(GikoForm.AddressComboBox.Items.Count - 1);
+ end else begin
+ GikoForm.AddressComboBox.Items.Delete(idx);
+ GikoForm.AddressComboBox.Items.Insert(0, URL);
+ end;
+end;
+// *************************************************************************
+//! \83\8a\83\93\83N\97\9a\97ð\82ð\90i\82Þ\82Ì\8dX\90V\8f\88\97\9d
+// *************************************************************************
+procedure TGikoDM.NextMoveHistoryUpdate(Sender: TObject);
+begin
+ NextMoveHistory.Enabled :=
+ (MoveHisotryManager.HisotryIndex < MoveHisotryManager.Count - 1);
+end;
+// *************************************************************************
+//! \83\8a\83\93\83N\97\9a\97ð\82ð\90i\82Þ
+// *************************************************************************
+procedure TGikoDM.NextMoveHistoryExecute(Sender: TObject);
+begin
+ BackToHistory(MoveHisotryManager.getNextItem);
+end;
+// *************************************************************************
+//! \83A\83N\83e\83B\83u\97v\91f\82Ì\83N\83\8a\83b\83N
+// *************************************************************************
+procedure TGikoDM.ClickActiveElementActionExecute(Sender: TObject);
+var
+ browser : TWebBrowser;
+ elem : IHTMLElement;
+ doc : IHTMLDocument2;
+begin
+ if (GikoForm.GetActiveContent <> nil) then begin
+ if (GikoForm.BrowserTab.Tabs.Count > 0) and
+ (GikoForm.BrowserTab.TabIndex >= 0) then begin
+ browser := TBrowserRecord(GikoForm.BrowserTab.Tabs
+ .Objects[GikoForm.BrowserTab.TabIndex]).Browser;
+ if (browser <> nil) then begin
+ try
+ doc := browser.ControlInterface.Document as IHTMLDocument2;
+ if Assigned(doc) then begin
+ elem := doc.activeElement;
+ if Assigned(elem) then begin
+ elem.click;
+ end;
+ end;
+ except
+ end;
+ end;
+
+ end;
+ end;
+end;
+//! \81«\83L\81[\82Ì\83G\83~\83\85\83\8c\81[\83g\83A\83N\83V\83\87\83\93
+procedure TGikoDM.VKDownActionExecute(Sender: TObject);
+begin
+ keybd_event(VK_DOWN, 0, KEYEVENTF_EXTENDEDKEY, 0);
+ keybd_event(VK_DOWN, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
+end;
+//! \81ª\83L\81[\82Ì\83G\83~\83\85\83\8c\81[\83g\83A\83N\83V\83\87\83\93
+procedure TGikoDM.VKUpActionExecute(Sender: TObject);
+begin
+ keybd_event(VK_UP, 0, KEYEVENTF_EXTENDEDKEY, 0);
+ keybd_event(VK_UP, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
+end;
+//! \81¨\83L\81[\82Ì\83G\83~\83\85\83\8c\81[\83g\83A\83N\83V\83\87\83\93
+procedure TGikoDM.VKRightActionExecute(Sender: TObject);
+begin
+ keybd_event(VK_RIGHT, 0, KEYEVENTF_EXTENDEDKEY, 0);
+ keybd_event(VK_RIGHT, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
+end;
+//! \81©\83L\81[\82Ì\83G\83~\83\85\83\8c\81[\83g\83A\83N\83V\83\87\83\93
+procedure TGikoDM.VKLeftActionExecute(Sender: TObject);
+begin
+ keybd_event(VK_LEFT, 0, KEYEVENTF_EXTENDEDKEY, 0);
+ keybd_event(VK_LEFT, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
+end;
+//! \83^\83X\83N\83g\83\8c\83C\82É\8ai\94[\82·\82é
+procedure TGikoDM.StoredTaskTrayActionExecute(Sender: TObject);
+begin
+ GikoForm.StoredTaskTray;
+ StoredTaskTrayAction.Tag := -1;
+end;
+
+{
+\breif \83\8a\83\93\83N\83C\83\81\81[\83W\8eæ\93¾
+\83C\83\81\81[\83W\82Í\81C*.jpg, *.jpeg, *.gif, *.png
+}
+procedure TGikoDM.AllImageLinkToClipbordActionExecute(Sender: TObject);
+var
+ links : IHTMLElementCollection;
+ urls, exts : TStringList;
+begin
+ links := GetActiveThreadLinks;
+ if (links <> nil) then begin
+ urls := TStringList.Create;
+ exts := TStringList.Create;
+ try
+ exts.CaseSensitive := False;
+ exts.Sorted := True;
+ exts.Delimiter := ';';
+ exts.DelimitedText := '.gif;.jpg;.jpeg;.png';
+ GetLinkURLs(links, urls, 0, exts);
+ Clipboard.SetTextBuf(urls.GetText);
+ finally
+ exts.Free;
+ urls.Free;
+ end;
+ end;
+end;
+
+{
+\breif \90V\92\85\83\8c\83X\82Ì\83\8a\83\93\83N\83C\83\81\81[\83W\8eæ\93¾
+\83C\83\81\81[\83W\82Í\81C*.jpg, *.jpeg, *.gif, *.png
+}
+procedure TGikoDM.NewImageLinkToClipBoardActionExecute(Sender: TObject);
+var
+ links : IHTMLElementCollection;
+ urls, exts : TStringList;
+ ThreadItem : TThreadItem;
+begin
+ ThreadItem := GikoForm.GetActiveContent;
+ links := GetActiveThreadLinks;
+ if (ThreadItem <> nil) and (links <> nil) then begin
+ urls := TStringList.Create;
+ exts := TStringList.Create;
+ try
+ exts.CaseSensitive := False;
+ exts.Sorted := True;
+ exts.Delimiter := ';';
+ exts.DelimitedText := '.gif;.jpg;.jpeg;.png';
+
+ GetLinkURLs(links, urls,
+ (ThreadItem.Count - ThreadItem.NewResCount + 1), exts );
+ Clipboard.SetTextBuf(urls.GetText);
+ finally
+ exts.Free;
+ urls.Free;
+ end;
+ end;
+end;
+{
+\breif \83\8a\83\93\83NURL\8eæ\93¾
+\91Î\8fÛ\8ag\92£\8eq\82Í\81A\8fÚ\8d×\90Ý\92è\82Å\90Ý\92è\82³\82ê\82Ä\82¢\82é
+}
+procedure TGikoDM.AllLinkToClipboardActionExecute(Sender: TObject);
+var
+ links : IHTMLElementCollection;
+ urls, exts : TStringList;
+begin
+ links := GetActiveThreadLinks;
+ if (links <> nil) then begin
+ urls := TStringList.Create;
+ exts := TStringList.Create;
+ try
+ exts.CaseSensitive := False;
+ exts.Sorted := True;
+ exts.Delimiter := ';';
+ exts.DelimitedText :=
+ MojuUtils.CustomStringReplace(GikoSys.Setting.ExtList, '*', '');
+ GetLinkURLs(links, urls, 0, exts);
+ Clipboard.SetTextBuf(urls.GetText);
+ finally
+ exts.Free;
+ urls.Free;
+ end;
+ end;
+end;
+{
+\breif \90V\92\85\83\8c\83X\83\8a\83\93\83NURL\8eæ\93¾
+\91Î\8fÛ\8ag\92£\8eq\82Í\81A\8fÚ\8d×\90Ý\92è\82Å\90Ý\92è\82³\82ê\82Ä\82¢\82é
+}
+procedure TGikoDM.NewLinkToClipboardActionExecute(Sender: TObject);
+var
+ links : IHTMLElementCollection;
+ urls, exts : TStringList;
+ ThreadItem : TThreadItem;
+begin
+ ThreadItem := GikoForm.GetActiveContent;
+ links := GetActiveThreadLinks;
+ if (ThreadItem <> nil) and (links <> nil) then begin
+ urls := TStringList.Create;
+ exts := TStringList.Create;
+ try
+ exts.CaseSensitive := False;
+ exts.Sorted := True;
+ exts.Delimiter := ';';
+ exts.DelimitedText :=
+ MojuUtils.CustomStringReplace(GikoSys.Setting.ExtList, '*', '');
+ GetLinkURLs(links, urls,
+ (ThreadItem.Count - ThreadItem.NewResCount + 1), exts );
+ Clipboard.SetTextBuf(urls.GetText);
+ finally
+ exts.Free;
+ urls.Free;
+ end;
+ end;
+end;
+
+{
+\brief \8c»\8dÝ\95\\8e¦\82µ\82Ä\82¢\82é\83X\83\8c\83b\83h\82Ì\82·\82×\82Ä\82Ì\83\8a\83\93\83N\82ð\8eæ\93¾\82·\82é\81B
+\return IHTMLElementCollection \83\8a\83\93\83N\82Ì\83R\83\8c\83N\83V\83\87\83\93
+}
+function TGikoDM.GetActiveThreadLinks : IHTMLElementCollection;
+var
+ browser : TWebBrowser;
+ doc : IHTMLDocument2;
+begin
+ Result := nil;
+ if (GikoForm.GetActiveContent <> nil) then begin
+ if (GikoForm.BrowserTab.Tabs.Count > 0) and
+ (GikoForm.BrowserTab.TabIndex >= 0) then begin
+ browser := TBrowserRecord(GikoForm.BrowserTab.Tabs
+ .Objects[GikoForm.BrowserTab.TabIndex]).Browser;
+ if (browser <> nil) then begin
+ try
+ doc := browser.ControlInterface.Document as IHTMLDocument2;
+ if Assigned(doc) then begin
+ Result := doc.links;
+ end;
+ except
+ Result := nil;
+ end;
+ end;
+
+ end;
+ end;
+end;
+{
+\brief \83\8a\83\93\83N\82ÌURL\82ð\8eæ\93¾\82·\82é
+\param links \8eæ\93¾\82·\82é\83\8a\83\93\83N\82Ì\91S\91Ì\82Ì\83R\83\8c\83N\83V\83\87\83\93
+\param URLs \8eæ\93¾\82µ\82½URL\82Ì\95Û\91¶\90æ
+\param Start \90Ý\92è\82µ\82½\83\8c\83X\94Ô\8d\86\88È\8d~\82ð\8eæ\93¾( > 0)
+\param Exts \8eæ\93¾\82·\82é\83\8a\83\93\83N\82Ì\8ag\92£\8eq
+}
+procedure TGikoDM.GetLinkURLs(links : IHTMLElementCollection;
+ URLs : TStringList; const Start: Integer; Exts : TStringList);
+var
+ index ,i, j : Integer;
+ item : IHTMLElement;
+ url, ext : string;
+begin
+ if (links <> nil) then begin
+ index := 0;
+ for i := 0 to links.length - 1 do begin
+ item := links.item(i, 0) as IHTMLElement;
+ if (item <> nil) then begin
+ url := item.getAttribute('href', 0);
+ // \83\8c\83X\82Ì\94Ô\8d\86\82ð\8dX\90V
+ if (Pos('menu:', url) > 0) then begin
+ index := StrToInt64Def(
+ Copy(url, 6, Length(url)), index + 1
+ );
+ end else begin
+ // \8aJ\8en\83\8c\83X\94Ô\8d\86\88È\8d~\82©\83`\83F\83b\83N
+ if (index >= Start) then begin
+ ext := ExtractFileExt( AnsiLowerCase(url) );
+ // \8ag\92£\8eq\82ð\83`\83F\83b\83N
+ if Exts.Find(ext, j) then begin
+ urls.Add(url)
+ end;
+ end;
+ end;
+ end;
+ end;
+ end;
+end;
+{
+\brief \83A\83h\83\8c\83X\83o\81[\82É\83t\83H\81[\83J\83X\82ð\93\96\82Ä\82é
+\param Sender \83C\83x\83\93\83g\82Ì\94\90¶\8c³
+}
+procedure TGikoDM.SetForcusForAddresBarActionExecute(Sender: TObject);
+begin
+ if ( GikoForm.AddressToolBar.Visible ) then begin
+ GikoForm.AddressComboBox.SetFocus;
+ end
+end;
+{
+\brief \88Ú\93]\82µ\82½\94Â\82ÌURL\82ð\8eæ\93¾\82·\82é\83_\83C\83A\83O\83\89\83\80\82ð\95\\8e¦\82·\82é
+}
+procedure TGikoDM.NewBoardSearchActionExecute(Sender: TObject);
+var
+ form : TNewBoardURLForm;
+ Msg: string;
+begin
+ if (EditorFormExists) then begin
+ Msg := '\83\8c\83X\83G\83f\83B\83^\82ð\91S\82Ä\95Â\82¶\82Ä\82\82¾\82³\82¢';
+ MsgBox(GikoForm.Handle, Msg, MSG_ERROR, MB_OK or MB_ICONSTOP);
+ Exit;
+ end;
+ form := TNewBoardURLForm.Create(Self);
+ try
+ form.ShowModal;
+ finally
+ form.Release;
+ end;
+end;
+//! \83u\83\89\83E\83U\82ð1\83y\81[\83W\95ª\83X\83N\83\8d\81[\83\8b\82³\82¹\82é
+procedure TGikoDM.ScrollPageDownActionExecute(Sender: TObject);
+begin
+ GikoForm.BrowserMovement(GikoForm.BrowserPanel.Height);
+end;
+//! \83u\83\89\83E\83U\82ð1\83y\81[\83W\95ª\83X\83N\83\8d\81[\83\8b\82³\82¹\82é
+procedure TGikoDM.ScrollPageUpActionExecute(Sender: TObject);
+begin
+ GikoForm.BrowserMovement(-GikoForm.BrowserPanel.Height);
+end;
+
+
+//! \82±\82Ì\83\8c\83X\82ÌID\82ðNG\83\8f\81[\83h\82É\92Ç\89Á\82·\82é\81i\93§\96¾)
+procedure TGikoDM.AddIDtoNGWord0ActionExecute(Sender: TObject);
+begin
+ GikoForm.AddIDtoNGWord(true);
+end;
+//! \82±\82Ì\83\8c\83X\82ÌID\82ðNG\83\8f\81[\83h\82É\92Ç\89Á\82·\82é
+procedure TGikoDM.AddIDtoNGWord1ActionExecute(Sender: TObject);
+begin
+ GikoForm.AddIDtoNGWord(false);
+end;
+//! \83N\83\8a\83b\83v\83{\81[\83h\82Ì\95¶\8e\9a\97ñ\82ðID\82Æ\82µ\82Ä\93¯\88êID\83\8c\83X\83A\83\93\83J\81[\95\\8e¦
+procedure TGikoDM.ExtractSameIDActionExecute(Sender: TObject);
+var
+ ID: String;
+begin
+ ID := Trim(Clipboard.AsText);
+ if (Length(ID) > 0) then begin
+ if not IsNoValidID(ID) then begin
+ GikoForm.ShowSameIDAncher(ID);
+ end;
+ end;
+end;
+//! \83^\83u\82Ì\83X\83\8c\83b\83h\88ê\97\97\82ð\95\\8e¦\82·\82é
+procedure TGikoDM.ShowTabListActionExecute(Sender: TObject);
+var
+ i : Integer;
+begin
+ GikoForm.ListView.Items.BeginUpdate;
+ GikoForm.ListView.Items.Clear;
+ BoardGroup.SpecialBoard.Clear;
+ for i := GikoForm.BrowserTab.Tabs.Count - 1 downto 0 do begin
+ BoardGroup.SpecialBoard.Add(
+ TBrowserRecord(GikoForm.BrowserTab.Tabs.Objects[i]).Thread);
+ end;
+ GikoForm.ListView.Items.EndUpdate;
+ GikoForm.SetActiveList(BoardGroup.SpecialBoard);
+end;
+//! \8bt\8eQ\8fÆ\82µ\82Ä\82¢\82é\83\8c\83X\82ð\92Ç\89Á\82·\82é
+procedure TGikoDM.DereferenceResActionExecute(Sender: TObject);
+var
+ i, currentNo, No : Integer;
+ links : IHTMLElementCollection;
+ threadItem : TThreadItem;
+ item : IHTMLElement;
+ url, url2 : string;
+ resNo : TStringList;
+ alreadyExist : Boolean;
+ PathRec: TPathRec;
+begin
+ No := GikoForm.KokoPopupMenu.Tag;
+ if No = 0 then Exit;
+
+ ThreadItem := GikoForm.KokoPopupThreadItem;
+ // \83A\83N\83e\83B\83u\83^\83u\82©\82ç\91S\82Ä\82Ì\83\8a\83\93\83N\82ð\8eæ\93¾\82·\82é
+ links := GetActiveThreadLinks;
+ if (ThreadItem <> nil) and (links <> nil) then begin
+ resNo := TStringList.Create;
+ try
+ currentNo := 0;
+ alreadyExist := False;
+ // \83\8a\83\93\83N\82ð\91S\82Ä\91\96\8d¸\82·\82é
+ for i := 0 to links.length - 1 do begin
+ item := links.item(i, 0) as IHTMLElement;
+ if (item <> nil) then begin
+ url := item.getAttribute('href', 0);
+ // \83\8c\83X\82Ì\94Ô\8d\86\82ð\8dX\90V
+ if (Pos('menu:', url) > 0) then begin
+ currentNo := StrToInt64Def(
+ Copy(url, 6, Length(url)), currentNo + 1
+ );
+ alreadyExist := False;
+ end else if (currentNo <> -1) and (not alreadyExist) then begin
+ // IE7\91Î\89\9e
+ if Pos('about:..', url) = 1 then begin
+ url := 'about:blank..' + Copy( url, Length('about:..')+1, Length(url) )
+ end;
+ // \8e©\95ª\82Ö\82Ì\83\8a\83\93\83N\82©\82ç\83\8c\83X\83|\83b\83v\97p\82Ì\94Ô\8d\86\8eæ\93¾
+ if Pos('about:blank..', url) = 1 then begin
+ // No \94Ô\82Ö\82Ì\83\8a\83\93\83N\82ª\82 \82ê\82Î\8eQ\8fÆ\82 \82è
+ url2 := THTMLCreate.GetRespopupURL(url, ThreadItem.URL);
+ PathRec := Gikosys.Parse2chURL2(url2);
+ if (not PathRec.FNoParam) then begin
+ Gikosys.GetPopupResNumber(url2,PathRec.FSt,PathRec.FTo);
+ end;
+ // \91Î\8fÛ\83\8c\83X\82à\82µ\82\82Í\82»\82ê\82ð\8aÜ\82Þ\82È\82ç\8eQ\8fÆ\82 \82è\82Æ\82·\82é
+ if (PathRec.FSt = No) or
+ ((PathRec.FSt <= No) and (PathRec.FTo >= No)) then begin
+ alreadyExist := True;
+ resNo.Add(IntToStr(currentNo));
+ end;
+ end;
+ end;
+ end;
+ end;
+ // \96³\90§\8cÀ\82È\82Ì\82Å-1\8cÅ\92è
+ GikoForm.ActiveContent.IDAnchorPopup(
+ GikoSys.CreateResAnchor(resNo, ThreadItem, -1));
+ finally
+ resNo.Clear;
+ resNo.Free;
+ end;
+ end;
+end;
+
+procedure TGikoDM.UpdateGikonaviActionExecute(Sender: TObject);
+var
+ form : TUpdateCheckForm;
+ Msg: string;
+ shutdown: boolean;
+begin
+ if (EditorFormExists) then begin
+ Msg := '\83\8c\83X\83G\83f\83B\83^\82ð\91S\82Ä\95Â\82¶\82Ä\82\82¾\82³\82¢';
+ MsgBox(GikoForm.Handle, Msg, MSG_ERROR, MB_OK or MB_ICONSTOP);
+ Exit;
+ end;
+ GikoForm.UpdateExePath := '';
+ GikoForm.UpdateExeArgs := '';
+ form := TUpdateCheckForm.Create(GikoForm);
+ try
+ form.ShowModal;
+ shutdown := form.Allowshutdown;
+ if shutdown then begin
+ GikoForm.UpdateExePath := form.ExecPath;
+ GikoForm.UpdateExeArgs := form.ExecArgs;
+ end;
+ finally
+ form.Release;
+ end;
+ if shutdown then begin
+ // \83M\83R\83i\83r\8fI\97¹
+ GikoForm.Close;
+ end;
+
+end;
+//! \82±\82Ì\83\8c\83X\82ÌURL\83R\83s\81[\81iPATH_INFO)
+procedure TGikoDM.konoURLPATHActionExecute(Sender: TObject);
+var
+ No : Integer;
+ ThreadItem : TThreadItem;
+ URL, Protocol, Host, Path, Document, Port, Bookmark : String;
+begin
+ No := GikoForm.KokoPopupMenu.Tag;
+ if No = 0 then Exit;
+
+ ThreadItem := GikoForm.KokoPopupThreadItem;
+ if (ThreadItem.ParentBoard.Is2ch) or not (Pos('?', ThreadItem.URL) > 0) then begin
+ GikoSys.ParseURI(ThreadItem.URL,Protocol, Host, Path, Document, Port, Bookmark);
+ URL := Protocol + '://' + Host + Path + IntToStr(No);
+ end else begin
+ if Pos('?', ThreadItem.URL) > 0 then begin
+ URL := Copy(ThreadItem.URL, 1, Pos('?', ThreadItem.URL)-1);
+ // \82Ü\82¿BBS\97p\8f\88\92u
+ URL := MojuUtils.CustomStringReplace(URL, 'read.pl', 'read.cgi');
+ URL := URL + '/' + ThreadItem.ParentBoard.BBSID + '/' + ChangeFileExt(ThreadItem.FileName, '') + '/' + IntToStr(No);
+ end;
+ end;
+ Clipboard.SetTextBuf( PChar(URL) );
+end;
+//! \82±\82Ì\83\8c\83X\82ÌURL\83R\83s\81[\81iQuery_STRING)
+procedure TGikoDM.konoURLQueryActionExecute(Sender: TObject);
+var
+ No : Integer;
+ ThreadItem : TThreadItem;
+ URL, Protocol, Host, Path, Document, Port, Bookmark : String;
+begin
+ No := GikoForm.KokoPopupMenu.Tag;
+ if No = 0 then Exit;
+
+ ThreadItem := GikoForm.KokoPopupThreadItem;
+ // 2ch\82Æ\82µ\82½\82ç\82Î\82Í\81A\83\8c\83X\94Ô\8d\86\82ð\82¤\82Ü\82\8f\88\97\9d\82µ\82Ä\82\82ê\82È\82¢\82Ì\82Å\97\98\97p\95s\89Â
+ if ThreadItem.ParentBoard.Is2ch or not (Pos('?', ThreadItem.URL) > 0) then begin
+ GikoSys.ParseURI(ThreadItem.URL, Protocol, Host, Path, Document, Port, Bookmark);
+ URL := Protocol + '://' + Host + '/test/read.cgi?bbs=' + ThreadItem.ParentBoard.BBSID
+ + '&key=' + ChangeFileExt(ThreadItem.FileName, '') + '&st=' + IntToStr(No) + '&to=' + IntToStr(No);
+ end else begin
+ URL := ThreadItem.URL;
+ // \82Ü\82¿BBS
+ if Pos('&LAST=', URL) > 0 then begin
+ URL := Copy(URL, 1, Pos('&LAST=', URL) - 1);
+ URL := URL + '&START=' + IntToStr(No) + '&END=' + IntToStr(No);
+ end;
+ // \82»\82Ì\91¼\8aO\95\94\94Â
+ if Pos('&ls=', URL) > 0 then begin
+ URL := Copy(URL, 1, Pos('&ls=', URL) - 1);
+ URL := URL + '&st=' + IntToStr(No) + '&to=' + IntToStr(No);
+ end;
+
+ end;
+ Clipboard.SetTextBuf( PChar(URL) );
+end;
+//! \82±\82Ì\83\8c\83X\82ÌURL\83R\83s\81[\81iQuery_STRING\81j\82Ì\97\98\97p\83`\83F\83b\83N
+procedure TGikoDM.konoURLQueryActionUpdate(Sender: TObject);
+const
+ LIVEDOOR_URL = 'http://jbbs.shitaraba.net/';
+begin
+ // 2ch\82Æ\82µ\82½\82ç\82Î\82Í\97\98\97p\82Å\82«\82È\82¢\82æ\82¤\82É\82·\82é\81i\82¤\82Ü\82\83\8c\83X\8ew\92è\82Å\82«\82È\82¢\82Ì\82Å\81j
+ konoURLQueryAction.Enabled := false;
+ if (GikoForm.KokoPopupThreadItem <> nil) then begin
+ konoURLQueryAction.Enabled := not GikoForm.KokoPopupThreadItem.ParentBoard.Is2ch;
+ if konoURLQueryAction.Enabled then begin
+ konoURLQueryAction.Enabled := not (Pos(LIVEDOOR_URL, GikoForm.KokoPopupThreadItem.URL) = 1);
+ end;
+ end;
+end;
+//! \83|\83b\83v\83A\83b\83v\83\81\83j\83\85\81[\90Ý\92è\83_\83C\83A\83\8d\83O\82ð\8aJ\82
+procedure TGikoDM.PopupMenuSettingActionExecute(Sender: TObject);
+var
+ Dlg: TPopupMenuSettingDialog;
+begin
+ Dlg := TPopupMenuSettingDialog.Create(GikoForm, GikoFormActionList);
+ try
+ Dlg.ShowModal;
+ finally
+ Dlg.Release;
+ end;
+end;
+
+procedure TGikoDM.ThreadSearchActionExecute(Sender: TObject);
+begin
+ if (ThreadSrch <> nil) and (ThreadSrch.Visible = False) then begin
+ ThreadSrch.Free;
+ ThreadSrch := nil;
+ end;
+ if (ThreadSrch = nil) then begin
+ ThreadSrch := TThreadSrch.Create(GikoForm);
+ end;
+ ThreadSrch.Show;
+end;
+
+procedure TGikoDM.SaveThreadSearchSetting;
+begin
+ if (ThreadSrch <> nil) and (ThreadSrch.Visible = True) then
+ ThreadSrch.SaveSetting;
+end;
+
+procedure TGikoDM.ThreadNgEditActionExecute(Sender: TObject);
+begin
+ ThreadNGEdit := TThreadNGEdit.Create(GikoForm);
+ if (ThreadNGEdit.ShowModal = mrOk) then begin
+ GikoForm.ListView.Refresh;
+ end;
+ ThreadNGEdit.Free;
+ ThreadNGEdit := nil;
+end;
+
end.
OSDN Git Service
