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

Fix comments, formatting

Browse Source 
git-svn-id: trunk@43726 -
This commit is contained in:
juha 2014-01-15 00:08:42 +00:00
parent 63668e5e4c
commit 0e189386d9
2 changed files with 4 additions and 3 deletions
components/ideintf
lazideintf.pas
converter
convertdelphi.pas

2
components/ideintf/lazideintf.pas
View File

@ -354,7 +354,7 @@ type
const OnQuickSyntaxCheckEvent: TModalHandledFunction;
AsLast: boolean = false);
procedure RemoveHandlerOnQuickSyntaxCheck(
const OnQuickSyntaxCheckEvent: TModalHandledFunction);
const OnQuickSyntaxCheckEvent: TModalHandledFunction);
end;
var

5
converter/convertdelphi.pas
View File

@ -597,7 +597,7 @@ begin
end;
end;
end;
// ConvertUnit .dfm file to .lfm file (without context type checking)
// Convert Unit .dfm file to .lfm file (without context type checking)
if FileExistsUTF8(LfmFilename) then begin
DFMConverter:=TDFMConverter.Create;
try
@ -607,9 +607,10 @@ begin
finally
DFMConverter.Free;
end;
// Change encoding to UTF-8
// Read pascal unit code in.
Result:=LoadCodeBuffer(TempLFMBuffer,LfmFilename,
[lbfCheckIfText,lbfUpdateFromDisk],true);
// Change encoding to UTF-8
if TempLFMBuffer.DiskEncoding<>EncodingUTF8 then begin
fOwnerConverter.fSettings.AddLogLine(Format(lisConvDelphiChangedEncodingToUTF8,
[TempLFMBuffer.DiskEncoding]));