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

ide: a bit of code formatting

Browse Source 
git-svn-id: trunk@17018 -
This commit is contained in:
paul 2008-10-16 07:11:33 +00:00
parent 94618453db
commit 5d500b08d0
2 changed files with 30 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/main.pp
View File

@ -6636,12 +6636,14 @@ begin
NewFileName:=ExtractFilePath(NewFilename)
+lowercase(ExtractFileName(NewFilename));
if Project1.MainUnitID>=0 then begin
if Project1.MainUnitID >= 0 then
begin
// check mainunit filename
Ext:=ExtractFileExt(Project1.MainUnitInfo.Filename);
if Ext='' then Ext:='.pas';
NewProgramFilename:=ChangeFileExt(NewFilename,Ext);
if CompareFilenames(NewFilename,NewProgramFilename)=0 then begin
if CompareFilenames(NewFilename,NewProgramFilename)=0 then
begin
ACaption:=lisChooseADifferentName;
AText:=Format(lisTheProjectInfoFileIsEqualToTheProjectMainSource, [
'"', NewFilename, '"', #13]);
@ -6673,14 +6675,17 @@ begin
end;
// check if info file or source file already exists
if FileExistsUTF8(NewFilename) then begin
if FileExistsUTF8(NewFilename) then
begin
ACaption:=lisOverwriteFile;
AText:=Format(lisAFileAlreadyExistsReplaceIt, ['"', NewFilename, '"', #13]);
Result:=MessageDlg(ACaption, AText, mtConfirmation, [mbOk, mbCancel], 0);
if Result=mrCancel then exit;
end
else begin
if FileExistsUTF8(NewProgramFilename) then begin
else
begin
if FileExistsUTF8(NewProgramFilename) then
begin
ACaption:=lisOverwriteFile;
AText:=Format(lisAFileAlreadyExistsReplaceIt, ['"', NewProgramFilename,
'"', #13]);
@ -6689,7 +6694,7 @@ begin
end;
end;
TitleWasDefault:=Project1.TitleIsDefault(true);
TitleWasDefault := Project1.TitleIsDefault(true);
// set new project filename
Project1.ProjectInfoFile:=NewFilename;
@ -6697,15 +6702,16 @@ begin
SetRecentProjectFilesMenu;
// change main source
if (Project1.MainUnitID>=0) then begin
GetMainUnit(MainUnitInfo,MainUnitSrcEdit,true);
if (Project1.MainUnitID >= 0) then
begin
GetMainUnit(MainUnitInfo, MainUnitSrcEdit, true);
// Save old source code, to prevent overwriting it,
// if the file name didn't actually change.
OldSource:=MainUnitInfo.Source.Source;
OldSource := MainUnitInfo.Source.Source;
// switch MainUnitInfo.Source to new code
NewBuf:=CodeToolBoss.CreateFile(NewProgramFilename);
NewBuf := CodeToolBoss.CreateFile(NewProgramFilename);
if NewBuf=nil then begin
Result:=MessageDlg(lisErrorCreatingFile, Format(lisUnableToCreateFile3, [
#13, '"', NewProgramFilename, '"']), mtError, [mbCancel], 0);

25
ide/project.pp
View File

@ -1299,23 +1299,26 @@ begin
end;
procedure TUnitInfo.SetUnitName(const NewUnitName:string);
var Allowed:boolean;
var
Allowed: boolean;
OldUnitName: String;
begin
if (fUnitName<>NewUnitName) and (NewUnitName<>'') then begin
Allowed:=true;
OldUnitName:=fUnitName;
if OldUnitName='' then
OldUnitName:=ExtractFileNameOnly(Filename);
if (fUnitName <> NewUnitName) and (NewUnitName <> '') then
begin
Allowed := true;
OldUnitName := fUnitName;
if OldUnitName = '' then
OldUnitName := ExtractFileNameOnly(Filename);
if Assigned(FOnUnitNameChange) then
FOnUnitNameChange(Self,OldUnitName,NewUnitName,false,Allowed);
FOnUnitNameChange(Self, OldUnitName, NewUnitName, false, Allowed);
// (ignore Allowed)
if (fSource<>nil) then begin
if (fSource <> nil) then
begin
CodeToolBoss.RenameSource(fSource,NewUnitName);
end;
fUnitName:=NewUnitName;
Modified:=true;
if (Project<>nil) then Project.UnitModified(Self);
fUnitName := NewUnitName;
Modified := true;
if (Project <> nil) then Project.UnitModified(Self);
end;
end;