Changeset 164
- Timestamp:
- Aug 20, 2024, 1:01:48 AM (3 months ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LazFuck.lpr
r154 r164 26 26 27 27 Application.Scaled:=True; 28 Application.Title:='LazFuck IDE';28 Application.Title:='LazFuck'; 29 29 RequireDerivedFormResource := True; 30 30 Application.Initialize; -
trunk/Target.pas
r161 r164 533 533 CompiledDir + DirectorySeparator + Name + DirectorySeparator + 534 534 ExtractFileNameOnly(ProjectFileName) + SourceExtension; 535 if not DirectoryIsWritable(ExtractFilePath(Result)) then 536 Result := GetAppConfigDir(False) + CompiledDir + DirectorySeparator + Name + 537 DirectorySeparator + ExtractFileNameOnly(ProjectFileName) + SourceExtension;; 535 538 end; 536 539 … … 545 548 CompiledDir + DirectorySeparator + Name + DirectorySeparator + 546 549 ExtractFileNameOnly(ProjectFileName) + CompiledExtension; 550 if not DirectoryIsWritable(ExtractFilePath(Result)) then 551 Result := GetAppConfigDir(False) + CompiledDir + DirectorySeparator + Name + 552 DirectorySeparator + ExtractFileNameOnly(ProjectFileName) + CompiledExtension; 547 553 end; 548 554
Note:
See TracChangeset
for help on using the changeset viewer.