Club Delphi  
    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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-05-2015
Avatar de bulc
bulc bulc is offline
Miembro
 
Registrado: jun 2010
Posts: 412
Poder: 14
bulc Va por buen camino
Intento dotar al TShape de Texto pero no consigo que funcione

He encontrado este código que me vendría muy bien pero no consigo hacerlo funcionar. ¿Seríais tan amables de decirme por qué no funciona?
Código Delphi [-]
type
  TShape = class(ExtCtrls.TShape); //interposer class

  TForm1 = class(TForm)
    Shape1: TShape;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    Shape1.Canvas.Font.Name :='Arial';// set the font 
    Shape1.Canvas.Font.Size  :=20;//set the size of the font
    Shape1.Canvas.Font.Color:=clBlue;//set the color of the text
    Shape1.Canvas.TextOut(10,10,'1999');
end;
Gracias
bulc
Responder Con Cita
  #2  
Antiguo 24-05-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Por qué no funciona, qué sale, qué dice, qué muestra...?
Responder Con Cita
  #3  
Antiguo 24-05-2015
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
bulc,

Cita:
Empezado por bulc
...este código que me vendría muy bien pero no consigo hacerlo funcionar...


Pregunto:

1- ¿Que versión de Windows y de cuantos bits (32/64) utiliza tu aplicación?.

2- ¿Que versión de Delphi utiliza tu aplicación?.

3- ¿Puedes detallar o mostrar el problema señalado?.

Revisa este código:
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Math;

type

  TShape = class(ExtCtrls.TShape);

  TForm1 = class(TForm)
    Shape1: TShape;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   Number : Integer;

begin

    Randomize;
    Number := RandomRange(1999,2016);

    Shape1.Canvas.Brush.Color := clSkyBlue;
    Shape1.Canvas.Font.Name :='Arial';
    Shape1.Canvas.Font.Size := 30;
    Shape1.Canvas.Font.Color := clBlue;
    Shape1.Canvas.TextOut(10,10,IntToStr(Number));

end;

end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32, Implementa un TShape e imprime texto sobre el mismo de forma dinámica, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.
Responder Con Cita
  #4  
Antiguo 24-05-2015
Avatar de bulc
bulc bulc is offline
Miembro
 
Registrado: jun 2010
Posts: 412
Poder: 14
bulc Va por buen camino
Pues me faltaba algo...

Ya veo que no veo. He puesto en el Uses Vcl.ExtCtrls, System.Math; y funciona. !Qué cosas!
No sé qué decir así que te doy las gracias. Se me quita un peso de encima.
Saludos,
bulc
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
leer texto pero del final al inicio octalh Varios 6 04-04-2008 04:13:01
Justificar texto con RAVE, dice que se puede, pero como? Alfredo Impresión 2 12-11-2007 17:13:22
Abrir un archivo de texto pero de otro ordenador kakarotv5 Servers 8 03-10-2007 10:12:53
Un TShape con personalidad elcigarra Gráficos 7 21-07-2005 05:47:00
donde consigo Firebird que funcione ronimaxh Firebird e Interbase 9 24-11-2003 14:34:41


La franja horaria es GMT +2. Ahora son las 15:25:28.


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