6e34bc00fa
GraphABCLinux Поправил иконку PABCHealth Изменения в LightPT.pas Цветной вывод в окне вывода (только для Windows) Console.OutputEncoding := new System.Text.UTF8Encoding(false); в __RedirectIOMode.pas чтобы в Linux нормально выводилось
7 lines
182 B
ObjectPascal
7 lines
182 B
ObjectPascal
uses GraphABCLinux;
|
|
|
|
begin
|
|
Window.Title := 'Рисование мышью';
|
|
OnMouseDown := (x,y,mb) -> MoveTo(x,y);
|
|
OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y);
|
|
end. |