8 lines
142 B
ObjectPascal
8 lines
142 B
ObjectPascal
|
##
|
||
|
|
uses GraphWPF;
|
||
|
|
Font.Size := 80;
|
||
|
|
OnMouseMove := (x,y,mb) -> begin
|
||
|
|
Window.Clear;
|
||
|
|
DrawText(Window.ClientRect,$'{x,0:f0}, {y,0:f0}');
|
||
|
|
end;
|