コミット: 5 - textdefind (svn)

コミットメタ情報

• リビジョン: 5 (tree)
• 日時: 2018-12-11 20:29:21
• 作者: kentamaken

ログメッセージ

GRID保存

変更サマリ

• modified: textdefindunit.dfm
• modified: textdefindunit.pas

差分

--- textdefindunit.pas	(revision 4)
+++ textdefindunit.pas	(revision 5)
@@ -15,10 +15,6 @@
 		function this:TStringList;
 	end;
 
-	TIniFileHelper=class helper for TInifile
-		procedure readstrings(sc:string;sl:TStrings);
-		procedure writestrings(sc:string;sl:TStrings);
-	end;
 
 	TStringsHelper=class helper for TStrings
 		function setstrings(sa:TStringDynArray):Integer;
@@ -41,7 +37,6 @@
 	end;
 
 	TGrid=class(TStringGrid)
-
 	type
 		TFuncXY=reference to procedure(X,Y:Integer);
 
@@ -52,6 +47,8 @@
 		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;
+
 		function DoMouseWheelDown(Shift:TShiftState;MousePos:TPoint):boolean;override;
 		function DoMouseWheelUp(Shift:TShiftState;MousePos:TPoint):boolean;override;
 		function ColExpand(min:Integer):Integer;
@@ -67,7 +64,9 @@
 		procedure cutcopy(modecut:boolean);
 		function paste:TGridRect;
 		function selrowdo(func:TFuncXY):Integer;
+		function rowdo(func:TFuncXY):Integer;
 		function seldo(func:TFuncXY):Integer;
+		function alldo(func:TFuncXY):Integer;
 		procedure copy(G:TGrid);
 		procedure savebuf;
 		procedure seldel;
@@ -79,6 +78,12 @@
 		property InplaceEditor;
 	end;
 
+	TMemIniFileHelper=class helper for TMemInifile
+		procedure readstrings(sc:string;sl:TStrings);
+		procedure writestrings(sc:string;sl:TStrings);
+		procedure readgrid(sc:string;G:TGrid);
+		procedure writegrid(sc:string;G:TGrid);
+	end;
 
 	TTextDeFindForm=class(TForm,IDropSource)
 		Panel1:TPanel;
@@ -101,22 +106,23 @@
 		TMP:TComboBox;
 		SaveDialog:TSaveDialog;
 		OpenDialog:TOpenDialog;
-    LeftPanel: TPanel;
+	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;
+	PFileExec: TMenuItem;
+	PFileFolder: TMenuItem;
+	Panel3: TPanel;
+	Url: TComboBox;
+	FindUrlButton: TButton;
+	UrlEditButton: TButton;
+	PathEditButton: TButton;
+	PTextFind: TMenuItem;
+	PTextFindUrl: TMenuItem;
+	N1: TMenuItem;
+	PathSelButton: TButton;
 		procedure FindClick(Sender:TObject);
 		procedure FormCreate(Sender:TObject);
 		procedure GridFilesMouseDown(Sender:TObject;Button:TMouseButton;
@@ -135,7 +141,7 @@
 	procedure NameChange(Sender: TObject);
 	procedure TreeClick(Sender: TObject);
 	procedure Button1Click(Sender: TObject);
-    procedure PFileFolderClick(Sender: TObject);
+	procedure PFileFolderClick(Sender: TObject);
 	procedure PFileExecClick(Sender: TObject);
     procedure FindUrlButtonClick(Sender: TObject);
     procedure TextMouseUp(Sender: TObject; Button: TMouseButton;
@@ -144,6 +150,9 @@
     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);
 	private
 		{ Private 宣言 }
 	public
@@ -161,13 +170,13 @@
 
 implementation
 
-uses strutils,IOUtils,masks,clipbrd,SHELLAPI;
+uses strutils,IOUtils,masks,clipbrd,SHELLAPI,Vcl.FileCtrl;
 
 var
 	Malloc      :IMalloc;
 	FMouseDownPt:TPoint;
 	SL          :TStringDynArray;
-	Ini         :TIniFile;
+	Ini         :TMemIniFile;
 	inidir      :string;
 	pname		:string;
 
@@ -182,7 +191,7 @@
 	CFILE    =2;
 	CPATH    =3;
 var
-	CHEAD:TStringDynArray =['','テキスト','ファイル','パス'];
+	CHEAD:TStringDynArray =['','検索文字','ファイル','パス'];
 
 {$R *.dfm}
 
@@ -202,7 +211,7 @@
 
 procedure TTextDeFindForm.FormCreate(Sender:TObject);
 begin
-	Ini:=TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
+	Ini:=TMemIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
 	inidir:=Ini.ReadString('','inidir',inidir);
 	OpenDialog.InitialDir:=ExtractFileDir(Application.ExeName);
 	SaveDialog.InitialDir:=ExtractFileDir(Application.ExeName);
@@ -220,7 +229,6 @@
 	Files:=TGrid.CreateEX(GridFiles);
 
 	Tree.LoadFromFile(ChangeFileExt(Application.ExeName,'.txt'));
-	files.Load(ChangeFileExt(Application.ExeName,'.csv'));
 	NameChange(Sender);
 	pname:=Name.Text;
 	TreeClick(Sender);
@@ -235,12 +243,14 @@
 	Ini.WriteString('','Path.Text',Path.Text);
 	Ini.WriteString('','Url.Text',Url.Text);
 	Ini.writestrings('Url.Items',Url.Items);
-	Ini.Free;
 
 	NameChange(Sender);
 	Tree.SaveToFile(ChangeFileExt(Application.ExeName,'.txt'));
-	files.save(ChangeFileExt(Application.ExeName,'.csv'));
 
+
+	Ini.UpdateFile;
+	Ini.Free;
+
 end;
 
 
@@ -401,6 +411,14 @@
 end;
 
 
+procedure TTextDeFindForm.GridFilesSetEditText(Sender: TObject; ACol,
+  ARow: Integer; const Value: string);
+begin
+//	ShowMessage(Value);
+//	GridFiles.Options:=GridFiles.Options-[goEditing]+[goRangeSelect];
+
+end;
+
 procedure TTextDeFindForm.TextMouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 var l:integer;
@@ -476,6 +494,16 @@
 end;
 
 
+procedure TTextDeFindForm.PathSelButtonClick(Sender: TObject);
+var
+  SelectFolder : String;
+begin
+	  SelectFolder   := Path.text;
+	 if SelectDirectory(Path.text,'',SelectFolder,[sdNewUI, sdNewFolder, sdShowEdit],Self) then begin
+		Path.text:=SelectFolder;	 
+     end;
+end;
+
 procedure TTextDeFindForm.UrlEditButtonClick(Sender: TObject);
 begin
 	Url.Items.Text:=inputtextbox(self,Url,Url.Items.Text);
@@ -528,6 +556,7 @@
 			 for s in Text.lines do
 				 Tree.Items.AddChild(NN,s);
 
+			Ini.writegrid('grid\'+pname,TGrid(GridFiles));
 		end;
 
 	end;
@@ -537,6 +566,7 @@
 	while N<>nil do begin
 		if N.text=Name.text then begin
 			childtext(N);
+			Ini.readgrid('grid\'+Name.text,TGrid(GridFiles));
 		end;
 		N:=N.getNextSibling;
 	end;
@@ -694,39 +724,33 @@
 
 function TTextDeFindForm.GetFilePathDataObject(G:TStringGrid):IDataObject;
 var
-	fDesktop,fTargetFolder:IShellFolder;
-	Filepidl              :packed array of PItemIDList;
-	Dirpidl               :PItemIDList;
+	ISFD,ISF:IShellFolder;
+	PItems              :packed array of PItemIDList;
+	PItem               :PItemIDList;
 	pchEaten,dwAttributes :Cardinal;
-	Dir,FileName          :Widestring;
-	i,r,count             :Integer;
-	SourceFile            :string;
+	fn,fnpath          :Widestring;
+	i,count             :Integer;
 begin
 	Result:=nil;
+	count:=0;
 
-	count:=G.selection.Bottom-G.selection.top+1;
-	SetLength(Filepidl,count);
-	SHGetDesktopFolder(fDesktop);
-	if Failed(fDesktop.ParseDisplayName(0,nil,PWideChar(Path.text),pchEaten,Dirpidl,dwAttributes)) then exit;
-	if Failed(fDesktop.BindToObject(Dirpidl,nil,IID_IShellFolder,fTargetFolder)) then exit;
+	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;
 
+	for i:=G.selection.top to G.selection.Bottom do begin
+		fn:=INCBS(G.cells[CPATH,i])+G.cells[CFILE,i];
 
-	for i:=0 to count-1 do begin
-		r:=i+G.selection.top;
+		if not FileExists(fn) then continue;
+		inc(count);
+		SetLength(PItems,count);
+		fnpath:=ExtractRelativePath(INCBS(Path.text),fn);
 
-		SourceFile:=INCBS(G.cells[CPATH,r])+G.cells[CFILE,r];
-		if not FileExists(SourceFile) then exit;
-
-		Dir:=ExtractFileDir(SourceFile);
-		FileName:=ExtractRelativePath(INCBS(Path.text),SourceFile);
-
-		if Failed(fTargetFolder.ParseDisplayName(0,nil,PWideChar(FileName),pchEaten,Filepidl[i],dwAttributes)) then exit;
-
+		if Failed(ISF.ParseDisplayName(0,nil,PWideChar(fnpath),pchEaten,PItems[count-1],dwAttributes)) then exit;
 	end;
-
 	if count<1 then exit;
 
-	fTargetFolder.GetUIObjectOf(0,count,Filepidl[0],IDataObject,nil,Pointer(Result));
+	ISF.GetUIObjectOf(0,count,PItems[0],IDataObject,nil,Pointer(Result));
 end;
 
 
@@ -960,6 +984,14 @@
 		for j:=selection.left to selection.right do func(j,i);
 end;
 
+function TGrid.alldo(func:TFuncXY):Integer;
+var
+	i,j:Integer;
+begin
+	for i:=0 to rowcount-1 do
+		for j:=0 to colcount-1 do func(j,i);
+end;
+
 function TGrid.selrowdo(func:TFuncXY):Integer;
 var
 	i:Integer;
@@ -967,6 +999,21 @@
 	for i:=selection.top to selection.Bottom do func(0,i);
 end;
 
+procedure TGrid.SetEditText(ACol, ARow: Integer;
+  const Value: string);
+begin
+  inherited;
+	Options:=Options-[goEditing]+[goRangeSelect];
+end;
+
+function TGrid.rowdo(func: TFuncXY): Integer;
+var
+	i:Integer;
+begin
+	for i:=0 to rowcount-1 do func(0,i);
+
+end;
+
 procedure TGrid.KeyDown(var Key:Word;Shift:TShiftState);
 var
 	w:Word;
@@ -995,6 +1042,12 @@
 begin
 	MouseToCell(X,Y,ACol,ARow);
 	downinselection:=gridInRect(ACol,ARow,selection);
+	if ssDouble in Shift then begin
+		Options:=Options+[goEditing]-[goRangeSelect];
+		Col:=ACol;
+		Row:=ARow;
+		EditorMode:=true;
+    end;
 	if downinselection then exit;
 
 	//	Options:=Options-[goEditing]+[goRangeSelect];
@@ -1116,6 +1169,7 @@
 	RowCount:=w;
 end;
 
+
 function TGrid.RowInsert(Y,cnt:Integer):Integer;
 var
 	i   :Integer;
@@ -1238,25 +1292,55 @@
 	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;
+	s:string;
+begin
+	G.rowdo(procedure(X,Y:Integer)begin
+		G.rows[y].clear;
+	end);
+	G.rowcount:=1;
+	for y:=0 to 1024 do begin
+		for x:=0 to G.ColCount-1 do begin
+			s:=inttostr(y)+','+inttostr(x);
+			if not ini.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]:=Ini.ReadString(sc,inttostr(y)+','+inttostr(x),'');
+		end;
+	end;
+	if G.rowcount<2 then G.rowcount:=2;
+	G.fixedrows:=1;
+	G.Rows[0].setstrings(CHEAD);
+	G.ColExpand(10);
 end;
 
-{ TIniFileHelper }
+procedure TMemIniFileHelper.writegrid(sc: string; G: TGrid);
+begin
+	Ini.EraseSection(sc);
+	G.alldo(procedure(X,Y:Integer)begin
+		Ini.WriteString(sc,inttostr(y)+','+inttostr(x),G.cells[x,y]);
+	end);
+	
+end;
 
-procedure TIniFileHelper.readstrings(sc: string; sl:TStrings);
+procedure TMemIniFileHelper.readstrings(sc: string; sl:TStrings);
 var i:integer;
 	s:string;
 begin
 	sl.Clear;
 	for i:=0 to 1024 do begin
-		if not ini.ValueExists(sc,inttostr(i)) then
-			break;
+		if not ini.ValueExists(sc,inttostr(i)) then break;
 		sl.add(Ini.ReadString(sc,inttostr(i),''));
 	end;
 end;
 
-procedure TIniFileHelper.writestrings(sc: string; sl: TStrings);
+
+procedure TMemIniFileHelper.writestrings(sc: string; sl: TStrings);
 var i:integer;
 begin
 	Ini.EraseSection(sc);