Class TWidgetEditDlg (unit WdgEdt)

Inherits from

TForm

Constructors



Functions

procedure BoldClick(Sender: TObject);


procedure ColorGridClick(Sender: TObject);


procedure ColorGridDrawCell(Sender: TObject; Col, Row: longint; Rect: TRect; State: TGridDrawState);


procedure ComboBox1Change(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure GlyphGridClick(Sender: TObject);


procedure GlyphGridSelectCell(Sender: TObject; Col, Row: longint; var CanSelect: Boolean);

draw the glyph centered

procedure ItalicClick(Sender: TObject);


procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);


procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);


procedure DrawPanel;

Public declarations

A design mistake!! This routine has to parallel TWidget.


Properties

Events

Variables

Bold : TCheckBox;


Button1 : TButton;


Button2 : TButton;


ColorGrid : TStringGrid;


ComboBox1 : TComboBox;


FontLabel : TLabel;


GlyphGrid : TStringGrid;


Italic : TCheckBox;


Panel1 : TPanel;


UpDown1 : TUpDown;


UpDown2 : TUpDown;


Glyph : char;

Private declarations

OffsetLeft : integer;


OffSetTop : integer;



Constructors


Functions


procedure BoldClick(Sender: TObject);


procedure ColorGridClick(Sender: TObject);


procedure ColorGridDrawCell(Sender: TObject; Col, Row: longint; Rect: TRect; State: TGridDrawState);


procedure ComboBox1Change(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure GlyphGridClick(Sender: TObject);


procedure GlyphGridSelectCell(Sender: TObject; Col, Row: longint; var CanSelect: Boolean);

draw the glyph centered


procedure ItalicClick(Sender: TObject);


procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);


procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);


procedure DrawPanel;

Public declarations

A design mistake!! This routine has to parallel TWidget.DrawWidget or else the drawing is off.


Properties


Events


Variables


Bold : TCheckBox;


Button1 : TButton;


Button2 : TButton;


ColorGrid : TStringGrid;


ComboBox1 : TComboBox;


FontLabel : TLabel;


GlyphGrid : TStringGrid;


Italic : TCheckBox;


Panel1 : TPanel;


UpDown1 : TUpDown;


UpDown2 : TUpDown;


Glyph : char;

Private declarations


OffsetLeft : integer;


OffSetTop : integer;