Class TfrmMain (unit untMain)

Inherits from

TForm

Constructors



Functions

procedure btnCloseClick(Sender: TObject);

gcb1.

procedure btnFontClick(Sender: TObject);

PaintBox1.

procedure btnFreeAllGlyphsClick(Sender: TObject);


procedure chkStraitColumnClick(Sender: TObject);


procedure edtGapGlyphChange(Sender: TObject);


procedure edtGapTextChange(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure gcb1Change(Sender: TObject);


procedure rgpAlignmentVClick(Sender: TObject);


procedure rgpGlyphAlignHClick(Sender: TObject);


procedure rgpGlyphAlignVClick(Sender: TObject);


procedure rgpOrderClick(Sender: TObject);


procedure rgpTextAlignmentClick(Sender: TObject);


Properties

Events

Variables

btnClose : TButton;


btnFont : TButton;


btnFreeAllGlyphs : TButton;


chkStraitColumn : TCheckBox;


edtGapGlyph : TEdit;


edtGapText : TEdit;


FontDialog1 : TFontDialog;


gcb1 : TGlyphComboBox;


gcb2 : TGlyphComboBox;


Label1 : TLabel;


Label2 : TLabel;


rgpAlignmentV : TRadioGroup;


rgpGlyphAlignH : TRadioGroup;


rgpGlyphAlignV : TRadioGroup;


rgpOrder : TRadioGroup;


rgpTextAlignment : TRadioGroup;



Constructors


Functions


procedure btnCloseClick(Sender: TObject);

gcb1.AddItemAndGlyphFile('שורה עם כיתוב בעברית תקנית', 'pencil.bmp');


procedure btnFontClick(Sender: TObject);

PaintBox1.Canvas.Draw(0, 0, gcb1.Glyphs[gcb1.ItemIndex]);


procedure btnFreeAllGlyphsClick(Sender: TObject);


procedure chkStraitColumnClick(Sender: TObject);


procedure edtGapGlyphChange(Sender: TObject);


procedure edtGapTextChange(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure gcb1Change(Sender: TObject);


procedure rgpAlignmentVClick(Sender: TObject);


procedure rgpGlyphAlignHClick(Sender: TObject);


procedure rgpGlyphAlignVClick(Sender: TObject);


procedure rgpOrderClick(Sender: TObject);


procedure rgpTextAlignmentClick(Sender: TObject);


Properties


Events


Variables


btnClose : TButton;


btnFont : TButton;


btnFreeAllGlyphs : TButton;


chkStraitColumn : TCheckBox;


edtGapGlyph : TEdit;


edtGapText : TEdit;


FontDialog1 : TFontDialog;


gcb1 : TGlyphComboBox;


gcb2 : TGlyphComboBox;


Label1 : TLabel;


Label2 : TLabel;


rgpAlignmentV : TRadioGroup;


rgpGlyphAlignH : TRadioGroup;


rgpGlyphAlignV : TRadioGroup;


rgpOrder : TRadioGroup;


rgpTextAlignment : TRadioGroup;