Changeset 33

Timestamp:

Jan 8, 2016, 4:59:45 PM (8 years ago)

Author:

chronos

Message:

• Modified: No need to erase background of main form as everything is covered by game engine.

File:

• trunk/Forms/UMainForm.pas (modified) (3 diffs)

trunk/Forms/UMainForm.pas

@@ -8 +8 @@
   Registry, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils, GraphType,
-  UPersistentForm, UApplicationInfo, UCoolTranslator;
+  UPersistentForm, UApplicationInfo, UCoolTranslator, LCLType;
 
 type
@@ -53 +53 @@
     procedure TimerDrawTimer(Sender: TObject);
     procedure TimerEngineTickTimer(Sender: TObject);
+    procedure EraseBackground(DC: HDC); override;
   private
     OriginalBounds: TRect;
@@ -110 +111 @@
 end;
 
+procedure TMainForm.EraseBackground(DC: HDC);
+begin
+  // Do nothing
+end;
+
 procedure TMainForm.FormCreate(Sender: TObject);
 begin