Search found 2 matches
- 19 May 2021, 09:54
- Forum: CAD VCL
- Topic: Get Windows position from CAD VCL Position
- Replies: 2
- Views: 3480
Re: Get Windows position from CAD VCL Position
Thank you Mikhail ! I wrote the following code: LVectorImage - object of TsgDrawingNavigator inheritor class var LCenter, LPoint: TPoint; LVectorImage: TsmVectorImageEditor; function PtInRect(const Rect: TFRect; const P: TFPoint): Boolean; begin Result := (P.X >= Rect.Left) and (P.X <= Rect.Right) a...
- 18 May 2021, 12:32
- Forum: CAD VCL
- Topic: Get Windows position from CAD VCL Position
- Replies: 2
- Views: 3480
Get Windows position from CAD VCL Position
Hello!
How I can get Windows point position from CAD VCL TFPoint ?With respect,
Alexander.
How I can get Windows point position from CAD VCL TFPoint ?
Code: Select all
var
LCenter: TFPoint;
begin
LCenter := XXX.Insert.Box.CenterPoint;
LCenter -> to windows point for SetMouseCursorPos (I create UnitTest)
....
end;
Alexander.