Commit: 246 - dzlargetextview (svn) - dzLargeTextViewer

R/O
SSH
HTTPS

dzlargetextview: Commit

Commit MetaInfo

Revision	246 (tree)
Zeit	2013-02-17 20:35:48
Autor	twm

Log Message

(empty log message)

Ändern Zusammenfassung

added: trunk/src/LargeTextViewer.dpr (diff)
added: trunk/src/LargeTextViewer.dproj (diff)
added: trunk/src/u_Int64List.pas (diff)
added: trunk/src/u_TextFileIndexer.pas (diff)
added: trunk/src/w_LargeTextViewer.dfm (diff)
added: trunk/src/w_LargeTextViewer.pas (diff)
added: trunk/src
delete: trunk/trunk/tools/LargeTextViewer/src/LargeTextViewer.dpr
delete: trunk/trunk/tools/LargeTextViewer/src/u_Int64List.pas
delete: trunk/trunk/tools/LargeTextViewer/src/w_LargeTextViewer.pas
delete: trunk/trunk/tools/LargeTextViewer/src/u_TextFileIndexer.pas
delete: trunk/trunk/tools/LargeTextViewer/src/w_LargeTextViewer.dfm
delete: trunk/trunk/tools/LargeTextViewer/src/LargeTextViewer.dproj
delete: trunk/trunk/tools/LargeTextViewer/src

Diff

--- trunk/src/LargeTextViewer.dpr (nonexistent)

+++ trunk/src/LargeTextViewer.dpr (revision 246)

		@@ -0,0 +1,16 @@
	1	+program LargeTextViewer;
	2	+
	3	+uses
	4	+ Forms,
	5	+ w_LargeTextViewer in 'w_LargeTextViewer.pas' {f_LargeTextViewer},
	6	+ u_TextFileIndexer in 'u_TextFileIndexer.pas',
	7	+ u_Int64List in 'u_Int64List.pas';
	8	+
	9	+{$R *.res}
	10	+
	11	+begin
	12	+ Application.Initialize;
	13	+ Application.MainFormOnTaskbar := True;
	14	+ Application.CreateForm(Tf_LargeTextViewer, f_LargeTextViewer);
	15	+ Application.Run;
	16	+end.

--- trunk/src/LargeTextViewer.dproj (nonexistent)

+++ trunk/src/LargeTextViewer.dproj (revision 246)

		@@ -0,0 +1,288 @@
	1	+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
	2	+ <PropertyGroup>
	3	+ <ProjectGuid>{b6113310-a312-491b-823e-3a1e137966ec}</ProjectGuid>
	4	+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
	5	+ <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
	6	+ <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
	7	+ <DCC_DependencyCheckOutputName>..\LargeTextViewer.exe</DCC_DependencyCheckOutputName>
	8	+ <MainSource>LargeTextViewer.dpr</MainSource>
	9	+ </PropertyGroup>
	10	+ <PropertyGroup Condition=" '$(Configuration)\|$(Platform)' == 'Release\|AnyCPU' ">
	11	+ <Version>7.0</Version>
	12	+ <DCC_DebugInformation>False</DCC_DebugInformation>
	13	+ <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
	14	+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
	15	+ <DCC_Define>RELEASE</DCC_Define>
	16	+ </PropertyGroup>
	17	+ <PropertyGroup Condition=" '$(Configuration)\|$(Platform)' == 'Debug\|AnyCPU' ">
	18	+ <Version>7.0</Version>
	19	+ <DCC_Optimize>False</DCC_Optimize>
	20	+ <DCC_ExeOutput>..</DCC_ExeOutput>
	21	+ <DCC_DcuOutput>..\dcu</DCC_DcuOutput>
	22	+ <DCC_ObjOutput>..\dcu</DCC_ObjOutput>
	23	+ <DCC_HppOutput>..\dcu</DCC_HppOutput>
	24	+ <DCC_UnitSearchPath>$(BDS)\lib\Debug;..\..\..\src;..\..\..\..\jcl\source\include;..\..\..\..\jcl\source\common;..\..\..\..\jcl\source\windows;..\..\..\..\jcl\source\include\jedi;..\..\..\jvcl\common;..\..\libs\jvcl\run;..\..\libs\jvcl\resources;..\..\..\components;..\..\..\templates</DCC_UnitSearchPath>
	25	+ <DCC_ResourcePath>$(BDS)\lib\Debug;..\..\..\src;..\..\..\..\jcl\source\include;..\..\..\..\jcl\source\common;..\..\..\..\jcl\source\windows;..\..\..\..\jcl\source\include\jedi;..\..\..\jvcl\common;..\..\libs\jvcl\run;..\..\libs\jvcl\resources;..\..\..\components;..\..\..\templates</DCC_ResourcePath>
	26	+ <DCC_ObjPath>$(BDS)\lib\Debug;..\..\..\src;..\..\..\..\jcl\source\include;..\..\..\..\jcl\source\common;..\..\..\..\jcl\source\windows;..\..\..\..\jcl\source\include\jedi;..\..\..\jvcl\common;..\..\libs\jvcl\run;..\..\libs\jvcl\resources;..\..\..\components;..\..\..\templates</DCC_ObjPath>
	27	+ <DCC_IncludePath>$(BDS)\lib\Debug;..\..\..\src;..\..\..\..\jcl\source\include;..\..\..\..\jcl\source\common;..\..\..\..\jcl\source\windows;..\..\..\..\jcl\source\include\jedi;..\..\..\jvcl\common;..\..\libs\jvcl\run;..\..\libs\jvcl\resources;..\..\..\components;..\..\..\templates</DCC_IncludePath>
	28	+ <DCC_Define>DEBUG;NO_TRANSLATION</DCC_Define>
	29	+ <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
	30	+ <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
	31	+ </PropertyGroup>
	32	+ <ProjectExtensions>
	33	+ <Borland.Personality>Delphi.Personality</Borland.Personality>
	34	+ <Borland.ProjectType />
	35	+ <BorlandProject>
	36	+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">2057</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
	37	+
	38	+
	39	+
	40	+
	41	+
	42	+
	43	+
	44	+
	45	+
	46	+
	47	+
	48	+
	49	+
	50	+
	51	+
	52	+
	53	+
	54	+
	55	+
	56	+
	57	+
	58	+
	59	+
	60	+
	61	+
	62	+
	63	+
	64	+
	65	+
	66	+
	67	+
	68	+
	69	+
	70	+
	71	+
	72	+
	73	+
	74	+
	75	+
	76	+
	77	+
	78	+
	79	+
	80	+
	81	+
	82	+
	83	+
	84	+
	85	+
	86	+
	87	+
	88	+
	89	+
	90	+
	91	+
	92	+
	93	+
	94	+
	95	+
	96	+
	97	+
	98	+
	99	+
	100	+
	101	+
	102	+
	103	+
	104	+
	105	+
	106	+
	107	+
	108	+
	109	+
	110	+
	111	+
	112	+
	113	+
	114	+
	115	+
	116	+
	117	+
	118	+
	119	+
	120	+
	121	+
	122	+
	123	+
	124	+
	125	+
	126	+
	127	+
	128	+
	129	+
	130	+
	131	+
	132	+
	133	+
	134	+
	135	+
	136	+
	137	+
	138	+
	139	+
	140	+
	141	+
	142	+
	143	+
	144	+
	145	+
	146	+
	147	+
	148	+
	149	+
	150	+
	151	+
	152	+
	153	+
	154	+
	155	+
	156	+
	157	+
	158	+
	159	+
	160	+
	161	+
	162	+
	163	+
	164	+
	165	+
	166	+
	167	+
	168	+
	169	+
	170	+
	171	+
	172	+
	173	+
	174	+
	175	+
	176	+
	177	+
	178	+
	179	+
	180	+
	181	+
	182	+
	183	+
	184	+
	185	+
	186	+
	187	+
	188	+
	189	+
	190	+
	191	+
	192	+
	193	+
	194	+
	195	+
	196	+
	197	+
	198	+
	199	+
	200	+
	201	+
	202	+
	203	+
	204	+
	205	+
	206	+
	207	+
	208	+
	209	+
	210	+
	211	+
	212	+
	213	+
	214	+
	215	+
	216	+
	217	+
	218	+
	219	+
	220	+
	221	+
	222	+
	223	+
	224	+
	225	+
	226	+
	227	+
	228	+
	229	+
	230	+
	231	+
	232	+
	233	+
	234	+
	235	+
	236	+
	237	+
	238	+
	239	+
	240	+
	241	+
	242	+
	243	+
	244	+
	245	+
	246	+
	247	+
	248	+
	249	+
	250	+
	251	+
	252	+
	253	+
	254	+
	255	+
	256	+
	257	+
	258	+ <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
	259	+ <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
	260	+ <Excluded_Packages Name="$(BDS)\bin\bcbie100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\bcbie100.bpl not found</Excluded_Packages>
	261	+ <Excluded_Packages Name="$(BDS)\bin\dclbcbsmp100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\dclbcbsmp100.bpl not found</Excluded_Packages>
	262	+ <Excluded_Packages Name="$(BDS)\Bin\dclib100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\Bin\dclib100.bpl not found</Excluded_Packages>
	263	+ <Excluded_Packages Name="$(BDS)\bin\dcldbx4100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\dcldbx4100.bpl not found</Excluded_Packages>
	264	+ <Excluded_Packages Name="$(BDS)\bin\dcldbxcds4100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\dcldbxcds4100.bpl not found</Excluded_Packages>
	265	+ <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\dclfsIBX11.bpl">FastScript 1.9 IBX Components</Excluded_Packages>
	266	+ <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\JclDebugExpert110.bpl">JCL Debug IDE extension</Excluded_Packages>
	267	+ <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\JclBaseExpert110.bpl">JCL Package containing common units for JCL Experts</Excluded_Packages>
	268	+ <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\JclFavoriteFoldersExpert110.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
	269	+ <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\JclProjectAnalysisExpert110.bpl">JCL Project Analyzer</Excluded_Packages>
	270	+ <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\JclStackTraceViewerExpert110.bpl">JCL Stack Trace Viewer</Excluded_Packages>
	271	+ <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\DclArgVideoComponents100.bpl">Schniering ArgVideo components</Excluded_Packages>
	272	+ <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\dclfsTee11.bpl">FastScript 1.9 Tee Components</Excluded_Packages>
	273	+ <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\bcboffice2k100.bpl not found</Excluded_Packages>
	274	+ <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\bcbofficexp100.bpl not found</Excluded_Packages>
	275	+ </Excluded_Packages><Source><Source Name="MainSource">LargeTextViewer.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
	276	+ </ProjectExtensions>
	277	+ <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
	278	+ <ItemGroup>
	279	+ <DelphiCompile Include="LargeTextViewer.dpr">
	280	+ <MainSource>MainSource</MainSource>
	281	+ </DelphiCompile>
	282	+ <DCCReference Include="u_Int64List.pas" />
	283	+ <DCCReference Include="u_TextFileIndexer.pas" />
	284	+ <DCCReference Include="w_LargeTextViewer.pas">
	285	+ <Form>f_LargeTextViewer</Form>
	286	+ </DCCReference>
	287	+ </ItemGroup>
	288	+</Project>
		\ No newline at end of file

--- trunk/src/u_Int64List.pas (nonexistent)

+++ trunk/src/u_Int64List.pas (revision 246)

		@@ -0,0 +1,78 @@
	1	+unit u_Int64List;
	2	+
	3	+interface
	4	+
	5	+uses
	6	+ SysUtils,
	7	+ Classes,
	8	+ u_dzTranslator;
	9	+
	10	+type
	11	+ TInt64List = class
	12	+ private
	13	+ FData: array of Int64;
	14	+ FCapacity: integer;
	15	+ FCount: integer;
	16	+ procedure Grow;
	17	+ procedure SetCapacity(_NewCapacity: Integer);
	18	+ function GetItems(_Idx: integer): Int64;
	19	+ procedure SetItems(_Idx: integer; const Value: Int64);
	20	+ public
	21	+ function Add(_Value: Int64): integer;
	22	+ property Items[_Idx: integer]: Int64 read GetItems write SetItems;
	23	+ property Count: integer read FCount;
	24	+ end;
	25	+
	26	+implementation
	27	+
	28	+uses
	29	+ RTLConsts;
	30	+
	31	+{ TInt64List }
	32	+
	33	+function TInt64List.Add(_Value: Int64): integer;
	34	+begin
	35	+ Result := FCount;
	36	+ if Result = FCapacity then
	37	+ Grow;
	38	+ FData[Result] := _Value;
	39	+ Inc(FCount);
	40	+end;
	41	+
	42	+procedure TInt64List.Grow;
	43	+var
	44	+ Delta: Integer;
	45	+begin
	46	+ if FCapacity > 64 then
	47	+ Delta := FCapacity div 4
	48	+ else if FCapacity > 8 then
	49	+ Delta := 16
	50	+ else
	51	+ Delta := 4;
	52	+ SetCapacity(FCapacity + Delta);
	53	+end;
	54	+
	55	+procedure TInt64List.SetCapacity(_NewCapacity: Integer);
	56	+begin
	57	+ if (_NewCapacity < FCount) or (_NewCapacity > MaxListSize) then
	58	+ raise Exception.CreateFmt(_('List capacity out of bounds (%d)'), [_NewCapacity]);
	59	+ if _NewCapacity <> FCapacity then begin
	60	+ SetLength(FData, _NewCapacity);
	61	+ FCapacity := _NewCapacity;
	62	+ end;
	63	+end;
	64	+
	65	+function TInt64List.GetItems(_Idx: integer): Int64;
	66	+begin
	67	+ if (_Idx < 0) or (_Idx >= FCount) then
	68	+ raise Exception.CreateFmt(_('List index out of bounds (%d)'), [_Idx]);
	69	+ Result := FData[_Idx];
	70	+end;
	71	+
	72	+procedure TInt64List.SetItems(_Idx: integer; const Value: Int64);
	73	+begin
	74	+
	75	+end;
	76	+
	77	+end.
	78	+

--- trunk/src/u_TextFileIndexer.pas (nonexistent)

+++ trunk/src/u_TextFileIndexer.pas (revision 246)

		@@ -0,0 +1,121 @@
	1	+unit u_TextFileIndexer;
	2	+
	3	+interface
	4	+
	5	+uses
	6	+ SysUtils,
	7	+ Classes,
	8	+ u_Int64List,
	9	+ u_dzCriticalSection;
	10	+
	11	+type
	12	+ TTextFileIndexer = class
	13	+ private
	14	+ FCritSect: TdzCriticalSection;
	15	+ FLineIndexes: TInt64List;
	16	+ FIsDone: boolean;
	17	+ FFilename: string;
	18	+ FAbortRequested: Boolean;
	19	+ function GetLineIndex(_Idx: integer): Int64;
	20	+ function GetLineIndexCount: integer;
	21	+ public
	22	+ constructor Create(const _Filename: string);
	23	+ destructor Destroy; override;
	24	+ procedure Execute;
	25	+ procedure Abort;
	26	+ property LineIndex[_Idx: integer]: Int64 read GetLineIndex;
	27	+ property LineIndexCount: integer read GetLineIndexCount;
	28	+ property isDone: boolean read FIsDone;
	29	+ end;
	30	+
	31	+implementation
	32	+
	33	+uses
	34	+ u_dzFileStreams;
	35	+
	36	+{ TTextFileIndexer }
	37	+
	38	+constructor TTextFileIndexer.Create(const _Filename: string);
	39	+begin
	40	+ inherited Create;
	41	+ FLineIndexes := TInt64List.Create;
	42	+ FFilename := _Filename;
	43	+ FCritSect := TdzCriticalSection.Create;
	44	+end;
	45	+
	46	+destructor TTextFileIndexer.Destroy;
	47	+begin
	48	+ FreeAndNil(FCritSect);
	49	+ FreeAndNil(FLineIndexes);
	50	+ inherited;
	51	+end;
	52	+
	53	+procedure TTextFileIndexer.Execute;
	54	+const
	55	+ BUFFER_SIZE = 1024 * 128;
	56	+var
	57	+ st: TdzFile;
	58	+ buffer: array[0..BUFFER_SIZE - 1] of char;
	59	+ Offset: Int64;
	60	+ BytesRead: Integer;
	61	+ i: Integer;
	62	+begin
	63	+ FAbortRequested := False;
	64	+ FIsDone := False;
	65	+ st := TdzFile.Create(FFilename);
	66	+ try
	67	+ st.OpenReadonly;
	68	+ FCritSect.Enter;
	69	+ try
	70	+ FLineIndexes.Add(0);
	71	+ finally
	72	+ FCritSect.Leave;
	73	+ end;
	74	+ while not st.EOF do begin
	75	+ Offset := st.Position;
	76	+ BytesRead := st.Read(Buffer, SizeOf(Buffer));
	77	+ for i := 0 to BytesRead - 1 do
	78	+ if buffer[i] = #10 then begin
	79	+ FCritSect.Enter;
	80	+ try
	81	+ FLineIndexes.Add(Offset + i + 1);
	82	+ finally
	83	+ FCritSect.Leave;
	84	+ end;
	85	+ end;
	86	+ if FAbortRequested then
	87	+ SysUtils.Abort;
	88	+ end;
	89	+ finally
	90	+ FreeAndNil(st);
	91	+ end;
	92	+ FIsDone := true;
	93	+end;
	94	+
	95	+function TTextFileIndexer.GetLineIndex(_Idx: integer): Int64;
	96	+begin
	97	+ FCritSect.Enter;
	98	+ try
	99	+ Result := FLineIndexes.Items[_Idx];
	100	+ finally
	101	+ FCritSect.Leave;
	102	+ end;
	103	+end;
	104	+
	105	+function TTextFileIndexer.GetLineIndexCount: integer;
	106	+begin
	107	+ FCritSect.Enter;
	108	+ try
	109	+ Result := FLineIndexes.Count;
	110	+ finally
	111	+ FCritSect.Leave;
	112	+ end;
	113	+end;
	114	+
	115	+procedure TTextFileIndexer.Abort;
	116	+begin
	117	+ FAbortRequested := true;
	118	+end;
	119	+
	120	+end.
	121	+

--- trunk/src/w_LargeTextViewer.pas (nonexistent)

+++ trunk/src/w_LargeTextViewer.pas (revision 246)

		@@ -0,0 +1,169 @@
	1	+unit w_LargeTextViewer;
	2	+
	3	+interface
	4	+
	5	+uses
	6	+ Windows,
	7	+ Messages,
	8	+ SysUtils,
	9	+ Variants,
	10	+ Classes,
	11	+ Graphics,
	12	+ Controls,
	13	+ Forms,
	14	+ Dialogs,
	15	+ Grids,
	16	+ c_dzVirtualStringGrid,
	17	+ u_dzTranslator,
	18	+ u_TextFileIndexer,
	19	+ u_dzNamedThread,
	20	+ u_dzFileStreams,
	21	+ ExtCtrls,
	22	+ ComCtrls,
	23	+ Menus;
	24	+
	25	+type
	26	+ TIndexerThread = class(TNamedThread)
	27	+ private
	28	+ FIndexer: TTextFileIndexer;
	29	+ protected
	30	+ constructor Create(_Indexer: TTextFileIndexer);
	31	+ procedure Execute; override;
	32	+ end;
	33	+
	34	+type
	35	+ Tf_LargeTextViewer = class(TForm)
	36	+ sg_Display: TdzVirtualStringGrid;
	37	+ tim_Update: TTimer;
	38	+ TheStatusBar: TStatusBar;
	39	+ TheMainMenu: TMainMenu;
	40	+ mi_File: TMenuItem;
	41	+ mi_Open: TMenuItem;
	42	+ mi_Exit: TMenuItem;
	43	+ TheOpenDialog: TOpenDialog;
	44	+ procedure sg_DisplayGetNonfixedCellData(_Sender: TObject; _DataCol, _DataRow: Integer;
	45	+ _State: TGridDrawState; var _Text: string; var _HAlign: TAlignment;
	46	+ var _VAlign: TdzCellVertAlign; _Font: TFont; var _Color: TColor);
	47	+ procedure sg_DisplayResize(Sender: TObject);
	48	+ procedure tim_UpdateTimer(Sender: TObject);
	49	+ procedure mi_OpenClick(Sender: TObject);
	50	+ procedure mi_ExitClick(Sender: TObject);
	51	+ private
	52	+ FIndexer: TTextFileIndexer;
	53	+ FIndexThread: TIndexerThread;
	54	+ FFile: TdzFile;
	55	+ procedure OpenFile;
	56	+ public
	57	+ constructor Create(_Owner: TComponent); override;
	58	+ destructor Destroy; override;
	59	+ procedure LoadFile(const _Filename: string);
	60	+ end;
	61	+
	62	+var
	63	+ f_LargeTextViewer: Tf_LargeTextViewer;
	64	+
	65	+implementation
	66	+
	67	+{$R *.dfm}
	68	+
	69	+uses
	70	+ u_dzClassUtils;
	71	+
	72	+{ TIndexerThread }
	73	+
	74	+constructor TIndexerThread.Create(_Indexer: TTextFileIndexer);
	75	+begin
	76	+ FIndexer := _Indexer;
	77	+ inherited Create(false);
	78	+end;
	79	+
	80	+procedure TIndexerThread.Execute;
	81	+begin
	82	+ inherited;
	83	+ try
	84	+ FIndexer.Execute;
	85	+ except
	86	+ on EAbort do
	87	+ // itnore;
	88	+ else
	89	+ raise;
	90	+ end;
	91	+end;
	92	+
	93	+constructor Tf_LargeTextViewer.Create(_Owner: TComponent);
	94	+begin
	95	+ inherited;
	96	+ OpenFile;
	97	+end;
	98	+
	99	+destructor Tf_LargeTextViewer.Destroy;
	100	+begin
	101	+ FreeAndNil(FFile);
	102	+ if Assigned(FIndexer) then
	103	+ FIndexer.Abort;
	104	+ FreeAndNil(FIndexThread);
	105	+ inherited;
	106	+end;
	107	+
	108	+procedure Tf_LargeTextViewer.LoadFile(const _Filename: string);
	109	+begin
	110	+ FIndexer := TTextFileIndexer.Create(_Filename);
	111	+ FIndexThread := TIndexerThread.Create(FIndexer);
	112	+ tim_Update.Enabled := true;
	113	+ FFile := TdzFile.Create(_Filename);
	114	+ FFile.OpenReadonly;
	115	+end;
	116	+
	117	+procedure Tf_LargeTextViewer.mi_ExitClick(Sender: TObject);
	118	+begin
	119	+ Close;
	120	+end;
	121	+
	122	+procedure Tf_LargeTextViewer.OpenFile;
	123	+begin
	124	+ TheOpenDialog.Filter := 'all files (.)\|.';
	125	+ if not TheOpenDialog.Execute then
	126	+ exit;
	127	+ LoadFile(TheOpenDialog.FileName);
	128	+end;
	129	+
	130	+procedure Tf_LargeTextViewer.mi_OpenClick(Sender: TObject);
	131	+begin
	132	+ OpenFile;
	133	+end;
	134	+
	135	+procedure Tf_LargeTextViewer.sg_DisplayGetNonfixedCellData(_Sender: TObject; _DataCol, _DataRow: Integer;
	136	+ _State: TGridDrawState; var _Text: string; var _HAlign: TAlignment; var _VAlign: TdzCellVertAlign;
	137	+ _Font: TFont; var _Color: TColor);
	138	+var
	139	+ SeekIdx: Int64;
	140	+ s: string;
	141	+begin
	142	+ if not Assigned(FIndexer) or (FIndexer.LineIndexCount < _DataRow) then
	143	+ exit;
	144	+ SeekIdx := FIndexer.LineIndex[_DataRow];
	145	+ FFile.Position := SeekIdx;
	146	+ TStream_ReadStringLn(FFile, s);
	147	+ _Text := s;
	148	+end;
	149	+
	150	+procedure Tf_LargeTextViewer.sg_DisplayResize(Sender: TObject);
	151	+begin
	152	+ sg_Display.ColWidths[0] := sg_Display.ClientWidth;
	153	+end;
	154	+
	155	+procedure Tf_LargeTextViewer.tim_UpdateTimer(Sender: TObject);
	156	+var
	157	+ LineCount: integer;
	158	+begin
	159	+ LineCount := FIndexer.LineIndexCount;
	160	+ sg_Display.RowCount := LineCount;
	161	+ if FIndexer.isDone then begin
	162	+ tim_Update.Enabled := false;
	163	+ TheStatusBar.SimpleText := Format(_('%d lines'), [LineCount]);
	164	+ end else
	165	+ TheStatusBar.SimpleText := Format(_('Indexing (%d lines)'), [LineCount]);
	166	+end;
	167	+
	168	+end.
	169	+

--- trunk/trunk/tools/LargeTextViewer/src/LargeTextViewer.dproj (revision 245)

+++ trunk/trunk/tools/LargeTextViewer/src/LargeTextViewer.dproj (nonexistent)

		@@ -1,288 +0,0 @@
1		-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2		- <PropertyGroup>
3		- <ProjectGuid>{b6113310-a312-491b-823e-3a1e137966ec}</ProjectGuid>
4		- <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
5		- <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
6		- <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
7		- <DCC_DependencyCheckOutputName>..\LargeTextViewer.exe</DCC_DependencyCheckOutputName>
8		- <MainSource>LargeTextViewer.dpr</MainSource>
9		- </PropertyGroup>
10		- <PropertyGroup Condition=" '$(Configuration)\|$(Platform)' == 'Release\|AnyCPU' ">
11		- <Version>7.0</Version>
12		- <DCC_DebugInformation>False</DCC_DebugInformation>
13		- <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
14		- <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
15		- <DCC_Define>RELEASE</DCC_Define>
16		- </PropertyGroup>
17		- <PropertyGroup Condition=" '$(Configuration)\|$(Platform)' == 'Debug\|AnyCPU' ">
18		- <Version>7.0</Version>
19		- <DCC_Optimize>False</DCC_Optimize>
20		- <DCC_ExeOutput>..</DCC_ExeOutput>
21		- <DCC_DcuOutput>..\dcu</DCC_DcuOutput>
22		- <DCC_ObjOutput>..\dcu</DCC_ObjOutput>
23		- <DCC_HppOutput>..\dcu</DCC_HppOutput>
24		- <DCC_UnitSearchPath>$(BDS)\lib\Debug;..\..\..\src;..\..\..\..\jcl\source\include;..\..\..\..\jcl\source\common;..\..\..\..\jcl\source\windows;..\..\..\..\jcl\source\include\jedi;..\..\..\jvcl\common;..\..\libs\jvcl\run;..\..\libs\jvcl\resources;..\..\..\components;..\..\..\templates</DCC_UnitSearchPath>
25		- <DCC_ResourcePath>$(BDS)\lib\Debug;..\..\..\src;..\..\..\..\jcl\source\include;..\..\..\..\jcl\source\common;..\..\..\..\jcl\source\windows;..\..\..\..\jcl\source\include\jedi;..\..\..\jvcl\common;..\..\libs\jvcl\run;..\..\libs\jvcl\resources;..\..\..\components;..\..\..\templates</DCC_ResourcePath>
26		- <DCC_ObjPath>$(BDS)\lib\Debug;..\..\..\src;..\..\..\..\jcl\source\include;..\..\..\..\jcl\source\common;..\..\..\..\jcl\source\windows;..\..\..\..\jcl\source\include\jedi;..\..\..\jvcl\common;..\..\libs\jvcl\run;..\..\libs\jvcl\resources;..\..\..\components;..\..\..\templates</DCC_ObjPath>
27		- <DCC_IncludePath>$(BDS)\lib\Debug;..\..\..\src;..\..\..\..\jcl\source\include;..\..\..\..\jcl\source\common;..\..\..\..\jcl\source\windows;..\..\..\..\jcl\source\include\jedi;..\..\..\jvcl\common;..\..\libs\jvcl\run;..\..\libs\jvcl\resources;..\..\..\components;..\..\..\templates</DCC_IncludePath>
28		- <DCC_Define>DEBUG;NO_TRANSLATION</DCC_Define>
29		- <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
30		- <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
31		- </PropertyGroup>
32		- <ProjectExtensions>
33		- <Borland.Personality>Delphi.Personality</Borland.Personality>
34		- <Borland.ProjectType />
35		- <BorlandProject>
36		-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">2057</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
37		-
38		-
39		-
40		-
41		-
42		-
43		-
44		-
45		-
46		-
47		-
48		-
49		-
50		-
51		-
52		-
53		-
54		-
55		-
56		-
57		-
58		-
59		-
60		-
61		-
62		-
63		-
64		-
65		-
66		-
67		-
68		-
69		-
70		-
71		-
72		-
73		-
74		-
75		-
76		-
77		-
78		-
79		-
80		-
81		-
82		-
83		-
84		-
85		-
86		-
87		-
88		-
89		-
90		-
91		-
92		-
93		-
94		-
95		-
96		-
97		-
98		-
99		-
100		-
101		-
102		-
103		-
104		-
105		-
106		-
107		-
108		-
109		-
110		-
111		-
112		-
113		-
114		-
115		-
116		-
117		-
118		-
119		-
120		-
121		-
122		-
123		-
124		-
125		-
126		-
127		-
128		-
129		-
130		-
131		-
132		-
133		-
134		-
135		-
136		-
137		-
138		-
139		-
140		-
141		-
142		-
143		-
144		-
145		-
146		-
147		-
148		-
149		-
150		-
151		-
152		-
153		-
154		-
155		-
156		-
157		-
158		-
159		-
160		-
161		-
162		-
163		-
164		-
165		-
166		-
167		-
168		-
169		-
170		-
171		-
172		-
173		-
174		-
175		-
176		-
177		-
178		-
179		-
180		-
181		-
182		-
183		-
184		-
185		-
186		-
187		-
188		-
189		-
190		-
191		-
192		-
193		-
194		-
195		-
196		-
197		-
198		-
199		-
200		-
201		-
202		-
203		-
204		-
205		-
206		-
207		-
208		-
209		-
210		-
211		-
212		-
213		-
214		-
215		-
216		-
217		-
218		-
219		-
220		-
221		-
222		-
223		-
224		-
225		-
226		-
227		-
228		-
229		-
230		-
231		-
232		-
233		-
234		-
235		-
236		-
237		-
238		-
239		-
240		-
241		-
242		-
243		-
244		-
245		-
246		-
247		-
248		-
249		-
250		-
251		-
252		-
253		-
254		-
255		-
256		-
257		-
258		- <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
259		- <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
260		- <Excluded_Packages Name="$(BDS)\bin\bcbie100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\bcbie100.bpl not found</Excluded_Packages>
261		- <Excluded_Packages Name="$(BDS)\bin\dclbcbsmp100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\dclbcbsmp100.bpl not found</Excluded_Packages>
262		- <Excluded_Packages Name="$(BDS)\Bin\dclib100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\Bin\dclib100.bpl not found</Excluded_Packages>
263		- <Excluded_Packages Name="$(BDS)\bin\dcldbx4100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\dcldbx4100.bpl not found</Excluded_Packages>
264		- <Excluded_Packages Name="$(BDS)\bin\dcldbxcds4100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\dcldbxcds4100.bpl not found</Excluded_Packages>
265		- <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\dclfsIBX11.bpl">FastScript 1.9 IBX Components</Excluded_Packages>
266		- <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\JclDebugExpert110.bpl">JCL Debug IDE extension</Excluded_Packages>
267		- <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\JclBaseExpert110.bpl">JCL Package containing common units for JCL Experts</Excluded_Packages>
268		- <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\JclFavoriteFoldersExpert110.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
269		- <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\JclProjectAnalysisExpert110.bpl">JCL Project Analyzer</Excluded_Packages>
270		- <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\JclStackTraceViewerExpert110.bpl">JCL Stack Trace Viewer</Excluded_Packages>
271		- <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\DclArgVideoComponents100.bpl">Schniering ArgVideo components</Excluded_Packages>
272		- <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\dclfsTee11.bpl">FastScript 1.9 Tee Components</Excluded_Packages>
273		- <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\bcboffice2k100.bpl not found</Excluded_Packages>
274		- <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">File c:\program files (x86)\codegear\rad studio\5.0\bin\bcbofficexp100.bpl not found</Excluded_Packages>
275		- </Excluded_Packages><Source><Source Name="MainSource">LargeTextViewer.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
276		- </ProjectExtensions>
277		- <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
278		- <ItemGroup>
279		- <DelphiCompile Include="LargeTextViewer.dpr">
280		- <MainSource>MainSource</MainSource>
281		- </DelphiCompile>
282		- <DCCReference Include="u_Int64List.pas" />
283		- <DCCReference Include="u_TextFileIndexer.pas" />
284		- <DCCReference Include="w_LargeTextViewer.pas">
285		- <Form>f_LargeTextViewer</Form>
286		- </DCCReference>
287		- </ItemGroup>
288		-</Project>
		\ No newline at end of file

--- trunk/trunk/tools/LargeTextViewer/src/LargeTextViewer.dpr (revision 245)

+++ trunk/trunk/tools/LargeTextViewer/src/LargeTextViewer.dpr (nonexistent)

		@@ -1,16 +0,0 @@
1		-program LargeTextViewer;
2		-
3		-uses
4		- Forms,
5		- w_LargeTextViewer in 'w_LargeTextViewer.pas' {f_LargeTextViewer},
6		- u_TextFileIndexer in 'u_TextFileIndexer.pas',
7		- u_Int64List in 'u_Int64List.pas';
8		-
9		-{$R *.res}
10		-
11		-begin
12		- Application.Initialize;
13		- Application.MainFormOnTaskbar := True;
14		- Application.CreateForm(Tf_LargeTextViewer, f_LargeTextViewer);
15		- Application.Run;
16		-end.

--- trunk/trunk/tools/LargeTextViewer/src/u_Int64List.pas (revision 245)

+++ trunk/trunk/tools/LargeTextViewer/src/u_Int64List.pas (nonexistent)

		@@ -1,78 +0,0 @@
1		-unit u_Int64List;
2		-
3		-interface
4		-
5		-uses
6		- SysUtils,
7		- Classes,
8		- u_dzTranslator;
9		-
10		-type
11		- TInt64List = class
12		- private
13		- FData: array of Int64;
14		- FCapacity: integer;
15		- FCount: integer;
16		- procedure Grow;
17		- procedure SetCapacity(_NewCapacity: Integer);
18		- function GetItems(_Idx: integer): Int64;
19		- procedure SetItems(_Idx: integer; const Value: Int64);
20		- public
21		- function Add(_Value: Int64): integer;
22		- property Items[_Idx: integer]: Int64 read GetItems write SetItems;
23		- property Count: integer read FCount;
24		- end;
25		-
26		-implementation
27		-
28		-uses
29		- RTLConsts;
30		-
31		-{ TInt64List }
32		-
33		-function TInt64List.Add(_Value: Int64): integer;
34		-begin
35		- Result := FCount;
36		- if Result = FCapacity then
37		- Grow;
38		- FData[Result] := _Value;
39		- Inc(FCount);
40		-end;
41		-
42		-procedure TInt64List.Grow;
43		-var
44		- Delta: Integer;
45		-begin
46		- if FCapacity > 64 then
47		- Delta := FCapacity div 4
48		- else if FCapacity > 8 then
49		- Delta := 16
50		- else
51		- Delta := 4;
52		- SetCapacity(FCapacity + Delta);
53		-end;
54		-
55		-procedure TInt64List.SetCapacity(_NewCapacity: Integer);
56		-begin
57		- if (_NewCapacity < FCount) or (_NewCapacity > MaxListSize) then
58		- raise Exception.CreateFmt(_('List capacity out of bounds (%d)'), [_NewCapacity]);
59		- if _NewCapacity <> FCapacity then begin
60		- SetLength(FData, _NewCapacity);
61		- FCapacity := _NewCapacity;
62		- end;
63		-end;
64		-
65		-function TInt64List.GetItems(_Idx: integer): Int64;
66		-begin
67		- if (_Idx < 0) or (_Idx >= FCount) then
68		- raise Exception.CreateFmt(_('List index out of bounds (%d)'), [_Idx]);
69		- Result := FData[_Idx];
70		-end;
71		-
72		-procedure TInt64List.SetItems(_Idx: integer; const Value: Int64);
73		-begin
74		-
75		-end;
76		-
77		-end.
78		-

--- trunk/trunk/tools/LargeTextViewer/src/w_LargeTextViewer.pas (revision 245)

+++ trunk/trunk/tools/LargeTextViewer/src/w_LargeTextViewer.pas (nonexistent)

		@@ -1,169 +0,0 @@
1		-unit w_LargeTextViewer;
2		-
3		-interface
4		-
5		-uses
6		- Windows,
7		- Messages,
8		- SysUtils,
9		- Variants,
10		- Classes,
11		- Graphics,
12		- Controls,
13		- Forms,
14		- Dialogs,
15		- Grids,
16		- c_dzVirtualStringGrid,
17		- u_dzTranslator,
18		- u_TextFileIndexer,
19		- u_dzNamedThread,
20		- u_dzFileStreams,
21		- ExtCtrls,
22		- ComCtrls,
23		- Menus;
24		-
25		-type
26		- TIndexerThread = class(TNamedThread)
27		- private
28		- FIndexer: TTextFileIndexer;
29		- protected
30		- constructor Create(_Indexer: TTextFileIndexer);
31		- procedure Execute; override;
32		- end;
33		-
34		-type
35		- Tf_LargeTextViewer = class(TForm)
36		- sg_Display: TdzVirtualStringGrid;
37		- tim_Update: TTimer;
38		- TheStatusBar: TStatusBar;
39		- TheMainMenu: TMainMenu;
40		- mi_File: TMenuItem;
41		- mi_Open: TMenuItem;
42		- mi_Exit: TMenuItem;
43		- TheOpenDialog: TOpenDialog;
44		- procedure sg_DisplayGetNonfixedCellData(_Sender: TObject; _DataCol, _DataRow: Integer;
45		- _State: TGridDrawState; var _Text: string; var _HAlign: TAlignment;
46		- var _VAlign: TdzCellVertAlign; _Font: TFont; var _Color: TColor);
47		- procedure sg_DisplayResize(Sender: TObject);
48		- procedure tim_UpdateTimer(Sender: TObject);
49		- procedure mi_OpenClick(Sender: TObject);
50		- procedure mi_ExitClick(Sender: TObject);
51		- private
52		- FIndexer: TTextFileIndexer;
53		- FIndexThread: TIndexerThread;
54		- FFile: TdzFile;
55		- procedure OpenFile;
56		- public
57		- constructor Create(_Owner: TComponent); override;
58		- destructor Destroy; override;
59		- procedure LoadFile(const _Filename: string);
60		- end;
61		-
62		-var
63		- f_LargeTextViewer: Tf_LargeTextViewer;
64		-
65		-implementation
66		-
67		-{$R *.dfm}
68		-
69		-uses
70		- u_dzClassUtils;
71		-
72		-{ TIndexerThread }
73		-
74		-constructor TIndexerThread.Create(_Indexer: TTextFileIndexer);
75		-begin
76		- FIndexer := _Indexer;
77		- inherited Create(false);
78		-end;
79		-
80		-procedure TIndexerThread.Execute;
81		-begin
82		- inherited;
83		- try
84		- FIndexer.Execute;
85		- except
86		- on EAbort do
87		- // itnore;
88		- else
89		- raise;
90		- end;
91		-end;
92		-
93		-constructor Tf_LargeTextViewer.Create(_Owner: TComponent);
94		-begin
95		- inherited;
96		- OpenFile;
97		-end;
98		-
99		-destructor Tf_LargeTextViewer.Destroy;
100		-begin
101		- FreeAndNil(FFile);
102		- if Assigned(FIndexer) then
103		- FIndexer.Abort;
104		- FreeAndNil(FIndexThread);
105		- inherited;
106		-end;
107		-
108		-procedure Tf_LargeTextViewer.LoadFile(const _Filename: string);
109		-begin
110		- FIndexer := TTextFileIndexer.Create(_Filename);
111		- FIndexThread := TIndexerThread.Create(FIndexer);
112		- tim_Update.Enabled := true;
113		- FFile := TdzFile.Create(_Filename);
114		- FFile.OpenReadonly;
115		-end;
116		-
117		-procedure Tf_LargeTextViewer.mi_ExitClick(Sender: TObject);
118		-begin
119		- Close;
120		-end;
121		-
122		-procedure Tf_LargeTextViewer.OpenFile;
123		-begin
124		- TheOpenDialog.Filter := 'all files (.)\|.';
125		- if not TheOpenDialog.Execute then
126		- exit;
127		- LoadFile(TheOpenDialog.FileName);
128		-end;
129		-
130		-procedure Tf_LargeTextViewer.mi_OpenClick(Sender: TObject);
131		-begin
132		- OpenFile;
133		-end;
134		-
135		-procedure Tf_LargeTextViewer.sg_DisplayGetNonfixedCellData(_Sender: TObject; _DataCol, _DataRow: Integer;
136		- _State: TGridDrawState; var _Text: string; var _HAlign: TAlignment; var _VAlign: TdzCellVertAlign;
137		- _Font: TFont; var _Color: TColor);
138		-var
139		- SeekIdx: Int64;
140		- s: string;
141		-begin
142		- if not Assigned(FIndexer) or (FIndexer.LineIndexCount < _DataRow) then
143		- exit;
144		- SeekIdx := FIndexer.LineIndex[_DataRow];
145		- FFile.Position := SeekIdx;
146		- TStream_ReadStringLn(FFile, s);
147		- _Text := s;
148		-end;
149		-
150		-procedure Tf_LargeTextViewer.sg_DisplayResize(Sender: TObject);
151		-begin
152		- sg_Display.ColWidths[0] := sg_Display.ClientWidth;
153		-end;
154		-
155		-procedure Tf_LargeTextViewer.tim_UpdateTimer(Sender: TObject);
156		-var
157		- LineCount: integer;
158		-begin
159		- LineCount := FIndexer.LineIndexCount;
160		- sg_Display.RowCount := LineCount;
161		- if FIndexer.isDone then begin
162		- tim_Update.Enabled := false;
163		- TheStatusBar.SimpleText := Format(_('%d lines'), [LineCount]);
164		- end else
165		- TheStatusBar.SimpleText := Format(_('Indexing (%d lines)'), [LineCount]);
166		-end;
167		-
168		-end.
169		-

--- trunk/trunk/tools/LargeTextViewer/src/u_TextFileIndexer.pas (revision 245)

+++ trunk/trunk/tools/LargeTextViewer/src/u_TextFileIndexer.pas (nonexistent)

		@@ -1,121 +0,0 @@
1		-unit u_TextFileIndexer;
2		-
3		-interface
4		-
5		-uses
6		- SysUtils,
7		- Classes,
8		- u_Int64List,
9		- u_dzCriticalSection;
10		-
11		-type
12		- TTextFileIndexer = class
13		- private
14		- FCritSect: TdzCriticalSection;
15		- FLineIndexes: TInt64List;
16		- FIsDone: boolean;
17		- FFilename: string;
18		- FAbortRequested: Boolean;
19		- function GetLineIndex(_Idx: integer): Int64;
20		- function GetLineIndexCount: integer;
21		- public
22		- constructor Create(const _Filename: string);
23		- destructor Destroy; override;
24		- procedure Execute;
25		- procedure Abort;
26		- property LineIndex[_Idx: integer]: Int64 read GetLineIndex;
27		- property LineIndexCount: integer read GetLineIndexCount;
28		- property isDone: boolean read FIsDone;
29		- end;
30		-
31		-implementation
32		-
33		-uses
34		- u_dzFileStreams;
35		-
36		-{ TTextFileIndexer }
37		-
38		-constructor TTextFileIndexer.Create(const _Filename: string);
39		-begin
40		- inherited Create;
41		- FLineIndexes := TInt64List.Create;
42		- FFilename := _Filename;
43		- FCritSect := TdzCriticalSection.Create;
44		-end;
45		-
46		-destructor TTextFileIndexer.Destroy;
47		-begin
48		- FreeAndNil(FCritSect);
49		- FreeAndNil(FLineIndexes);
50		- inherited;
51		-end;
52		-
53		-procedure TTextFileIndexer.Execute;
54		-const
55		- BUFFER_SIZE = 1024 * 128;
56		-var
57		- st: TdzFile;
58		- buffer: array[0..BUFFER_SIZE - 1] of char;
59		- Offset: Int64;
60		- BytesRead: Integer;
61		- i: Integer;
62		-begin
63		- FAbortRequested := False;
64		- FIsDone := False;
65		- st := TdzFile.Create(FFilename);
66		- try
67		- st.OpenReadonly;
68		- FCritSect.Enter;
69		- try
70		- FLineIndexes.Add(0);
71		- finally
72		- FCritSect.Leave;
73		- end;
74		- while not st.EOF do begin
75		- Offset := st.Position;
76		- BytesRead := st.Read(Buffer, SizeOf(Buffer));
77		- for i := 0 to BytesRead - 1 do
78		- if buffer[i] = #10 then begin
79		- FCritSect.Enter;
80		- try
81		- FLineIndexes.Add(Offset + i + 1);
82		- finally
83		- FCritSect.Leave;
84		- end;
85		- end;
86		- if FAbortRequested then
87		- SysUtils.Abort;
88		- end;
89		- finally
90		- FreeAndNil(st);
91		- end;
92		- FIsDone := true;
93		-end;
94		-
95		-function TTextFileIndexer.GetLineIndex(_Idx: integer): Int64;
96		-begin
97		- FCritSect.Enter;
98		- try
99		- Result := FLineIndexes.Items[_Idx];
100		- finally
101		- FCritSect.Leave;
102		- end;
103		-end;
104		-
105		-function TTextFileIndexer.GetLineIndexCount: integer;
106		-begin
107		- FCritSect.Enter;
108		- try
109		- Result := FLineIndexes.Count;
110		- finally
111		- FCritSect.Leave;
112		- end;
113		-end;
114		-
115		-procedure TTextFileIndexer.Abort;
116		-begin
117		- FAbortRequested := true;
118		-end;
119		-
120		-end.
121		-

Show on old repository browser