paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 10:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: started file access monitoring for loaded files

Browse Source 
git-svn-id: trunk@1811 -
This commit is contained in:
lazarus 2002-08-01 14:15:02 +00:00
parent 2ffb183638
commit 420a1c441d
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/diskdiffsdialog.pas
View File

@ -34,7 +34,7 @@ interface
uses
Classes, SysUtils, IDEProcs, Forms, Controls, Buttons, ExtCtrls, StdCtrls,
LResources, Project, SynEdit;
LResources, Project, SynEdit, LCLType;
type
TDiskDiffsDlg = class(TForm)
@ -43,6 +43,8 @@ type
DiffSynEdit: TSynEdit;
RevertAllButton: TButton;
IgnoreDiskChangesButton: TButton;
procedure DiskDiffsDlgKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DiskDiffsDlgResize(Sender: TObject);
private
FUnitList: TList;
@ -77,6 +79,13 @@ end;
{ TDiskDiffsDlg }
procedure TDiskDiffsDlg.DiskDiffsDlgKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_Escape then
ModalResult:=mrCancel;
end;
procedure TDiskDiffsDlg.DiskDiffsDlgResize(Sender: TObject);
begin
with MainGroupBox do begin
@ -184,6 +193,7 @@ begin
end;
OnResize:=@DiskDiffsDlgResize;
OnKeyDown:=@DiskDiffsDlgKeyDown;
end;
end;

4
ide/main.pp
View File

@ -6234,6 +6234,7 @@ end;
Procedure TMainIDE.OnSrcNoteBookActivated(Sender : TObject);
begin
FCodeLastActivated:=True;
DoCheckFilesOnDisk;
end;
Procedure TMainIDE.OnDesignerActivated(Sender : TObject);
@ -6855,6 +6856,9 @@ end.
{ =============================================================================
$Log$
Revision 1.333 2002/08/01 14:15:02 lazarus
MG: started file access monitoring for loaded files
Revision 1.332 2002/08/01 14:10:28 lazarus
MG: started file access monitoring for loaded files