Changeset 6 for trunk/Back.pas

Timestamp:

Jan 7, 2017, 11:32:14 AM (7 years ago)

Author:

chronos

Message:

• Modified: Formated all project source files using Delphi formatter as original indentation and other formatting was really bad.

File:

• trunk/Back.pas (modified) (4 diffs)

trunk/Back.pas

@@ -1 +1 @@
 {$INCLUDE switches}
-
 unit Back;
 
@@ -24 +23 @@
 
 uses
-Directories,ScreenTools,Start;
+  Directories, ScreenTools, Start;
 
 {$R *.DFM}
@@ -30 +29 @@
 procedure TBackground.FormCreate(Sender: TObject);
 begin
-img:=nil;
+  img := nil;
 end;
 
 procedure TBackground.FormShow(Sender: TObject);
 begin
-img:=nil;
-if FullScreen then
+  img := nil;
+  if FullScreen then
   begin
-  if FileExists(HomeDir+'Graphics\Background.bmp')
-    or FileExists(HomeDir+'Graphics\Background.png') then
+    if FileExists(HomeDir + 'Graphics\Background.bmp') or
+      FileExists(HomeDir + 'Graphics\Background.png') then
     begin
-    img:=TBitmap.Create;
-    LoadGraphicFile(img, HomeDir+'Graphics\Background');
+      img := TBitmap.Create;
+      LoadGraphicFile(img, HomeDir + 'Graphics\Background');
     end
   end
-else
+  else
   begin
-  WindowState:=wsNormal;
-  Width:=StartDlg.Width+16;
-  Height:=StartDlg.Height+16;
-  Left:=StartDlg.Left-8;
-  Top:=StartDlg.Top-8;
+    WindowState := wsNormal;
+    Width := StartDlg.Width + 16;
+    Height := StartDlg.Height + 16;
+    Left := StartDlg.Left - 8;
+    Top := StartDlg.Top - 8;
   end
 end;
@@ -57 +56 @@
 procedure TBackground.FormPaint(Sender: TObject);
 begin
-if img<>nil then
-  BitBlt(Canvas.Handle,
-    Screen.Width-img.Width-(Screen.Width-800)*3 div 8,
-    (Screen.Height-600) div 3,
-    img.Width,img.Height,
-    img.Canvas.Handle,0,0,SRCCOPY);
+  if img <> nil then
+    BitBlt(Canvas.Handle, Screen.Width - img.Width - (Screen.Width - 800) *
+      3 div 8, (Screen.Height - 600) div 3, img.Width, img.Height,
+      img.Canvas.Handle, 0, 0, SRCCOPY);
 end;
 
 procedure TBackground.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-if img<>nil then begin img.Free; img:=nil end;
+  if img <> nil then
+  begin
+    img.Free;
+    img := nil
+  end;
 end;
 
 end.
-