| Revision | 251 (tree) |
|---|---|
| Zeit | 2013-02-17 21:06:33 |
| Autor | twm |
added patches from Daniela Osterhagen for displaying line numbers
trunk/src/dzLargeTextViewer_version.ini (diff) trunk/src/w_LargeTextViewer.dfm (diff)
trunk/src/w_LargeTextViewer.pas (diff)
trunk/src| @@ -1,6 +1,6 @@ | ||
| 1 | 1 | [Version Info] |
| 2 | 2 | AutoIncBuild=0 |
| 3 | -Build=4 | |
| 3 | +Build=16 | |
| 4 | 4 | MajorVer=1 |
| 5 | 5 | MinorVer=0 |
| 6 | 6 | Release=0 |
| @@ -7,7 +7,7 @@ | ||
| 7 | 7 | Revision=0 |
| 8 | 8 | |
| 9 | 9 | [Version Info Keys] |
| 10 | -FileVersion=1.0.0.4 | |
| 10 | +FileVersion=1.0.0.16 | |
| 11 | 11 | ProductVersion={today} |
| 12 | 12 | FileDescription=Viewer for large text files |
| 13 | 13 | OriginalFilename=dzLargeTextViewer.exe |
| @@ -48,6 +48,9 @@ | ||
| 48 | 48 | procedure tim_UpdateTimer(Sender: TObject); |
| 49 | 49 | procedure mi_OpenClick(Sender: TObject); |
| 50 | 50 | procedure mi_ExitClick(Sender: TObject); |
| 51 | + procedure sg_DisplayGetRowHead(_Sender: TObject; _Row: Integer; _State: TGridDrawState; | |
| 52 | + var _Text: string; var _HAlign: TAlignment; var _VAlign: TdzCellVertAlign; _Font: TFont; | |
| 53 | + var _Color: TColor); | |
| 51 | 54 | private |
| 52 | 55 | FIndexer: TTextFileIndexer; |
| 53 | 56 | FIndexThread: TIndexerThread; |
| @@ -139,7 +142,7 @@ | ||
| 139 | 142 | SeekIdx: Int64; |
| 140 | 143 | s: string; |
| 141 | 144 | begin |
| 142 | - if not Assigned(FIndexer) or (FIndexer.LineIndexCount < _DataRow) then | |
| 145 | + if not Assigned(FIndexer) or (FIndexer.LineIndexCount <= _DataRow) then | |
| 143 | 146 | exit; |
| 144 | 147 | SeekIdx := FIndexer.LineIndex[_DataRow]; |
| 145 | 148 | FFile.Position := SeekIdx; |
| @@ -147,9 +150,17 @@ | ||
| 147 | 150 | _Text := s; |
| 148 | 151 | end; |
| 149 | 152 | |
| 153 | +procedure Tf_LargeTextViewer.sg_DisplayGetRowHead(_Sender: TObject; _Row: Integer; | |
| 154 | + _State: TGridDrawState; var _Text: string; var _HAlign: TAlignment; var _VAlign: TdzCellVertAlign; | |
| 155 | + _Font: TFont; var _Color: TColor); | |
| 156 | +begin | |
| 157 | + _Text := IntToStr(_row - (_sender as TdzVirtualStringGrid).FixedRows + 1); | |
| 158 | + _HAlign := taRightJustify; | |
| 159 | +end; | |
| 160 | + | |
| 150 | 161 | procedure Tf_LargeTextViewer.sg_DisplayResize(Sender: TObject); |
| 151 | 162 | begin |
| 152 | - sg_Display.ColWidths[0] := sg_Display.ClientWidth; | |
| 163 | + sg_Display.ColWidths[1] := sg_Display.ClientWidth - sg_Display.ColWidths[0]; | |
| 153 | 164 | end; |
| 154 | 165 | |
| 155 | 166 | procedure Tf_LargeTextViewer.tim_UpdateTimer(Sender: TObject); |
