Changeset 252 for branches/highdpi/Packages/CevoComponents/DrawDlg.pas
- Timestamp:
- May 23, 2020, 12:45:14 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/highdpi/Packages/CevoComponents/DrawDlg.pas
r246 r252 22 22 // defines area to grip the window for moving (from top) 23 23 procedure InitButtons; 24 procedure OnEraseBkgnd(var m: TMessage); message WM_ERASEBKGND;24 procedure OnEraseBkgnd(var Msg: TMessage); message WM_ERASEBKGND; 25 25 procedure OnHitTest(var Msg: TMessage); message WM_NCHITTEST; 26 26 procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); … … 79 79 end; 80 80 81 procedure TDrawDlg.OnEraseBkgnd(var m: TMessage);81 procedure TDrawDlg.OnEraseBkgnd(var Msg: TMessage); 82 82 begin 83 83 end; … … 93 93 else 94 94 begin 95 Pos := Point(Integer(Msg.LParam and $ffff),96 Integer((Msg.LParam shr 16) and $ffff)) ;95 Pos := ScalePointFromNative(Point(Integer(Msg.LParam and $ffff), 96 Integer((Msg.LParam shr 16) and $ffff))); 97 97 if Pos.Y >= Top + TitleHeight then 98 98 Msg.Result := HTCLIENT … … 112 112 end; 113 113 end; 114 Msg.Result := HTCAPTION 114 Msg.Result := HTCAPTION; 115 115 end; 116 116 end;
Note:
See TracChangeset
for help on using the changeset viewer.