Changeset 64


Ignore:
Timestamp:
Oct 8, 2010, 10:27:42 AM (14 years ago)
Author:
george
Message:
  • Přidáno: Třídy TBufferedFileStream.
Files:
2 added
3 edited

Legend:

Unmodified
Added
Removed
  • Docking/CoolDocking/UCoolDocking.pas

    r63 r64  
    10291029  R: TRect;
    10301030begin
    1031   if (csDestroyingHandle in ControlState) then
     1031  if not (csDesigning in ComponentState) then
    10321032  if Assigned(Control) then begin
    10331033    R := Control.ClientRect;
     
    11931193  LayoutFile: TFileStream;
    11941194begin
    1195   if FileExistsUTF8(FileName) then
    1196   LayoutFile := TFileStream.Create(FileName, fmOpenReadWrite)
    1197   else LayoutFile := TFileStream.Create(FileName, fmCreate);
    11981195  try
     1196    if FileExistsUTF8(FileName) then
     1197    LayoutFile := TFileStream.Create(FileName, fmOpenReadWrite)
     1198    else LayoutFile := TFileStream.Create(FileName, fmCreate);
    11991199    SaveLayoutToStream(LayoutFile);
    12001200  finally
    1201     Free;
     1201    LayoutFile.Free;
    12021202  end;
    12031203end;
  • ExceptionLogger/CustomLineInfo.pas

    r40 r64  
    9494        exit;
    9595    end;
     96  if ptruint(BaseAddr) < e.processaddress then Exit;
     97
    9698  e.processaddress := ptruint(baseaddr) - e.processaddress;
    9799  StabsFunctionRelative := E.FunctionRelative;
  • ExceptionLogger/UExceptionForm.lfm

    r40 r64  
    3636    Top = 3
    3737    Width = 678
    38     ActivePage = TabSheet2
     38    ActivePage = TabSheet1
    3939    Anchors = [akTop, akLeft, akRight, akBottom]
    40     TabIndex = 1
     40    TabIndex = 0
    4141    TabOrder = 2
    4242    object TabSheet1: TTabSheet
    4343      Caption = 'General'
    4444      ClientHeight = 251
    45       ClientWidth = 661
     45      ClientWidth = 670
    4646      object MemoExceptionInfo: TMemo
    4747        Left = 4
    4848        Height = 236
    4949        Top = 3
    50         Width = 655
     50        Width = 664
    5151        Anchors = [akTop, akLeft, akRight, akBottom]
    5252        ReadOnly = True
     
    102102    Left = 10
    103103    Height = 17
    104     Top = 298
     104    Top = 288
    105105    Width = 169
    106106    Anchors = [akLeft, akBottom]
Note: See TracChangeset for help on using the changeset viewer.