UniGUI的Canvas使用

Procedure TMainForm.UniImage1MouseUp(Sender: TObject;Button:TMouseButton;

Shift:TShiftState;X,Y:Integer);

begin

  UniImage1.Picture.Bitmap.Canvas.Pen.Width := 1;

  UniImage1.Picture.Bitmap.Transparent := True;

  if Button=mbLeft then

  begin

if x0=’’ then

begin

  x0 := IntToStr(x);

  y0 := IntToStr(y);

  UniLabel2.Caption := x0+’,’+y0+’,’;

end

else begin

      UniImage1.Picture.Bitmap.Canvas.MoveTo(StrToInt(x0), StrToInt(y0));

  x0 :