Unit 'LR_RRect' Package
[Overview][Types][Classes][Index] [#lz_report]

TfrRoundRectForm

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: lr_rrect.pas line 113

type TfrRoundRectForm = class(TfrObjEditorForm)

  chkTL: TCheckBox;

  

  chkTR: TCheckBox;

  

  chkBL: TCheckBox;

  

  chkBR: TCheckBox;

  

  lblSqrCorners: TLabel;

  

  M1: TMemo;

  

  Button5: TButton;

  

  Button6: TButton;

  

  lblSample: TLabel;

  

  colorDlg: TColorDialog;

  

  bOk: TButton;

  

  bCancel: TButton;

  

  Image1: TImage;

  

  imgSample: TImage;

  

  cbGradian: TCheckBox;

  

  panCurve: TPanel;

  

  cmShadow: TCheckBox;

  

  sCurve: TEdit;

  

  lblSWidth: TLabel;

  

  ShWidth: TEdit;

  

  lblSColor: TLabel;

  

  bcolor: TImage;

  

  cbCadre: TCheckBox;

  

  panGrad: TPanel;

  

  Label1: TLabel;

  

  bcolor3: TImage;

  

  Label2: TLabel;

  

  bColor2: TImage;

  

  cbStyle: TComboBox;

  

  Label3: TLabel;

  

  procedure Button5Click();

  

  procedure Button6Click();

  

  procedure bColorClick();

  

  procedure chkTLClick();

  

  procedure ShWidthChange();

  

  procedure FormCreate();

  

  procedure cbCadreClick();

  

  procedure cbGradianChange();

  

  procedure cmShadowClick();

  

  procedure M1KeyDown();

  

  procedure FormKeyDown();

  

  procedure cbGradianClick();

  

  procedure FormShow();

  

public

  procedure ShowEditor(); override;

  

  property Corners: TCornerSet; [rw]

  

end;

Inheritance

TfrRoundRectForm

  

|

TObject



CT Web help

CodeTyphon Studio