Changeset 105
- Timestamp:
- Jan 25, 2018, 11:33:52 PM (7 years ago)
- Location:
- trunk
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Back.pas
r97 r105 37 37 38 38 procedure TBackground.FormShow(Sender: TObject); 39 var 40 FileName: string; 39 41 begin 40 Img := nil;41 42 if FullScreen then begin 42 if FileExists(HomeDir + 'Graphics' + DirectorySeparator + 'Background.png') then begin 43 Img := TBitmap.Create; 44 LoadGraphicFile(img, HomeDir + 'Graphics' + DirectorySeparator + 'Background.png'); 43 if not Assigned(Img) then begin 44 FileName := HomeDir + 'Graphics' + DirectorySeparator + 'Background.png'; 45 if FileExists(FileName) then begin 46 Img := TBitmap.Create; 47 LoadGraphicFile(img, FileName); 48 end; 45 49 end; 46 50 end else begin -
trunk/Directories.pas
r79 r105 27 27 begin 28 28 result := FindFirst(path, faDirectory, f) = 0; 29 FindClose(f); 29 30 end; 30 31 … … 94 95 CopyFile(PChar(HomeDir + 'AppData' + DirectorySeparator + 'Saved' + DirectorySeparator + src.Name), 95 96 PChar(DataDir + 'Saved' + DirectorySeparator + src.Name), false); 97 FindClose(dst); 96 98 until FindNext(src) <> 0; 99 FindClose(src); 97 100 end; 98 101 … … 101 104 InitUnit; 102 105 106 103 107 end. -
trunk/GameServer.pas
r54 r105 273 273 inc(nBrain); 274 274 until FindNext(f) <> 0; 275 FindClose(F); 275 276 end; 276 277 … … 4499 4500 4500 4501 FindFirst(ParamStr(0), $21, ExeInfo); 4502 FindClose(ExeInfo); 4501 4503 4502 4504 {$IFOPT O-}nHandoverStack := 0; {$ENDIF} -
trunk/Start.pas
r104 r105 265 265 r1 := CreateRectRgn(TabOffset + 4 * TabSize + 2, 0, Width, TabHeight); 266 266 CombineRgn(r0, r0, r1, RGN_DIFF); 267 //DeleteObject(r1);267 DeleteObject(r1); 268 268 r1 := CreateRectRgn(QuitBtn.left, QuitBtn.top, QuitBtn.left + QuitBtn.width, 269 269 QuitBtn.top + QuitBtn.height); 270 270 CombineRgn(r0, r0, r1, RGN_OR); 271 //DeleteObject(r1);271 DeleteObject(r1); 272 272 SetWindowRgn(Handle, r0, false); 273 //DeleteObject(r0); // causes crash with Windows 95273 DeleteObject(r0); // causes crash with Windows 95 274 274 end 275 275 else … … 1343 1343 TObject(f.Time)); 1344 1344 until FindNext(f) <> 0; 1345 FindClose(f); 1345 1346 ListIndex[2] := FormerGames.Count - 1; 1346 1347 if (ShowTab = 2) and (FormerGames.Count > 0) then … … 1358 1359 Maps.Add(Copy(f.Name, 1, Length(f.Name) - 9)); 1359 1360 until FindNext(f) <> 0; 1361 FindClose(F); 1360 1362 Maps.Sort; 1361 1363 Maps.Insert(0, Phrases.Lookup('RANMAP')); -
trunk/Switches.inc
r39 r105 5 5 {$LONGSTRINGS ON} 6 6 7 {$IOCHECKS ON}8 {$OVERFLOWCHECKS OFF}7 //{$IOCHECKS ON} 8 //{$OVERFLOWCHECKS OFF} 9 9 10 {$TYPEINFO OFF}11 {$DEBUGINFO ON}10 //{$TYPEINFO OFF} 11 //{$DEBUGINFO ON} 12 12 //{$LOCALSYMBOLS ON} 13 13 14 14 //{$E-} 15 {$S-}15 //{$S-} 16 16 {$Z1} 17 17 18 18 {$IFDEF FPC} // freepascal 19 19 {$MODE DELPHI} 20 {$SMARTLINK ON}20 //{$SMARTLINK ON} 21 21 {$ELSE} // delphi 22 22 {$APPTYPE GUI}
Note:
See TracChangeset
for help on using the changeset viewer.