paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 17:10:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added code to create the LFM when saving the file.

Browse Source 
Shane

git-svn-id: trunk@194 -
This commit is contained in:
lazarus 2001-02-23 19:22:20 +00:00
parent 33d621a672
commit 2adcf2a40f
1 changed files with 5 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/main.pp
View File

@ -1292,7 +1292,7 @@ End;
To create the LFC file use the program lazres or the
LFMtoLFCfile function.
}
function CreateLFM(AForm:TCustomForm):integer;
function CreateLFM(AForm:TCustomForm; Path : String):integer;
// 0 = ok
// -1 = error while streaming AForm to binary stream
// -2 = error while streaming binary stream to text file
@ -1322,7 +1322,7 @@ begin
try
// transform binary to text and save LFM file
TxtMemStream:=TMemoryStream.Create;
TxtFileStream:=TFileStream.Create(lowercase(AForm.ClassName)+'.lfm',fmCreate);
TxtFileStream:=TFileStream.Create(Path+lowercase(AForm.ClassName)+'.lfm',fmCreate);
try
BinStream.Position:=0;
ObjectBinaryToText(BinStream,TxtMemStream);
@ -1403,18 +1403,9 @@ end;
Procedure TMainIDE.FileSavedEvent(Sender : TObject; Filename : String);
Begin
//sender is the TSourceEditor
writeln('FILESAVEDEVENT');
If TSourceEditor(Sender).IsControlUnit then
begin
Writeln('*****************CREATING LFM********************');
// Writeln('Result = '+Inttostr(CreateLFM(TCustomForm(TSourceEditor(Sender).Control))));
// writeln('RESULT IS '+inttostr(CreateLFM(Self)));
Writeln('Result = '+Inttostr(CreateLFM(ViewUnits1)));
Writeln('Result = '+Inttostr(CreateLFM(ViewForms1)));
// Writeln('Result = '+Inttostr(CreateLFM(MessageDlg)));
// Writeln('Result = '+Inttostr(CreateLFM(FindDialog1)));
// Writeln('Result = '+Inttostr(CreateLFM(MainIDE)));
Writeln('result'+Inttostr(CreateLFM(TCustomForm(TSourceEditor(Sender).Control), ExtractFilePath(Filename))));
end;
end;
@ -1791,8 +1782,8 @@ end.
{ =============================================================================
$Log$
Revision 1.63 2001/02/23 18:37:17 lazarus
Added code so the unit source changes when you do a SAVE AS
Revision 1.64 2001/02/23 19:22:20 lazarus
Added code to create the LFM when saving the file.
Shane
Revision 1.62 2001/02/22 17:04:57 lazarus