ShowInputAssistForm: TAction;
ReleaseCookieAction: TAction;
Cookie1: TMenuItem;
+ ContinueModeAction: TAction;
+ ToolButton10: TToolButton;
+ ToolButton11: TToolButton;
+ OpenSendTargetAction: TAction;
+ ReloadTargetAction: TAction;
+ N8: TMenuItem;
+ N9: TMenuItem;
+ N10: TMenuItem;
procedure EditorPageChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ReleaseCookieActionExecute(Sender: TObject);
procedure GetSETTINGTXTActionUpdate(Sender: TObject);
procedure GetHeadTXTActionUpdate(Sender: TObject);
+ procedure ContinueModeActionExecute(Sender: TObject);
+ procedure ContinueModeActionUpdate(Sender: TObject);
+ procedure OpenSendTargetActionExecute(Sender: TObject);
+ procedure ReloadTargetActionExecute(Sender: TObject);
private
FThreadItem: TThreadItem;
FBoard: TBoard;
procedure TEditorForm.SetContent(Content: string; ABrowser: TWebBrowser);
var
- doc: Variant;
+ doc: OleVariant;
begin
- if ABrowser.Document <> nil then begin
- doc := Idispatch( olevariant(ABrowser.ControlInterface).Document) as IHTMLDocument2;
+ if ABrowser.ControlInterface.Document <> nil then begin
+ doc := ABrowser.OleObject.Document;
doc.Clear;
doc.open;
doc.charset := 'Shift_JIS';
GikoForm.PlaySound('ResEnd');
SaveSendFile;
AddFormMessageNew( gmiOK );
- Close;
- Exit;
+ if (not ContinueModeAction.Enabled) or (not ContinueModeAction.Checked) then begin
+ Close;
+ Exit;
+ end;
end;
if State = gdsComplete then begin
GikoForm.PlaySound('ResEnd');
SaveSendFile;
AddFormMessageNew( gmiOK );
- Close;
+ if (not ContinueModeAction.Enabled) or (not ContinueModeAction.Checked) then begin
+ Close;
+ end;
end else if State = gdsError then begin
AddFormMessageNew( gmiOK );
EditorPage.ActivePage := PreviewTab;
procedure TEditorForm.ShowBoardHead(ABoard: TBoard; AMemo: TMemo);
var
- wDoc, WTex, le: OLEVariant;
-begin
- //\8eQ\8dl\8c³
- //http://www.campus.ne.jp/~ishigami/CREATION/TECHNIC/WEBAP-2.htm
- WebBrowser1.Navigate(ABoard.GETHEADTXTFileName,le,le,le,le);
- //\83\8c\83^\83\8a\83\93\83O\82ª\92x\82·\82¬\82ÄTXT\82É\88Ú\82¹\82È\82¢\81B\82Ê\82é\82Ûorz
- //\89º\82Ì\82æ\82¤\82É\82¿\82á\82ñ\82Æ\93Ç\82Ý\8d\9e\82Ý\82ª\8fI\82í\82Á\82Ä\82¢\82é\82©\81A\83`\83F\83b\83N\82·\82ê\82Î\82¢\82¢\82ñ\82¾\82æ\81B
- //\82±\82ê\82Å\82¢\82¯\82Ü\82µ\82½\81B\82 \82è\82ª\82Æ\82¤\82²\82´\82¢\82Ü\82µ\82½\81B
- while (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) and
- (WebBrowser1.ReadyState <> READYSTATE_INTERACTIVE) do begin
- Application.ProcessMessages;
- end;
- wDoc := WebBrowser1.Document;
- wTex := wDoc.body.createTextRange;
- LocalEdit.Text := wTex.text;
+ range: OleVariant;
+begin
+ //\8eQ\8dl\8c³
+ //http://www.campus.ne.jp/~ishigami/CREATION/TECHNIC/WEBAP-2.htm
+ WebBrowser1.Navigate(ABoard.GETHEADTXTFileName);
+ //\83\8c\83^\83\8a\83\93\83O\82ª\92x\82·\82¬\82ÄTXT\82É\88Ú\82¹\82È\82¢\81B\82Ê\82é\82Ûorz
+ //\89º\82Ì\82æ\82¤\82É\82¿\82á\82ñ\82Æ\93Ç\82Ý\8d\9e\82Ý\82ª\8fI\82í\82Á\82Ä\82¢\82é\82©\81A\83`\83F\83b\83N\82·\82ê\82Î\82¢\82¢\82ñ\82¾\82æ\81B
+ //\82±\82ê\82Å\82¢\82¯\82Ü\82µ\82½\81B\82 \82è\82ª\82Æ\82¤\82²\82´\82¢\82Ü\82µ\82½\81B
+ while (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) and
+ (WebBrowser1.ReadyState <> READYSTATE_INTERACTIVE) do begin
+ Application.ProcessMessages;
+ end;
+
+ try
+ range := WebBrowser1.OleObject.Document.body.createTextRange;
+ LocalEdit.Text := range.text;
+ except
+ end;
end;
procedure TEditorForm.LocalRuleBrowseClick(Sender: TObject);
var
- URL: String;
- ABoard: TBoard;
+ URL: String;
+ ABoard: TBoard;
begin
ABoard := GetBoard;
- if ABoard = nil then Exit;
+ if ABoard = nil
+ then Exit;
- URL := ABoard.GETHEADTXTFileName;
- GikoSys.OpenBrowser(URL, gbtAuto);
+ URL := ABoard.GETHEADTXTFileName;
+ GikoSys.OpenBrowser(URL, gbtAuto);
end;
procedure TEditorForm.SaveNameMailActionExecute(Sender: TObject);
Result := MsgBox(Handle, MSG_FUSIANA, '\8fî\95ñ',
MB_YESNO or MB_ICONQUESTION);
end;
+{
+\brief \98A\93\8a\83\82\81[\83hON/OFF\90Ø\82è\91Ö\82¦
+}
+procedure TEditorForm.ContinueModeActionExecute(Sender: TObject);
+begin
+ ContinueModeAction.Checked := not ContinueModeAction.Checked;
+end;
+{
+\brief \98A\93\8a\83\82\81[\83h\8dX\90V\8f\88\97\9d
+}
+procedure TEditorForm.ContinueModeActionUpdate(Sender: TObject);
+begin
+ // \83X\83\8c\82½\82Ä\82Ì\82Æ\82«\82Í\96³\8cø
+ ContinueModeAction.Enabled := FThreadItem <> nil;
+end;
+{
+\brief \8f\91\82«\8d\9e\82Þ\94Â/\83X\83\8c\83b\83h\82ð\95\\8e¦\82·\82é
+}
+procedure TEditorForm.OpenSendTargetActionExecute(Sender: TObject);
+begin
+ if (FThreadItem <> nil) then begin
+ // \83\81\83C\83\93\82ð\8dX\90V\82µ\82Ä\82µ\82Ü\82¤\82Ì\82Å\89æ\96Ê\82ª\83p\83^\83p\83^\90Ø\82è\91Ö\82í\82é\82Ì\82ð\96h\82®\82½\82ß\82É
+ // \91O\96Ê\82Å\8cÅ\92è\82·\82é
+ if not (fsShowing in Self.FormState) then begin
+ // \83X\83e\83C\8fó\91Ô\82É\90Ý\92è
+ SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
+ end;
+ try
+ // \83X\83\8c\83b\83h
+ GikoForm.InsertBrowserTab(FThreadItem, True);
+ finally
+ if not TopAction.Checked then begin // \83X\83e\83C\8fó\91Ô\89ð\8f\9c
+ SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
+ end;
+ end;
+ Self.SetFocus;
+ end else begin
+ // \94Â
+ GikoForm.SelectTreeNode(
+ GetBoard, True );
+ end;
+end;
+procedure TEditorForm.ReloadTargetActionExecute(Sender: TObject);
+begin
+ if (FThreadItem <> nil) then begin
+ // \83X\83\8c\83b\83h
+ // \83\81\83C\83\93\82ð\8dX\90V\82µ\82Ä\82µ\82Ü\82¤\82Ì\82Å\89æ\96Ê\82ª\83p\83^\83p\83^\90Ø\82è\91Ö\82í\82é\82Ì\82ð\96h\82®\82½\82ß\82É
+ // \91O\96Ê\82Å\8cÅ\92è\82·\82é(\83_\83E\83\93\83\8d\81[\83h\82ª\94\90¶\82·\82é\82Æ\90Ø\82è\91Ö\82í\82Á\82Ä\82µ\82Ü\82¤\82ª\82 \82«\82ç\82ß\82é)
+ if not (fsShowing in Self.FormState) then begin
+ // \83X\83e\83C\8fó\91Ô\82É\90Ý\92è
+ SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
+ end;
+ try
+ GikoForm.DownloadContent(FThreadItem);
+ finally
+ if not TopAction.Checked then begin // \83X\83e\83C\8fó\91Ô\89ð\8f\9c
+ SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
+ end;
+ end;
+ Self.SetFocus;
+ end else begin
+ // \94Â
+ GikoForm.DownloadList(GetBoard);
+ end;
+end;
end.
OSDN Git Service
