7 replies to this topic

[egostar]

Hola amigos.
        Tengo un componente llamado VrScope, pero me gustaria poder hacer uno usando canvas.De esta forma se podria modificar al requerimiento y no estar limitados a este componente.
      A ver si algun maestro nos quia por el camino.Con informacion o algun ejemplito.



Un Saludo.

Hola carnal

Porque no nos pones una imagen de ese tal VrScope para saber que es lo que necesitas.

Salud OS

[eduarcol]

en este caso una imagen no vale mas que mil palabras, si nos explicaras un poco el funcionamiento...

[cHackAll]

delphi

procedure TForm1.Button1Click(Sender: TObject);
var Index: Cardinal;
begin
 Canvas.Brush.Color := clBlack;
 Canvas.FillRect(ClientRect);
 Canvas.Pen.Color := clGreen;
 for Index := 1 to 16 do
  begin
   Canvas.MoveTo(0, Index * 32);
   Canvas.LineTo(ClientWidth, Index * 32);
   Canvas.MoveTo(Index * 32, 0);
   Canvas.LineTo(Index * 32, ClientHeight);
  end;
 Canvas.MoveTo(0, ClientHeight div 2);
 Canvas.Pen.Color := clRed;
 for Index := 1 to 90 do
  Canvas.LineTo(Index * 10, (ClientHeight div 2) + Round(Sin(Index / Pi) * 66));
end;