paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 11:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed open file key in source editor

Browse Source 
git-svn-id: trunk@539 -
This commit is contained in:
lazarus 2001-12-17 11:16:08 +00:00
parent b0d32e85dd
commit e841f8d1dd
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -649,7 +649,7 @@ begin
SourceNotebook.OnEditorChanged := @OnSrcNotebookEditorChanged; SourceNotebook.OnEditorChanged := @OnSrcNotebookEditorChanged;
SourceNotebook.OnJumpToHistoryPoint := @OnSrcNotebookJumpToHistoryPoint; SourceNotebook.OnJumpToHistoryPoint := @OnSrcNotebookJumpToHistoryPoint;
SourceNotebook.OnNewClicked := @OnSrcNotebookFileNew; SourceNotebook.OnNewClicked := @OnSrcNotebookFileNew;
SourceNotebook.OnOpenClicked := @ OnSrcNotebookFileOpen; SourceNotebook.OnOpenClicked := @OnSrcNotebookFileOpen;
SourceNotebook.OnOpenFileAtCursorClicked := @OnSrcNotebookFileOpenAtCursor; SourceNotebook.OnOpenFileAtCursorClicked := @OnSrcNotebookFileOpenAtCursor;
SourceNotebook.OnFindDeclarationClicked := @OnSrcNotebookFindDeclaration; SourceNotebook.OnFindDeclarationClicked := @OnSrcNotebookFindDeclaration;
SourceNotebook.OnProcessUserCommand := @OnSrcNotebookProcessCommand; SourceNotebook.OnProcessUserCommand := @OnSrcNotebookProcessCommand;
@ -1577,7 +1577,8 @@ var OpenDialog:TOpenDialog;
AFilename: string; AFilename: string;
I : Integer; I : Integer;
begin begin
if (Sender=itmFileOpen) or (Sender=OpenFileSpeedBtn) then begin if (Sender=itmFileOpen) or (Sender=OpenFileSpeedBtn)
or (Sender is TSourceNoteBook) then begin
OpenDialog:=TOpenDialog.Create(Application); OpenDialog:=TOpenDialog.Create(Application);
try try
OpenDialog.Title:='Open file'; OpenDialog.Title:='Open file';
@ -5378,6 +5379,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.186 2001/12/17 11:16:08 lazarus
MG: fixed open file key in source editor
Revision 1.185 2001/12/16 22:24:54 lazarus Revision 1.185 2001/12/16 22:24:54 lazarus
MG: changes for new compiler 20011216 MG: changes for new compiler 20011216

11
ide/uniteditor.pp
View File

@ -2330,12 +2330,6 @@ Begin
NoteBook.PageIndex := NoteBook.Pages.Count-1; NoteBook.PageIndex := NoteBook.Pages.Count-1;
End; End;
Procedure TSourceNotebook.OpenClicked(Sender: TObject);
Begin
if Assigned(FOnOpenClicked) then FOnOpenClicked(Sender);
end;
Procedure TSourceNotebook.FindClicked(Sender : TObject); Procedure TSourceNotebook.FindClicked(Sender : TObject);
var TempEditor:TSourceEditor; var TempEditor:TSourceEditor;
Begin Begin
@ -2618,6 +2612,11 @@ Begin
if Assigned(FOnNewClicked) then FOnNewClicked(Sender); if Assigned(FOnNewClicked) then FOnNewClicked(Sender);
End; End;
Procedure TSourceNotebook.OpenClicked(Sender: TObject);
Begin
if Assigned(FOnOpenClicked) then FOnOpenClicked(Sender);
end;
Procedure TSourceNotebook.SaveClicked(Sender: TObject); Procedure TSourceNotebook.SaveClicked(Sender: TObject);
Begin Begin
if Assigned(FOnSaveClicked) then FOnSaveClicked(Sender); if Assigned(FOnSaveClicked) then FOnSaveClicked(Sender);