usesのmojuUtilsの位置を変更

diff --git a/Editor.pas b/Editor.pas
index e2c4f83..f9f7cec 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -16,7 +16,7 @@ uses
        GikoSystem, GikoUtil, ImgList, Clipbrd, BoardGroup,
        IdAntiFreezeBase,       IdAntiFreeze, IdBaseComponent, IdComponent,
        IdTCPConnection, IdTCPClient, IdHTTP, ActnList, StdActns, IdIntercept,
-       IdLogBase, IdLogDebug, IdException, DateUtils, MojuUtils, bmRegExp,
+       IdLogBase, IdLogDebug, IdException, DateUtils,  bmRegExp,
        Gesture;
 
 type
@@ -108,22 +108,22 @@ type
        SETTINGTXT2: TMenuItem;
        GetTitlePictureAction: TAction;
        OP1: TMenuItem;
-    GetHeadTXTAction: TAction;
-    HeadTXT1: TMenuItem;
-    RocalRuleTab: TTabSheet;
-    WebBrowser1: TWebBrowser;
-    CalcCapacityAction: TAction;
-    N4: TMenuItem;
-    N5: TMenuItem;
-    LocalRule: TMenuItem;
-    LocalEdit: TMemo;
-    N6: TMenuItem;
-    LocalRuleBrowse: TMenuItem;
-    ToolButton4: TToolButton;
-    ToolButton6: TToolButton;
-    SaveNameMailAction: TAction;
-    ToolButton7: TToolButton;
-    BeLogInOutEAction: TAction;
+       GetHeadTXTAction: TAction;
+       HeadTXT1: TMenuItem;
+       RocalRuleTab: TTabSheet;
+       WebBrowser1: TWebBrowser;
+       CalcCapacityAction: TAction;
+       N4: TMenuItem;
+       N5: TMenuItem;
+       LocalRule: TMenuItem;
+       LocalEdit: TMemo;
+       N6: TMenuItem;
+       LocalRuleBrowse: TMenuItem;
+       ToolButton4: TToolButton;
+       ToolButton6: TToolButton;
+       SaveNameMailAction: TAction;
+       ToolButton7: TToolButton;
+       BeLogInOutEAction: TAction;
 
                procedure EditorPageChange(Sender: TObject);
                procedure FormCreate(Sender: TObject);
@@ -168,14 +168,14 @@ type
        procedure GetSETTINGTXTActionExecute(Sender: TObject);
        procedure GetTitlePictureActionUpdate(Sender: TObject);
        procedure GetTitlePictureActionExecute(Sender: TObject);
-    procedure GetHeadTXTActionExecute(Sender: TObject);
+       procedure GetHeadTXTActionExecute(Sender: TObject);
        procedure CalcCapacityActionExecute(Sender: TObject);
-    procedure LocalRuleClick(Sender: TObject);
-    procedure FormDeactivate(Sender: TObject);
-    procedure LocalRuleBrowseClick(Sender: TObject);
-    procedure SaveNameMailActionExecute(Sender: TObject);
-    procedure BeLogInOutEActionExecute(Sender: TObject);
-    procedure BeLogInOutEActionUpdate(Sender: TObject);
+       procedure LocalRuleClick(Sender: TObject);
+       procedure FormDeactivate(Sender: TObject);
+       procedure LocalRuleBrowseClick(Sender: TObject);
+       procedure SaveNameMailActionExecute(Sender: TObject);
+       procedure BeLogInOutEActionExecute(Sender: TObject);
+       procedure BeLogInOutEActionUpdate(Sender: TObject);
        private
                FThreadItem: TThreadItem;
                FBoard: TBoard;
@@ -232,16 +232,16 @@ type
                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);
@@ -259,14 +259,14 @@ type
 implementation
 
 uses
-       Giko, ItemDownload, IdGlobal;
+       Giko, ItemDownload, MojuUtils, IdGlobal;
 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';

diff --git a/NewBoard.pas b/NewBoard.pas
index 0a23940..0b5d398 100644 (file)
--- a/NewBoard.pas
+++ b/NewBoard.pas
@@ -6,7 +6,7 @@ uses
        Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
        Dialogs, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
        IdTCPConnection, IdTCPClient, IdHTTP, IDException, StdCtrls, IniFiles,
-       GikoSystem, BoardGroup, MojuUtils;
+       GikoSystem, BoardGroup;
 
 type
        TNewBoardItem = record
@@ -25,13 +25,13 @@ type
        BoardURLComboBox: TComboBox;
        Label13: TLabel;
        EditIgnoreListsButton: TButton;
-    Label2: TLabel;
+       Label2: TLabel;
                procedure UpdateButtonClick(Sender: TObject);
                procedure StopButtonClick(Sender: TObject);
                procedure CloseButtonClick(Sender: TObject);
                procedure FormCreate(Sender: TObject);
        procedure EditIgnoreListsButtonClick(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+       procedure FormClose(Sender: TObject; var Action: TCloseAction);
        private
                { Private \90é\8c¾ }
                IgnoreLists : TStringList;
@@ -51,7 +51,7 @@ var
 
 implementation
 
-uses Giko, IdHeaderList;
+uses Giko, IdHeaderList, MojuUtils;
 
 {$R *.dfm}
 
@@ -60,7 +60,7 @@ var
        Item: TNewBoardItem;
 begin
        try
-        GikoSys.Setting.BoardURLSelected := BoardURLComboBox.ItemIndex + 1;
+               GikoSys.Setting.BoardURLSelected := BoardURLComboBox.ItemIndex + 1;
                FAbort := False;
                UpdateButton.Enabled := False;
                StopButton.Enabled := True;