Changeset 423 for trunk/Components/RichTextLayoutUnit.pas
- Timestamp:
- Mar 5, 2019, 3:00:01 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Components/RichTextLayoutUnit.pas
r421 r423 75 75 76 76 Codepage: ULong; // ALT 77 78 // TEMP (ALT)79 DebugLog: TextFile;80 // TEMP (ALT)81 82 77 83 78 // Drawing functions … … 187 182 FRichTextSettings := RichTextSettings; 188 183 189 {190 AssignFile( DebugLog, 'parse.txt');191 ReWrite( DebugLog );192 WriteLn( DebugLog, 'Opened log for writing.');193 }194 195 184 FImages := Images; 196 185 … … 228 217 FreeMem( Flines, FAllocatedNumLines * sizeof( TLayoutLine ) ); 229 218 FLinks.Destroy; 230 231 {232 // TEMP (ALT)233 WriteLn( DebugLog, '=============================');234 CloseFile( DebugLog );235 // TEMP (ALT)236 }237 219 238 220 Inherited Destroy;
Note:
See TracChangeset
for help on using the changeset viewer.