HelloWorld and HelloWorldOOP raise an exception on the Surface device vertically oriented.

[DJMaster]

HelloWorld and HelloWorldOOP raise an exception on the Surface device vertically oriented.

According to SFML Documentation (SFML-2.3\classsf_1_1VideoMode.html): Video modes are used to setup windows (sf::Window) at creation time. The main usage of video modes is for fullscreen mode: indeed you must use one of the valid video modes allowed by the OS (which are defined by what the monitor and the graphics card support), otherwise your window creation will just fail.

Testing if Video Mode is valid for a windowed Window is not appropriate.

Please review the following patches:

diff --git a/Examples/Hello World/HelloWorld.dpr b/Examples/Hello World/HelloWorld.dpr
index 03999c2..1ae70bc 100644
--- a/Examples/Hello World/HelloWorld.dpr   
+++ b/Examples/Hello World/HelloWorld.dpr   
@@ -22,8 +22,6 @@ begin
   Mode.Width := 800;
   Mode.Height := 600;
   Mode.BitsPerPixel := 32;
-  if not SfmlVideoModeIsValid(Mode) then
-    raise Exception.Create('Invalid video mode');

   Window := SfmlRenderWindowCreate(Mode, 'SFML Window', [sfResize, sfClose], nil);
   if not Assigned(Window) then 

diff --git a/Examples/Hello World (OOP)/HelloWorld.dpr b/Examples/Hello World (OOP)/HelloWorld.dpr
index 618703a..86b7bca 100644
--- a/Examples/Hello World (OOP)/HelloWorld.dpr 
+++ b/Examples/Hello World (OOP)/HelloWorld.dpr 
@@ -22,8 +22,6 @@ begin
   Mode.Width := 800;
   Mode.Height := 600;
   Mode.BitsPerPixel := 32;
-  if not SfmlVideoModeIsValid(Mode) then
-    raise Exception.Create('Invalid video mode');

   Window := TSfmlRenderWindow.Create(Mode, AnsiString('SFML Window'),
     [sfResize, sfClose], nil);