Changeset 329


Ignore:
Timestamp:
Feb 20, 2012, 10:01:11 AM (13 years ago)
Author:
chronos
Message:
  • Modified: TLastOpenedList registry handling methods now do not use custom key subpath.
  • Added: TRectangle class with extended TRect like functionality.
Location:
Common
Files:
1 added
6 edited

Legend:

Unmodified
Added
Removed
  • Common/Languages/UDebugLog.po

    r328 r329  
    44#: udebuglog.sfilenamenotdefined
    55msgid "Filename not defined"
    6 msgstr ""
     6msgstr "Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8"
    77
  • Common/Languages/UPool.po

    r328 r329  
    44#: upool.sobjectpoolempty
    55msgid "Object pool is empty"
    6 msgstr ""
     6msgstr "Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8"
    77
    88#: upool.sreleaseerror
  • Common/Languages/UResetableThread.po

    r328 r329  
    44#: uresetablethread.swaiterror
    55msgid "WaitFor error"
    6 msgstr ""
     6msgstr "Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8"
    77
  • Common/Languages/UThreading.po

    r328 r329  
    44#: uthreading.scurrentthreadnotfound
    55msgid "Current thread ID %d not found in virtual thread list."
    6 msgstr ""
     6msgstr "Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8"
    77
  • Common/ULastOpenedList.pas

    r328 r329  
    6565  try
    6666    RootKey := Root;
    67     OpenKey(Key + '\LastOpenedFiles', True);
     67    OpenKey(Key, True);
    6868    Clear;
    6969    I := 0;
     
    8686  with Registry do
    8787  try
    88     OpenKey(Key + '\LastOpenedFiles', True);
     88    OpenKey(Key, True);
    8989    for I := 0 to Count - 1 do
    9090      WriteString('File' + IntToStr(I), UTF8Decode(Strings[I]));
  • Common/UResetableThread.pas

    r299 r329  
    5353    FOnException: TExceptionEvent;
    5454    procedure MethodFinish(Sender: TObject);
    55     procedure ThreadException(Sender: TObject; E: Exception);
    5655  protected
    5756    function NewItemObject: TObject; override;
     
    5958    LastExceptionClass: TClass;
    6059    LastExceptionMessage: string;
     60    procedure ThreadException(Sender: TObject; E: Exception);
    6161    procedure CheckException;
    6262    procedure WaitForEmpty;
Note: See TracChangeset for help on using the changeset viewer.