Changeset 265

Timestamp:

Aug 22, 2011, 8:24:23 AM (13 years ago)

Author:

george

Message:

• Modified: Fixed ResourceStrings of ExceptionLogger.

Location:

ExceptionLogger

Files:

• UExceptionForm.lfm (modified) (1 diff)
• UExceptionForm.pas (modified) (1 diff)
• UExceptionLogger.pas (modified) (3 diffs)
• languages/UExceptionLogger.cs.po (modified) (3 diffs)
• languages/UExceptionLogger.po (modified) (4 diffs)

ExceptionLogger/UExceptionForm.lfm

@@ -271 +271 @@
     end
     object ButtonDetails: TButton
-      Left = 224
+      Left = 216
       Height = 25
       Top = 4
-      Width = 67
+      Width = 75
       Anchors = [akRight, akBottom]
       Caption = 'Details'

ExceptionLogger/UExceptionForm.pas

@@ -52 +52 @@
 procedure TExceptionForm.FormShow(Sender: TObject);
 begin
+  Caption := SExceptionInfo;
+  PageControl1.Pages[0].Caption := SGeneral;
+  PageControl1.Pages[1].Caption := SCallStack;
+  Label1.Caption := SErrorOccured;
+  ButtonClose.Caption := SClose;
+  ButtonDetails.Caption := SDetails;
+  ButtonKill.Caption := STerminate;
+  CheckBoxIgnore.Caption := SIgnoreNextTime;
+  ListView1.Column[0].Caption := SIndex;
+  ListView1.Column[1].Caption := SAddress;
+  ListView1.Column[2].Caption := SLine;
+  ListView1.Column[3].Caption := SClass;
+  ListView1.Column[4].Caption := SProcedureMethod;
+  ListView1.Column[5].Caption := SUnit;
+
   Height := PanelBasic.Height + PanelButtons.Height;
   PageControl1.ActivePageIndex := 0;

ExceptionLogger/UExceptionLogger.pas

@@ -41 +41 @@
 procedure Register;
 
-implementation
-
-uses
-  UExceptionForm;
-
 resourcestring
   SExceptionClass = 'Class';
@@ -54 +49 @@
   SThreadID = 'Thread ID';
   SVersion = 'Version';
+  SCallStack = 'Call stack';
+  SGeneral = 'General';
+  SErrorOccured = 'Error occured during program execution:';
+  STerminate = 'Terminate';
+  SClose = 'Close';
+  SDetails = 'Details';
+  SIgnoreNextTime = 'Next time ignore this exception';
+  SExceptionInfo = 'Exception info';
+  SIndex = 'Index';
+  SAddress = 'Address';
+  SLine = 'Line';
+  SClass = 'Class';
+  SProcedureMethod = 'Procedure/method';
+  SUnit = 'Unit';
+
+implementation
+
+uses
+  UExceptionForm;
 
 procedure Register;
@@ -143 +157 @@
 
 procedure TExceptionLogger.ExceptionHandler(Sender: TObject; E: Exception);
-var
-  Thread: TThread;
 begin
   BackTraceStrFunc := @StabBackTraceStr;

ExceptionLogger/languages/UExceptionLogger.cs.po

@@ -10 +10 @@
 "Content-Transfer-Encoding: 8bit\n"
 
+#: uexceptionlogger.saddress
+msgid "Address"
+msgstr "Adresa"
+
 #: uexceptionlogger.sapplication
 msgid "Application"
 msgstr "Aplikace"
 
-#: uexceptionlogger.sexceptionclass
+#: uexceptionlogger.scallstack
+msgid "Call stack"
+msgstr "Volací zásobník"
+
+#: uexceptionlogger.sclass
+msgctxt "uexceptionlogger.sclass"
 msgid "Class"
 msgstr "Třída"
+
+#: uexceptionlogger.sclose
+msgid "Close"
+msgstr "Zavřít"
+
+#: uexceptionlogger.sdetails
+msgid "Details"
+msgstr "Podrobnosti"
+
+#: uexceptionlogger.serroroccured
+msgid "Error occured during program execution:"
+msgstr "Došlo k chybě při vykonávání programu:"
+
+#: uexceptionlogger.sexceptionclass
+msgctxt "uexceptionlogger.sexceptionclass"
+msgid "Class"
+msgstr "Třída"
+
+#: uexceptionlogger.sexceptioninfo
+msgid "Exception info"
+msgstr "Informace výjimky"
+
+#: uexceptionlogger.sgeneral
+msgid "General"
+msgstr "Obecné"
+
+#: uexceptionlogger.signorenexttime
+msgid "Next time ignore this exception"
+msgstr "Příště ignorovat tuto výjimku"
+
+#: uexceptionlogger.sindex
+msgid "Index"
+msgstr "Index"
+
+#: uexceptionlogger.sline
+msgid "Line"
+msgstr "Řádek"
 
 #: uexceptionlogger.smessage
@@ -22 +68 @@
 msgstr "Zpráva"
 
+#: uexceptionlogger.sproceduremethod
+msgid "Procedure/method"
+msgstr "Procedure/metoda"
+
 #: uexceptionlogger.sprocessid
 msgid "Process ID"
 msgstr "ID procesu"
+
+#: uexceptionlogger.sterminate
+msgid "Terminate"
+msgstr "Přerušit"
 
 #: uexceptionlogger.sthreadid
@@ -34 +88 @@
 msgstr "Čas"
 
+#: uexceptionlogger.sunit
+msgid "Unit"
+msgstr "Jednotka"
+
 #: uexceptionlogger.sversion
 msgid "Version"

ExceptionLogger/languages/UExceptionLogger.po

@@ -1 +1 @@
 msgid ""
 msgstr "Content-Type: text/plain; charset=UTF-8"
+
+#: uexceptionlogger.saddress
+msgid "Address"
+msgstr ""
 
 #: uexceptionlogger.sapplication
@@ -6 +10 @@
 msgstr ""
 
+#: uexceptionlogger.scallstack
+msgid "Call stack"
+msgstr ""
+
+#: uexceptionlogger.sclass
+msgctxt "uexceptionlogger.sclass"
+msgid "Class"
+msgstr ""
+
+#: uexceptionlogger.sclose
+msgid "Close"
+msgstr ""
+
+#: uexceptionlogger.sdetails
+msgid "Details"
+msgstr ""
+
+#: uexceptionlogger.serroroccured
+msgid "Error occured during program execution:"
+msgstr ""
+
 #: uexceptionlogger.sexceptionclass
+msgctxt "uexceptionlogger.sexceptionclass"
 msgid "Class"
+msgstr ""
+
+#: uexceptionlogger.sexceptioninfo
+msgid "Exception info"
+msgstr ""
+
+#: uexceptionlogger.sgeneral
+msgid "General"
+msgstr ""
+
+#: uexceptionlogger.signorenexttime
+msgid "Next time ignore this exception"
+msgstr ""
+
+#: uexceptionlogger.sindex
+msgid "Index"
+msgstr ""
+
+#: uexceptionlogger.sline
+msgid "Line"
 msgstr ""
 
@@ -14 +60 @@
 msgstr ""
 
+#: uexceptionlogger.sproceduremethod
+msgid "Procedure/method"
+msgstr ""
+
 #: uexceptionlogger.sprocessid
 msgid "Process ID"
+msgstr ""
+
+#: uexceptionlogger.sterminate
+msgid "Terminate"
 msgstr ""
 
@@ -26 +80 @@
 msgstr ""
 
+#: uexceptionlogger.sunit
+msgid "Unit"
+msgstr ""
+
 #: uexceptionlogger.sversion
 msgid "Version"