Class TRkLabelEditDlg (unit RkLblEdt) |
Inherits from
TForm
procedure CbxColorDrawItem( Control : TWinControl; Index : Integer;
Rect : TRect; State : TOwnerDrawState );
=========================================================================
TRkLabelEditDlg.
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.
procedure FormCreate( Sender : TObject );
=============================} {== TRkLabelEditDlg Methods ==} {=============================} {=========================================================================
NOTE:
All changes made through the control on this dialog box affect only
the preview label (LblPreview).
procedure GrpTextStyleClick( Sender : TObject );
procedure TrkPointSizeChange( Sender : TObject );
procedure TrkPointSizeDrawTick( TrackBar : TRkTrackBar;
Canvas : TCanvas;
Location : TPoint; Index : Integer );
=========================================================================
TRkLabelEditDlg.
procedure TrkShadowChange( Sender : TObject );
procedure InitSettings;
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;
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;
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;