Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | The Text Preview engine cares as little about file locks as possible. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | develop |
Files: | files | file ages | folders |
SHA1: |
2d46e0b905c216535372821c0e910e5c |
User & Date: | Martijn 2015-09-04 19:46:48.244 |
Context
2015-09-09
| ||
10:45 | Auto-update form keeps track of the current executable and version up front, and uses that when necessary. check-in: 11941c0935 user: tinus tags: develop | |
2015-09-04
| ||
19:46 | The Text Preview engine cares as little about file locks as possible. check-in: 2d46e0b905 user: Martijn tags: develop | |
2015-08-12
| ||
11:08 | Prepare for refactoring of auto-update to enable showing UI all along (including a progress bar). check-in: ceddd9826e user: tinus tags: develop | |
Changes
Changes to ZPreview/src/Delphi/F_PE_Text.pas.
︙ | ︙ | |||
115 116 117 118 119 120 121 122 123 124 125 126 127 128 | finally Reg.Free; end; end {TTextRenderer.CouldShowFile}; { ------------------------------------------------------------------------------------------------ } function TTextRenderer.TryShowFile(const FileName: string): boolean; begin with TfrmPEText(Form).rtePreview do begin Lines.BeginUpdate; try Clear; PlainText := True; Font.Assign(FFont); | > > > > | > > > | 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 | finally Reg.Free; end; end {TTextRenderer.CouldShowFile}; { ------------------------------------------------------------------------------------------------ } function TTextRenderer.TryShowFile(const FileName: string): boolean; var FS: TStream; begin with TfrmPEText(Form).rtePreview do begin Lines.BeginUpdate; try Clear; PlainText := True; Font.Assign(FFont); FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone); try Lines.LoadFromStream(FS); finally FS.Free; end; finally Lines.EndUpdate; end; end; Result := True; end {TTextRenderer.TryShowFile}; |
︙ | ︙ | |||
158 159 160 161 162 163 164 165 166 167 168 169 | function TRichTextRenderer.CouldShowFile(const FileName: string): boolean; begin Result := SameFileName(ExtractFileExt(FileName), '.rtf'); end {TRichTextRenderer.CouldShowFile}; { ------------------------------------------------------------------------------------------------ } function TRichTextRenderer.TryShowFile(const FileName: string): boolean; begin with TfrmPEText(Form).rtePreview do begin Lines.BeginUpdate; try PlainText := False; | > > > > | > > > | 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 | function TRichTextRenderer.CouldShowFile(const FileName: string): boolean; begin Result := SameFileName(ExtractFileExt(FileName), '.rtf'); end {TRichTextRenderer.CouldShowFile}; { ------------------------------------------------------------------------------------------------ } function TRichTextRenderer.TryShowFile(const FileName: string): boolean; var FS: TStream; begin with TfrmPEText(Form).rtePreview do begin Lines.BeginUpdate; try PlainText := False; FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone); try Lines.LoadFromStream(FS); finally FS.Free; end; finally Lines.EndUpdate; end; end; Result := True; end {TRichTextRenderer.TryShowFile}; |
︙ | ︙ |