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