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
  #8  
Antiguo 24-08-2006
Avatar de Gabel
Gabel Gabel is offline
Miembro
 
Registrado: ago 2006
Posts: 28
Poder: 0
Gabel Va por buen camino
Cita:
Empezado por delphi.com.ar
Noo.. Román ClubDelphi es un genio de verdad (Lo rebauticé)

Acá tenés otra opción:

Código Delphi [-]unit CLabel;

interface

uses
Classes, StdCtrls, Controls;

type
TCLabel = class(TCustomLabel)
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
published
property Align;
property Anchors;
property AutoSize;
property BiDiMode;
property Caption;
property Color nodefault;
property Constraints;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property FocusControl;
property Font;
property ParentBiDiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowAccelChar;
property ShowHint;
property Transparent;
property Visible;
property WordWrap;
property OnClick;
property OnContextPopup;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseEnter;
property OnMouseLeave;
property OnStartDock;
property OnStartDrag;
end;

implementation

uses
Graphics;

{ TCLabel }

constructor TCLabel.Create(AOwner: TComponent);
begin
inherited;
AutoSize := False;
Alignment := taCenter;
Layout := tlCenter;
end;

procedure TCLabel.Paint;
begin
inherited;
Canvas.Ellipse(ClientRect); {Modificado el 2208/2006, Orignialmente hacía referencia a BondsRect}
end;

end.





Saludos!
Emmm que parte de soy un principiante no entendiste ?
Amigo! me asusta todo ese codigo... No, hablando en serio, el 99% del codigo que utilizas es totalmente desconocido para mi, y trato de utilizar codigo que si pueda entender porque la idea, "el gusto" de todo esto es aprender el lenguaje, aprender a programar... y creo que no elegi el leguaje mas "facil", pero bueno, me gustó mucho el Pascal, y Delphi es lo mas parecido a mi querido Pascalito.
Ah! muchas gracias igualmente por querer darme una mano, por escribir todo ese codigo. Y por sobre todo, que bueno tu avatar! Espero que lo honres siendo "El Diego" del Delphi. Nos vemos.
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
Como hago este calculo??? danytorres Varios 10 18-11-2008 22:27:19
Liberar una Fila luego de ingresarle datos en un DBGrid bellota Varios 4 20-06-2006 17:41:33
como resuelvo este error? Ryu Internet 3 18-04-2005 19:10:39
Como armo este txt???? danytorres Varios 9 06-09-2004 22:29:46
¿Qué significa este Código de Control??? Combat-F2D Impresión 3 18-06-2003 00:23:48


La franja horaria es GMT +2. Ahora son las 08:02:29.


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