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

TLabel.Canvas

Format
public property A: TA read FA;
Params
A = Canvas
Delphi 
  TGraphicControl = class(TControl)
  protected
    property Canvas: TCanvas read FCanvas;
  end;

  TCustomLabel = class(TGraphicControl)
  public
    property Canvas;
  end;

  TLabel = class(TCustomLabel)
  end;
Apollo 
procedure Label_setup(obj: Tvalue; real: TLabel);
begin
{$IFDEF VCL}
  rb_iv_set(obj, '@canvas', ap_iCanvas(real.Canvas, obj));
{$ENDIF}
end;

procedure Init_Label;
begin
  //
end;
CLX での注意
CLX の TLabel には Canvas:property が存在しない。
CLX の TLabel は TWidgetControl から派生している。

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