Ignore:
Timestamp:
Feb 26, 2021, 11:56:48 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Use FreeAndNil instead of Free as defensive measure.
  • Modified: Use ihnerited without same method name specification.
Location:
trunk/Packages/CevoComponents
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/CevoComponents/AsyncProcess2.pas

    r287 r290  
    104104procedure TAsyncProcess.Execute;
    105105begin
    106   inherited Execute;
     106  inherited;
    107107
    108108  if poUsePipes in Options then

  • trunk/Packages/CevoComponents/BaseWin.pas

    r188 r290  
    106106destructor TBufferedDrawDlg.Destroy;
    107107begin
    108   Offscreen.Free;
    109   inherited Destroy;
     108  FreeAndNil(Offscreen);
     109  inherited;
    110110end;
    111111

  • trunk/Packages/CevoComponents/ButtonA.pas

    r209 r290  
    3535constructor TButtonA.Create(aOwner: TComponent);
    3636begin
    37   inherited Create(aOwner);
     37  inherited;
    3838  FCaption := '';
    3939  SetBounds(0, 0, 100, 25);

  • trunk/Packages/CevoComponents/ButtonB.pas

    r188 r290  
    3838constructor TButtonB.Create(aOwner: TComponent);
    3939begin
    40   inherited Create(aOwner);
     40  inherited;
    4141  ShowHint := True;
    4242  SetBounds(0, 0, 25, 25);

  • trunk/Packages/CevoComponents/ButtonC.pas

    r188 r290  
    3232constructor TButtonC.Create(aOwner: TComponent);
    3333begin
    34   inherited Create(aOwner);
     34  inherited;
    3535  ShowHint := True;
    3636  SetBounds(0, 0, 12, 12);

  • trunk/Packages/CevoComponents/ButtonN.pas

    r188 r290  
    4545constructor TButtonN.Create(aOwner: TComponent);
    4646begin
    47   inherited Create(aOwner);
     47  inherited;
    4848  ShowHint := true;
    4949  FGraphic := nil;

  • trunk/Packages/CevoComponents/DrawDlg.pas

    r257 r290  
    7777begin
    7878  RemoveHandlerOnVisibleChanged(VisibleChangedHandler);
    79   inherited Destroy;
     79  inherited;
    8080end;
    8181
    … …  
    175175begin
    176176  if Key = VK_ESCAPE then Close;
    177   inherited KeyDown(Key, Shift);
     177  inherited;
    178178end;
    179179

  • trunk/Packages/CevoComponents/ScreenTools.pas

    r288 r290  
    258258    MenuItem := MenuItems[MenuItems.Count - 1];
    259259    MenuItems.Delete(MenuItems.Count - 1);
    260     MenuItem.Free;
     260    FreeAndNil(MenuItem);
    261261  end;
    262262end;
    … …  
    439439      Bmp.Canvas.Draw(0, 0, jtex);
    440440    end;
    441     jtex.Free;
     441    FreeAndNil(jtex);
    442442  end
    443443  else
    … …  
    464464        Bmp.Canvas.draw(0, 0, Png);
    465465    end;
    466     Png.Free;
     466    FreeAndNil(Png);
    467467  end
    468468  else
    … …  
    17261726  RestoreResolution;
    17271727  for I := 0 to nGrExt - 1 do begin
    1728     GrExt[I].Data.Free;
    1729     GrExt[I].Mask.Free;
     1728    FreeAndNil(GrExt[I].Data);
     1729    FreeAndNil(GrExt[I].Mask);
    17301730    FreeMem(GrExt[I]);
    17311731  end;

  • trunk/Packages/CevoComponents/Sound.lfm

    r111 r290  
    88  Caption = 'SoundPlayer'
    99  Color = clBtnFace
    10   DesignTimePPI = 125
     10  DesignTimePPI = 144
    1111  Font.Color = clWindowText
    1212  Font.Height = -11
    1313  Font.Name = 'MS Sans Serif'
    14   LCLVersion = '1.8.0.6'
     14  LCLVersion = '2.0.12.0'
    1515  Scaled = False
    1616end

  • trunk/Packages/CevoComponents/Sound.pas

    r288 r290  
    220220      end;
    221221    finally
    222       L.Free;
     222      FreeAndNil(L);
    223223    end;
    224224  end
Note: See TracChangeset for help on using the changeset viewer.