Ver Mensaje Individual
  #8  
Antiguo 24-08-2006
Avatar de Gabel
Gabel Gabel is offline
Miembro
 
Registrado: ago 2006
Posts: 28
Reputación: 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