Changeset 105 for trunk/Back.pas
- Timestamp:
- Jan 25, 2018, 11:33:52 PM (6 years ago)
- File:
-
- 1 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
Note:
See TracChangeset
for help on using the changeset viewer.