IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, ActnList, StdActns, IdIntercept,
IdLogBase, IdLogDebug, IdException, DateUtils, bmRegExp,
- Gesture, AppEvnts, SambaTimer, IdCookieManager;
+ Gesture, AppEvnts, SambaTimer, IdCookieManager, WideMemo;
type
// TSetLayeredWindowAttributes = function(wnd: HWND; crKey: DWORD; bAlpha: BYTE; dwFlag: DWORD): Boolean; stdcall;
N7: TMenuItem;
InputAssistAction: TAction;
InputAssistPopupMenu: TPopupMenu;
- BodyEdit: TMemo;
ApplicationEvents1: TApplicationEvents;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
+ UCInfoPanel: TPanel;
+ BodyEdit: TMemo;
procedure EditorPageChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
FResistWords: TStringList; ///< \93ü\97Í\83A\83V\83X\83g\82Ì\8e«\8f\91\82©\82ç\82Ì\8c\9f\8dõ\8c\8b\89Ê
FSambaTimer: TSambaTimer; ///< Samba\91Î\8dô\82Ì\83^\83C\83}\81[
FCookieDomain: string; ///< \94E\96@\92\9f\83h\83\81\83C\83\93
+ FUseUC: Boolean;
+ BodyEditUC: TWideMemo;
procedure Preview;
function Check: Boolean;
procedure SetNameList(sName, sMail: string);
procedure SetExtraTab;
//! \94Â\8eæ\93¾
function GetBoard : TBoard;
- //! URL\82Ì\83f\81[\83^\82ðstream\82É\8eæ\82è\8d\9e\82Þ
+ //! URL\82Ì\83f\81[\83^\82ðstream\82É\8eæ\82è\8d\9e\82Þ
procedure GetWebData(const URL: string; const RefURL: string;
Modified: TDateTime; stream: TStream);
//! GikoForm\82É\90V\92\85\83\81\83b\83Z\81[\83W\82ð\92Ç\89Á\82·\82é
procedure SetThreadItem(Item: TThreadItem);
procedure SetBoard(Item: TBoard);
procedure UpdateSambaStatus;
+ procedure SetFocusEdit;
+ procedure SetTextEdit(TextSrc: String);
property BBSID: string read FBBSID write FBBSID;
end;
procedure TEditorForm.FormCreate(Sender: TObject);
begin
+ FUseUC := GikoSys.Setting.UseUnicode;
+
+ BodyEditUC := TWideMemo.Create(Self);
+ BodyEditUC.Parent := EditorTab;
+ BodyEditUC.Align := alClient;
+ BodyEditUC.ScrollBars := ssBoth;
+
+ if (FUseUC = True) then begin
+ BodyEditUC.Visible := True;
+ BodyEdit.Visible := False;
+ EditorTab.Caption := EditorTab.Caption + '(Unicode\83\82\81[\83h)';
+ end else begin
+ BodyEditUC.Visible := False;
+ BodyEdit.Visible := True;
+ EditorTab.Caption := EditorTab.Caption + '(Shift-JIS\83\82\81[\83h)';
+ end;
+
FWork := False;
FSambaTimer := TSambaTimer.Create(Self);
FSambaTimer.Interval := 0;
TAB_LENGTH = 4;
begin
- body := BodyEdit.Text;
+ if (FUseUC = True) then
+ body := BodyEditUC.EncodeText
+ else
+ body := BodyEdit.Text;
+
if AmpToCharRefAction.Checked then
// & \82Ì\92u\8a·\82Í\88ê\94Ô\8dÅ\8f\89\82É\82â\82é\82±\82Æ
body := CustomStringReplace( body, '&', '&' );
procedure TEditorForm.SetFont;
begin
- BodyEdit.Font.Name := GikoSys.Setting.EditorFontName;
- BodyEdit.Font.Size := GikoSys.Setting.EditorFontSize;
- BodyEdit.Font.Color := GikoSys.Setting.EditorFontColor;
- BodyEdit.Color := GikoSys.Setting.EditorBackColor;
+ if (FUseUC = True) then begin
+ BodyEditUC.Font.Name := GikoSys.Setting.EditorFontName;
+ BodyEditUC.Font.Size := GikoSys.Setting.EditorFontSize;
+ BodyEditUC.Font.Color := GikoSys.Setting.EditorFontColor;
+ BodyEditUC.Color := GikoSys.Setting.EditorBackColor;
+ end else begin
+ BodyEdit.Font.Name := GikoSys.Setting.EditorFontName;
+ BodyEdit.Font.Size := GikoSys.Setting.EditorFontSize;
+ BodyEdit.Font.Color := GikoSys.Setting.EditorFontColor;
+ BodyEdit.Color := GikoSys.Setting.EditorBackColor;
+ end;
end;
procedure TEditorForm.Preview;
Msg: string;
rc: Integer;
Board: TBoard;
+ BodyLen: Integer;
begin
Result := True;
Board := GetBoard;
+ if (FUseUC = True) then
+ BodyLen := Length(BodyEditUC.EncodeText)
+ else
+ BodyLen := Length(BodyEdit.Text);
+
if (not GikoSys.Setting.UseMachineTime) and
((Board.LastGetTime = 0) or
(Board.LastGetTime = ZERO_DATE)) then begin
+ '\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, ERROR, MB_OK or MB_ICONSTOP);
Result := False;
- end else if BodyEdit.Text = '' then begin
+ end else if BodyLen = 0 then begin
Msg := '\96{\95¶' + REQUIRED;
MsgBox(Handle, Msg, ERROR, MB_OK or MB_ICONSTOP);
Result := False;
wp: TWindowPlacement;
begin
FSambaTimer.Free;
-
+
if (Owner <> nil) and (Owner.ClassNameIs('TKeySettingForm') = False) then begin
//\8dÅ\91å\89»\81E\83E\83B\83\93\83h\83E\88Ê\92u\95Û\91¶
wp.length := sizeof(wp);
GikoSys.Setting.EditWindowTranslucent := TransAction.Checked; // \94¼\93§\96¾\8fó\91Ô\82Ì\95Û\91¶
end;
+ BodyEditUC.Free;
end;
procedure TEditorForm.SetNameList(sName, sMail: string);
Result := FNameComboEdit
else if ActiveControl = MailComboBox then
Result := FMailComboEdit
+ else if ActiveControl = BodyEditUC then
+ Result := BodyEditUC.Handle
else if ActiveControl = BodyEdit then
Result := BodyEdit.Handle
else if ActiveControl = TitleEdit then
MsgResult: Integer;
Board: TBoard;
sysMenu : HMENU;
+ ExpMsg: String;
{Protocol,Host, Path, Document, Port, Bookmark : String;}
begin
FAbort := False;
FDebugStrReceive := AnsiReplaceText(FDebugStrReceive, '>', '>');
FDebugStrSend := AnsiReplaceText(FDebugStrSend, '<', '<');
FDebugStrSend := AnsiReplaceText(FDebugStrSend, '>', '>');
+ ExpMsg := AnsiReplaceText(E.Message, '<', '<');
+ ExpMsg := AnsiReplaceText(ExpMsg, '>', '>');
ResponseText := '<html><body>' + TextStream.DataString;
ResponseText := AnsiReplaceText(ResponseText, '</body>', '');
ResponseText := AnsiReplaceText(ResponseText, '</html>', '');
ResponseText := ResponseText + '<hr><div align="left"><pre>';
ResponseText := ResponseText + '<b>\82±\82±\82©\82ç\83M\83R\83i\83r\82Ì\8fî\95ñ</b>'#13#10;
+ ResponseText := ResponseText + #13#10'\81\9c\97á\8aO'#13#10;
+ ResponseText := ResponseText + ExpMsg;
ResponseText := ResponseText + #13#10'\81\9c\91\97\90M'#13#10;
ResponseText := ResponseText + FDebugStrSend;
ResponseText := ResponseText + #13#10'\81\9c\8eó\90M'#13#10;
else if (AnsiPos('\81E\93\8a\8de\8eÒ\82Í\81A\8cf\8e¦\94Â\89^\89c\8eÒ\82É\91Î\82µ\82Ä\81A\92\98\8dì\8eÒ\90l\8ai\8c \82ð\88ê\90Ø\8ds\8eg\82µ\82È\82¢\82±\82Æ\82ð\8f³\91ø\82µ\82Ü\82·\81B<br>', ResponseText) > 0) or
(AnsiPos('\81i\92\98\8dì\8c \96@\91æ21\8fð\82È\82¢\82µ\91æ28\8fð\82É\8bK\92è\82³\82ê\82é\8c \97\98\82à\8aÜ\82Þ\81j\82»\82Ì\91¼\82Ì\8c \97\98\82É\82Â\82«\81A', ResponseText) > 0) then
Result := grtCookie
+ else if (AnsiPos('\8f\91\82«\82±\82Ý\81\95\83N\83b\83L\81[\8am\94F', ResponseText) > 0) or
+ (AnsiPos('(cookie\82ð\90Ý\92è\82·\82é\82Æ\82±\82Ì\89æ\96Ê\82Í\82Å\82È\82\82È\82è\82Ü\82·\81B)', ResponseText) > 0) then
+ Result := grtCookie
else
Result := grtError;
end;
var
sDate: string;
ini: TMemIniFile;
+ Body: String;
begin
ini := CreateSentIniFile;
if (ini <> nil) then begin
try
sDate := IntToStr(GikoSys.DateTimeToInt(Now));
+ if (FUseUC = True) then
+ Body := BodyEditUC.EncodeText
+ else
+ Body := BodyEdit.Text;
ini.WriteString(sDate, 'Name', NameComboBox.Text);
ini.WriteString(sDate, 'EMail', MailComboBox.Text);
- ini.WriteString(sDate, 'Body', HttpEncode(BodyEdit.Text));
+ ini.WriteString(sDate, 'Body', HttpEncode(Body));
ini.WriteInteger(sDate, 'Status', FStatusCode);
ini.WriteDateTime(sDate, 'Date', Now);
if FThreadItem = nil then begin
SaveSendFile;
GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmNewSure), nil, gmiOK);
FWork := False;
- Close;
+ if (not ContinueModeAction.Enabled) or (not ContinueModeAction.Checked) then
+ Close;
end else if State = gdsError then begin
GikoForm.AddMessageList(FBoard.Title + ' ' + GikoSys.GetGikoMessage(gmSureError), nil, gmiNG);
end else if State = gdsAbort then begin
SaveSendFile;
GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmNewRes), nil, gmiOK);
FWork := False;
- Close;
+ if (not ContinueModeAction.Enabled) or (not ContinueModeAction.Checked) then
+ Close;
end else if State = gdsError then begin
GikoForm.AddMessageList(FThreadItem.Title + ' ' + GikoSys.GetGikoMessage(gmResError), nil, gmiOK);
end else if State = gdsAbort then begin
begin
quote := GikoSys.GetOEIndentChar;
- s := TStringList.Create;
- try
- s.Text := Clipboard.AsText;
- for i := s.Count - 1 downto 0 do
- s[ i ] := quote + s[ i ];
+ if (FUseUC = True) then begin
+ BodyEditUC.QuotePaste(quote);
+ end else begin
+ s := TStringList.Create;
+ try
+ s.Text := Clipboard.AsText;
- BodyEdit.SelText := s.Text;
- finally
- s.Free;
- end;
+ for i := s.Count - 1 downto 0 do
+ s[ i ] := quote + s[ i ];
+ BodyEdit.SelText := s.Text;
+ finally
+ s.Free;
+ end;
+ end;
end;
procedure TEditorForm.SpaceToNBSPActionExecute(Sender: TObject);
procedure TEditorForm.ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
var
body: TStringList;
+ UCType: Integer; // 0:\95s\96¾\81A1:\91Î\89\9e\81A-1:\94ñ\91Î\89\9e
begin
+ UCType := 0;
AMemo.Clear;
AMemo.Lines.Add('[SETTING.TXT]');
if ABoard.IsSETTINGTXT then begin
finally
body.Free;
end;
+ if (Pos('BBS_UNICODE=pass', AMemo.Text) > 0) then
+ UCType := 1
+ else if (Pos('BBS_UNICODE=', AMemo.Text) > 0) then
+ UCType := -1;
end else begin
ABoard.IsSETTINGTXT := false;
ABoard.SETTINGTXTTime := ZERO_DATE;
AMemo.Lines.Add('SETTING.TXT\82ð\8eæ\93¾\82µ\82Ä\82¢\82Ü\82¹\82ñ\81B');
AMemo.Lines.Add('\83\81\83j\83\85\81[\82æ\82è\8eæ\93¾\82µ\82Ä\82\82¾\82³\82¢\81B');
end;
+
+ case UCType of
+ -1: begin
+ UCInfoPanel.Caption := 'Unicode\94ñ\91Î\89\9e\94Â';
+ UCInfoPanel.Color := clRed;
+ UCInfoPanel.Hint := '\82±\82Ì\94Â\82ÍUnicode\82Å\82Ì\83\8c\83X\82É\91Î\89\9e\82µ\82Ä\82¢\82Ü\82¹\82ñ\81B';
+ end;
+ 0: begin
+ UCInfoPanel.Caption := 'Unicode\91Î\89\9e\95s\96¾';
+ UCInfoPanel.Color := clBtnFace;
+ UCInfoPanel.Hint := '\94Â\8fî\95ñ\82ð\8eæ\93¾\82µ\82Ä\82\82¾\82³\82¢\81B';
+ end;
+ 1: begin
+ UCInfoPanel.Caption := 'Unicode\91Î\89\9e\94Â';
+ UCInfoPanel.Color := clLime;
+ UCInfoPanel.Hint := '\82±\82Ì\94Â\82ÍUnicode\82Å\82Ì\83\8c\83X\82É\91Î\89\9e\82µ\82Ä\82¢\82Ü\82·\81B';
+ end;
+ end;
end;
function TEditorForm.GetTitlePictureURL(body: TStringList; ABoard: TBoard): string;
//BBS_TITLE_PICTURE=
item : TMenuItem;
point: TPoint;
Bitmap : TBitmap;
- TextWidth, ItemWidth, tmpWidth: Integer;
+ TextWidth, ItemWidth, tmpWidth, EditW, EditT: Integer;
begin
if FInputAssistKey = '' then Exit;
end;
Bitmap := TBitmap.Create;
try
- Bitmap.Canvas.Font.Assign(BodyEdit.Font);
+ if (FUseUC = True) then
+ Bitmap.Canvas.Font.Assign(BodyEditUC.Font)
+ else
+ Bitmap.Canvas.Font.Assign(BodyEdit.Font);
// \83}\81[\83W\83\935px
TextWidth := Bitmap.Canvas.TextWidth(FInputAssistKey) + 5;
ItemWidth := 0;
end;
if (count > 0) then begin
+ if (FUseUC = True) then begin
+ EditW := BodyEditUC.Width;
+ EditT := BodyEditUC.Top;
+ end else begin
+ EditW := BodyEdit.Width;
+ EditT := BodyEdit.Top;
+ end;
GetCaretpos(point);
- point.X := point.X + Self.Left + (Self.Width - BodyEdit.Width) div 2;
+ point.X := point.X + Self.Left + (Self.Width - EditW) 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);
+ point.Y + EditorPage.Top + EditorPage.TabHeight + EditT);
end else begin
InputAssistPopupMenu.Popup(
point.X - TextWidth - ItemWidth,
- point.Y + EditorPage.Top + EditorPage.TabHeight + BodyEdit.Top);
+ point.Y + EditorPage.Top + EditorPage.TabHeight + EditT);
end;
end;
end;
var
text : String;
IMC: HIMC;
+ EditHandle: HWND;
begin
if not (Sender is TMenuItem) then Exit;
if (FResistWords <> nil) then begin
+ if (FUseUC = True) then
+ EditHandle := BodyEditUC.Handle
+ else
+ EditHandle := BodyEdit.Handle;
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¾
+ IMC := ImmGetContext(EditHandle); //\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ú
+ ImmReleaseContext(EditHandle, IMC); //\83R\83\93\83e\83L\83X\83g\89ð\95ú
end;
FResistWords.Clear;
FInputAssistKey := '';
end;
- InsertText(BodyEdit, text);
+ if (FUseUC = True) then
+ BodyEditUC.InsertText(text)
+ else
+ InsertText(BodyEdit, text);
end;
//! TMemo\82Ì\83J\81[\83\\83\8b\88Ê\92u\82É\95¶\8e\9a\97ñ\91}\93ü
IMC: HIMC;
Len: integer;
Str: string;
+ EditHandle: HWND;
begin
if (Self.Active) then begin
case Msg.message of
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¾
+ if (FUseUC = True) then
+ EditHandle := BodyEditUC.Handle
+ else
+ EditHandle := BodyEdit.Handle;
+ IMC := ImmGetContext(EditHandle); //\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è
InputAssistActionExecute(nil);
Handled := True;
end;
- ImmReleaseContext(BodyEdit.Handle, IMC); //\83R\83\93\83e\83L\83X\83g\89ð\95ú
+ ImmReleaseContext(EditHandle, IMC); //\83R\83\93\83e\83L\83X\83g\89ð\95ú
end;
end;
end;
end;
form.SetUpFromEditor;
if (form.ShowModal = mrOk) then begin
- InsertText(BodyEdit, form.GetInsertText);
+ if (FUseUC = True) then
+ BodyEditUC.InsertText(form.GetInsertText)
+ else
+ InsertText(BodyEdit, form.GetInsertText);
end;
finally
form.Release;
end;
end;
+procedure TEditorForm.SetFocusEdit;
+begin
+ if (FUseUC = True) then
+ BodyEditUC.SetFocus
+ else
+ BodyEdit.SetFocus;
+end;
+
+procedure TEditorForm.SetTextEdit(TextSrc: String);
+begin
+ if (FUseUC = True) then
+ BodyEditUC.Text := TextSrc
+ else
+ BodyEdit.Text := TextSrc;
+end;
+
end.