[ top ] [ prev ] [ up ] [ next ]

TEdit.Font

Format
published property A: TA read FA write SetA stored IsAStored;
Params
A = Font
Delphi
    TControl = class(TComponent)
    protected
      property Font: TFont read FFont write SetFont stored IsFontStored;
    end;

    TWinControl = class(TControl)
    end;

    TCustomEdit = class(TWinControl)
    end;

    TEdit = class(TCustomEdit)
    published
      property Font;
    end;
Apollo
procedure Edit_setup(obj: Tvalue; real: TEdit);
begin
  rb_iv_set(obj, '@font', ap_iFont(real.Font, obj));
end;

procedure Init_Edit;
begin
  //
end;
Test
require 'phi'; include Phi
form = Form.new
edit = Edit.new form
p edit.font
font = Font.new
font.name='courier'
p((edit.font=font))
p edit.font
[ top ] [ prev ] [ up ] [ next ]