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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | develop |
| Files: | files | file ages | folders |
| SHA1: | 2d46e0b905c216535372821c0e910e5c |
| User & Date: | Martijn 2015-09-04 19:46:48 |
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
129
130
131
132
133
134
135
136
...
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
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);
Lines.LoadFromFile(FileName);
finally
Lines.EndUpdate;
end;
end;
Result := True;
end {TTextRenderer.TryShowFile};
................................................................................
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;
Lines.LoadFromFile(FileName);
finally
Lines.EndUpdate;
end;
end;
Result := True;
end {TRichTextRenderer.TryShowFile};
|
>
>
>
>
|
>
>
>
>
>
>
>
|
>
>
>
|
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
...
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
|
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};
................................................................................
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};
|