| Class TRkLabelEditDlg (unit RkLblEdt) |
TForm
| Constructors |
| Functions |
procedure CbxColorDrawItem( Control : TWinControl; Index : Integer;
Rect : TRect; State : TOwnerDrawState );
procedure CbxFontColorChange( Sender : TObject );
procedure CbxFontsChange( Sender : TObject );
procedure CbxShadowColorChange( Sender : TObject );
procedure ChkBoldClick( Sender : TObject );
procedure ChkItalicClick( Sender : TObject );
procedure ChkStrikeoutClick( Sender : TObject );
procedure ChkUnderlineClick( Sender : TObject );
procedure EdtCaptionChange( Sender : TObject );
procedure FormCreate( Sender : TObject );
procedure GrpTextStyleClick( Sender : TObject );
procedure TrkPointSizeChange( Sender : TObject );
procedure TrkPointSizeDrawTick( TrackBar : TRkTrackBar;
Canvas : TCanvas;
Location : TPoint; Index : Integer );
procedure TrkShadowChange( Sender : TObject );
procedure InitSettings;| Properties |
| Events |
| Variables |
BtnCancel : TButton;
BtnOK : TButton;
CbxFontColor : TComboBox;
CbxFonts : TComboBox;
CbxShadowColor : TComboBox;
ChkBold : TCheckBox;
ChkItalic : TCheckBox;
ChkStrikeout : TCheckBox;
ChkUnderline : TCheckBox;
EdtCaption : TEdit;
GrpFontFace : TGroupBox;
GrpFontStyle : TGroupBox;
GrpPreview : TGroupBox;
GrpShadow : TGroupBox;
GrpTextStyle : TRadioGroup;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
LblPreview : TRkLabel;
TrkPointSize : TRkTrackBar;
TrkShadow : TRkTrackBar;| Constructors |
| Functions |
procedure CbxColorDrawItem( Control : TWinControl; Index : Integer;
Rect : TRect; State : TOwnerDrawState );========================================================================= TRkLabelEditDlg.CbxColorDrawItem This owner-draw method is used to draw color entries for both the Font Color and Shadow Color combo boxes. =========================================================================
procedure CbxFontColorChange( Sender : TObject );Draw color rectangle
procedure CbxFontsChange( Sender : TObject );
procedure CbxShadowColorChange( Sender : TObject );
procedure ChkBoldClick( Sender : TObject );
procedure ChkItalicClick( Sender : TObject );
procedure ChkStrikeoutClick( Sender : TObject );
procedure ChkUnderlineClick( Sender : TObject );
procedure EdtCaptionChange( Sender : TObject );= TRkLabelEditDlg.InitSettings =
procedure FormCreate( Sender : TObject );=============================} {== TRkLabelEditDlg Methods ==} {=============================} {========================================================================= NOTE: All changes made through the control on this dialog box affect only the preview label (LblPreview). Only if the OK button is pressed are the changes reflected in the selected component. =========================================================================
procedure GrpTextStyleClick( Sender : TObject );
procedure TrkPointSizeChange( Sender : TObject );
procedure TrkPointSizeDrawTick( TrackBar : TRkTrackBar;
Canvas : TCanvas;
Location : TPoint; Index : Integer );========================================================================= TRkLabelEditDlg.TrkPointSizeDrawTick Owner draw method used to display point size values at each tick mark. =========================================================================
procedure TrkShadowChange( Sender : TObject );
procedure InitSettings;| Properties |
| Events |
| Variables |
BtnCancel : TButton;
BtnOK : TButton;
CbxFontColor : TComboBox;
CbxFonts : TComboBox;
CbxShadowColor : TComboBox;
ChkBold : TCheckBox;
ChkItalic : TCheckBox;
ChkStrikeout : TCheckBox;
ChkUnderline : TCheckBox;
EdtCaption : TEdit;
GrpFontFace : TGroupBox;
GrpFontStyle : TGroupBox;
GrpPreview : TGroupBox;
GrpShadow : TGroupBox;
GrpTextStyle : TRadioGroup;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
LblPreview : TRkLabel;
TrkPointSize : TRkTrackBar;
TrkShadow : TRkTrackBar;