Changeset 113
- Timestamp:
- Feb 3, 2018, 11:32:34 AM (7 years ago)
- Location:
- trunk
- Files:
-
- 80 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Components/Directories.pas
r112 r113 79 79 80 80 // Copy appdata if not done yet 81 if FindFirst(HomeDir + ' AppData' + DirectorySeparator + 'Saved' + DirectorySeparator + '*.cevo', $21, src) = 0 then81 if FindFirst(HomeDir + 'Saved' + DirectorySeparator + '*.cevo', $21, src) = 0 then 82 82 repeat 83 83 if (FindFirst(DataDir + 'Saved' + DirectorySeparator + src.Name, $21, dst) <> 0) or 84 84 (dst.Time < src.Time) then 85 CopyFile(PChar(HomeDir + ' AppData' + DirectorySeparator + 'Saved' + DirectorySeparator + src.Name),85 CopyFile(PChar(HomeDir + 'Saved' + DirectorySeparator + src.Name), 86 86 PChar(DataDir + 'Saved' + DirectorySeparator + src.Name), false); 87 FindClose(dst); 88 until FindNext(src) <> 0; 89 FindClose(src); 90 91 // Copy appdata if not done yet 92 if FindFirst(HomeDir + 'Maps' + DirectorySeparator + '*.*', $21, src) = 0 then 93 repeat 94 if (FindFirst(DataDir + 'Maps' + DirectorySeparator + src.Name, $21, dst) <> 0) or 95 (dst.Time < src.Time) then 96 CopyFile(PChar(HomeDir + 'Maps' + DirectorySeparator + src.Name), 97 PChar(DataDir + 'Maps' + DirectorySeparator + src.Name), false); 87 98 FindClose(dst); 88 99 until FindNext(src) <> 0; -
trunk/LocalPlayer/Diagram.pas
r92 r113 129 129 inherited; 130 130 TitleHeight := WideFrame + 20; 131 InnerHeight := ClientHeight - TitleHeight - NarrowFrame;131 InnerHeight := Height - TitleHeight - NarrowFrame; 132 132 CaptionRight := CloseBtn.Left; 133 133 CaptionLeft := ToggleBtn.Left + ToggleBtn.Width;
Note:
See TracChangeset
for help on using the changeset viewer.