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

improved delphi unti conversion to keep lfm files

Browse Source 
git-svn-id: trunk@8889 -
This commit is contained in:
mattias 2006-03-08 01:01:37 +00:00
parent 8b5eb2d7ef
commit 3d68fcda88
3 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
converter/delphiproject2laz.pas
View File

@ -138,11 +138,6 @@ begin
Result:=ExtractOptionsFromDPR(LPRCode,Project1);
if Result<>mrOk then exit;
{$IFDEF NewDelphiProjConverter}
DebugLn('ConvertDelphiToLazarusProject DEBUG STOP');
exit(mrOk);
{$ENDIF}
// find all project files
FoundInUnits:=nil;
MissingInUnits:=nil;

18
converter/delphiunit2laz.pas
View File

@ -191,10 +191,22 @@ begin
if Result<>mrOK then exit;
if RenameDFMFile then begin
DFMFilename:=FindDFMFileForDelphiUnit(DelphiFilename);
if DFMFilename<>'' then begin
if (DFMFilename<>'') and (CompareFilenames(DFMFilename,LFMFilename)<>0) then
begin
LFMFilename:=ConvertDFMToLFMFilename(DFMFilename,not RenameLowercase);
Result:=RenameFileWithErrorDialogs(DFMFilename,LFMFilename,[mbAbort]);
if Result<>mrOK then exit;
if FileExists(LFMFilename) then begin
if (FileAge(LFMFilename)>=FileAge(DFMFilename)) then begin
// .lfm is not older than .dfm -> keep .lfm
// beware: it could be the same file
end else begin
// .lfm is older than .dfm -> remove .lfm
DeleteFile(LFMFilename);
end;
end;
if not FileExists(LFMFilename) then begin
Result:=RenameFileWithErrorDialogs(DFMFilename,LFMFilename,[mbAbort]);
if Result<>mrOK then exit;
end;
end;
end;
Result:=mrOk;

6
lcl/interfaces/gtk/gtkproc.inc
View File

@ -8129,8 +8129,7 @@ begin
GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE;
bsSizeable : Result := GDK_FUNC_RESIZE or GDK_FUNC_MOVE or
GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE or GDK_FUNC_MAXIMIZE or
GDK_FUNC_RESIZE;
GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE or GDK_FUNC_MAXIMIZE;
bsDialog : Result := GDK_FUNC_RESIZE or GDK_FUNC_CLOSE or GDK_FUNC_MINIMIZE
or GDK_FUNC_MOVE;
@ -8139,8 +8138,7 @@ begin
GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE;
bsSizeToolWin : Result := GDK_FUNC_RESIZE or GDK_FUNC_MOVE or
GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE or GDK_FUNC_MAXIMIZE or
GDK_FUNC_RESIZE;
GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE or GDK_FUNC_MAXIMIZE;
end;
// X warns if marking a fixed size window resizeable: