Komponenta FontDialog


Přehled vlastností, metod a událostí objektu:
--------------------------------------------------------------
Ctl3D (RW)           Device (RW)          Font (RW)
HelpContext (RW)     MaxFontSize (RW)     MinFontSize (RW)
Name (R)             Options              Tag (RW)
--------------------------------------------------------------
Execute              
--------------------------------------------------------------
OnClose              OnShow               
--------------------------------------------------------------
Legenda: * -> pouze z programu, R -> lze číst, W -> lze zadat

Komponenta FontDialog slouží pro zadání fontu z aplikace. Dialog se vyvolá metodou Execute, pokud se ukončí dialog stiskem klávesy 'OK', bude vybraný font přístupný ve vlastnosti Font.

Příklad:
Po kliknutí na tlačítko Button se aktivuje dialog pro výběr Fontu. Pokud je Font vybrán, použije se pro nastavení fontu komponenty Edit.


Jazyk KLONDAIK: procedure TForm.ButtonClick(Sender: TObject); begin if FontDialog.Execute then Edit.Font := FontDialog.Font; end;


Jazyk BONANZA: Sub ButtonClick(Sender) If FontDialog.Execute then Edit.Font = FontDialog.Font End If End Sub


OZOGAN, 1 Máje 97, 460 01 Liberec
tel.,fax: (048) 52 28 338, e-mail: info@ozogan.cz