- Timestamp:
- Jan 8, 2016, 4:59:45 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UMainForm.pas
r32 r33 8 8 Registry, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, 9 9 ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils, GraphType, 10 UPersistentForm, UApplicationInfo, UCoolTranslator ;10 UPersistentForm, UApplicationInfo, UCoolTranslator, LCLType; 11 11 12 12 type … … 53 53 procedure TimerDrawTimer(Sender: TObject); 54 54 procedure TimerEngineTickTimer(Sender: TObject); 55 procedure EraseBackground(DC: HDC); override; 55 56 private 56 57 OriginalBounds: TRect; … … 110 111 end; 111 112 113 procedure TMainForm.EraseBackground(DC: HDC); 114 begin 115 // Do nothing 116 end; 117 112 118 procedure TMainForm.FormCreate(Sender: TObject); 113 119 begin
Note:
See TracChangeset
for help on using the changeset viewer.