Ver Mensaje Individual
  #2  
Antiguo 04-08-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Para pintarlo por código, puedes hacerlo con un código similar a éste:
Código Delphi [-]
 var
   path:String;
 begin
   // Cargar la imagen
   path := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) + 'Splash.BMP';
   Image1.Picture.LoadFromFile(path);  
   // Pintar texto
   Image1.Canvas.Font.Name := 'arial';
   Image1.Canvas.Font.Size := 40;
   Image1.Canvas.Font.Color := clWhite;
   Image1.Canvas.Brush.Style := bsClear;
   Image1.Canvas.TextOut(10, 10, 'Texto de prueba');

Si lo que quieres es que el usuario pueda escribirlo, yo lo que haría sería simularlo con un control mientras el usuario lo escribe (TEdit o similar) y cuando acabe, pones el control invisible y pintas el texto de ésta forma.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita