| Class TLabelEditorDlg (unit Myrotaed) |
TForm
| Constructors |
| Functions |
procedure BitBtnCancelClick(Sender: TObject);
procedure MyLabelRotate1Click(Sender: TObject);
procedure RBNormalClick(Sender: TObject);
procedure RBRaisedClick(Sender: TObject);
procedure RBResetWhiteClick(Sender: TObject);
procedure RBResitClick(Sender: TObject);
procedure RBShadowedClick(Sender: TObject);
procedure ShadeHChange(Sender: TObject);
procedure ShadeVChange(Sender: TObject);
procedure ShadowColorsChange(Sender: TObject);
procedure TheAngleScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure DefaultColorPallet;
procedure SetTheAngle(Value: longint);
procedure SetTheFhOffSet(value: integer);
procedure SetTheFvOffSet(value: integer);
procedure setTheLabelstyle(value:TLabelStyle);
procedure SetTheShadeLT(value: boolean);
procedure SetTheShadowColor(Value:TColor);
procedure setTheStyleEffect(Value : T3DEffectShort);
procedure SetTheWhiteColor(Value:TColor);| Properties |
property EditorLabelStyle : TLabelStyle| Events |
| Variables |
BitBtnCancel : TBitBtn;
BitBtnOk : TBitBtn;
ByLabel : TLabel;
Degree : TLabel;
GroupBox1 : TGroupBox;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
MyLabelRotate1 : TMyLabelRotate;
MyLabelRotate2 : TMyLabelRotate;
RBNormal : TRadioButton;
RBRaised : TRadioButton;
RBResetWhite : TCheckBox;
RBResit : TRadioButton;
RBShadowed : TRadioButton;
ShadeH : TSpinEdit;
ShadeV : TSpinEdit;
ShadowChoice : TRadioGroup;
ShadowColors : TComboBox;
TheAngle : TScrollBar;
ColorValues : array[0..38] of TColor;
FA3DEffect : T3DEffectShort;
fAngle : longint;
FhOffSet : integer;
FLabelStyle : TLabelStyle;
FShadeLTSet : boolean;
FShadowColor : TColor;
FvOffSet : integer;
FWhiteColor : TColor;| Constructors |
| Functions |
procedure BitBtnCancelClick(Sender: TObject);
procedure MyLabelRotate1Click(Sender: TObject);
procedure RBNormalClick(Sender: TObject);
procedure RBRaisedClick(Sender: TObject);
procedure RBResetWhiteClick(Sender: TObject);
procedure RBResitClick(Sender: TObject);
procedure RBShadowedClick(Sender: TObject);
procedure ShadeHChange(Sender: TObject);
procedure ShadeVChange(Sender: TObject);
procedure ShadowColorsChange(Sender: TObject);
procedure TheAngleScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure DefaultColorPallet;
procedure SetTheAngle(Value: longint);
procedure SetTheFhOffSet(value: integer);
procedure SetTheFvOffSet(value: integer);
procedure setTheLabelstyle(value:TLabelStyle);
procedure SetTheShadeLT(value: boolean);
procedure SetTheShadowColor(Value:TColor);
procedure setTheStyleEffect(Value : T3DEffectShort);
procedure SetTheWhiteColor(Value:TColor);| Properties |
property EditorLabelStyle : TLabelStylePublic declarations
| Events |
| Variables |
BitBtnCancel : TBitBtn;
BitBtnOk : TBitBtn;
ByLabel : TLabel;
Degree : TLabel;
GroupBox1 : TGroupBox;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
MyLabelRotate1 : TMyLabelRotate;
MyLabelRotate2 : TMyLabelRotate;
RBNormal : TRadioButton;
RBRaised : TRadioButton;
RBResetWhite : TCheckBox;
RBResit : TRadioButton;
RBShadowed : TRadioButton;
ShadeH : TSpinEdit;
ShadeV : TSpinEdit;
ShadowChoice : TRadioGroup;
ShadowColors : TComboBox;
TheAngle : TScrollBar;
ColorValues : array[0..38] of TColor;
FA3DEffect : T3DEffectShort;
fAngle : longint;Private declarations
FhOffSet : integer;
FLabelStyle : TLabelStyle;
FShadeLTSet : boolean;
FShadowColor : TColor;
FvOffSet : integer;
FWhiteColor : TColor;