bminput.inc

来自「将bmf在DOS下显示出来」· INC 代码 · 共 27 行

{$IFNDEF bminput}
{$DEFINE bminput}
{$I BMFONT.INC}
type
  PBmInput=^TBmInput;
  TBmInput=object(TBuf2d)
  private
    font:PBmFont;
    maxlength:longint;
    value:string;
  public
    Constructor init(_x,_y,_w,_h:longint;_font:PBmFont);
    Procedure setfont(_font:PBmFont);
  end; {TBmInput}
{----------------------------------------------------------------------------}
Constructor TBmInput.init(_x,_y,_w,_h:longint;_font:PBmFont);
begin
  inherited init(_x,_y,_w,_h);
  setfont(_font);
end;  {TBmInput.init}
{----------------------------------------------------------------------------}
Procedure TBmInput.setfont(_font:PBmFont);
begin
  font:=_font;
end;  {TBmInput.setfont}
{----------------------------------------------------------------------------}
{$ENDIF}