paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 04:37:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Saving editor file now works in EditorFileManager

Browse Source 
git-svn-id: trunk@35428 -
This commit is contained in:
juha 2012-02-17 16:38:10 +00:00
parent 1a57c31210
commit e8124edb78
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/editorfilemanager.pas
View File

@ -6,8 +6,8 @@ interface
uses
Classes, SysUtils, FileUtil, ListFilterEdit, Forms, Controls, Graphics,
Dialogs, CheckLst, ButtonPanel, StdCtrls, Buttons, ExtCtrls, Menus,
IDEImagesIntf, SourceEditor, LazarusIDEStrConsts;
Dialogs, CheckLst, ButtonPanel, StdCtrls, Buttons, ExtCtrls, Menus, LCLProc,
IDEImagesIntf, LazIDEIntf, SourceEditor, LazarusIDEStrConsts, IDECommands;
type
@ -146,18 +146,17 @@ var
i: Integer;
SrcEdit: TSourceEditor;
begin
ShowMessage('Under construction ...'); Exit;
for i:=CheckListBox1.Count-1 downto 0 do
if CheckListBox1.Checked[i] then begin
SrcEdit:=SourceEditorManager.SourceEditorIntfWithFilename(CheckListBox1.Items[i]);
// ToDo: save it somehow
if (not SrcEdit.CodeBuffer.IsVirtual) and (LazarusIDE.DoSaveEditorFile(SrcEdit, []) <> mrOk) then
DebugLn(['TSourceNotebook.EncodingClicked LazarusIDE.DoSaveEditorFile failed']);
end;
end;
procedure TEditorFileManagerForm.CloseCheckedButtonClick(Sender: TObject);
var
i: Integer;
SrcEdit: TSourceEditor;
begin
for i:=CheckListBox1.Count-1 downto 0 do
if CheckListBox1.Checked[i] then