Changeset 10 for trunk/ScreenTools.pas

Timestamp:

Jan 7, 2017, 2:33:20 PM (8 years ago)

Author:

chronos

Message:

• Modified: Created CevoComponents ackage for installable custom components.
• Fixed: Compile time range check error.
• Added: Heaptrace check and fixed some memory leaks.
• Fixed: MaskD function.

File:

• trunk/ScreenTools.pas (modified) (2 diffs)

trunk/ScreenTools.pas

@@ -1500 +1500 @@
   Phrases2.loadfromfile(HomeDir + 'Language2.txt');
 end;
+
 Sounds := TStringTable.create;
 if not Sounds.loadfromfile(HomeDir + 'Sounds\sound.txt') then
@@ -1592 +1593 @@
   UniFont[section].Free;
 Phrases.Free;
+FreeAndNil(Phrases2);
 if Sounds <> nil then
   Sounds.Free;