Foros Club Delphi - Propiedad tipo Font

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Propiedad tipo Font (https://www.clubdelphi.com/foros/showthread.php?t=8678)

diegofhernando

29-03-2004 23:47:29

Propiedad tipo Font

Hola...

En esta ocasion pretendo que el usuario de mi componente pueda establecer la fuente de mi componente, tengo una propiedad llamada InFont, al escribir esta propiedad, las caracteristicas se almancenan en una variable de tipo TFont (FInFont), el lio es que si no inicializo esta varible, delphi me dice que no se puede asignar nil a un tipo TFont... pero si la inicializo (FInFont:= TFont.Create) cuando modifico la fuente desde el cuadro de configuración que genera el elipsis del inspector de objetos, genera una excepcion de memoria...

Espero me puedan colaborar...

Salu2 :cool:

roman

30-03-2004 00:00:22

Algo así:

Código:

type

  TuComponente = class(...)

  private

    FFont: TFont;

    procedure SetFont(Value: Font);



  public

    property Font: TFont read FFont write SetFont;

  end;

En el constructor creas el objeto y lo destruyes en el destructor. Lo imprtante aquí es que en el método SetFont en lugar de simpleente asignar Value a Font usas Assign:

FFont.Assign(Value)

// Saludos

diegofhernando

30-03-2004 00:04:28

Perfecto... de verdad muchas gracias, ya me sacaste apuros 2 veces hoy. y... si no es mucha molestia :p quisiera incluir en mi componente algo como la version del mismo, como publico esta propiedad que sea de solo lectura???

Gracias de nuevo.

Salu2 :cool:

__cadetill

30-03-2004 00:15:37

Si quieres mostrar tu propio diálogo

Código:

  private

    FAbout : string;

  published

    property about: string read FAbout write FAbout;



  TAboutProperty = class(TPropertyEditor)

  public

    procedure Edit; override;

    function GetAttributes : TPropertyAttributes; override;

    function GetValue : string; override;

  end;



implementation



function TAboutProperty.GetValue: string;

begin

  Result := Format('(%s)',[GetPropType^.Name]);

end;



function TAboutProperty.GetAttributes: TPropertyAttributes;

begin

  Result := [paDialog];

end;



procedure TAboutProperty.Edit;

begin

  inherited;



  AboutBox := TAboutBox.Create(Application);

  try

    AboutBox.ShowModal;

  except

    on E: Exception do

      raise ECreateForm.Create(ErrorCreateForm + E.Message);

  end;

end;

uses en D6 o superior : DesignIntf, DesignEditors
uses en D5 (o inferior creo) : DsgnIntf

Si no me he dejado nada, esto es todo

Espero te sirva

La franja horaria es GMT +2. Ahora son las 22:13:10.