Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 20-11-2008
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Tal vez esto te de alguna idea.
Es un ejemplo sencillo.
Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
 var
  AnteriorBkMode: integer;
begin
 with Image1.Canvas do begin
  Brush.Color := clRed;
  TextOut(5, 350, 'Fecha de entrada');
  AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
  TextOut(5, 380, Edit1.Text);
  SetBkMode(Handle, AnteriorBkMode);
end;
end;
Saludos
__________________
Siempre Novato
Responder Con Cita
 


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
Insertar texto transparente con canvas Jan_polero Gráficos 3 23-08-2012 17:44:15
borrar dibujo en Timage usando Canvas pablopessoa Gráficos 4 30-10-2008 16:12:08
Rutina de input con texto Canvas... Geta Varios 6 12-01-2006 05:26:35
Usar texto en el Canvas iotegi Varios 2 27-07-2005 16:37:08
Agregar Texto a un TImage animal Gráficos 1 22-02-2005 13:18:28


La franja horaria es GMT +2. Ahora son las 23:26:14.


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