Commit: 10 - textdefind (svn)

Commit MetaInfo

• Revision: 10 (tree)
• Time: 2018-12-24 22:10:23
• Author: kentamaken

Log Message

検索オプション

Change Summary

• modified: Win32/Release/textdefind.exe
• modified: textdefind.dproj
• modified: textdefindunit.dfm
• modified: textdefindunit.pas

Incremental Difference

--- textdefind.dproj	(revision 9)
+++ textdefind.dproj	(revision 10)
@@ -5,7 +5,7 @@
         <FrameworkType>VCL</FrameworkType>
         <MainSource>textdefind.dpr</MainSource>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>1</TargetedPlatforms>
         <AppType>Application</AppType>

--- textdefindunit.pas	(revision 9)
+++ textdefindunit.pas	(revision 10)
@@ -3,10 +3,11 @@
 interface
 
 uses
-	Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,
+	Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,
+	System.Classes,Vcl.Graphics,
 	Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,Vcl.ExtCtrls,Vcl.Grids,
 	types,inifiles,
-	Vcl.ComCtrls,ShlObj,ActiveX,Vcl.Menus;
+	Vcl.ComCtrls,ShlObj,ActiveX,Vcl.Menus,Vcl.CheckLst;
 
 type
 	TStringSelf=class(TStringList)
@@ -15,7 +16,6 @@
 		function this:TStringList;
 	end;
 
-
 	TStringsHelper=class helper for TStrings
 		function setstrings(sa:TStringDynArray):Integer;
 	end;
@@ -47,7 +47,7 @@
 		procedure MouseDown(Button:TMouseButton;Shift:TShiftState;X,Y:Integer);override;
 		procedure MouseMove(Shift:TShiftState;X,Y:Integer);override;
 
-		procedure SetEditText(ACol, ARow: Integer; const Value: string);override;
+		procedure SetEditText(ACol,ARow:Integer;const Value:string);override;
 
 		function DoMouseWheelDown(Shift:TShiftState;MousePos:TPoint):boolean;override;
 		function DoMouseWheelUp(Shift:TShiftState;MousePos:TPoint):boolean;override;
@@ -58,8 +58,8 @@
 
 	public
 		downinselection:boolean;
-		saverect       :TGridRect;
-		buf            :TGrid;
+		saverect:TGridRect;
+		buf:TGrid;
 
 		procedure cutcopy(modecut:boolean);
 		function paste:TGridRect;
@@ -91,7 +91,7 @@
 		Panel1:TPanel;
 		Path:TComboBox;
 		Find:TButton;
-	GridFiles: TStringGrid;
+		GridFiles:TStringGrid;
 		PopupMenu2:TPopupMenu;
 		PFileCut:TMenuItem;
 		PFileCopy:TMenuItem;
@@ -108,27 +108,35 @@
 		TMP:TComboBox;
 		SaveDialog:TSaveDialog;
 		OpenDialog:TOpenDialog;
-	LeftPanel: TPanel;
-	Name: TComboBox;
-	Text: TRichEdit;
-	Tree: TTreeView;
-	Button1: TButton;
-	Splitter1: TSplitter;
-	PFileExec: TMenuItem;
-	PFileFolder: TMenuItem;
-	Panel3: TPanel;
-	Url: TComboBox;
-	FindUrlButton: TButton;
-	UrlEditButton: TButton;
-	PathEditButton: TButton;
-	PTextFind: TMenuItem;
-	PTextFindUrl: TMenuItem;
-	N1: TMenuItem;
-	PathSelButton: TButton;
+		LeftPanel:TPanel;
+		Name:TComboBox;
+		Text:TRichEdit;
+		Tree:TTreeView;
+		Button1:TButton;
+		Splitter1:TSplitter;
+		PFileExec:TMenuItem;
+		PFileFolder:TMenuItem;
+		Panel3:TPanel;
+		Url:TComboBox;
+		FindUrlButton:TButton;
+		UrlEditButton:TButton;
+		PathEditButton:TButton;
+		PTextFind:TMenuItem;
+		PTextFindUrl:TMenuItem;
+		N1:TMenuItem;
+		PathSelButton:TButton;
+		OpURLPanel:TPanel;
+		OpURLEscape:TCheckBox;
+		OpUrlSpace:TCheckBox;
+		OpURLZenkaku:TCheckBox;
+		OpURLEscapeEdit:TEdit;
+		OpURLSpaceEdit:TEdit;
+		OptionUrlDQuote:TCheckBox;
+		OpURLComment:TCheckBox;
+		OpURLButton:TButton;
 		procedure FindClick(Sender:TObject);
 		procedure FormCreate(Sender:TObject);
-		procedure GridFilesMouseDown(Sender:TObject;Button:TMouseButton;
-			Shift:TShiftState;X,Y:Integer);
+		procedure GridFilesMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
 		procedure PFileCutClick(Sender:TObject);
 		procedure PFileCopyClick(Sender:TObject);
 		procedure PFilePasteClick(Sender:TObject);
@@ -140,22 +148,21 @@
 		procedure PTextSaveAsClick(Sender:TObject);
 		procedure PTextOpenClick(Sender:TObject);
 		procedure FormDestroy(Sender:TObject);
-	procedure NameChange(Sender: TObject);
-	procedure TreeClick(Sender: TObject);
-	procedure Button1Click(Sender: TObject);
-	procedure PFileFolderClick(Sender: TObject);
-	procedure PFileExecClick(Sender: TObject);
-    procedure FindUrlButtonClick(Sender: TObject);
-    procedure TextMouseUp(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
-    procedure UrlEditButtonClick(Sender: TObject);
-    procedure PathEditButtonClick(Sender: TObject);
-    procedure PTextFindClick(Sender: TObject);
-    procedure PTextFindUrlClick(Sender: TObject);
-    procedure PathSelButtonClick(Sender: TObject);
-    procedure GridFilesSetEditText(Sender: TObject; ACol, ARow: Integer;
-      const Value: string);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+		procedure NameChange(Sender:TObject);
+		procedure TreeClick(Sender:TObject);
+		procedure Button1Click(Sender:TObject);
+		procedure PFileFolderClick(Sender:TObject);
+		procedure PFileExecClick(Sender:TObject);
+		procedure FindUrlButtonClick(Sender:TObject);
+		procedure TextMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
+		procedure UrlEditButtonClick(Sender:TObject);
+		procedure PathEditButtonClick(Sender:TObject);
+		procedure PTextFindClick(Sender:TObject);
+		procedure PTextFindUrlClick(Sender:TObject);
+		procedure PathSelButtonClick(Sender:TObject);
+		procedure GridFilesSetEditText(Sender:TObject;ACol,ARow:Integer;const Value:string);
+		procedure FormClose(Sender:TObject;var Action:TCloseAction);
+		procedure OpURLButtonClick(Sender:TObject);
 	private
 		{ Private 宣言 }
 	public
@@ -176,27 +183,28 @@
 uses strutils,IOUtils,masks,clipbrd,SHELLAPI,Vcl.FileCtrl,IdGlobal,IdURI;
 
 var
-	Malloc      :IMalloc;
+	Malloc:IMalloc;
 	FMouseDownPt:TPoint;
-	SL          :TStringDynArray;
-	Ini         :TMemIniFile;
-	Inifile     :TMemIniFile;
-	inidir      :string;
-	pname		:string;
+	sl:TStringDynArray;
+	Ini:TMemInifile;
+	Inifile:TMemInifile;
+	inidir:string;
+	pname:string;
 
 const
-	MAXLIST  =4096;
+	MAXLIST=4096;
 	TKNMAXLEN=1024;
-	NULLNULL =#0#0;
-	CR       =#13;
-	LF       =#10;
-	CRLF     =#13#10;
-	TAB      =#9;
-	CTEXT    =1;
-	CFILE    =2;
-	CPATH    =3;
+	NULLNULL=#0#0;
+	CR=#13;
+	LF=#10;
+	CRLF=#13#10;
+	TAB=#9;
+	CTEXT=1;
+	CFILE=2;
+	CPATH=3;
+
 var
-	CHEAD:TStringDynArray =['','検索文字','ファイル','パス'];
+	CHEAD:TStringDynArray=['','検索文字','ファイル','パス'];
 
 {$R *.dfm}
 
@@ -203,46 +211,55 @@
 function INCBS(const s:string):string;
 begin
 	Result:=s;
-	if not IsPathDelimiter(Result,Length(Result)) then Result:=Result+'\';
+	if not IsPathDelimiter(Result,Length(Result)) then
+		Result:=Result+'\';
 end;
 
 function EXCBS(const s:string):string;
 begin
 	Result:=s;
-	if IsPathDelimiter(Result,Length(Result)) then SetLength(Result,Length(Result)-1);
+	if IsPathDelimiter(Result,Length(Result)) then
+		SetLength(Result,Length(Result)-1);
 end;
 
-function zenkaku(Str : String) : String;//半角全角
+function zenkaku(Str:String):String; // 半角全角
 var
-　Buf:array [0 .. 1023] of Char;
+	buf: array [0..1023] of Char;
 begin
-　LCMapString(GetUserDefaultLCID, LCMAP_FULLWIDTH, PChar(Str), Length(Str)+1, Buf, 1024);
-　Result:=String(Buf);
+	LCMapString(GetUserDefaultLCID,LCMAP_FULLWIDTH,PChar(Str),Length(Str)+1,buf,1024);
+	Result:=String(buf);
 end;
 
-function hankaku(Str : String) : String;//全角半角
+function hankaku(Str:String):String; // 全角半角
 var
-　Buf:array [0 .. 1023] of Char;
+	buf: array [0..1023] of Char;
 begin
-　LCMapString(GetUserDefaultLCID, LCMAP_HALFWIDTH, PChar(Str), Length(Str)+1, Buf, 1024);
-　Result:=String(Buf);
+	LCMapString(GetUserDefaultLCID,LCMAP_HALFWIDTH,PChar(Str),Length(Str)+1,buf,1024);
+	Result:=String(buf);
 end;
-function hira(Str : String) : String;      //カタカナひらがな
+
+function hira(Str:String):String; // カタカナひらがな
 var
-　Buf:array [0 .. 1023] of Char;
+	buf: array [0..1023] of Char;
 begin
-　LCMapString(GetUserDefaultLCID, LCMAP_FULLWIDTH, PChar(Str), Length(Str)+1, Buf, 1024);
-　Str:=String(Buf);
-　LCMapString(GetUserDefaultLCID, LCMAP_HIRAGANA, PChar(Str), Length(Str)+1, Buf, 1024);
-　Result:=String(Buf);
+	LCMapString(GetUserDefaultLCID,LCMAP_FULLWIDTH,PChar(Str),Length(Str)+1,buf,1024);
+	Str:=String(buf);
+	LCMapString(GetUserDefaultLCID,LCMAP_HIRAGANA,PChar(Str),Length(Str)+1,buf,1024);
+	Result:=String(buf);
 end;
 
+procedure TTextDeFindForm.FormCreate(Sender:TObject);
+	procedure LoadChecked(C:TComponent);
+	begin
+		if C.ClassType=TMenuItem then
+			TMenuItem(C).Checked:=Ini.ReadBool('',C.Name,TMenuItem(C).Checked);
+		if C.ClassType=TCheckBox then
+			TCheckBox(C).Checked:=Ini.ReadBool('',C.Name,TCheckBox(C).Checked);
+	end;
 
-
-procedure TTextDeFindForm.FormCreate(Sender:TObject);
 begin
-	Ini:=TMemIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
-	Inifile:=TMemIniFile.Create(ChangeFileExt(Application.ExeName,'.txt'));
+	Ini:=TMemInifile.Create(ChangeFileExt(Application.ExeName,'.ini'));
+	Inifile:=TMemInifile.Create(ChangeFileExt(Application.ExeName,'.txt'));
 	inidir:=Ini.ReadString('','inidir',inidir);
 	OpenDialog.InitialDir:=ExtractFileDir(Application.ExeName);
 	SaveDialog.InitialDir:=ExtractFileDir(Application.ExeName);
@@ -252,16 +269,24 @@
 	LeftPanel.Width:=Ini.ReadInteger('','LeftPanel.Width',LeftPanel.Width);
 	Font.Size:=Ini.ReadInteger('','Font.Size',Font.Size);
 
+	LoadChecked(OpURLComment);
+	LoadChecked(OpUrlSpace);
+	OpURLSpaceEdit.Text:=Ini.ReadString('','OpURLSpaceEdit',OpURLSpaceEdit.Text);
+	LoadChecked(OpURLEscape);
+	OpURLEscapeEdit.Text:=Ini.ReadString('','OpURLEscape',OpURLEscapeEdit.Text);
+	LoadChecked(OpURLZenkaku);
+	LoadChecked(OptionUrlDQuote);
+
 	Path.Text:=Ini.ReadString('','Path.Text','');
 	Url.Text:=Ini.ReadString('','Url.Text','');
 	Ini.readstrings('Url.Items',Url.Items);
 	Inifile.readtreeview('Tree',Tree);
 
-//	Files:=GridFiles;
+	// Files:=GridFiles;
 	Files:=TGrid.CreateEX(GridFiles);
 
 	try
-//		Tree.LoadFromFile(ChangeFileExt(Application.ExeName,'.txt'));
+		// Tree.LoadFromFile(ChangeFileExt(Application.ExeName,'.txt'));
 		NameChange(Sender);
 		pname:=Name.Text;
 		TreeClick(Sender);
@@ -271,9 +296,19 @@
 	end;
 end;
 
-procedure TTextDeFindForm.FormClose(Sender: TObject; var Action: TCloseAction);
+procedure TTextDeFindForm.FormClose(Sender:TObject;var Action:TCloseAction);
+
+	procedure SaveChecked(C:TComponent);
+	begin
+		if C.ClassType=TMenuItem then
+			Ini.WriteBool('',C.Name,TMenuItem(C).Checked);
+		if C.ClassType=TCheckBox then
+			Ini.WriteBool('',C.Name,TCheckBox(C).Checked);
+	end;
+
 begin
-	if Application.Terminated then exit;
+	if Application.Terminated then
+		exit;
 
 	Ini.WriteInteger('','Width',Width);
 	Ini.WriteInteger('','Height',Height);
@@ -283,9 +318,17 @@
 	Ini.WriteString('','Url.Text',Url.Text);
 	Ini.writestrings('Url.Items',Url.Items);
 
+	SaveChecked(OpURLComment);
+	SaveChecked(OpUrlSpace);
+	Ini.WriteString('','OpURLSpaceEdit',OpURLSpaceEdit.Text);
+	SaveChecked(OpURLEscape);
+	Ini.WriteString('','OpURLEscape',OpURLEscapeEdit.Text);
+	SaveChecked(OpURLZenkaku);
+	SaveChecked(OptionUrlDQuote);
+
 	NameChange(Sender);
 	Inifile.writetreeview('Tree',Tree);
-//	Tree.SaveToFile(ChangeFileExt(Application.ExeName,'.txt'));
+	// Tree.SaveToFile(ChangeFileExt(Application.ExeName,'.txt'));
 
 	Ini.UpdateFile;
 	Inifile.UpdateFile;
@@ -299,73 +342,94 @@
 
 end;
 
-
-
-function TTextDeFindForm.QueryContinueDrag(fEscapePressed:BOOL;
-	grfKeyState:Longint):HResult;
+function TTextDeFindForm.QueryContinueDrag(fEscapePressed:BOOL;grfKeyState:Longint):HResult;
 begin
-	//ESC　が押されたか、両方のボタンが押されている場合は中止する
-	if fEscapePressed or((MK_LBUTTON or MK_RBUTTON)=(grfKeyState and(MK_LBUTTON or MK_RBUTTON))) then Result:=DRAGDROP_S_CANCEL
+	// ESC　が押されたか、両方のボタンが押されている場合は中止する
+	if fEscapePressed or((MK_LBUTTON or MK_RBUTTON)=(grfKeyState and(MK_LBUTTON or MK_RBUTTON))) then
+		Result:=DRAGDROP_S_CANCEL
 
-		//マウスの左ボタンが離された場合はドロップ処理へ
-	else if grfKeyState and MK_LBUTTON=0 then Result:=DRAGDROP_S_DROP
+		// マウスの左ボタンが離された場合はドロップ処理へ
+	else if grfKeyState and MK_LBUTTON=0 then
+		Result:=DRAGDROP_S_DROP
 
-		//それ以外はD&D継続
-	else Result:=S_OK;
+		// それ以外はD&D継続
+	else
+		Result:=S_OK;
 end;
 
-
 function TTextDeFindForm.GiveFeedback(dwEffect:Longint):HResult;
 begin
-	//デフォルトのカーソルを使う
+	// デフォルトのカーソルを使う
 	Result:=DRAGDROP_S_USEDEFAULTCURSORS;
 end;
 
-
 procedure TTextDeFindForm.PFileCopyClick(Sender:TObject);
 begin
-	files.cutcopy(false);
+	Files.cutcopy(false);
 end;
 
 procedure TTextDeFindForm.PFileCutClick(Sender:TObject);
 begin
-	files.cutcopy(true);
+	Files.cutcopy(true);
 end;
 
-
-
-procedure TTextDeFindForm.FindUrlButtonClick(Sender: TObject);
+procedure TTextDeFindForm.FindUrlButtonClick(Sender:TObject);
 var
 	s,ss:string;
-	ls,le,i,count:integer;
-  function escape(url: String): String;
-  var
-      c,cc:Char;
-  begin
-    for c in ':/?#[]@!$&''()*+,;=' do begin
-      url:=url.Replace(c,format('%%%x',[(Ord(c))]));
-    end;
-    result:=url;
-  end;
+	ls,le,i,count:Integer;
 
+	function option(Url:String):String;
+	var
+		C,cc:Char;
+	begin
+
+		if OpURLComment.Checked then begin
+			if Url.IndexOf('//')>=0 then
+				Url:=Url.Substring(0,Url.IndexOf('//'));
+		end;
+
+		if OpUrlSpace.Checked then begin
+			for C in OpURLSpaceEdit.Text do begin
+				Url:=Url.Replace(C,' ');
+			end;
+		end;
+
+		if OpURLEscape.Checked then begin
+			for C in OpURLEscapeEdit.Text do begin
+				Url:=Url.Replace(C,format('%%%x',[(Ord(C))]));
+			end;
+		end;
+
+		if OpURLZenkaku.Checked then begin
+			Url:=zenkaku(Url);
+		end;
+		if OptionUrlDQuote.Checked then begin
+			Url:='\"'+Url+'\"';
+		end;
+
+		Result:=Url;
+	end;
+
 begin
 	urlrun:=not urlrun;
-//	with GridFiles do begin
-//		for i:=selection.top to selection.Bottom do begin
-//	end;
+	// with GridFiles do begin
+	// for i:=selection.top to selection.Bottom do begin
+	// end;
 	Screen.Cursor:=crHourGlass;
-	ls:=Text.Perform(EM_LINEFROMCHAR,Text.SelStart, 0);
-	le:=Text.Perform(EM_LINEFROMCHAR,Text.SelStart+Text.SelLength-1*integer(Text.SelLength>0),0);
+	ls:=Text.Perform(EM_LINEFROMCHAR,Text.SelStart,0);
+	le:=Text.Perform(EM_LINEFROMCHAR,Text.SelStart+Text.SelLength-1*Integer(Text.SelLength>0),0);
 	for i:=ls to le do begin
 		FindUrlButton.Caption:='中止';
 		ss:=Text.lines[i];
-		if not urlrun then break;
+		if not urlrun then
+			break;
 		Application.ProcessMessages;
-		s:=Url.text;
-		if s='' then continue;
-		s:=s.Replace('%リスト名%',zenkaku(Name.text));
-		s:=s.Replace('%検索文字%',zenkaku(ss));
-		ShellExecute(Handle,'open',Pchar(s),'','',1);
+		s:=Url.Text;
+		if s='' then
+			continue;
+		s:=s.Replace('%リスト名%',option(Name.Text));
+		s:=s.Replace('%検索文字%',option(ss));
+		ShellExecute(Handle,'open',PChar(s),'','',1);
 		sleep(3000);
 	end;
 	FindUrlButton.Caption:='URL検索';
@@ -373,16 +437,16 @@
 	Screen.Cursor:=crDefault;
 end;
 
-procedure TTextDeFindForm.PFileExecClick(Sender: TObject);
+procedure TTextDeFindForm.PFileExecClick(Sender:TObject);
 begin
 	with GridFiles do
-	ShellExecute(Handle,'open',Pchar(INCBS(cells[CPATH,row])+cells[CFILE,row]),'','',1);
+		ShellExecute(Handle,'open',PChar(INCBS(cells[CPATH,row])+cells[CFILE,row]),'','',1);
 end;
 
-procedure TTextDeFindForm.PFileFolderClick(Sender: TObject);
+procedure TTextDeFindForm.PFileFolderClick(Sender:TObject);
 begin
 	with GridFiles do
-	ShellExecute(Handle,'open',Pchar(INCBS(cells[CPATH,row])),'','',1);
+		ShellExecute(Handle,'open',PChar(INCBS(cells[CPATH,row])),'','',1);
 
 end;
 
@@ -390,12 +454,13 @@
 begin
 	OpenDialog.DefaultExt:='csv';
 	OpenDialog.Filter:='csv|csv|*|*';
-	if OpenDialog.Execute then files.save(OpenDialog.FileName);
+	if OpenDialog.Execute then
+		Files.save(OpenDialog.FileName);
 end;
 
 procedure TTextDeFindForm.PFilePasteClick(Sender:TObject);
 begin
-	files.paste;
+	Files.paste;
 end;
 
 procedure TTextDeFindForm.PFileSaveAsClick(Sender:TObject);
@@ -402,7 +467,8 @@
 begin
 	SaveDialog.DefaultExt:='csv';
 	SaveDialog.Filter:='csv|csv|*|*';
-	if SaveDialog.Execute then files.save(SaveDialog.FileName);
+	if SaveDialog.Execute then
+		Files.save(SaveDialog.FileName);
 end;
 
 procedure TTextDeFindForm.PTextCopyClick(Sender:TObject);
@@ -415,12 +481,12 @@
 	Text.CutToClipboard;
 end;
 
-procedure TTextDeFindForm.PTextFindClick(Sender: TObject);
+procedure TTextDeFindForm.PTextFindClick(Sender:TObject);
 begin
 	FindClick(Sender);
 end;
 
-procedure TTextDeFindForm.PTextFindUrlClick(Sender: TObject);
+procedure TTextDeFindForm.PTextFindUrlClick(Sender:TObject);
 begin
 	FindUrlButtonClick(Sender);
 end;
@@ -429,7 +495,8 @@
 begin
 	OpenDialog.DefaultExt:='txt';
 	OpenDialog.Filter:='txt|txt|*|*';
-	if OpenDialog.Execute then Text.lines.LoadFromFile(OpenDialog.FileName);
+	if OpenDialog.Execute then
+		Text.lines.LoadFromFile(OpenDialog.FileName);
 end;
 
 procedure TTextDeFindForm.PTextPasteClick(Sender:TObject);
@@ -441,176 +508,169 @@
 begin
 	SaveDialog.DefaultExt:='txt';
 	SaveDialog.Filter:='txt|txt|*|*';
-	if SaveDialog.Execute then Text.lines.SaveToFile(SaveDialog.FileName);
+	if SaveDialog.Execute then
+		Text.lines.SaveToFile(SaveDialog.FileName);
 
 end;
 
-
-
-
 function gridInRect(X,Y:Integer;const r:TGridRect):boolean;
 begin
 	Result:=true;
-	if ((X<r.left)or(X>r.right)or(Y<r.top)or(Y>r.Bottom)) then Result:=false;
+	if ((X<r.left)or(X>r.right)or(Y<r.top)or(Y>r.Bottom)) then
+		Result:=false;
 end;
 
-procedure TTextDeFindForm.GridFilesMouseDown(Sender:TObject;Button:TMouseButton;
-	Shift:TShiftState;X,Y:Integer);
+procedure TTextDeFindForm.GridFilesMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
 var
 	ACol,ARow:Longint;
 
 begin
 	Files.MouseToCell(X,Y,ACol,ARow);
-	if gridInRect(ACol,ARow,Files.selection) then exit;
+	if gridInRect(ACol,ARow,Files.selection) then
+		exit;
 	Files.MouseToCell(X,Y,ACol,ARow);
 
 end;
 
-
-procedure TTextDeFindForm.GridFilesSetEditText(Sender: TObject; ACol,
-  ARow: Integer; const Value: string);
+procedure TTextDeFindForm.GridFilesSetEditText(Sender:TObject;ACol,ARow:Integer;const Value:string);
 begin
-//	ShowMessage(Value);
-//	GridFiles.Options:=GridFiles.Options-[goEditing]+[goRangeSelect];
+	// ShowMessage(Value);
+	// GridFiles.Options:=GridFiles.Options-[goEditing]+[goRangeSelect];
 
 end;
 
-procedure TTextDeFindForm.TextMouseUp(Sender: TObject; Button: TMouseButton;
-  Shift: TShiftState; X, Y: Integer);
-var l:integer;
+procedure TTextDeFindForm.TextMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
+var
+	l:Integer;
 begin
 	if Text.SelLength=0 then begin
-		l:=Text.Perform(EM_LINEFROMCHAR, System.NativeUInt(-1), 0);
+		l:=Text.Perform(EM_LINEFROMCHAR,System.NativeUInt(-1),0);
 		Text.SelStart:=Text.Perform(EM_LINEINDEX,System.NativeUInt(l),0);
 		Text.SelLength:=Text.Perform(EM_LINEINDEX,System.NativeUInt(l+1),0)-Text.SelStart;
 	end;
 end;
 
-procedure TTextDeFindForm.TreeClick(Sender: TObject);
-var N:TTreeNode;
-ppname:string;
-i:integer;
+procedure TTextDeFindForm.TreeClick(Sender:TObject);
+var
+	N:TTreeNode;
+	ppname:string;
+	i:Integer;
 
-
 begin
 
 	ppname:=Name.Text;
 
 
-//	for i:=Name.Items.Count-1 downto 1 do
-//		Name.Items.Delete(i);
+	// for i:=Name.Items.Count-1 downto 1 do
+	// Name.Items.Delete(i);
 
-	Tmp.Clear;
+	TMP.clear;
 	N:=Tree.Items.GetFirstNode;
 	while N<>nil do begin
-		Tmp.Items.add(N.Text);
+		TMP.Items.add(N.Text);
 		N:=N.getNextSibling;
 	end;
 	Name.Enabled:=false;
-	Name.Items.Text:=Tmp.Items.text;
-//	Name.ItemIndex:=-1;
-//	Name.Text:=ppname;
+	Name.Items.Text:=TMP.Items.Text;
+	// Name.ItemIndex:=-1;
+	// Name.Text:=ppname;
 	Name.ItemIndex:=Name.Items.IndexOf(ppname);
-//	Application.ProcessMessages;
+	// Application.ProcessMessages;
 	Name.Enabled:=true;
 end;
 
-
-function inputtextbox(P:TForm;C:TWinControl;text:string):string;
+function inputtextbox(P:TForm;C:TWinControl;Text:string):string;
 var
-  F:Tform;
-  M:TMemo;
-  R:TRect;
+	f:TForm;
+	M:TMemo;
+	r:TRect;
 begin
-	F:=TForm.Create(P);
-	M:=TMemo.Create(F);
+	f:=TForm.Create(P);
+	M:=TMemo.Create(f);
 	try
-		F.Font:=P.Font;
-//		F.BorderStyle:=bsSingle;
-		R:=P.BoundsRect;
-		R.Top:=C.ClientToScreen(C.BoundsRect.BottomRight).Y;
-		R.Height:=200;
-//		R.Inflate(0,0,0,100);
-		F.BoundsRect:=R;
-		M.Parent:=F;
+		f.Font:=P.Font;
+		// F.BorderStyle:=bsSingle;
+		r:=P.BoundsRect;
+		r.top:=C.ClientToScreen(C.BoundsRect.BottomRight).Y;
+		r.Height:=200;
+		// R.Inflate(0,0,0,100);
+		f.BoundsRect:=r;
+		M.Parent:=f;
 		M.Align:=alClient;
-		M.Text:=text;
-		F.Position:=poDesigned;
-		F.ShowModal;
-		result:=M.text;
+		M.Text:=Text;
+		f.Position:=poDesigned;
+		f.ShowModal;
+		Result:=M.Text;
 	finally
-		F.Free;
+		f.Free;
 	end;
 end;
 
-
-procedure TTextDeFindForm.PathEditButtonClick(Sender: TObject);
+procedure TTextDeFindForm.PathEditButtonClick(Sender:TObject);
 begin
 	Path.Items.Text:=inputtextbox(self,Path,Path.Items.Text);
 end;
 
-
-procedure TTextDeFindForm.PathSelButtonClick(Sender: TObject);
+procedure TTextDeFindForm.PathSelButtonClick(Sender:TObject);
 var
-  SelectFolder : String;
+	SelectFolder:String;
 begin
-	  SelectFolder   := Path.text;
-	 if SelectDirectory(Path.text,'',SelectFolder,[sdNewUI, sdNewFolder, sdShowEdit],Self) then begin
-		Path.text:=SelectFolder;	 
-     end;
+	SelectFolder:=Path.Text;
+	if SelectDirectory(Path.Text,'',SelectFolder,[sdNewUI,sdNewFolder,sdShowEdit],self) then begin
+		Path.Text:=SelectFolder;
+	end;
 end;
 
-procedure TTextDeFindForm.UrlEditButtonClick(Sender: TObject);
+procedure TTextDeFindForm.UrlEditButtonClick(Sender:TObject);
 begin
 	Url.Items.Text:=inputtextbox(self,Url,Url.Items.Text);
 end;
 
-procedure TTextDeFindForm.Button1Click(Sender: TObject);
+procedure TTextDeFindForm.Button1Click(Sender:TObject);
 begin
 	TreeClick(Sender);
 end;
 
+procedure TTextDeFindForm.NameChange(Sender:TObject);
+var
+	N,NN:TTreeNode;
+	s:string;
+	function childtext(N:TTreeNode):string;
+	begin
+		N:=N.getFirstChild;
+		while N<>nil do begin
+			Text.lines.add(N.Text);
+			N:=N.getNextSibling;
+		end;
 
-procedure TTextDeFindForm.NameChange(Sender: TObject);
-var N,NN:TTreeNode;
-s:string;
- function childtext(N:TTreeNode):string;
- begin
-	N:=N.getFirstChild;
-	while N<>nil do begin
-		Text.Lines.add(N.Text);
-		N:=N.getNextSibling;
 	end;
 
- end;
-
-
 begin
 	if Trim(pname)<>'' then begin
 		N:=Tree.Items.GetFirstNode;
 		NN:=nil;
 		while N<>nil do begin
-			if N.text=pname then begin
+			if N.Text=pname then begin
 				NN:=N;
 				break;
 			end;
 			N:=N.getNextSibling;
 		end;
-		if Trim(Text.lines.Text)='' then begin   //空ならリストから消す
+		if Trim(Text.lines.Text)='' then begin // 空ならリストから消す
 			if NN<>nil then begin
 				NN.Delete;
 				TreeClick(Sender);
 			end;
 
-		end else begin                           //空以外ならリストへ
+		end
+		else begin // 空以外ならリストへ
 			if NN=nil then begin
-				NN:=Tree.Items.Add(nil,pname);
+				NN:=Tree.Items.add(nil,pname);
 				TreeClick(Sender);
 			end;
 
-			 NN.DeleteChildren;
-			 for s in Text.lines do
-				 Tree.Items.AddChild(NN,Trim(s));
+			NN.DeleteChildren;
+			for s in Text.lines do Tree.Items.AddChild(NN,Trim(s));
 
 			Inifile.writegrid('grid\'+pname,TGrid(GridFiles));
 		end;
@@ -620,9 +680,9 @@
 	Text.Text:='';
 	N:=Tree.Items.GetFirstNode;
 	while N<>nil do begin
-		if N.text=Name.text then begin
+		if N.Text=Name.Text then begin
 			childtext(N);
-			Inifile.readgrid('grid\'+Name.text,TGrid(GridFiles));
+			Inifile.readgrid('grid\'+Name.Text,TGrid(GridFiles));
 		end;
 		N:=N.getNextSibling;
 	end;
@@ -631,33 +691,37 @@
 
 
 
-//	if Trim(Text.lines.Text)<>'' then begin
-//		Ini.EraseSection(Name.Text);
-//
-//		Tmp.Items.LoadFromFile(Ini.FileName);
-//		Tmp.Items.Add('['+Name.Text+']');
-//		Tmp.Items.AddStrings(Text.Lines);
-//		Tmp.Items.SaveToFile(Ini.FileName);
-//
-//	end;
-//	Ini.ReadSection(Name.Text,Tmp.Items);
-//	Text.lines.Text:=Tmp.Items.Text;
-//	Text.lines.Text:=
-//	Ini.ReadSectionValues(Name.Text,Text.lines);
+	// if Trim(Text.lines.Text)<>'' then begin
+	// Ini.EraseSection(Name.Text);
+	//
+	// Tmp.Items.LoadFromFile(Ini.FileName);
+	// Tmp.Items.Add('['+Name.Text+']');
+	// Tmp.Items.AddStrings(Text.Lines);
+	// Tmp.Items.SaveToFile(Ini.FileName);
+	//
+	// end;
+	// Ini.ReadSection(Name.Text,Tmp.Items);
+	// Text.lines.Text:=Tmp.Items.Text;
+	// Text.lines.Text:=
+	// Ini.ReadSectionValues(Name.Text,Text.lines);
 
 	pname:=Name.Text;
 end;
 
+procedure TTextDeFindForm.OpURLButtonClick(Sender:TObject);
+begin
+	OpURLPanel.Visible:=not OpURLPanel.Visible;
+end;
 
 procedure TTextDeFindForm.FindClick(Sender:TObject);
 var
-	op    :TSearchOption;
-	SA    :TStringDynArray;
-	s,ss  :string;
+	op:TSearchOption;
+	sa:TStringDynArray;
+	s,ss:string;
 	snm,nm:string;
-	sub   :boolean;
-	hit   :boolean;
-	ls,le,i,j,count:integer;
+	sub:boolean;
+	hit:boolean;
+	ls,le,i,j,count:Integer;
 	pathtext:string;
 
 	function findr(s:string):string;
@@ -664,34 +728,32 @@
 	begin
 		s:=s.ToUpper;
 		s:=zenkaku(s);
-//		s:=s.Replace('　','');
-//		s:=s.Replace('・','');
-		result:=s;
+		// s:=s.Replace('　','');
+		// s:=s.Replace('・','');
+		Result:=s;
 	end;
 
 	function procfind(ssss:string):string;
-	var s,ss,sss:string;
-		i,j,si:integer;
+	var
+		s,ss,sss:string;
+		i,j,si:Integer;
 	begin
 		sss:=findr(ssss);
 		si:=pos('　',sss);
-		if si=0 then
-			si:=pos('・',sss);
-		if si=0 then
-			si:=4;
+		if si=0 then si:=pos('・',sss);
+		if si=0 then si:=4;
 		si:=si-1;
 
+		for j:=Length(sss) downto si do begin
 
-		for j:=length(sss) downto si do begin
-		
 			ss:=sss.Substring(0,j);
-			for s in SA do begin
+			for s in sa do begin
 				nm:=Trim((ss));
-				if nm='' then continue;
+				if nm='' then
+					continue;
 
-				if Pos('*',nm)=0 then
-					if Pos('?',nm)=0 then 
-						nm:='*'+nm+'*';
+				if pos('*',nm)=0 then
+					if pos('?',nm)=0 then nm:='*'+nm+'*';
 				snm:=findr(ExtractFileName(s));
 				if MatchesMask(snm,nm) then begin
 					Files.RowCount:=Files.RowCount+1;
@@ -701,41 +763,42 @@
 					hit:=true;
 				end;
 			end;
-			if hit then break;
+			if hit then
+				break;
 		end;
 	end;
 
-
 begin
 	try
 		Screen.Cursor:=crHourGlass;
 		Application.ProcessMessages;
 
-		ls:=Text.Perform(EM_LINEFROMCHAR,Text.SelStart, 0);
+		ls:=Text.Perform(EM_LINEFROMCHAR,Text.SelStart,0);
 		pathtext:=Path.Text;
-		pathtext:=pathtext.Replace('%リスト名%',Name.text);
+		pathtext:=pathtext.Replace('%リスト名%',Name.Text);
 		pathtext:=pathtext.Replace('%検索文字%',Text.lines[ls]);
-		pathtext:=incbs(pathtext);
-//		snm:=ExtractFileName(Path.Text);
-//		if snm='' then
+		pathtext:=INCBS(pathtext);
+		// snm:=ExtractFileName(Path.Text);
+		// if snm='' then
 		snm:='*';
 
-		//		if sub then
+		// if sub then
 		op:=TSearchOption.soAllDirectories;
-		//		else
-		//			op := TSearchOption.soTopDirectoryOnly;
-		SA:=TDirectory.GetFiles(PathText,snm,op);
+		// else
+		// op := TSearchOption.soTopDirectoryOnly;
+		sa:=TDirectory.GetFiles(pathtext,snm,op);
 		Files.RowCount:=1;
 		Files.ColCount:=4;
 		Files.Rows[0].setstrings(['','検索文字','ファイル','パス']);
 
-		if sender=Find then begin
+		if Sender=Find then begin
 			ls:=0;
-			le:=Text.Lines.Count-1;
+			le:=Text.lines.count-1;
 
-		end else begin
-			ls:=Text.Perform(EM_LINEFROMCHAR,Text.SelStart, 0);
-			le:=Text.Perform(EM_LINEFROMCHAR,Text.SelStart+Text.SelLength-1*integer(Text.SelLength>0),0);
+		end
+		else begin
+			ls:=Text.Perform(EM_LINEFROMCHAR,Text.SelStart,0);
+			le:=Text.Perform(EM_LINEFROMCHAR,Text.SelStart+Text.SelLength-1*Integer(Text.SelLength>0),0);
 		end;
 		for i:=ls to le do begin
 			ss:=Text.lines[i];
@@ -752,39 +815,43 @@
 		Files.ColExpand(10);
 		Files.FixedRows:=1;
 
-	finally Screen.Cursor:=crDefault;
+	finally
+		Screen.Cursor:=crDefault;
 	end;
 end;
 
-
-
 function TTextDeFindForm.GetFilePathDataObject(G:TStringGrid):IDataObject;
 var
 	ISFD,ISF:IShellFolder;
-	PItems              :packed array of PItemIDList;
-	PItem               :PItemIDList;
-	pchEaten,dwAttributes :Cardinal;
-	fn,fnpath          :Widestring;
-	i,count             :Integer;
+	PItems:packed array of PItemIDList;
+	PItem:PItemIDList;
+	pchEaten,dwAttributes:Cardinal;
+	fn,fnpath:Widestring;
+	i,count:Integer;
 begin
 	Result:=nil;
 	count:=0;
 
 	SHGetDesktopFolder(ISFD);
-	if Failed(ISFD.ParseDisplayName(0,nil,PWideChar(Path.text),pchEaten,PItem,dwAttributes)) then exit;
-	if Failed(ISFD.BindToObject(PItem,nil,IID_IShellFolder,ISF)) then exit;
+	if Failed(ISFD.ParseDisplayName(0,nil,PWideChar(Path.Text),pchEaten,PItem,dwAttributes)) then
+		exit;
+	if Failed(ISFD.BindToObject(PItem,nil,IID_IShellFolder,ISF)) then
+		exit;
 
 	for i:=G.selection.top to G.selection.Bottom do begin
 		fn:=INCBS(G.cells[CPATH,i])+G.cells[CFILE,i];
 
-		if not FileExists(fn) then continue;
+		if not FileExists(fn) then
+			continue;
 		inc(count);
 		SetLength(PItems,count);
-		fnpath:=ExtractRelativePath(INCBS(Path.text),fn);
+		fnpath:=ExtractRelativePath(INCBS(Path.Text),fn);
 
-		if Failed(ISF.ParseDisplayName(0,nil,PWideChar(fnpath),pchEaten,PItems[count-1],dwAttributes)) then exit;
+		if Failed(ISF.ParseDisplayName(0,nil,PWideChar(fnpath),pchEaten,PItems[count-1],dwAttributes)) then
+			exit;
 	end;
-	if count<1 then exit;
+	if count<1 then
+		exit;
 
 	ISF.GetUIObjectOf(0,count,PItems[0],IDataObject,nil,Pointer(Result));
 end;
@@ -791,12 +858,8 @@
 
 
 
-//--------------------------------------------------------------------------------
+// --------------------------------------------------------------------------------
 
-
-
-
-
 procedure TGrid.copy(G:TGrid);
 var
 	r:TGridRect;
@@ -805,7 +868,8 @@
 	RowCount:=G.RowCount;
 	r:=G.selection;
 	G.selection:=TGridRect(rect(1,1,G.ColCount-1,G.RowCount-1));
-	G.selrowdo(procedure(X,Y:Integer)
+	G.selrowdo(
+		procedure(X,Y:Integer)
 		begin
 			Rows[Y]:=G.Rows[Y];
 		end);
@@ -818,12 +882,12 @@
 	MS:TMemoryStream;
 begin
 	Create(Origin.Owner);
-	Self.Parent:=Origin.Parent;
-	Self.Options:=Origin.Options;
-	Self.OnSetEditText:=Origin.OnSetEditText;
-	Self.OnMouseDown:=Origin.OnMouseDown;
-	Self.OnMouseMove:=Origin.OnMouseMove;
-	buf:=TGrid.Create(Self);
+	self.Parent:=Origin.Parent;
+	self.Options:=Origin.Options;
+	self.OnSetEditText:=Origin.OnSetEditText;
+	self.OnMouseDown:=Origin.OnMouseDown;
+	self.OnMouseMove:=Origin.OnMouseMove;
+	buf:=TGrid.Create(self);
 
 	MS:=TMemoryStream.Create;
 	try
@@ -830,54 +894,61 @@
 		MS.WriteComponent(Origin);
 		Origin.Free;
 		MS.Position:=0;
-		MS.ReadComponent(Self);
-	finally MS.Free;
+		MS.ReadComponent(self);
+	finally
+		MS.Free;
 	end;
 end;
 
 procedure TGrid.WMChar(var Msg:TWMChar);
 begin
-	//	if (EnableEdit) and (AnsiChar(Msg.CharCode) in [^H, #32..#255]) then begin
+	// if (EnableEdit) and (AnsiChar(Msg.CharCode) in [^H, #32..#255]) then begin
 	if ((CharInSet(Char(Msg.CharCode),[^H])or(Char(Msg.CharCode)>=#32))) then begin
 		Options:=Options+[goEditing];
 		EditorMode:=true;
 
-		//		ShowObject(Word(Msg.CharCode));
-		//		if Edit.Visible then
-		//			PostMessage(Edit.Handle, WM_CHAR, Word(Msg.CharCode), 0);
-		//		if Combo.Visible then
-		//			PostMessage(Combo.Handle, WM_CHAR, Word(Msg.CharCode), 0);
+		// ShowObject(Word(Msg.CharCode));
+		// if Edit.Visible then
+		// PostMessage(Edit.Handle, WM_CHAR, Word(Msg.CharCode), 0);
+		// if Combo.Visible then
+		// PostMessage(Combo.Handle, WM_CHAR, Word(Msg.CharCode), 0);
 
 	end
-	else inherited;
+	else
+		inherited;
 end;
 
 procedure TGrid.cutcopy(modecut:boolean);
 var
-	i,j        :Integer;
+	i,j:Integer;
 	xs,ys,xw,yw:Integer;
-	Txt        :TStringList;
-	s,ss       :String;
-	r          :TGridRect;
+	Txt:TStringList;
+	s,ss:String;
+	r:TGridRect;
 
 	function d_dquotedstr(const s,d:string):string;
 	var
-		c:Char;
+		C:Char;
 		b:boolean;
 	begin
 		Result:=s;
 		b:=false;
-		if d='' then b:=true;
-		for c in s do
-			if Pos(c,d)>0 then b:=true;
+		if d='' then
+			b:=true;
+		for C in s do
+			if pos(C,d)>0 then
+				b:=true;
 
-		if not b then exit;
+		if not b then
+			exit;
 		Result:='"'+s+'"';
 	end;
 
 begin
-	if not Focused then exit;
-	if modecut then buf.copy(Self);
+	if not Focused then
+		exit;
+	if modecut then
+		buf.copy(self);
 
 	ys:=selection.top;
 	xs:=selection.left;
@@ -888,12 +959,15 @@
 	for i:=0 to yw do begin
 		s:='';
 		for j:=0 to xw do begin
-			if j>0 then s:=s+#9;
-			ss:=StringReplace(cells[xs+j,ys+i],#9,'',[rfReplaceAll]);//タブは削除
-			//if Pos(ss,CRLF)>0 then
+			if j>0 then
+				s:=s+#9;
+			ss:=StringReplace(cells[xs+j,ys+i],#9,'',[rfReplaceAll]);
+			// タブは削除
+			// if Pos(ss,CRLF)>0 then
 			ss:=d_dquotedstr(ss,CRLF);
 			s:=s+ss;
-			if modecut then cells[xs+j,ys+i]:='';
+			if modecut then
+				cells[xs+j,ys+i]:='';
 		end;
 		Txt.add(s);
 	end;
@@ -905,20 +979,22 @@
 
 function TGrid.paste:TGridRect;
 var
-	i,j,si,colcnt  :Integer;
-	s              :String;
-	Txt            :TStringList;
-	ltxt           :string;
+	i,j,si,colcnt:Integer;
+	s:String;
+	Txt:TStringList;
+	ltxt:string;
 	xs,ys,xw,yw,cnt:Integer;
-	cols           :TStringDynArray;
+	cols:TStringDynArray;
 
 begin
-	if not Focused then exit;
-	buf.copy(Self);
+	if not Focused then
+		exit;
+	buf.copy(self);
 
 	Txt:=TStringList.Create;
 	s:=StringReplace(Clipboard.AsText,CRLF,CR,[rfReplaceAll]);
-	for ltxt in SplitString(s,CR) do Txt.add(ltxt);
+	for ltxt in SplitString(s,CR) do
+		Txt.add(ltxt);
 
 	ys:=selection.top;
 	xs:=selection.left;
@@ -927,7 +1003,8 @@
 	for i:=0 to yw do begin
 		s:=Txt[i];
 		colcnt:=SplitString(s,#9).count;
-		if xw<colcnt then xw:=colcnt;
+		if xw<colcnt then
+			xw:=colcnt;
 	end;
 	dec(xw);
 
@@ -946,7 +1023,7 @@
 procedure TGrid.savebuf;
 begin
 	saverect:=selection;
-	buf.copy(Self);
+	buf.copy(self);
 end;
 
 function TGrid.save(fn:string):boolean;
@@ -954,14 +1031,14 @@
 	i:Integer;
 begin
 	try
-		SL.clear;
+		sl.clear;
 		for i:=0 to RowCount-1 do begin
 			Rows[i].StrictDelimiter:=true;
 			Rows[i].Delimiter:=',';
 			Rows[i].QuoteChar:='"';
-			SL.add(Rows[i].DelimitedText);
+			sl.add(Rows[i].DelimitedText);
 		end;
-		SL.save(fn);
+		sl.save(fn);
 	except
 
 	end;
@@ -969,13 +1046,15 @@
 
 procedure TGrid.setfixed;
 begin
-		if colcount>1 then FixedCols:=1;
-		if rowcount>1 then FixedRows:=1;
+	if ColCount>1 then
+		FixedCols:=1;
+	if RowCount>1 then
+		FixedRows:=1;
 end;
 
 function TGrid.load(fn:string):boolean;
 var
-	i  :Integer;
+	i:Integer;
 	TMP:TStringList;
 begin
 	try
@@ -983,13 +1062,13 @@
 		RowCount:=1;
 		DrawingStyle:=gdsClassic;
 		DefaultRowHeight:=round(-Font.Height*1.5);
-		SL.load(fn);
-		RowCount:=SL.count;
-		for i:=0 to SL.hi do begin
+		sl.load(fn);
+		RowCount:=sl.count;
+		for i:=0 to sl.hi do begin
 			TMP.Delimiter:=',';
 			TMP.QuoteChar:='"';
 			TMP.StrictDelimiter:=true;
-			TMP.DelimitedText:=SL[i];
+			TMP.DelimitedText:=sl[i];
 			Rows[i]:=TMP;
 		end;
 
@@ -999,7 +1078,8 @@
 
 		savebuf;
 		ColExpand(10);
-	finally TMP.Free;
+	finally
+		TMP.Free;
 	end;
 end;
 
@@ -1006,7 +1086,8 @@
 procedure TGrid.seldel;
 begin
 	savebuf;
-	seldo(procedure(X,Y:Integer)
+	seldo(
+		procedure(X,Y:Integer)
 		begin
 			cells[X,Y]:='';
 		end);
@@ -1017,7 +1098,8 @@
 	i,j:Integer;
 begin
 	for i:=selection.top to selection.Bottom do
-		for j:=selection.left to selection.right do func(j,i);
+		for j:=selection.left to selection.right do
+			func(j,i);
 end;
 
 function TGrid.alldo(func:TFuncXY):Integer;
@@ -1024,8 +1106,9 @@
 var
 	i,j:Integer;
 begin
-	for i:=0 to rowcount-1 do
-		for j:=0 to colcount-1 do func(j,i);
+	for i:=0 to RowCount-1 do
+		for j:=0 to ColCount-1 do
+			func(j,i);
 end;
 
 function TGrid.selrowdo(func:TFuncXY):Integer;
@@ -1032,21 +1115,22 @@
 var
 	i:Integer;
 begin
-	for i:=selection.top to selection.Bottom do func(0,i);
+	for i:=selection.top to selection.Bottom do
+		func(0,i);
 end;
 
-procedure TGrid.SetEditText(ACol, ARow: Integer;
-  const Value: string);
+procedure TGrid.SetEditText(ACol,ARow:Integer;const Value:string);
 begin
-  inherited;
+	inherited;
 	Options:=Options-[goEditing]+[goRangeSelect];
 end;
 
-function TGrid.rowdo(func: TFuncXY): Integer;
+function TGrid.rowdo(func:TFuncXY):Integer;
 var
 	i:Integer;
 begin
-	for i:=0 to rowcount-1 do func(0,i);
+	for i:=0 to RowCount-1 do
+		func(0,i);
 
 end;
 
@@ -1055,16 +1139,18 @@
 	w:Word;
 begin
 	if ssCtrl in Shift then begin
-		if Key=17 then exit;
+		if Key=17 then
+			exit;
 		case Key of
-		Word('X'):cutcopy(true);
-		Word('C'):cutcopy(false);
-		Word('V'):paste;
-		Word('Z'):copy(buf);
+			Word('X'):cutcopy(true);
+			Word('C'):cutcopy(false);
+			Word('V'):paste;
+			Word('Z'):copy(buf);
 		end;
-	end else begin
+	end
+	else begin
 		case Key of
-		VK_DELETE:seldel;
+			VK_DELETE:seldel;
 		end;
 	end;
 
@@ -1081,38 +1167,35 @@
 	if ssDouble in Shift then begin
 		Options:=Options+[goEditing]-[goRangeSelect];
 		Col:=ACol;
-		Row:=ARow;
+		row:=ARow;
 		EditorMode:=true;
-    end;
-	if downinselection then exit;
+	end;
+	if downinselection then
+		exit;
 
-	//	Options:=Options-[goEditing]+[goRangeSelect];
+	// Options:=Options-[goEditing]+[goRangeSelect];
 	//
-	//	if(Button=mbLeft)then begin
-	//		if(FixedRows>0) and (ARow=0) and (ACol>0) and not Sizing(X,Y) then begin
-	//		end	 else if (FixedCols>0) and (ACol=0) and (ARow>0) and not Sizing(X,Y) then begin
-	//		end	else if((Col=ACol) and (Row=ARow))then begin
-	//			Options:=Options+[goEditing]-[goRangeSelect];
-	//			EditorMode:=true;
-	//		end else begin
-	//			EditorMode:=false;
-	//		end;
-	//	end;
+	// if(Button=mbLeft)then begin
+	// if(FixedRows>0) and (ARow=0) and (ACol>0) and not Sizing(X,Y) then begin
+	// end	 else if (FixedCols>0) and (ACol=0) and (ARow>0) and not Sizing(X,Y) then begin
+	// end	else if((Col=ACol) and (Row=ARow))then begin
+	// Options:=Options+[goEditing]-[goRangeSelect];
+	// EditorMode:=true;
+	// end else begin
+	// EditorMode:=false;
+	// end;
+	// end;
 	inherited;
 end;
 
-
-
 procedure TGrid.MouseMove(Shift:TShiftState;X,Y:Integer);
 var
 	DataObject:IDataObject;
-	s         :string;
-	dwEffect  :Integer;
-	ACol,ARow :Longint;
-	savesel   :TGridRect;
+	s:string;
+	dwEffect:Integer;
+	ACol,ARow:Longint;
+	savesel:TGridRect;
 
-
-
 begin
 	MouseToCell(X,Y,ACol,ARow);
 	if not downinselection then begin
@@ -1120,23 +1203,24 @@
 		exit;
 
 	end;
-	if not(csLButtonDown in ControlState) then exit;
+	if not(csLButtonDown in ControlState) then
+		exit;
 
 	s:=Application.ExeName;
-	//左ボタンが押された状態で、マウスの位置が閾値を超えたらドラッグ開始
+	// 左ボタンが押された状態で、マウスの位置が閾値を超えたらドラッグ開始
 
 	if (csLButtonDown in ControlState)and((Abs(X-FMouseDownPt.X)>=Mouse.DragThreshold)or(Abs(Y-FMouseDownPt.Y)>=Mouse.DragThreshold)) then begin
 
 		savesel:=selection;
-		//コントロールにMouseupのメッセージを送っておく
+		// コントロールにMouseupのメッセージを送っておく
 		Perform(WM_LBUTTONUP,0,MakeLong(X,Y));
-		//	Files.Enabled:=false;
+		// Files.Enabled:=false;
 		selection:=savesel;
-		//BeginDrag(true);
+		// BeginDrag(true);
 
-		//ファイル名からIDataObjectを取得
-		DataObject:=TextDeFindForm.GetFilePathDataObject(Self);
-		//OLEドラッグ＆ドロップ開始
+		// ファイル名からIDataObjectを取得
+		DataObject:=TextDeFindForm.GetFilePathDataObject(self);
+		// OLEドラッグ＆ドロップ開始
 		dwEffect:=DROPEFFECT_NONE;
 		DoDragDrop(DataObject,TextDeFindForm,DROPEFFECT_COPY,dwEffect);
 	end;
@@ -1151,7 +1235,8 @@
 var
 	i:Integer;
 begin
-	for i:=1 to GetNumScrollLines do SendMessage(Handle,WM_VSCROLL,SB_LINEDOWN,0);
+	for i:=1 to GetNumScrollLines do
+		SendMessage(Handle,WM_VSCROLL,SB_LINEDOWN,0);
 	Result:=true;
 end;
 
@@ -1159,13 +1244,14 @@
 var
 	i:Integer;
 begin
-	for i:=1 to GetNumScrollLines do SendMessage(Handle,WM_VSCROLL,SB_LINEUP,0);
+	for i:=1 to GetNumScrollLines do
+		SendMessage(Handle,WM_VSCROLL,SB_LINEUP,0);
 	Result:=true;
 end;
 
 function TGrid.ColExpand(min:Integer):Integer;
 var
-	i,j     :Integer;
+	i,j:Integer;
 	w1,w2,w3:Integer;
 begin
 	w3:=0;
@@ -1174,14 +1260,17 @@
 		w1:=0;
 		for i:=0 to RowCount-1 do begin
 			w2:=Canvas.TextWidth('['+cells[j,i]);
-			if (w1<w2) then w1:=w2;
+			if (w1<w2) then
+				w1:=w2;
 		end;
-		if w1<min then w1:=min;
+		if w1<min then
+			w1:=min;
 		ColWidths[j]:=w1;
 		w3:=w3+(w1)+GridLineWidth;
 	end;
 	for j:=0 to ColCount-1 do
-		if ColWidths[j]>gridWidth then ColWidths[j]:=trunc(gridWidth/2);
+		if ColWidths[j]>gridWidth then
+			ColWidths[j]:=trunc(gridWidth/2);
 
 	DefaultRowHeight:=Canvas.TextHeight('あ')+2;
 	Result:=w3+4;
@@ -1193,9 +1282,12 @@
 	w:Integer;
 begin
 	Result:=0;
-	if cnt<0 then exit;
-	if Y<0 then exit;
-	if Y>=RowCount then exit;
+	if cnt<0 then
+		exit;
+	if Y<0 then
+		exit;
+	if Y>=RowCount then
+		exit;
 	w:=RowCount-cnt;
 	for i:=Y to w-1 do begin
 		Rows[i]:=Rows[i+cnt];
@@ -1205,14 +1297,15 @@
 	RowCount:=w;
 end;
 
-
 function TGrid.RowInsert(Y,cnt:Integer):Integer;
 var
-	i   :Integer;
+	i:Integer;
 	lcnt:Integer;
 begin
-	if cnt<0 then exit;
-	if (Y<0)or(Y>=RowCount) then Y:=RowCount;
+	if cnt<0 then
+		exit;
+	if (Y<0)or(Y>=RowCount) then
+		Y:=RowCount;
 	RowCount:=RowCount+cnt;
 	lcnt:=RowCount;
 
@@ -1220,7 +1313,8 @@
 		Rows[i]:=Rows[i-cnt];
 		RowHeights[i]:=RowHeights[i-cnt];
 	end;
-	for i:=0 to cnt-1 do Rows[Y+i].clear();
+	for i:=0 to cnt-1 do
+		Rows[Y+i].clear();
 	Result:=0;
 end;
 
@@ -1228,33 +1322,36 @@
 var
 	i:Integer;
 begin
-	if (Y<0) then Y:=0;
-	if Y>=RowCount then Y:=RowCount;
-	for i:=0 to cnt-1 do Rows[Y+i].clear();
+	if (Y<0) then
+		Y:=0;
+	if Y>=RowCount then
+		Y:=RowCount;
+	for i:=0 to cnt-1 do
+		Rows[Y+i].clear();
 	Result:=0
 end;
 
 function TStringDynArrayHelper.add(s:string):Integer;
 begin
-	SetLength(Self,Length(Self)+1);
-	Self[Length(Self)-1]:=s;
-	Result:=Length(Self);
+	SetLength(self,Length(self)+1);
+	self[Length(self)-1]:=s;
+	Result:=Length(self);
 
 end;
 
 function TStringDynArrayHelper.getcount:Integer;
 begin
-	Result:=Length(Self);
+	Result:=Length(self);
 end;
 
 procedure TStringDynArrayHelper.setcount(const i:Integer);
 begin
-	SetLength(Self,i);
+	SetLength(self,i);
 end;
 
 function TStringDynArrayHelper.hi:Integer;
 begin
-	Result:=High(Self);
+	Result:=High(self);
 
 end;
 
@@ -1261,16 +1358,20 @@
 function TStringDynArrayHelper.item(i:Integer):String;
 begin
 	Result:='';
-	if i<0 then exit;
-	if i>High(Self) then exit;
-	Result:=Self[i];
+	if i<0 then
+		exit;
+	if i>High(self) then
+		exit;
+	Result:=self[i];
 end;
 
 function TStringDynArrayHelper.save(f:string):boolean;
 begin
 	with stringselfcreate do
-		try SaveToFile(f,TEncoding.UTF8);
-		except Free;
+		try
+			SaveToFile(f,TEncoding.UTF8);
+		except
+			Free;
 		end;
 end;
 
@@ -1279,8 +1380,9 @@
 	with TStringList.Create do
 		try
 			LoadFromFile(f);
-			Self:=TStringDynArray(ToStringArray);
-		except Free;
+			self:=TStringDynArray(ToStringArray);
+		except
+			Free;
 		end;
 end;
 
@@ -1289,7 +1391,8 @@
 	s:string;
 begin
 	Result:=TStringSelf.Create;
-	for s in Self do Result.add(s);
+	for s in self do
+		Result.add(s);
 end;
 
 function TStringDynArrayHelper.adduni(s:string):Integer;
@@ -1297,7 +1400,8 @@
 	i:Integer;
 begin
 	for i:=0 to hi do
-		if Self[i]=s then exit(-1);
+		if self[i]=s then
+			exit(-1);
 	add(s);
 	Result:=count;
 end;
@@ -1304,134 +1408,152 @@
 
 function TStringDynArrayHelper.cat(s,e:string):String;
 var
-	t:string;
+	T:string;
 begin
-	for t in Self do Result:=Result+s+t+e;
+	for T in self do
+		Result:=Result+s+T+e;
 end;
 
 procedure TStringDynArrayHelper.clear;
 begin
-	SetLength(Self,0);
+	SetLength(self,0);
 end;
 
 function TStringSelf.this:TStringList;
 begin
-	exit(Self);
+	exit(self);
 end;
 
-//初期化処理
+// 初期化処理
 { TStringsHelper }
 
-function TStringsHelper.setstrings(sa: TStringDynArray): Integer;
-var i:integer;
+function TStringsHelper.setstrings(sa:TStringDynArray):Integer;
+var
+	i:Integer;
 begin
-	for i:=0 to sa.Count-1 do
-		if i<Count then
-			Self[i]:=sa[i];
+	for i:=0 to sa.count-1 do
+		if i<count then self[i]:=sa[i];
 end;
 
 { TIniFileHelper }
 
-procedure TMemIniFileHelper.readgrid(sc: string; G: TGrid);
-var x,y:integer;
+procedure TMemIniFileHelper.readgrid(sc:string;G:TGrid);
+var
+	X,Y:Integer;
 	s:string;
 begin
-	G.rowdo(procedure(X,Y:Integer)begin
-		G.rows[y].clear;
-	end);
-	G.rowcount:=1;
-	for y:=0 to MAXLIST do begin
-		for x:=0 to G.ColCount-1 do begin
-			s:=inttostr(y)+','+inttostr(x);
-			if not ValueExists(sc,s) then break;
-			if x>=G.colcount then G.colcount:=x+1;
-			if y>=G.rowcount then G.rowcount:=y+1;
-			G.cells[x,y]:=ReadString(sc,inttostr(y)+','+inttostr(x),'');
+	G.rowdo(
+		procedure(X,Y:Integer)
+		begin
+			G.Rows[Y].clear;
+		end);
+	G.RowCount:=1;
+	for Y:=0 to MAXLIST do begin
+		for X:=0 to G.ColCount-1 do begin
+			s:=inttostr(Y)+','+inttostr(X);
+			if not ValueExists(sc,s) then
+				break;
+			if X>=G.ColCount then
+				G.ColCount:=X+1;
+			if Y>=G.RowCount then
+				G.RowCount:=Y+1;
+			G.cells[X,Y]:=ReadString(sc,inttostr(Y)+','+inttostr(X),'');
 		end;
 	end;
-	if G.rowcount<2 then G.rowcount:=2;
-	G.fixedrows:=1;
+	if G.RowCount<2 then
+		G.RowCount:=2;
+	G.FixedRows:=1;
 	G.Rows[0].setstrings(CHEAD);
 	G.ColExpand(10);
 end;
 
-procedure TMemIniFileHelper.writegrid(sc: string; G: TGrid);
+procedure TMemIniFileHelper.writegrid(sc:string;G:TGrid);
 begin
 	EraseSection(sc);
-	G.alldo(procedure(X,Y:Integer)begin
-		WriteString(sc,inttostr(y)+','+inttostr(x),G.cells[x,y]);
-	end);
+	G.alldo(
+		procedure(X,Y:Integer)
+		begin
+			WriteString(sc,inttostr(Y)+','+inttostr(X),G.cells[X,Y]);
+		end);
 
 end;
 
-procedure TMemIniFileHelper.readstrings(sc: string; sl:TStrings);
-var i:integer;
+procedure TMemIniFileHelper.readstrings(sc:string;sl:TStrings);
+var
+	i:Integer;
 	s:string;
 begin
-  if SectionExists(sc) then sl.clear;
+	if SectionExists(sc) then
+		sl.clear;
 	for i:=0 to MAXLIST do begin
-		if not ValueExists(sc,inttostr(i)) then break;
+		if not ValueExists(sc,inttostr(i)) then
+			break;
 		sl.add(ReadString(sc,inttostr(i),''));
 	end;
 end;
 
-
-
-procedure TMemIniFileHelper.writestrings(sc: string; sl: TStrings);
-var i:integer;
+procedure TMemIniFileHelper.writestrings(sc:string;sl:TStrings);
+var
+	i:Integer;
 begin
 	EraseSection(sc);
-	for i:=0 to sl.Count-1 do
-		WriteString(sc,inttostr(i),sl[i]);
+	for i:=0 to sl.count-1 do WriteString(sc,inttostr(i),sl[i]);
 end;
 
-procedure TMemIniFileHelper.readtreeview(sc: string; T: TTreeView);
+procedure TMemIniFileHelper.readtreeview(sc:string;T:TTreeView);
 var
 	N:TTreeNode;
-	i:integer;
-	procedure sub(key:string;N:TTreeNode);
-	var i:integer;
+	i:Integer;
+	procedure sub(Key:string;N:TTreeNode);
+	var
+		i:Integer;
 		k:string;
 	begin
 		for i:=0 to MAXLIST do begin
-			k:=key+','+inttostr(i);
-			if not ValueExists(sc,k) then break;
+			k:=Key+','+inttostr(i);
+			if not ValueExists(sc,k) then
+				break;
 			T.Items.AddChild(N,ReadString(sc,k,''));
 			sub(k,N);
 		end;
 	end;
+
 begin
-	if SectionExists(sc) then T.Items.clear;
+	if SectionExists(sc) then
+		T.Items.clear;
 	for i:=0 to MAXLIST do begin
-		if not ValueExists(sc,inttostr(i)) then break;
-		N:=T.Items.Add(nil,ReadString(sc,inttostr(i),''));
+		if not ValueExists(sc,inttostr(i)) then
+			break;
+		N:=T.Items.add(nil,ReadString(sc,inttostr(i),''));
 		sub(inttostr(i),N);
 	end;
 
 end;
 
-procedure TMemIniFileHelper.writetreeview(sc: string; T: TTreeView);
+procedure TMemIniFileHelper.writetreeview(sc:string;T:TTreeView);
 var
 	N:TTreeNode;
-	i:integer;
-	procedure sub(key: string;N:TTreeNode);
-	var i:integer;
+	i:Integer;
+	procedure sub(Key:string;N:TTreeNode);
+	var
+		i:Integer;
 	begin
 		N:=N.getFirstChild;
 		i:=0;
 		while N<>nil do begin
-			WriteString(sc,key+','+inttostr(N.index),N.text);
+			WriteString(sc,Key+','+inttostr(N.index),N.Text);
 			sub(sc,N);
 			N:=N.getNextSibling;
 			inc(i);
 		end;
 	end;
+
 begin
 	EraseSection(sc);
 	i:=0;
 	N:=T.Items.GetFirstNode;
 	while N<>nil do begin
-		WriteString(sc,inttostr(N.index),N.text);
+		WriteString(sc,inttostr(N.index),N.Text);
 		sub(inttostr(N.index),N);
 		N:=N.getNextSibling;
 		inc(i);
@@ -1443,7 +1565,7 @@
 SHGetMalloc(Malloc);
 OleInitialize(nil);
 
-//終了処理
+// 終了処理
 finalization
 
 OleUninitialize;