Ignore:
Timestamp:
Apr 6, 2021, 7:39:39 PM (8 months ago)
Author:
chronos
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/CevoComponents/DrawDlg.pas

    r336 r347  
    2323    // defines area to grip the window for moving (from top)
    2424    procedure InitButtons;
    25     procedure OnEraseBkgnd(var m: TMessage); message WM_ERASEBKGND;
     25    procedure OnEraseBkgnd(var Msg: TMessage); message WM_ERASEBKGND;
    2626    procedure OnHitTest(var Msg: TMessage); message WM_NCHITTEST;
    2727    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     
    8484end;
    8585
    86 procedure TDrawDlg.OnEraseBkgnd(var m: TMessage);
     86procedure TDrawDlg.OnEraseBkgnd(var Msg: TMessage);
    8787begin
    8888  // Full area should be covered by Paint method
     
    118118          end;
    119119        end;
    120       Msg.Result := HTCAPTION
     120      Msg.Result := HTCAPTION;
    121121    end;
    122122  end;
Note: See TracChangeset for help on using the changeset viewer.