pascalabcnet/InstallerSamples/Graphics/GraphWPF/mouse1.pas

uses GraphWPF;

begin
  OnMouseDown := (x,y,mb) -> if mb=1 then Circle(x,y,5);
  OnKeyDown := k -> Print(k);
end.
-												bug fix #585

											
										
										
											2017-12-17 14:40:06 +03:00
+								uses GraphWPF;
-												bug fix #469
GraphWPF
Samples on GraphWPF

											
										
										
											2017-08-26 00:30:33 +03:00
 								begin
 								  OnMouseDown := (x,y,mb) -> if mb=1 then Circle(x,y,5);
 								  OnKeyDown := k -> Print(k);
 								end.