GikoSystem, GikoUtil, ImgList, Clipbrd, BoardGroup,
IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, ActnList, StdActns, IdIntercept,
- IdLogBase, IdLogDebug, IdException, DateUtils, MojuUtils, bmRegExp,
- GestureModel;
+ IdLogBase, IdLogDebug, IdException, DateUtils, bmRegExp,
+ Gesture, AppEvnts;
type
// TSetLayeredWindowAttributes = function(wnd: HWND; crKey: DWORD; bAlpha: BYTE; dwFlag: DWORD): Boolean; stdcall;
N02: TMenuItem;
ToolBarImageList: TImageList;
HotToobarImageList: TImageList;
- BodyEdit: TMemo;
NameBasePanel: TPanel;
NameLabel: TLabel;
MailLabel: TLabel;
LocalEdit: TMemo;
N6: TMenuItem;
LocalRuleBrowse: TMenuItem;
- ToolButton4: TToolButton;
+ ToolButton4: TToolButton;
ToolButton6: TToolButton;
SaveNameMailAction: TAction;
ToolButton7: TToolButton;
BeLogInOutEAction: TAction;
+ UpdateSambaAction: TAction;
+ Samba241: TMenuItem;
+ N7: TMenuItem;
+ InputAssistAction: TAction;
+ InputAssistPopupMenu: TPopupMenu;
+ BodyEdit: TMemo;
+ ApplicationEvents1: TApplicationEvents;
+ ToolButton8: TToolButton;
+ ToolButton9: TToolButton;
+ ShowInputAssistForm: TAction;
+ ReleaseCookieAction: TAction;
+ Cookie1: TMenuItem;
procedure EditorPageChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SaveNameMailActionExecute(Sender: TObject);
procedure BeLogInOutEActionExecute(Sender: TObject);
procedure BeLogInOutEActionUpdate(Sender: TObject);
+ procedure UpdateSambaActionUpdate(Sender: TObject);
+ procedure UpdateSambaActionExecute(Sender: TObject);
+ procedure InputAssistActionExecute(Sender: TObject);
+ procedure ApplicationEvents1Message(var Msg: tagMSG;
+ var Handled: Boolean);
+ procedure ShowInputAssistFormExecute(Sender: TObject);
+ procedure ReleaseCookieActionExecute(Sender: TObject);
+ procedure GetSETTINGTXTActionUpdate(Sender: TObject);
+ procedure GetHeadTXTActionUpdate(Sender: TObject);
private
FThreadItem: TThreadItem;
FBoard: TBoard;
FSambaTime: TDateTime;
FHost: string;
FNow: TDateTime;
- FGestures : TGestureModel;
+ FGestures : TMouseGesture;
+ FInputAssistKey: String; ///< \93ü\97Í\83A\83V\83X\83g\82Ì\83L\81[
+ FResistWords: TStringList; ///< \93ü\97Í\83A\83V\83X\83g\82Ì\8e«\8f\91\82©\82ç\82Ì\8c\9f\8dõ\8c\8b\89Ê
procedure Preview;
function RepHtml(s: string): string;
function Check: Boolean;
procedure SaveSendFile;
procedure SetContent(Content: string; ABrowser: TWebBrowser);
function GetResultType(ResponseText: string): TGikoResultType;
+ //Samba\82Ì\8e\9e\8aÔ\82ð\93Ç\82Ý\8d\9e\82Þ
procedure ReadSambaTime(const AHost: string);
+ //Samba\82É\8e\9e\8aÔ\82ð\8f\91\82«\8d\9e\82Þ
procedure WriteSambaTime(const AHost: string; ATime: TDateTime);
+ //Samba\82Ì\90Ý\92è\92l\82ð\93Ç\82Ý\8d\9e\82Þ
function ReadSettingTime(const AHost: string): Integer;
+ //Samba\82É\88ø\82Á\82©\82©\82é\82©\8c\9f\8d¸\82·\82é
function CheckSambaTime(const AHost: string; ATime: TDateTime): Boolean;
- procedure SetSamba24(AURL: string);
+ //Samba\82Ì\90Ý\92è\92l\82ð\8f\91\82«\8d\9e\82Þ
+ procedure SetSamba24(AURL: string);
+ //Samba\82Ì\90Ý\92è\92l\82ð\8dX\90V\82·\82é
+ procedure UpdateSamba(const AHost: String; value: Integer);
/// \88ø\97p\95\84\82Ì\8eæ\93¾
function GetOEIndentChar : string;
/// \96{\95¶\82Ì\8eæ\93¾
procedure ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
function GetTitlePictureURL(body: TStringList; ABoard: TBoard): string;
procedure ShowTitlePicture();
- function GetFusianaName(body: TStringList; ABoard: TBoard): String;
+ function GetFusianaName(body: TStringList; ABoard: TBoard): String;
//! \83}\83E\83X\83W\83F\83X\83`\83\83\81[\8aJ\8en
procedure OnGestureStart(Sender: TObject);
//! \83}\83E\83X\83W\83F\83X\83`\83\83\81[\92\86
procedure OnGestureMove(Sender: TObject);
//! \83}\83E\83X\83W\83F\83X\83`\83\83\81[\8fI\97¹
procedure OnGestureEnd(Sender: TObject);
- //HEAD.TXT\8e©\93®\95\\8e¦
- procedure ShowBoardHead(ABoard: TBoard; AMemo: TMemo);
- //LocalFusianaTrapAlart
+ //HEAD.TXT\8e©\93®\95\\8e¦
+ procedure ShowBoardHead(ABoard: TBoard; AMemo: TMemo);
+ //LocalFusianaTrapAlart
function LFusianaGet(s: String): Boolean;
// Cookie\82Ì\8eæ\93¾
procedure GetCookie(Rawtext: String; ABoard: TBoard);
+ //! \93ü\97Í\83A\83V\83X\83g\82Ì\83|\83b\83v\83A\83b\83v\83\81\83j\83\85\81[\82Ì\83N\83\8a\83b\83N\83C\83x\83\93\83g
+ procedure InputAssistMenuClick(Sender: TObject);
+ //! TMemo\82Ì\83J\81[\83\\83\8b\88Ê\92u\82É\95¶\8e\9a\97ñ\91}\93ü
+ procedure InsertText(Memo: TMemo; Text: String);
+ //! \91\97\90M\92\86\8e~
+ procedure CancelSend(ABoard: TBoard; ASysMenu: HMENU);
protected
procedure CreateParams(var Params: TCreateParams); override;
public
- FBBSID: String;
+ FBBSID: String;
procedure SetFont;
procedure SetThreadItem(Item: TThreadItem);
procedure SetBoard(Item: TBoard);
- property BBSID: string read FBBSID write FBBSID;
-
+ property BBSID: string read FBBSID write FBBSID;
end;
implementation
uses
- Giko, ItemDownload, Gesture, IdGlobal;
+ Giko, ItemDownload, MojuUtils, IdGlobal, GikoMessage, Imm,
+ InputAssistDataModule, InputAssist;
const
CAPTION_NAME_NEW: string = '\83M\83R\83i\83r \83X\83\8c\97§\82Ä\83G\83f\83B\83^';
CAPTION_NAME_RES: string = '\83M\83R\83i\83r \83\8c\83X\83G\83f\83B\83^';
- // \83G\83f\83B\83b\83g\83E\83B\83\93\83h\83E\82ð\89E\89º\82É\82¸\82ç\82µ\82Ä\8aJ\82\88Ú\93®\97Ê
- WINDOWMOVE_H = 30;
- WINDOWMOVE_V = 30;
+ // \83G\83f\83B\83b\83g\83E\83B\83\93\83h\83E\82ð\89E\89º\82É\82¸\82ç\82µ\82Ä\8aJ\82\88Ú\93®\97Ê
+ WINDOWMOVE_H = 30;
+ WINDOWMOVE_V = 30;
//DAX\82³\82ñ±Ø¶ÞÄ!(\81L\81¤\81M)
READCGI_ERR = '-ERR';
RES2CH_CHECK = '<!-- 2ch_X:check -->';
RES2CH_COOKIE = '<!-- 2ch_X:cookie -->';
-
- BBS2CH_NAME: string = '\82Q\82¿\82á\82ñ\82Ë\82é';
- BBS2CH_LOG_FOLDER: string = '2ch';
- EXTERNAL_LOG_FOLDER: string = 'exboard';
-
- FOLDER_INI_FILENAME: string = 'Folder.ini';
- FOLDER_INDEX_FILENAME: string = 'Folder.idx';
- SUBJECT_FILENAME: string = 'subject.txt';
- PATH_DELIM: string = '\';
-
-
type
TSelection = record
StartPos, EndPos: Integer;
finally
ini.Free;
end;
-
+ // \83L\81[\90Ý\92è\82Ì\93Ç\82Ý\8d\9e\82Ý
+ GikoSys.LoadKeySetting(ActionList, GikoSys.GetEditorKeyFileName);
// \83}\83E\83X\83W\83F\83X\83`\83\83\81[\82Ì\83C\83\93\83X\83g\81[\83\8b
if GikoSys.Setting.GestureEnabled then begin
MouseGesture.UnHook;
- FGestures := TGestureModel.Create;
- FGestures.LoadGesture(
+ FGestures := TMouseGesture.Create;
+ GikoSys.Setting.Gestures.ClearGesture;
+
+ GikoSys.Setting.Gestures.LoadGesture(
GikoSys.Setting.GetGestureFileName, ActionList );
MouseGesture.OnGestureStart := OnGestureStart;
MouseGesture.OnGestureMove := OnGestureMove;
function TEditorForm.RepHtml(s: string): string;
begin
// s := StringReplace(s, '&', '&', [rfReplaceAll]);
- s := StringReplace(s, '<', '<', [rfReplaceAll]);
- s := StringReplace(s, '>', '>', [rfReplaceAll]);
+ s := CustomStringReplace(s, '<', '<');
+ s := CustomStringReplace(s, '>', '>');
// s := StringReplace(s, ' ', ' ', [rfReplaceAll]); //\8ed\97l\95Ï\8dX\82É\82æ\82è \8eg\97p\95s\89Â
- s := StringReplace(s, '"', '"', [rfReplaceAll]);
+ s := CustomStringReplace(s, '"', '"');
Result := s;
end;
end;
function TEditorForm.Check: Boolean;
+const
+ REQUIRED: string = '\82ª\93ü\97Í\82³\82ê\82Ä\82¢\82Ü\82¹\82ñ\81B';
+ ERROR: string = '\83G\83\89\81[';
var
Msg: string;
rc: Integer;
(Board.LastGetTime = ZERO_DATE)) then begin
Msg := '\83T\81[\83o\82Ì\8e\9e\8d\8f\82ª\95ª\82©\82ç\82È\82¢\82½\82ß\81A\91\97\90M\8fo\97\88\82Ü\82¹\82ñ'#13#10
+ '\83X\83\8c\83b\83h\82ð\8dX\90V\81i\8eæ\93¾\81j\8cã\81A15\95b\91Ò\82Á\82Ä\82©\82ç\91\97\90M\82µ\82Ä\82\82¾\82³\82¢';
- MsgBox(Handle, Msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
+ MsgBox(Handle, Msg, ERROR, MB_OK or MB_ICONSTOP);
Result := False;
end else if BodyEdit.Text = '' then begin
- Msg := '\96{\95¶\82ª\93ü\97Í\82³\82ê\82Ä\82¢\82Ü\82¹\82ñ\81B';
- MsgBox(Handle, Msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
+ Msg := '\96{\95¶' + REQUIRED;
+ MsgBox(Handle, Msg, ERROR, MB_OK or MB_ICONSTOP);
Result := False;
end else if (FBoard <> nil) and (Trim(TitleEdit.Text) = '') then begin
- Msg := '\83^\83C\83g\83\8b\82ª\93ü\97Í\82³\82ê\82Ä\82¢\82Ü\82¹\82ñ\81B';
- MsgBox(Handle, Msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
+ Msg := '\83^\83C\83g\83\8b' + REQUIRED;
+ MsgBox(Handle, Msg, ERROR, MB_OK or MB_ICONSTOP);
Result := False;
end else begin
if (not GikoSys.Dolib.Connected) and (AnsiPos('\81\9c', NameComboBox.Text) <> 0) then begin
Indy.Request.UserAgent := GikoSys.GetUserAgent;
Indy.Request.AcceptEncoding := '';
end;
+//! \91\97\90M\92\86\8e~\82Ì\82½\82ß\82Ì\83\81\83j\83\85\81[\82Ì\8dÄ\90¶
+procedure TEditorForm.CancelSend(ABoard: TBoard; ASysMenu: HMENU);
+begin
+ ABoard.SPID := '';
+ ABoard.PON := '';
+ FWork := false;
+ EnableMenuItem(ASysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
+ DrawMenuBar(Handle);
+end;
procedure TEditorForm.Send(ACOOKIE: string; SPID: string; PON: string; FirstWriting: Boolean);
+const
+ MSG_FUSIANA : string = '\83\8a\83\82\81[\83g\83z\83X\83g\82ð\95\\8e¦\82·\82é\8b@\94\\82ª\8eg\82í\82ê\82Ä\82¢\82Ü\82·'#13#10 +
+ '\82à\82µ\82à\8aÔ\88á\82Á\82Ä\82±\82Ì\95û\96@\82Å\83z\83X\83g\82ª\95\\8e¦\82³\82ê\82½\82Æ\82µ\82Ä\82à\81A\8e©\8cÈ\90Ó\94C\82È\82Ì\82Å\8dí\8f\9c\88Ë\97\8a\82É\82Í\89\9e\82¶\82Ü\82¹\82ñ\81B' +
+ #13#10#13#10'\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H';
var
TextStream: TStringStream;
Source: TStringStream;
body : TStringList;
Remote : String;
ABoard : TBoard;
- tmpRawheader: string;
{Protocol,Host, Path, Document, Port, Bookmark : String;}
begin
FAbort := False;
Board := FThreadItem.ParentBoard;
- tmpRawheader := '';
+// tmpRawheader := '';
InitIdHTTP(Indy);
if FThreadItem = nil then begin
URL := FBoard.GetSendURL;
Cookie := '';
if ACOOKIE <> '' then
- Cookie := ACOOKIE;
+ Cookie := ACOOKIE;
if SPID <> '' then
Cookie := Cookie + 'SPID=' + SPID + '; ';
if PON <> '' then
//\83z\83X\83g\82ª2ch\82Å\81ABe\82ÉLogin\82µ\82Ä\82¢\82ê\82ÎBE\82Ì\83f\81[\83^\82ð\91\97\82é
//GikoSys.ParseURI( URL, Protocol,Host, Path, Document, Port, Bookmark );
//if GikoSys.Is2chHost(Host) and GikoSys.Setting.BeLogin then
- if (Board.Is2ch) and (GikoSys.Setting.BeLogin) then
- Cookie := Cookie + 'MDMD=' + GikoSys.Setting.BeCode + '; '
- + 'DMDM=' + GikoSys.Setting.BeUserID + '; ';
+ if (Board.Is2ch) then begin
+ // \8cÅ\92è\82Ì\83N\83b\83L\81[\82ª\82 \82ê\82Î\90H\82í\82¹\82é
+ if Length(GikoSys.Setting.FixedCookie) > 0 then begin
+ // \83z\83X\83g\82ª2ch\82Ì\8fê\8d\87\81C\8cÅ\92è\82Ì\83N\83b\83L\81[\82ð\90H\82í\82¹\82é
+ Cookie := Cookie + GikoSys.Setting.FixedCookie + '; ';
+ end;
+ if (GikoSys.Setting.BeLogin) then begin
+ Cookie := Cookie + 'MDMD=' + GikoSys.Setting.BeCode + '; '
+ + 'DMDM=' + GikoSys.Setting.BeUserID + '; ';
+ end;
+
+ end;
+
Cookie := 'Cookie: ' + Cookie + 'NAME=' + NameComboBox.Text + '; MAIL=' + MailComboBox.Text;
sysMenu := GetSystemMenu( Handle, false );
try
FDebugStrReceive := '';
FDebugStrSend := '';
+
+ if (FirstWriting) then begin
+ //\83t\83V\83A\83i\83g\83\89\83b\83v\8cx\8d\90(LocalMode) by \92è\8aú\95Ö
+ if GikoSys.Setting.LocalTrapAtt then begin
+ if LFusianaGet(Namae) then begin
+ MsgResult := MsgBox( Handle, MSG_FUSIANA, '\8fî\95ñ',
+ MB_YESNO or MB_ICONQUESTION);
+ if MsgResult = IDNO then begin
+ CancelSend( Board, SysMenu );
+ Exit;
+ end;
+ end;
+ if ((Namae = '\8eR\8dè\8fÂ') or (Namae = 'fusianasan')) then begin
+ MsgResult := MsgBox(Handle, MSG_FUSIANA, '\8fî\95ñ',
+ MB_YESNO or MB_ICONQUESTION);
+ if MsgResult = IDNO then begin
+ CancelSend( Board, SysMenu );
+ Exit;
+ end;
+ end;
+ end;
+
+ if GikoSys.Setting.RemoteTrapAtt then begin
+ if FThreadItem = nil then
+ ABoard := FBoard
+ else
+ ABoard := FThreadItem.ParentBoard;
+
+ if ABoard = nil then Exit;
+
+ if FileExists(ABoard.GetSETTINGTXTFileName) then begin
+ body := TStringList.Create;
+ try
+ body.LoadFromFile(ABoard.GetSETTINGTXTFileName);
+ Remote := GetFusianaName(body, ABoard);
+ finally
+ body.Free;
+ end;
+ end else begin
+ //Setting.txt\82ª\82È\82©\82Á\82½\82ç\8eæ\93¾
+ //\8eI\82É\95\89\89×\82ª\82©\82©\82è\82»\82¤...
+ //if not FileExists(ABoard.GetSETTINGTXTFileName) then begin
+ GetSETTINGTXTAction.Execute;
+ body := TStringList.Create;
+ try
+ if FileExists(ABoard.GetSETTINGTXTFileName) then begin
+ body.LoadFromFile(ABoard.GetSETTINGTXTFileName);
+ Remote := GetFusianaName(body, ABoard);
+ end;
+ finally
+ body.Free;
+ end;
+ end;
+
+ if Remote = 'fusianasan' then begin
+ MsgResult := MsgBox(
+ Handle, MSG_FUSIANA, '\8fî\95ñ',
+ MB_YESNO or MB_ICONQUESTION);
+ if MsgResult = IDNO then begin
+ CancelSend( Board, SysMenu );
+ Exit;
+ end;
+ end;
+ end;
+ end;
+
GetSendData(Source);
- Indy.Post(URL, Source, TextStream);
+ IdAntiFreeze.Active := True;
+ try
+ Indy.Post(URL, Source, TextStream);
+ finally
+ IdAntiFreeze.Active := False;
+ end;
ResponseText := TextStream.DataString;
ResultType := GetResultType(ResponseText);
- //MsgResult\8f\89\8aú\89»
- MsgResult := IDNO;
- //\83t\83V\83A\83i\83g\83\89\83b\83v\8cx\8d\90(LocalMode) by \92è\8aú\95Ö
- if GikoSys.Setting.LocalTrapAtt then begin
- if LFusianaGet(Namae) then begin
- MsgResult := MsgBox(
- Handle,
- '\83\8a\83\82\81[\83g\83z\83X\83g\82ð\95\\8e¦\82·\82é\8b@\94\\82ª\8eg\82í\82ê\82Ä\82¢\82Ü\82·' + #13#10 +
- '\82à\82µ\82à\8aÔ\88á\82Á\82Ä\82±\82Ì\95û\96@\82Å\83z\83X\83g\82ª\95\\8e¦\82³\82ê\82½\82Æ\82µ\82Ä\82à\81A\8e©\8cÈ\90Ó\94C\82È\82Ì\82Å\8dí\8f\9c\88Ë\97\8a\82É\82Í\89\9e\82¶\82Ü\82¹\82ñ\81B' + #13#10#13#10 +
- '\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H',
- '\8fî\95ñ',
- MB_YESNO or MB_ICONQUESTION);
- if MsgResult = IDNO then begin
- Board.SPID := '';
- Board.PON := '';
- FWork := false;
- EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
- DrawMenuBar(Handle);
- Exit;
- end;
- end;
- if ((Namae = '\8eR\8dè\8fÂ') or (Namae = 'fusianasan')) then begin
- MsgResult := MsgBox(
- Handle,
- '\83\8a\83\82\81[\83g\83z\83X\83g\82ð\95\\8e¦\82·\82é\8b@\94\\82ª\8eg\82í\82ê\82Ä\82¢\82Ü\82·' + #13#10 +
- '\82à\82µ\82à\8aÔ\88á\82Á\82Ä\82±\82Ì\95û\96@\82Å\83z\83X\83g\82ª\95\\8e¦\82³\82ê\82½\82Æ\82µ\82Ä\82à\81A\8e©\8cÈ\90Ó\94C\82È\82Ì\82Å\8dí\8f\9c\88Ë\97\8a\82É\82Í\89\9e\82¶\82Ü\82¹\82ñ\81B' + #13#10#13#10 +
- '\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H',
- '\8fî\95ñ',
- MB_YESNO or MB_ICONQUESTION);
- if MsgResult = IDNO then begin
- Board.SPID := '';
- Board.PON := '';
- FWork := false;
- EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
- DrawMenuBar(Handle);
- Exit;
- end;
- end;
- end;
-
- if GikoSys.Setting.RemoteTrapAtt then begin
- if FThreadItem = nil then
- ABoard := FBoard
- else
- ABoard := FThreadItem.ParentBoard;
-
- if ABoard = nil then Exit;
-
- if FileExists(ABoard.GetSETTINGTXTFileName) then begin
- body := TStringList.Create;
- try
- body.LoadFromFile(ABoard.GetSETTINGTXTFileName);
- Remote := GetFusianaName(body, ABoard);
- finally
- body.Free;
- end;
- end;
-
- //Setting.txt\82ª\82È\82©\82Á\82½\82ç\8eæ\93¾
- //\8eI\82É\95\89\89×\82ª\82©\82©\82è\82»\82¤\82Å\95|\82¢\81E\81E\81E
- if not FileExists(ABoard.GetSETTINGTXTFileName) then begin
- //GetSETTINGTXTAction\82ð\8cÄ\82Ñ\8fo\82·\82ÆIndy\82ª\8f\89\8aú\89»\82³\82ê\82é\82Ì\82Å\81A
- //\82±\82±\82ÅCookie\82ð\95Û\91¶\82µ\82È\82\82Ä\82Í\82¢\82¯\82È\82¢
- tmpRawheader := Indy.Response.RawHeaders.Text;
- GetSETTINGTXTAction.Execute;
- body := TStringList.Create;
- try
- body.LoadFromFile(ABoard.GetSETTINGTXTFileName);
- Remote := GetFusianaName(body, ABoard);
- finally
- body.Free;
- end;
- end;
-
- if Remote = 'fusianasan' then begin
- MsgResult := MsgBox(
- Handle,
- '\83\8a\83\82\81[\83g\83z\83X\83g\82ð\95\\8e¦\82·\82é\8b@\94\\82ª\8eg\82í\82ê\82Ä\82¢\82Ü\82·' + #13#10 +
- '\82à\82µ\82à\8aÔ\88á\82Á\82Ä\82±\82Ì\95û\96@\82Å\83z\83X\83g\82ª\95\\8e¦\82³\82ê\82½\82Æ\82µ\82Ä\82à\81A\8e©\8cÈ\90Ó\94C\82È\82Ì\82Å\8dí\8f\9c\88Ë\97\8a\82É\82Í\89\9e\82¶\82Ü\82¹\82ñ\81B' + #13#10#13#10 +
- '\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H',
- '\8fî\95ñ',
- MB_YESNO or MB_ICONQUESTION);
- if MsgResult = IDNO then begin
- Board.SPID := '';
- Board.PON := '';
- FWork := false;
- EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
- DrawMenuBar(Handle);
- Exit;
- end;
- end;
- end;
if ResultType = grtOK then begin
- if GikoSys.Setting.UseSamba then
+ if (GikoSys.Setting.UseSamba) and (Timer1.Enabled) then
WriteSambaTime(FHost, Now());
+
State := gdsComplete;
end else if ResultType = grtCookie then begin
//\83\8b\81[\83v\96h\8e~
if not FirstWriting then
raise Exception.Create('');
- MsgResult := MsgBox(
- Handle,
- '\81E\93\8a\8de\82³\82ê\82½\93à\97e\82Í\83R\83s\81[\81A\95Û\91¶\81A\88ø\97p\81A\93]\8dÚ\93\99\82³\82ê\82é\8fê\8d\87\82ª\82 \82è\82Ü\82·\81B' + #13#10 +
- '\81E\93\8a\8de\82É\8aÖ\82µ\82Ä\94\90¶\82·\82é\90Ó\94C\82Í\91S\82Ä\93\8a\8de\8eÒ\82É\8bA\82µ\82Ü\82·\81B' + #13#10#13#10 +
- '\91S\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H',
- '\8fî\95ñ',
- MB_YESNO or MB_ICONQUESTION);
+
+ MsgResult := MsgBox( Handle,
+ '\81E\93\8a\8de\82³\82ê\82½\93à\97e\82Í\83R\83s\81[\81A\95Û\91¶\81A\88ø\97p\81A\93]\8dÚ\93\99\82³\82ê\82é\8fê\8d\87\82ª\82 \82è\82Ü\82·\81B' + #13#10 +
+ '\81E\93\8a\8de\82É\8aÖ\82µ\82Ä\94\90¶\82·\82é\90Ó\94C\82Í\91S\82Ä\93\8a\8de\8eÒ\82É\8bA\82µ\82Ü\82·\81B' + #13#10#13#10 +
+ '\91S\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H',
+ '\8fî\95ñ',
+ MB_YESNO or MB_ICONQUESTION);
+
if MsgResult = IDYES then begin
- if (GikoSys.Setting.RemoteTrapAtt) and (tmpRawheader <> '') then begin
- GetCookie(tmpRawheader, Board);
- end else begin
- GetCookie(Indy.Response.RawHeaders.Text, Board);
- end;
+ GetCookie(Indy.Response.RawHeaders.Text, Board);
+
if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then
raise Exception.Create('');
+
//\82à\82¤\88ê\89ñ\82±\82Ì\83\81\83\\83b\83h
Send(Board.Cookie, Board.SPID, Board.PON, False);
Exit;
end else begin
- Board.SPID := '';
- Board.PON := '';
- FWork := false;
- EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
- DrawMenuBar(Handle);
+ CancelSend( Board, SysMenu );
Exit;
end;
end else if ResultType = grtCheck then begin
- //
//\83\8b\81[\83v\96h\8e~
if not FirstWriting then
raise Exception.Create('');
- MsgResult := MsgBox(
- Handle,
- '\8f\91\82«\8d\9e\82Ý\82É\8aÖ\82µ\82Ä\82Í\97l\81X\82È\83\8d\83O\8fî\95ñ\82ª\8bL\98^\82³\82ê\82Ä\82¢\82Ü\82·\81B' + #13#10 +
- '\93\8a\8de\82É\8aÖ\82µ\82Ä\94\90¶\82·\82é\90Ó\94C\82Í\91S\82Ä\93\8a\8de\8eÒ\82É\8bA\82µ\82Ü\82·\81B' + #13#10 +
- '\8cö\8f\98\97Ç\91\82É\94½\82µ\82½\82è\81A\91¼\90l\82É\96À\98f\82ð\82©\82¯\82é\8f\91\82«\8d\9e\82Ý\82Í\8dT\82¦\82Ä\89º\82³\82¢\81B' + #13#10 +
- '\93\8a\8de\82³\82ê\82½\93à\97e\82Í\83R\83s\81[\81E\95Û\91¶\81E\88ø\97p\81E\93]\8dÚ\93\99\82³\82ê\82é\8fê\8d\87\82ª\82 \82è\82Ü\82·\81B' + #13#10 +
- #13#10 +
- '\91S\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H',
- '\8am\94F',
- MB_YESNO or MB_ICONQUESTION);
+ MsgResult := MsgBox( Handle,
+ '\8f\91\82«\8d\9e\82Ý\82É\8aÖ\82µ\82Ä\82Í\97l\81X\82È\83\8d\83O\8fî\95ñ\82ª\8bL\98^\82³\82ê\82Ä\82¢\82Ü\82·\81B' + #13#10 +
+ '\93\8a\8de\82É\8aÖ\82µ\82Ä\94\90¶\82·\82é\90Ó\94C\82Í\91S\82Ä\93\8a\8de\8eÒ\82É\8bA\82µ\82Ü\82·\81B' + #13#10 +
+ '\8cö\8f\98\97Ç\91\82É\94½\82µ\82½\82è\81A\91¼\90l\82É\96À\98f\82ð\82©\82¯\82é\8f\91\82«\8d\9e\82Ý\82Í\8dT\82¦\82Ä\89º\82³\82¢\81B' + #13#10 +
+ '\93\8a\8de\82³\82ê\82½\93à\97e\82Í\83R\83s\81[\81E\95Û\91¶\81E\88ø\97p\81E\93]\8dÚ\93\99\82³\82ê\82é\8fê\8d\87\82ª\82 \82è\82Ü\82·\81B' + #13#10 +
+ #13#10 +
+ '\91S\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H',
+ '\8am\94F',
+ MB_YESNO or MB_ICONQUESTION);
if MsgResult = IDYES then begin
- if (GikoSys.Setting.RemoteTrapAtt) and (tmpRawheader <> '') then begin
- GetCookie(tmpRawheader, Board);
- end else begin
- GetCookie(Indy.Response.RawHeaders.Text, Board);
- end;
+ GetCookie(Indy.Response.RawHeaders.Text, Board);
+
if (Board.SPID = '') and (Board.PON = '') and (Board.Cookie = '') then
raise Exception.Create('');
+
Send(Board.Cookie, Board.SPID, Board.PON, False);
Exit;
end else begin
- EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
- DrawMenuBar(Handle);
- Board.SPID := '';
- Board.PON := '';
- FWork := false;
+ CancelSend( Board, SysMenu );
Exit;
- end;
- end else begin
- if GikoSys.Setting.UseSamba then
- WriteSambaTime(FHost, Now());
- State := gdsError;
- raise Exception.Create('');
- end;
+ end;
+ end else begin
+ if (GikoSys.Setting.UseSamba) and (Timer1.Enabled) then
+ WriteSambaTime(FHost, Now());
+ State := gdsError;
+ raise Exception.Create('');
+ end;
except
on E: EIdConnectException do begin
State := gdsError;
DrawMenuBar(Handle);
end;
FWork := false;
- //\94ñ\8cö\8e®\83M\83R\83i\83r\94Â\82È\82Ç\82Ì\83X\83N\83\8a\83v\83g\97p
- //ResponceCode\82ª302Found\82Å\8f\91\82«\8d\9e\82Ý\8a®\97¹
+ //\94ñ\8cö\8e®\83M\83R\83i\83r\94Â\82È\82Ç\82Ì2ch\8cÝ\8a·\83X\83N\83\8a\83v\83g\97p
+ //2ch\88È\8aO\82Å\82©\82ÂResponceCode\82ª302Found\82Å\8f\91\82«\8d\9e\82Ý\8a®\97¹
+ //if (not Board.Is2ch) and (FStatusCode = 302) then begin
if FStatusCode = 302 then begin
GikoForm.PlaySound('ResEnd');
SaveSendFile;
if FThreadItem = nil then
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK)
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK)
else
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
Close;
Exit;
end;
GikoForm.PlaySound('ResEnd');
SaveSendFile;
if FThreadItem = nil then
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK)
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK)
else
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
Close;
end else if State = gdsError then begin
if FThreadItem = nil then
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK)
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK)
else
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
EditorPage.ActivePage := PreviewTab;
SetContent(ResponseText, Browser);
end else if State = gdsAbort then begin
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiSAD);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmAbort), nil, gmiSAD);
end;
end;
s := 'sid=' + HttpEncode(SessionID) + '&'
else
s := '';
- s := s + 'subject=&'
- + 'FROM=' + HttpEncode(NameComboBox.Text) + '&'
- + 'mail=' + HttpEncode(MailComboBox.Text) + '&'
- + 'MESSAGE=' + HttpEncode(body) + '&'
- + 'bbs=' + Board.BBSID + '&'
- + 'time=' + IntToStr(SendTime) + '&';
+ s := s + 'subject=&'
+ + 'FROM=' + HttpEncode(NameComboBox.Text) + '&'
+ + 'mail=' + HttpEncode(MailComboBox.Text) + '&'
+ + 'MESSAGE=' + HttpEncode(body) + '&'
+ + 'bbs=' + Board.BBSID + '&'
+ + 'time=' + IntToStr(SendTime) + '&';
+
if FThreadItem = nil then begin
s := s + 'subject=' + HttpEncode(TitleEdit.Text) + '&';
s := s + 'submit=' + HttpEncode('\91S\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Þ') + #13#10;
ini.WriteInteger(sDate, 'Status', FStatusCode);
ini.WriteDateTime(sDate, 'Date', Now);
if FThreadItem = nil then begin
- ini.WriteString(sDate, 'Title', TitleEdit.Text);
+ ini.WriteString(sDate, 'Title', MojuUtils.Sanitize(TitleEdit.Text));
ini.WriteString(sDate, 'BBS', FBoard.BBSID);
ini.WriteInteger(sDate, 'NewThread', 1);
end else begin
end;
procedure TEditorForm.SendActionExecute(Sender: TObject);
+const
+ TITLE_SAMBA : string = 'Samba24\8cx\8d\90';
var
Board: TBoard;
rc: Integer;
if state = gdsComplete then begin
GikoForm.PlaySound('ResEnd');
SaveSendFile;
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewSure)), nil, gmiOK);
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK);
FWork := False;
Close;
end else if State = gdsError then begin
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmSureError)), nil, gmiNG);
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmSureError), nil, gmiNG);
end else if State = gdsAbort then begin
- GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiNG);
+ GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmAbort), nil, gmiNG);
end;
end else begin
// \83\8c\83X
if state = gdsComplete then begin
GikoForm.PlaySound('ResEnd');
SaveSendFile;
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmNewRes)), nil, gmiOK);
- FWork := False;
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
+ FWork := False;
Close;
end else if State = gdsError then begin
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmResError)), nil, gmiOK);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmResError), nil, gmiOK);
end else if State = gdsAbort then begin
- GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiOK);
+ GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmAbort), nil, gmiOK);
end;
end;
end else begin
rc := GikoUtil.MsgBox(Handle,
'Samba24\82Ì\8bK\92è\92l\96¢\96\9e\82Ì\95b\90\94\82µ\82©\8co\89ß\82µ\82Ä\82¢\82Ü\82¹\82ñ\81B'#13#10
+ '\91\97\90M\82ð\92\86\8e~\82µ\82Ü\82·\82©\81H' + #13#10
- + '(\81u\82¢\82¢\82¦\81v\82¾\82Æ\91\97\90M\82µ\82Ü\82·)', 'Samba24\8cx\8d\90',
+ + '(\81u\82¢\82¢\82¦\81v\82¾\82Æ\91\97\90M\82µ\82Ü\82·)', TITLE_SAMBA,
MB_YESNO or MB_ICONQUESTION);
if rc = IDYES then begin
FWork := false;
if rc = IDNO then begin
rc2 := GikoUtil.MsgBox(Handle,
'\96{\93\96\82É\91\97\90M\82µ\82Ü\82·\82©\81H',
- 'Sumba24\8cx\8d\90',
+ TITLE_SAMBA,
MB_YESNO or MB_ICONQUESTION);
if rc2 = IDNO then begin
FWork := False;
ini.WriteInteger('Setting', AHost, 0);
ini.UpdateFile;
end;
+ //StatusBar\82É\82±\82Ì\8eI\82Ì\8bK\92è\92l\82ð\95\\8e¦\82·\82é
+ StatusBar.Panels[2].Text := 'Samba24\8bK\92è\92l' + IntToStr(Result);
finally
ini.Free;
end;
if ( Timer1.Enabled ) and ( FThreadItem <> nil )then
ReadSambaTime(FHost);
if GikoSys.Setting.GestureEnabled then begin
+ GikoSys.Setting.Gestures.ClearGesture;
+ GikoSys.Setting.Gestures.LoadGesture(
+ GikoSys.Setting.GetGestureFileName, ActionList );
MouseGesture.UnHook;
MouseGesture.OnGestureStart := OnGestureStart;
MouseGesture.OnGestureMove := OnGestureMove;
Host := Copy(Host, 1, AnsiPos('.', Host) - 1);
FHost := Host; //FHost=\8eI\96¼
ReadSambaTime(FHost); //\88È\91O\82Ì\8f\91\82«\8d\9e\82Ý\8e\9e\8aÔ\82ð\93Ç\82Ý\8d\9e\82Þ
- //StatusBar\82É\82±\82Ì\8eI\82Ì\8bK\92è\92l\82ð\95\\8e¦\82·\82é
- StatusBar.Panels[2].Text := 'Samba24\8bK\92è\92l' + IntToStr(ReadSettingTime(FHost));
+ ReadSettingTime(FHost); //Samba\82Ì\90Ý\92è\82ð\93Ç\82Ý\8d\9e\82Þ
end;
end;
procedure TEditorForm.FormCloseQuery(Sender: TObject;
settingBody: TStringList;
tmpBoard: TBoard;
begin
+
+ if FWork then begin
+ Exit;
+ end;
+
+ FWork := True;
+
InitIdHTTP(Indy);
if FThreadItem = nil then
tmpBoard := FBoard
try
StatusBar.Panels[0].Text := 'SETTING.TXT\83_\83E\83\93\83\8d\81[\83h\92\86';
try
- settingBody.Text := Indy.Get(URL);
+ IdAntiFreeze.Active := True;
+ try
+ settingBody.Text := Indy.Get(URL);
+ finally
+ IdAntiFreeze.Active := False;
+ end;
if( Indy.ResponseCode = 200 ) then begin
settingBody.SaveToFile(tmpBoard.GetSETTINGTXTFileName);
tmpBoard.SETTINGTXTTime := Indy.Response.LastModified;
finally
settingBody.Free;
Screen.Cursor := crDefault;
+ FWork := False;
end;
ShowBoardInformation(tmpBoard, BoardInformationMemo);
+
+
end;
procedure TEditorForm.ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
else
GetTitlePictureAction.Enabled := FThreadItem.ParentBoard.IsSETTINGTXT;
+ if GetTitlePictureAction.Enabled Then begin
+ // \8eÀ\8ds\92\86\82Í\8eÀ\8ds\95s\89Â
+ GetTitlePictureAction.Enabled := not FWork;
+ end;
end;
procedure TEditorForm.GetTitlePictureActionExecute(Sender: TObject);
memStream: TMemoryStream;
tmpBoard: TBoard;
begin
+ if FWork then
+ Exit;
+
+ FWork := True;
+
InitIdHTTP(Indy);
memStream := TMemoryStream.Create;
try
StatusBar.Panels[0].Text := '\94Â\83g\83b\83v\89æ\91\9c\83_\83E\83\93\83\8d\81[\83h\92\86';
Screen.Cursor := crHourGlass;
try
- Indy.Get(tmpBoard.TitlePictureURL, memStream);
+ IdAntiFreeze.Active := True;
+ try
+ Indy.Get(tmpBoard.TitlePictureURL, memStream);
+ finally
+ IdAntiFreeze.Active := False;
+ end;
if Indy.ResponseCode = 200 then begin
memStream.SaveToFile(tmpBoard.GetTitlePictureFileName);
ShowTitlePicture();
memStream.Free;
end;
+ FWork := False;
end;
procedure TEditorForm.ShowTitlePicture();
var
settingBody: TStringList;
tmpBoard: TBoard;
begin
+ if FWork then
+ Exit;
+ FWork := True;
+
InitIdHTTP(Indy);
if FThreadItem = nil then
tmpBoard := FBoard
try
StatusBar.Panels[0].Text := '\83\8d\81[\83J\83\8b\83\8b\81[\83\8b(head.txt)\83_\83E\83\93\83\8d\81[\83h\92\86';
try
- settingBody.Text := Indy.Get(URL);
+ IdAntiFreeze.Active := True;
+ try
+ settingBody.Text := Indy.Get(URL);
+ finally
+ IdAntiFreeze.Active := False;
+ end;
if( Indy.ResponseCode = 200 ) then begin
settingBody.Insert(0, '<HTML lang="ja"><HEAD>');
settingBody.Insert(1, '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">');
finally
settingBody.Free;
Screen.Cursor := crDefault;
+ FWork := False;
end;
if tmpBoard.IsHEADTXT then begin
- ShowBoardHead(tmpboard, LocalEdit);
+ ShowBoardHead(tmpboard, LocalEdit);
end;
+
end;
procedure TEditorForm.CalcCapacityActionExecute(Sender: TObject);
begin
s := MouseGesture.GetGestureStr;
ActStr := '';
- Action := FGestures.GetGestureAction(s);
+ Action := GikoSys.Setting.Gestures.GetGestureAction(s);
if Action <> nil then
ActStr := '\81i' + Action.Caption + '\81j';
s := '\83W\83F\83X\83`\83\83\81[: ' + s + ActStr;
Action: TAction;
begin
s := MouseGesture.GetGestureStr;
- Action := FGestures.GetGestureAction(s);
+ Action := GikoSys.Setting.Gestures.GetGestureAction(s);
if Action <> nil then
Action.Execute;
StatusBar.Panels[0].Text := '';
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);
var
i: Integer;
begin
- i := AnsiPos('fusianasan', s);
- if (i > 0) then Result := True else Result := False;
+ i := AnsiPos('fusianasan', s);
+ if (i > 0) then Result := True else Result := False;
end;
procedure TEditorForm.BeLogInOutEActionExecute(Sender: TObject);
end else if( AnsiPos(VAL_PON, val) > 0 ) then begin
ABoard.PON := Copy(val, AnsiPos(VAL_PON, val) + Length(VAL_PON), Length(val));
end else begin
- ABoard.Cookie := val + '; ';
+ ABoard.Cookie := ABoard.Cookie + val + '; ';
end;
//expires\82ð\90Ø\82è\8fo\82·
val := Trim(GikoSys.GetTokenIndex(tmp, ';', 1));
end;
end;
+//! Samba\82Ì\90Ý\92è\92l\82ð\8dX\90V\82·\82é
+procedure TEditorForm.UpdateSamba(const AHost: String; value: Integer);
+var
+ ini :TMemIniFile;
+begin
+ ini := TMemIniFile.Create(GikoSys.GetSambaFileName);
+ try
+ ini.WriteInteger('Setting', AHost, value);
+ ini.UpdateFile;
+ finally
+ ini.Free;
+ end;
+end;
+
+//! \83T\83\93\83o\8dX\90V\82Ì\83A\83N\83V\83\87\83\93\82ÌUpdate\83C\83x\83\93\83g\81@\8aÈ\92P\82Ì\82½\82ß\83^\83C\83}\81[\82Æ\93¯\82¶\82É\82µ\82Ä\82¨\82
+procedure TEditorForm.UpdateSambaActionUpdate(Sender: TObject);
+begin
+ UpdateSambaAction.Enabled := Timer1.Enabled;
+end;
+
+//! \83T\83\93\83o\8dX\90V\83A\83N\83V\83\87\83\93
+procedure TEditorForm.UpdateSambaActionExecute(Sender: TObject);
+var
+ input : String;
+ i : Integer;
+begin
+ if InputQuery('Samba24\90Ý\92è\92l\8dX\90V', '\90V\82µ\82¢\90Ý\92è\92l\82ð\93ü\97Í\82µ\82Ä\82\82¾\82³\82¢', input) then begin
+ input := ZenToHan(input);
+ if GikoSys.IsNumeric(input) then begin
+ UpdateSamba(FHost, StrToInt(input));
+ //\91S\82Ä\82Ì\83t\83H\81[\83\80\82©\82ç\81A\93¯\82¶\83z\83X\83g\82Ì\83G\83f\83B\83^\82É\93Ç\82Ý\8d\9e\82Ý\8ew\8e¦
+ for i := 0 to Screen.FormCount - 1 do begin
+ if Screen.Forms[i] is TEditorForm then begin
+ if FHost = TEditorForm(Screen.Forms[i]).FHost then begin
+ TEditorForm(Screen.Forms[i]).ReadSettingTime(FHost);
+ end;
+ end;
+ end;
+ end else begin
+ ShowMessage('\90\94\92l\82ð\93ü\97Í\82µ\82Ä\82\82¾\82³\82¢');
+ UpdateSambaActionExecute(Sender);
+ end;
+ end;
+end;
+
+procedure TEditorForm.InputAssistActionExecute(Sender: TObject);
+var
+ count, i : Integer;
+ item : TMenuItem;
+ point: TPoint;
+ Bitmap : TBitmap;
+ TextWidth, ItemWidth, tmpWidth: Integer;
+begin
+ if FInputAssistKey = '' then Exit;
+
+ InputAssistPopupMenu.Items.Clear;
+
+ if (FResistWords = nil) then begin
+ FResistWords := TStringList.Create;
+ end else begin
+ FResistWords.Clear;
+ end;
+
+ if (GetKeyState( VK_SHIFT ) < 0) then begin
+ // \83V\83t\83g\82ª\89\9f\82³\82ê\82Ä\82¢\82ê\82Î\81A\83L\81[\82Å\8en\82Ü\82é\83J\83e\83S\83\8a
+ count :=
+ InputAssistDM.GetStartWithCategoryResistWords(
+ FInputAssistKey, FResistWords);
+ end else begin
+ // \83V\83t\83g\82ª\96³\82¢\82Ì\82Å\81A\83L\81[\82Å\8en\82Ü\82é\83L\81[
+ count :=
+ InputAssistDM.GetStartWithKeyResistWords(
+ FInputAssistKey, FResistWords);
+ end;
+ Bitmap := TBitmap.Create;
+ try
+ Bitmap.Canvas.Font.Assign(BodyEdit.Font);
+ // \83}\81[\83W\83\935px
+ TextWidth := Bitmap.Canvas.TextWidth(FInputAssistKey) + 5;
+ ItemWidth := 0;
+ for i := 0 to count - 1 do begin
+ item := TMenuItem.Create(nil);
+ item.Break := mbNone;
+ item.Caption := FResistWords[i];
+ item.Tag := i;
+ item.OnClick := InputAssistMenuClick;
+ InputAssistPopupMenu.Items.Add(item);
+
+ tmpWidth := Bitmap.Canvas.TextWidth(Item.Caption);
+ if (tmpWidth > ItemWidth) then begin
+ ItemWidth := tmpWidth;
+ end;
+ end;
+ finally
+ Bitmap.Free;
+ end;
+
+ if (count > 0) then begin
+ GetCaretpos(point);
+ point.X := point.X + Self.Left + (Self.Width - BodyEdit.Width) div 2;
+ point.Y := point.Y + Self.Top + (Self.Height - Self.ClientHeight);
+
+ if Screen.DesktopWidth >
+ (point.X + TextWidth + ItemWidth) then begin
+ InputAssistPopupMenu.Popup(
+ point.X + TextWidth,
+ point.Y + EditorPage.Top + EditorPage.TabHeight + BodyEdit.Top);
+ end else begin
+ InputAssistPopupMenu.Popup(
+ point.X - TextWidth - ItemWidth,
+ point.Y + EditorPage.Top + EditorPage.TabHeight + BodyEdit.Top);
+ end;
+ end;
+end;
+
+procedure TEditorForm.InputAssistMenuClick(Sender: TObject);
+var
+ text : String;
+ IMC: HIMC;
+begin
+ if not (Sender is TMenuItem) then Exit;
+
+ if (FResistWords <> nil) then begin
+ try
+ text :=
+ TResistWord(FResistWords.Objects[TMenuItem(Sender).Tag]).GetText;
+ except
+ text := '';
+ end;
+ IMC := ImmGetContext(BodyEdit.Handle); //\83R\83\93\83e\83L\83X\83g\8eæ\93¾
+ try
+ ImmNotifyIME(IMC, NI_COMPOSITIONSTR, CPS_CANCEL, 0);
+ finally
+ ImmReleaseContext(BodyEdit.Handle, IMC); //\83R\83\93\83e\83L\83X\83g\89ð\95ú
+ end;
+
+ FResistWords.Clear;
+ FInputAssistKey := '';
+ end;
+ InsertText(BodyEdit, text);
+end;
+
+//! TMemo\82Ì\83J\81[\83\\83\8b\88Ê\92u\82É\95¶\8e\9a\97ñ\91}\93ü
+procedure TEditorForm.InsertText(Memo: TMemo; Text: String);
+var
+ line, sel, pos: Integer;
+ left, right : String;
+begin
+ Memo.Lines.BeginUpdate;
+ line := SendMessage(Memo.Handle,EM_LINEFROMCHAR,-1,0); //\8ds
+ sel := Memo.SelStart;
+ pos := sel - SendMessage(Memo.Handle, EM_LINEINDEX, -1, 0); //\8c\85
+ if (pos > 0) then begin
+ left := Copy(Memo.Lines[line], 0, pos);
+ end else begin
+ left := '';
+ end;
+ right := Copy(Memo.Lines[line], pos + 1, Length(Memo.Lines[line]));
+ Memo.Lines.Strings[line] := left + Text + right;
+ Memo.Lines.EndUpdate;
+ //\81@\83L\83\83\83\8c\83b\83g\82Ì\88Ê\92u\82ð\8dX\90V\82·\82é
+ Memo.SelStart := sel + Length(text);
+ // \83L\83\83\83\8c\83b\83g\82Ì\88Ê\92u\82Ü\82Å\83X\83N\83\8d\81[\83\8b
+ Memo.Perform(EM_SCROLLCARET, 0, 0);
+
+end;
+
+procedure TEditorForm.ApplicationEvents1Message(var Msg: tagMSG;
+ var Handled: Boolean);
+var
+ wmMsg: TWMKey;
+ IMC: HIMC;
+ Len: integer;
+ Str: string;
+begin
+ if (Self.Active) then begin
+ case Msg.message of
+ //\83L\81[\89\9f\89º\82Ì\82Ý\8eó\82¯\8eæ\82é
+ WM_KEYDOWN:
+ begin
+ // \83^\83u\82ª\81h\95Ò\8fW\81h\82ÅCtrl\83L\81[\82ª\89\9f\82³\82ê\82Ä\82¢\82é\82Ì\82ð\8am\94F\82·\82é
+ if (EditorPage.ActivePageIndex = 0)
+ and (GetKeyState( VK_CONTROL ) < 0) then begin
+ wmMsg.Msg := Msg.message;
+ wmMsg.CharCode := Word(Msg.wParam);
+ wmMsg.KeyData := Msg.lParam;
+ if (wmMsg.CharCode = 229) and (wmMsg.KeyData = 3735553) then begin
+ IMC := ImmGetContext(BodyEdit.Handle); //\83R\83\93\83e\83L\83X\83g\8eæ\93¾
+ Len := ImmGetCompositionString(IMC, GCS_COMPSTR, nil, 0); //\82Ü\82¸\92·\82³\82ð\8eæ\93¾
+ if (Len > 0) then begin
+ SetLength(Str, Len + 1); //Buffer\82Ì\83\81\83\82\83\8a\82ð\90Ý\92è
+ ImmGetCompositionString(IMC, GCS_COMPSTR, PChar(Str), Len + 1); //\82Ü\82¸\92·\82³\82ð\8eæ\93¾
+ SetLength(Str, Len);
+ FInputAssistKey := Str;
+ InputAssistActionExecute(nil);
+ Handled := True;
+ end;
+ ImmReleaseContext(BodyEdit.Handle, IMC); //\83R\83\93\83e\83L\83X\83g\89ð\95ú
+ end;
+ end;
+ end;
+ end;
+
+ end;
+end;
+
+procedure TEditorForm.ShowInputAssistFormExecute(Sender: TObject);
+var
+ form : TInputAssistForm;
+begin
+ form := TInputAssistForm.Create(nil);
+ try
+ if TopAction.Checked then begin // \83X\83e\83C\8fó\91Ô\82É\90Ý\92è
+ SetWindowPos(form.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
+ end;
+ form.SetUpFromEditor;
+ if (form.ShowModal = mrOk) then begin
+ InsertText(BodyEdit, form.GetInsertText);
+ end;
+ finally
+ form.Release;
+ end;
+end;
+//! Cookie\8fî\95ñ\8dí\8f\9c
+procedure TEditorForm.ReleaseCookieActionExecute(Sender: TObject);
+var
+ Board : TBoard;
+begin
+ // \83X\83\8c\83b\83h\82ª\96³\82¢\81@\83X\83\8c\97§\82Ä\82Ì\82Æ\82«\82ÍFBoard\82ð\92¼\90Ú\8eg\82¤
+ if FThreadItem = nil then begin
+ Board := FBoard
+ end else begin
+ Board := FThreadItem.ParentBoard;
+ end;
+
+ // \83N\83b\83L\81[\82Ì\8fî\95ñ\82ð\8eÌ\82Ä\82é
+ Board.Cookie := '';
+ Board.SPID := '';
+ Board.PON := '';
+ // 0\82É\8aª\82«\96ß\82·
+ Board.Expires := 0;
+end;
+//! \94Â\8fî\95ñ\8eæ\93¾Update\83C\83x\83\93\83g
+procedure TEditorForm.GetSETTINGTXTActionUpdate(Sender: TObject);
+begin
+ // \8eÀ\8ds\92\86\82Í\8eÀ\8ds\95s\89Â
+ GetSETTINGTXTAction.Enabled := not FWork;
+end;
+//! \83\8d\81[\83J\83\8b\83\8b\81[\83\8b\8eæ\93¾Update\83C\83x\83\93\83g
+procedure TEditorForm.GetHeadTXTActionUpdate(Sender: TObject);
+begin
+ // \8eÀ\8ds\92\86\82Í\8eÀ\8ds\95s\89Â
+ GetSETTINGTXTAction.Enabled := not FWork;
+end;
+
end.
OSDN Git Service
