Class TLabelEditorDlg (unit Myrotaed)

Inherits from

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

Public 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;



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

Public 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;