Subversion Repositories plumbers

Rev

Rev 21 | Rev 24 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 21 Rev 22
Line 137... Line 137...
137 
    Image1.Left := ClientWidth div 2 - Image1.Width div 2;
 137 
    Image1.Left := ClientWidth div 2 - Image1.Width div 2;
138 
    Image1.Top := ClientHeight div 2 - Image1.Height div 2;
 138 
    Image1.Top := ClientHeight div 2 - Image1.Height div 2;
139 
  end
 139 
  end
140 
  else
 140 
  else
141 
  begin
 141 
  begin
142 
    ShowMessageFmt('File not found: %s', [AFileName]);
 142 
    // ShowMessageFmt('File not found: %s', [AFileName]);
143 
    Image1.Picture := nil;
 143 
    Image1.Picture := nil;
144 
  end;
 144 
  end;
145 
 
 145 
 
146 
  if FullScreenMode then
 146 
  if FullScreenMode then
147 
  begin
 147 
  begin