Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-09-2007
Avatar de paldave
paldave paldave is offline
Miembro
 
Registrado: ago 2007
Ubicación: Uruguay
Posts: 148
Poder: 17
paldave Va por buen camino
Solo lo sabrá el mejor: smooth en gráficos

¿Alguien sabe como se podría implementar el uso de las rutinas de DirectX u OpenGL que dibujan utilizando Smooth para utilizarlas en, por ejemplo, un Canvas?
Lo que quiero es dibujar una línea en un Canvas a 30 grados y que parezca una línea, no una escalera
Desde ya agradecido a quien pueda aportarme ideas.
Responder Con Cita
  #2  
Antiguo 27-09-2007
Avatar de xEsk
[xEsk] xEsk is offline
Miembro Premium
 
Registrado: feb 2006
Posts: 454
Poder: 19
xEsk Va por buen camino
Hola, si a lo que te refieres es a dibujar una recta no pixelada (antialiased line), aquí un ejemplo, pero si te refieres a una "curva", entonces quizás te interesa la función PolyBezier.

Ejemplo de PolyBezier usando la API:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  pts: Array[0..3] of TPoint;
begin
  pts[0] := Point(100,100);
  pts[1] := Point(150,300);
  pts[2] := Point(200, 50);
  pts[3] := Point(250, 175);

  { Dibuja la curva }
  PolyBezier(Canvas.Handle, pts, 4);

  { Muestra los puntos de la curva }
  Canvas.Rectangle(pts[0].x-3,pts[0].y-3,pts[0].x+3,pts[0].y+3);
  Canvas.Rectangle(pts[1].x-3,pts[1].y-3,pts[1].x+3,pts[1].y+3);
  Canvas.Rectangle(pts[2].x-3,pts[2].y-3,pts[2].x+3,pts[2].y+3);
  Canvas.Rectangle(pts[3].x-3,pts[3].y-3,pts[3].x+3,pts[3].y+3);
end;

Ejemplo de PolyBezier usando la función del TCanvas:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.PolyBezier([Point(100,100), Point(150,300), Point(200, 50), Point(250, 175)]);
end;

Estas dos cosas son las que he interpretado de tu mensaje.

Saludos.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Alguién sabra de una utileria jordan23 Varios 3 27-07-2007 22:06:30
Cual es el mejor acceso a FireBird/InterBase?; cuanto mejor?? Combat-F2D Firebird e Interbase 9 22-06-2006 18:32:36
¿Mejor heredar de una Lista o mejor introducir la Lista en un campo? Jome OOP 8 24-11-2005 17:11:16
Gráficos Luli Gráficos 1 08-10-2004 00:10:04
mostrar SOLO cliente de los que tengo un sólo registro Giniromero SQL 15 11-06-2004 12:33:19


La franja horaria es GMT +2. Ahora son las 20:57:50.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi