Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-04-2009
c4_esp_VR c4_esp_VR is offline
Registrado
 
Registrado: ago 2007
Posts: 5
Poder: 0
c4_esp_VR Va por buen camino
Hola compañeros:

He encontrado una solución, no es óptima, pero es una solución xD.

En el evento AfterRender del GLSceneViewer hay que crear un canvas y pintar en este, de la forma sigiuente:

Código:
procedure TForm1.GLSceneViewer2AfterRender(Sender: TObject);
var
   canvas : TCanvas;
begin
   canvas:=TCanvas.Create;
   try
      canvas.Handle:=GLSceneViewer2.RenderDC;
      canvas.Brush.Style := bsClear;
      canvas.Font.Name := 'Verdana';
      canvas.Font.Color := clWhite;

     canvas.TextOut(3, 3+canvas.TextHeight('A'), 'Texto');
      end;
   finally
      canvas.Free;
   end;
end;
Si alguien encuentra la solución óptima que la comparta

Un saludete y gracias.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Centralizar Textos Paulao Impresión 0 02-04-2008 19:30:54
GLScene? PiornoCKA&G Gráficos 2 25-01-2007 10:09:37
GlScene Rabata Gráficos 2 12-06-2006 16:16:32
GlScene??? Rabata Gráficos 1 08-01-2005 21:46:46
Procesador de textos mahiques Varios 4 06-05-2003 10:16:48


La franja horaria es GMT +2. Ahora son las 14:41:51.


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