//@@ Author=http://blog.daum.net/futaristo
//@@ ShortCut=
//@@ Title=¢ÃTextArrange
//@@ Icon=
//@@ RegisterToolbarButton=True
//¨ç¨è¨é¨ê¨ë¨ì¨í¨î¨ï¢Ã¡Ý

var
	StartY, EndY : Integer;
	szTmp : string;
	szTitle : string;	
	J , I , P , SP , SIZE   : Integer;
	SearchText , PP , MYSPACE , IndentSpace :string;
	SSP, EEP : TPoint;
	
begin
		
	szTitle := '[Thanks AcroEdit] Format Text';
	SearchText := Trim(InputBox( 'Search Text','À§Ä¡º¯°æÇÒ ¹®ÀÚ¿­À» ÀÔ·ÂÇϼ¼¿ä.',Editor.SelText));

	//¼±Åÿµ¿ª ÇàÀ§Ä¡ ÃßÃâ
	SSP := Editor.SelStart;
	StartY := SSP.Y;
	//EEP := Editor.SelEnd;
	//EndY := EEP.Y;
    
	PP := Trim(InputBox( 'Search Text','º¯°æÀ§Ä¡¸¦ ÀÔ·ÂÇϼ¼¿ä.','30'));
	P := StrToInt(PP);


	
	if SearchText <> '' then
	begin
			if P > 1 then
			begin

					//¼±Åÿµ¿ª³»ÀÇ TABÀ» °ø¹éÀ¸·Î º¯°æ	
					IndentSpace := StringOfChar(' ',Editor.IndentSize);
					Editor.ReplaceAll('\t', IndentSpace , [], ersEntire);

					Editor.MoveToBOL ;
					//StartY := 0;
					EndY := Editor.LineCount - 1;
				
					for I := StartY to EndY do
					begin		
							Editor.CaretY := I; 
							Editor.CaretX := 0; 
							szTmp := Editor.LineString(I);	
							SP := Pos( SearchText , szTmp  ); //ã´Â ¹®ÀÚ¿­ÀÌ ÀÖ´Â À§Ä¡  
							
							if SP > 0 then
							begin
								if P > SP then
								begin
									SIZE := P-SP;
									MYSPACE := StringOfChar(' ',SIZE+1);			
									Editor.CaretX := SP-1; 
									Editor.SelText := MYSPACE;
									//Application.MessageBox(PChar(MYSPACE), PChar(szTitle), 0);
								end;	
								
								if P < SP then
								begin
									SIZE := SP-P;
									Editor.CaretX := SP-1; 
									for J := 1 to SIZE do
									begin										
										Editor.DeletePrevChar;
									end;
								end;									
							end;						
							
							
							
					end;
			end else
			begin
				Application.MessageBox('Exit : ÀԷ¼ýÀÚ¾øÀ½.', PChar(szTitle), 0);			
			end;
	end else
	begin
		Application.MessageBox('Exit : ÀԷ¹®ÀÚ¾øÀ½.', PChar(szTitle), 0);
	end	;			
	
end.