Changeset 295 for ExceptionLogger


Ignore:
Timestamp:
Nov 15, 2011, 8:46:43 AM (13 years ago)
Author:
george
Message:
  • Moved: Units UPool and UResetableThread moved from CoolWeb to Common. Both units redone to more abstract reprezentation.
  • Added: New Port property in class TSqlDatabase.
Location:
ExceptionLogger
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ExceptionLogger/ExceptionLogger.lpk

    r281 r295  
    6565    </i18n>
    6666    <Type Value="RunAndDesignTime"/>
    67     <RequiredPkgs Count="127">
     67    <RequiredPkgs Count="2">
    6868      <Item1>
    6969        <PackageName Value="LCL"/>
    7070      </Item1>
    7171      <Item2>
    72         <PackageName Value="LCL"/>
    73       </Item2>
    74       <Item3>
    75         <PackageName Value="LCL"/>
    76       </Item3>
    77       <Item4>
    78         <PackageName Value="LCL"/>
    79       </Item4>
    80       <Item5>
    81         <PackageName Value="LCL"/>
    82       </Item5>
    83       <Item6>
    84         <PackageName Value="LCL"/>
    85       </Item6>
    86       <Item7>
    87         <PackageName Value="LCL"/>
    88       </Item7>
    89       <Item8>
    90         <PackageName Value="LCL"/>
    91       </Item8>
    92       <Item9>
    93         <PackageName Value="LCL"/>
    94       </Item9>
    95       <Item10>
    96         <PackageName Value="LCL"/>
    97       </Item10>
    98       <Item11>
    99         <PackageName Value="LCL"/>
    100       </Item11>
    101       <Item12>
    102         <PackageName Value="LCL"/>
    103       </Item12>
    104       <Item13>
    105         <PackageName Value="LCL"/>
    106       </Item13>
    107       <Item14>
    108         <PackageName Value="LCL"/>
    109       </Item14>
    110       <Item15>
    111         <PackageName Value="LCL"/>
    112       </Item15>
    113       <Item16>
    114         <PackageName Value="LCL"/>
    115       </Item16>
    116       <Item17>
    117         <PackageName Value="LCL"/>
    118       </Item17>
    119       <Item18>
    120         <PackageName Value="LCL"/>
    121       </Item18>
    122       <Item19>
    123         <PackageName Value="LCL"/>
    124       </Item19>
    125       <Item20>
    126         <PackageName Value="LCL"/>
    127       </Item20>
    128       <Item21>
    129         <PackageName Value="LCL"/>
    130       </Item21>
    131       <Item22>
    132         <PackageName Value="LCL"/>
    133       </Item22>
    134       <Item23>
    135         <PackageName Value="LCL"/>
    136       </Item23>
    137       <Item24>
    138         <PackageName Value="LCL"/>
    139       </Item24>
    140       <Item25>
    141         <PackageName Value="LCL"/>
    142       </Item25>
    143       <Item26>
    144         <PackageName Value="LCL"/>
    145       </Item26>
    146       <Item27>
    147         <PackageName Value="LCL"/>
    148       </Item27>
    149       <Item28>
    150         <PackageName Value="LCL"/>
    151       </Item28>
    152       <Item29>
    153         <PackageName Value="LCL"/>
    154       </Item29>
    155       <Item30>
    156         <PackageName Value="LCL"/>
    157       </Item30>
    158       <Item31>
    159         <PackageName Value="LCL"/>
    160       </Item31>
    161       <Item32>
    162         <PackageName Value="LCL"/>
    163       </Item32>
    164       <Item33>
    165         <PackageName Value="LCL"/>
    166       </Item33>
    167       <Item34>
    168         <PackageName Value="LCL"/>
    169       </Item34>
    170       <Item35>
    171         <PackageName Value="LCL"/>
    172       </Item35>
    173       <Item36>
    174         <PackageName Value="LCL"/>
    175       </Item36>
    176       <Item37>
    177         <PackageName Value="LCL"/>
    178       </Item37>
    179       <Item38>
    180         <PackageName Value="LCL"/>
    181       </Item38>
    182       <Item39>
    183         <PackageName Value="LCL"/>
    184       </Item39>
    185       <Item40>
    186         <PackageName Value="LCL"/>
    187       </Item40>
    188       <Item41>
    189         <PackageName Value="LCL"/>
    190       </Item41>
    191       <Item42>
    192         <PackageName Value="LCL"/>
    193       </Item42>
    194       <Item43>
    195         <PackageName Value="LCL"/>
    196       </Item43>
    197       <Item44>
    198         <PackageName Value="LCL"/>
    199       </Item44>
    200       <Item45>
    201         <PackageName Value="LCL"/>
    202       </Item45>
    203       <Item46>
    204         <PackageName Value="LCL"/>
    205       </Item46>
    206       <Item47>
    207         <PackageName Value="LCL"/>
    208       </Item47>
    209       <Item48>
    210         <PackageName Value="LCL"/>
    211       </Item48>
    212       <Item49>
    213         <PackageName Value="LCL"/>
    214       </Item49>
    215       <Item50>
    216         <PackageName Value="LCL"/>
    217       </Item50>
    218       <Item51>
    219         <PackageName Value="LCL"/>
    220       </Item51>
    221       <Item52>
    222         <PackageName Value="LCL"/>
    223       </Item52>
    224       <Item53>
    225         <PackageName Value="LCL"/>
    226       </Item53>
    227       <Item54>
    228         <PackageName Value="LCL"/>
    229       </Item54>
    230       <Item55>
    231         <PackageName Value="LCL"/>
    232       </Item55>
    233       <Item56>
    234         <PackageName Value="LCL"/>
    235       </Item56>
    236       <Item57>
    237         <PackageName Value="LCL"/>
    238       </Item57>
    239       <Item58>
    240         <PackageName Value="LCL"/>
    241       </Item58>
    242       <Item59>
    243         <PackageName Value="LCL"/>
    244       </Item59>
    245       <Item60>
    246         <PackageName Value="LCL"/>
    247       </Item60>
    248       <Item61>
    249         <PackageName Value="LCL"/>
    250       </Item61>
    251       <Item62>
    252         <PackageName Value="LCL"/>
    253       </Item62>
    254       <Item63>
    255         <PackageName Value="LCL"/>
    256       </Item63>
    257       <Item64>
    258         <PackageName Value="LCL"/>
    259       </Item64>
    260       <Item65>
    261         <PackageName Value="LCL"/>
    262       </Item65>
    263       <Item66>
    264         <PackageName Value="LCL"/>
    265       </Item66>
    266       <Item67>
    267         <PackageName Value="LCL"/>
    268       </Item67>
    269       <Item68>
    270         <PackageName Value="LCL"/>
    271       </Item68>
    272       <Item69>
    273         <PackageName Value="LCL"/>
    274       </Item69>
    275       <Item70>
    276         <PackageName Value="LCL"/>
    277       </Item70>
    278       <Item71>
    279         <PackageName Value="LCL"/>
    280       </Item71>
    281       <Item72>
    282         <PackageName Value="LCL"/>
    283       </Item72>
    284       <Item73>
    285         <PackageName Value="LCL"/>
    286       </Item73>
    287       <Item74>
    288         <PackageName Value="LCL"/>
    289       </Item74>
    290       <Item75>
    291         <PackageName Value="LCL"/>
    292       </Item75>
    293       <Item76>
    294         <PackageName Value="LCL"/>
    295       </Item76>
    296       <Item77>
    297         <PackageName Value="LCL"/>
    298       </Item77>
    299       <Item78>
    300         <PackageName Value="LCL"/>
    301       </Item78>
    302       <Item79>
    303         <PackageName Value="LCL"/>
    304       </Item79>
    305       <Item80>
    306         <PackageName Value="LCL"/>
    307       </Item80>
    308       <Item81>
    309         <PackageName Value="LCL"/>
    310       </Item81>
    311       <Item82>
    312         <PackageName Value="LCL"/>
    313       </Item82>
    314       <Item83>
    315         <PackageName Value="LCL"/>
    316       </Item83>
    317       <Item84>
    318         <PackageName Value="LCL"/>
    319       </Item84>
    320       <Item85>
    321         <PackageName Value="LCL"/>
    322       </Item85>
    323       <Item86>
    324         <PackageName Value="LCL"/>
    325       </Item86>
    326       <Item87>
    327         <PackageName Value="LCL"/>
    328       </Item87>
    329       <Item88>
    330         <PackageName Value="LCL"/>
    331       </Item88>
    332       <Item89>
    333         <PackageName Value="LCL"/>
    334       </Item89>
    335       <Item90>
    336         <PackageName Value="LCL"/>
    337       </Item90>
    338       <Item91>
    339         <PackageName Value="LCL"/>
    340       </Item91>
    341       <Item92>
    342         <PackageName Value="LCL"/>
    343       </Item92>
    344       <Item93>
    345         <PackageName Value="LCL"/>
    346       </Item93>
    347       <Item94>
    348         <PackageName Value="LCL"/>
    349       </Item94>
    350       <Item95>
    351         <PackageName Value="LCL"/>
    352       </Item95>
    353       <Item96>
    354         <PackageName Value="LCL"/>
    355       </Item96>
    356       <Item97>
    357         <PackageName Value="LCL"/>
    358       </Item97>
    359       <Item98>
    360         <PackageName Value="LCL"/>
    361       </Item98>
    362       <Item99>
    363         <PackageName Value="LCL"/>
    364       </Item99>
    365       <Item100>
    366         <PackageName Value="LCL"/>
    367       </Item100>
    368       <Item101>
    369         <PackageName Value="LCL"/>
    370       </Item101>
    371       <Item102>
    372         <PackageName Value="LCL"/>
    373       </Item102>
    374       <Item103>
    375         <PackageName Value="LCL"/>
    376       </Item103>
    377       <Item104>
    378         <PackageName Value="LCL"/>
    379       </Item104>
    380       <Item105>
    381         <PackageName Value="LCL"/>
    382       </Item105>
    383       <Item106>
    384         <PackageName Value="LCL"/>
    385       </Item106>
    386       <Item107>
    387         <PackageName Value="LCL"/>
    388       </Item107>
    389       <Item108>
    390         <PackageName Value="LCL"/>
    391       </Item108>
    392       <Item109>
    393         <PackageName Value="LCL"/>
    394       </Item109>
    395       <Item110>
    396         <PackageName Value="LCL"/>
    397       </Item110>
    398       <Item111>
    399         <PackageName Value="LCL"/>
    400       </Item111>
    401       <Item112>
    402         <PackageName Value="LCL"/>
    403       </Item112>
    404       <Item113>
    405         <PackageName Value="LCL"/>
    406       </Item113>
    407       <Item114>
    408         <PackageName Value="LCL"/>
    409       </Item114>
    410       <Item115>
    411         <PackageName Value="LCL"/>
    412       </Item115>
    413       <Item116>
    414         <PackageName Value="LCL"/>
    415       </Item116>
    416       <Item117>
    417         <PackageName Value="LCL"/>
    418       </Item117>
    419       <Item118>
    420         <PackageName Value="LCL"/>
    421       </Item118>
    422       <Item119>
    423         <PackageName Value="LCL"/>
    424       </Item119>
    425       <Item120>
    426         <PackageName Value="LCL"/>
    427       </Item120>
    428       <Item121>
    429         <PackageName Value="LCL"/>
    430       </Item121>
    431       <Item122>
    432         <PackageName Value="LCL"/>
    433       </Item122>
    434       <Item123>
    435         <PackageName Value="LCL"/>
    436       </Item123>
    437       <Item124>
    438         <PackageName Value="LCL"/>
    439       </Item124>
    440       <Item125>
    441         <PackageName Value="LCL"/>
    442       </Item125>
    443       <Item126>
    444         <PackageName Value="LCL"/>
    445       </Item126>
    446       <Item127>
    44772        <PackageName Value="FCL"/>
    44873        <MinVersion Major="1" Valid="True"/>
    449       </Item127>
     74      </Item2>
    45075    </RequiredPkgs>
    45176    <UsageOptions>
  • ExceptionLogger/UExceptionForm.lfm

    r281 r295  
    11object ExceptionForm: TExceptionForm
    22  Left = 331
    3   Height = 316
     3  Height = 301
    44  Top = 184
    5   Width = 506
     5  Width = 457
    66  Caption = 'Exception info'
    7   ClientHeight = 316
    8   ClientWidth = 506
     7  ClientHeight = 301
     8  ClientWidth = 457
    99  OnCreate = FormCreate
    1010  OnDestroy = FormDestroy
     
    1616    Height = 80
    1717    Top = 0
    18     Width = 506
     18    Width = 457
    1919    Align = alTop
    2020    BevelOuter = bvNone
    2121    ClientHeight = 80
    22     ClientWidth = 506
     22    ClientWidth = 457
    2323    TabOrder = 0
    2424    object Image1: TImage
     
    135135    object Label1: TLabel
    136136      Left = 69
    137       Height = 18
     137      Height = 14
    138138      Top = 8
    139       Width = 260
     139      Width = 196
    140140      Caption = 'Error occured during program execution:'
    141141      ParentColor = False
     
    145145      Height = 46
    146146      Top = 24
    147       Width = 296
    148       Anchors = [akTop, akLeft, akBottom]
     147      Width = 370
     148      Anchors = [akTop, akLeft, akRight, akBottom]
    149149      AutoSize = False
    150150      Caption = '   '
     
    155155  object PanelDescription: TPanel
    156156    Left = 0
    157     Height = 204
     157    Height = 189
    158158    Top = 80
    159     Width = 506
     159    Width = 457
    160160    Align = alClient
    161161    BevelOuter = bvNone
    162     ClientHeight = 204
    163     ClientWidth = 506
     162    ClientHeight = 189
     163    ClientWidth = 457
    164164    TabOrder = 1
    165165    object PageControl1: TPageControl
    166166      Left = 8
    167       Height = 202
     167      Height = 187
    168168      Top = 0
    169       Width = 493
     169      Width = 444
    170170      ActivePage = TabSheet2
    171171      Anchors = [akTop, akLeft, akRight, akBottom]
     
    190190      object TabSheet2: TTabSheet
    191191        Caption = 'Call stack'
    192         ClientHeight = 167
    193         ClientWidth = 487
     192        ClientHeight = 161
     193        ClientWidth = 436
    194194        object ListView1: TListView
    195195          Left = 4
    196           Height = 157
     196          Height = 151
    197197          Top = 7
    198           Width = 481
     198          Width = 430
    199199          Anchors = [akTop, akLeft, akRight, akBottom]
    200200          Columns = <         
     
    234234    Left = 0
    235235    Height = 32
    236     Top = 284
    237     Width = 506
     236    Top = 269
     237    Width = 457
    238238    Align = alBottom
    239239    BevelOuter = bvNone
    240240    ClientHeight = 32
    241     ClientWidth = 506
     241    ClientWidth = 457
    242242    TabOrder = 2
    243243    object ButtonKill: TButton
    244       Left = 344
     244      Left = 295
    245245      Height = 25
    246246      Top = 3
     
    252252    end
    253253    object ButtonClose: TButton
    254       Left = 432
     254      Left = 383
    255255      Height = 25
    256256      Top = 3
     
    263263    object CheckBoxIgnore: TCheckBox
    264264      Left = 10
    265       Height = 22
    266       Top = 3
    267       Width = 224
     265      Height = 17
     266      Top = 8
     267      Width = 169
    268268      Anchors = [akLeft, akBottom]
    269269      Caption = 'Next time ignore this exception'
     
    271271    end
    272272    object ButtonDetails: TButton
    273       Left = 264
     273      Left = 215
    274274      Height = 25
    275275      Top = 3
Note: See TracChangeset for help on using the changeset viewer.