Check-in [2d46e0b905]
Not logged in

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: 2d46e0b905c216535372821c0e910e5c289af694
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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};