![]() |
![]() |
![]() |
![]() |
property CursorId: integer; //read and write
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); var layer: TLayer32; begin if not (ssLeft in Shift) then begin layer := layeredImage.GetLayerAt(Types.Point(X,Y)); if Assigned(layer) then Cursor := layer.CursorId else Cursor := crDefault; end;
Copyright ©2019 Angus Johnson - Image32 ver. 4.0 - Documentation last updated on 20-January-2022