Changeset 165


Ignore:
Timestamp:
Aug 20, 2024, 1:02:49 AM (4 months ago)
Author:
chronos
Message:

Merged revision(s) 164 from trunk:

  • Fixed: Put compiled files into application data directory if source is in read only directory.
Location:
tags/1.3.0
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • tags/1.3.0

    • Property svn:mergeinfo changed
      /trunkmerged: 164
  • tags/1.3.0/Languages/LazFuck.cs.po

    r157 r165  
    803803msgid "Compiler path"
    804804msgstr "Cesta překladače"
     805
  • tags/1.3.0/LazFuck.lpi

    r155 r165  
    313313    <Linking>
    314314      <Debugging>
    315         <DebugInfoType Value="dsDwarf2Set"/>
     315        <DebugInfoType Value="dsDwarf3"/>
    316316        <UseHeaptrc Value="True"/>
    317317        <UseExternalDbgSyms Value="True"/>
  • tags/1.3.0/LazFuck.lpr

    r154 r165  
    2626
    2727  Application.Scaled:=True;
    28   Application.Title:='LazFuck IDE';
     28  Application.Title:='LazFuck';
    2929  RequireDerivedFormResource := True;
    3030  Application.Initialize;
  • tags/1.3.0/Packages/Common/Languages/Common.cs.po

    r162 r165  
    1616msgid "Excution error: %s (exit code: %d)"
    1717msgstr "Chyba vykonání: %s (návratovÜ kód: %d)"
     18
  • tags/1.3.0/Packages/Common/Languages/PixelPointer.cs.po

    r153 r165  
    2121msgid "Wrong bitmap size [width: %d, height: %d]"
    2222msgstr "Å patná velikost bitové mapy [šířka: %d, vÜška: %d]"
     23
  • tags/1.3.0/Packages/Common/Languages/Table.cs.po

    r153 r165  
    1515msgid "Unsupported format"
    1616msgstr "NepodporovanÜ formát"
     17
  • tags/1.3.0/Target.pas

    r162 r165  
    533533    CompiledDir + DirectorySeparator + Name + DirectorySeparator +
    534534    ExtractFileNameOnly(ProjectFileName) + SourceExtension;
     535  if not DirectoryIsWritable(ExtractFilePath(Result)) then
     536    Result := GetAppConfigDir(False) + CompiledDir + DirectorySeparator + Name +
     537      DirectorySeparator + ExtractFileNameOnly(ProjectFileName) + SourceExtension;;
    535538end;
    536539
     
    545548    CompiledDir + DirectorySeparator + Name + DirectorySeparator +
    546549    ExtractFileNameOnly(ProjectFileName) + CompiledExtension;
     550  if not DirectoryIsWritable(ExtractFilePath(Result)) then
     551    Result := GetAppConfigDir(False) + CompiledDir + DirectorySeparator + Name +
     552      DirectorySeparator + ExtractFileNameOnly(ProjectFileName) + CompiledExtension;
    547553end;
    548554
Note: See TracChangeset for help on using the changeset viewer.