Ignore:
Timestamp:
Jan 2, 2019, 10:36:09 AM (5 years ago)
Author:
chronos
Message:
  • Fixed: Memory leaks reported by heaptrc.
Location:
branches/overos
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/overos

    • Property svn:ignore

      •  

        old new  
        33overos.lps
        44overos.res
         5heaptrclog.trc
         6overos.exe

  • branches/overos/UFormMain.pas

    r23 r24  
    1717    Image1: TImage;
    1818    Timer1: TTimer;
     19    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    1920    procedure Image1MouseDown(Sender: TObject; Button: TControlsMouseButton;
    2021      Shift: TShiftState; X, Y: Integer);
    … …  
    9899end;
    99100
     101procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
     102begin
     103  Timer1.Enabled := False;
     104  App.Free;
     105  System.Free;
     106end;
     107
    100108procedure TFormMain.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
    101109  Y: Integer);
Note: See TracChangeset for help on using the changeset viewer.