paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 22:20:26 +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 uses
Classes, SysUtils, IDEProcs, Forms, Controls, Buttons, ExtCtrls, StdCtrls, Classes, SysUtils, IDEProcs, Forms, Controls, Buttons, ExtCtrls, StdCtrls,
LResources, Project, SynEdit; LResources, Project, SynEdit, LCLType;
type type
TDiskDiffsDlg = class(TForm) TDiskDiffsDlg = class(TForm)
@ -43,6 +43,8 @@ type
DiffSynEdit: TSynEdit; DiffSynEdit: TSynEdit;
RevertAllButton: TButton; RevertAllButton: TButton;
IgnoreDiskChangesButton: TButton; IgnoreDiskChangesButton: TButton;
procedure DiskDiffsDlgKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DiskDiffsDlgResize(Sender: TObject); procedure DiskDiffsDlgResize(Sender: TObject);
private private
FUnitList: TList; FUnitList: TList;
@ -77,6 +79,13 @@ end;
{ TDiskDiffsDlg } { 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); procedure TDiskDiffsDlg.DiskDiffsDlgResize(Sender: TObject);
begin begin
with MainGroupBox do begin with MainGroupBox do begin
@ -184,6 +193,7 @@ begin
end; end;
OnResize:=@DiskDiffsDlgResize; OnResize:=@DiskDiffsDlgResize;
OnKeyDown:=@DiskDiffsDlgKeyDown;
end; end;
end; end;

4
ide/main.pp
View File

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