Changeset 16 for trunk/Forms
- Timestamp:
- Sep 29, 2014, 4:12:21 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.pas
r13 r16 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus, 9 ExtCtrls, ComCtrls, types ;9 ExtCtrls, ComCtrls, types, LCLType; 10 10 11 11 type … … 64 64 MousePos: TPoint; 65 65 Activated: Boolean; 66 procedure EraseBackground(DC: HDC); override; 66 67 public 67 68 procedure UpdateStatusBar; … … 91 92 PaintBox1.Repaint; 92 93 UpdateStatusBar; 94 end; 95 96 procedure TFormMain.EraseBackground(DC: HDC); 97 begin 98 // Do nothing, completely covered by paintbox 93 99 end; 94 100 … … 128 134 begin 129 135 TempBitmap := TBitmap.Create; 136 ControlStyle := ControlStyle + [csOpaque]; 137 PaintBox1.ControlStyle := PaintBox1.ControlStyle + [csOpaque]; 130 138 end; 131 139
Note:
See TracChangeset
for help on using the changeset viewer.