object EditorForm: TEditorForm
Left = 306
Top = 172
- Width = 640
+ Width = 749
Height = 449
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
object StatusBar: TStatusBar
Left = 0
Top = 371
- Width = 624
+ Width = 733
Height = 19
Panels = <
item
object EditorPage: TPageControl
Left = 0
Top = 30
- Width = 624
+ Width = 733
Height = 341
ActivePage = EditorTab
Align = alClient
object NameBasePanel: TPanel
Left = 0
Top = 29
- Width = 616
+ Width = 725
Height = 31
Align = alTop
BevelOuter = bvNone
Caption = #12495#12531#12489#12523#20445#23384'(&H)'
TabOrder = 3
end
+ object UCInfoPanel: TPanel
+ Left = 616
+ Top = 4
+ Width = 105
+ Height = 20
+ BevelOuter = bvLowered
+ TabOrder = 4
+ end
end
object TitlePanel: TPanel
Left = 0
Top = 0
- Width = 616
+ Width = 725
Height = 29
Align = alTop
BevelOuter = bvNone
object ToolBar: TToolBar
Left = 0
Top = 0
- Width = 624
+ Width = 733
Height = 30
AutoSize = True
BorderWidth = 1
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
+ UCInfoPanel: TPanel;
procedure EditorPageChange(Sender: TObject);
procedure FormCreate(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';
+ 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';
+ 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=