From Free Pascal wiki


ATExtendedDialogs is the package with units with extended dialogs. Currently only font dialog in ATFontDialog unit.

Author: Alexey Torgashin

License: dual licensed, MPL 2.0 / LPGL.


ATFontDialog contains form which mimics good features from GTK2/Win32 font dialogs. Form has many options (beginning with Opt to not mess up with LCL properties), you can see them in the demo program. Almost all dialog parts can be hidden (except the button panel).


Mimics GTK2 feature: when user clicks font size bigger than about 20, preview panel height is increased (together with the form height).


  • OptFont: TFont - Chosen font.
  • OptPreviewText: string - String to show in Preview panel.
  • OptSizeMin: integer - Minimal size of font (if it's limited) for input field.
  • OptSizeMax: integer - Maximal size of font (if it's limited).
  • OptSizeLimited: boolean - Allow limit for font size.
  • OptShowNames: boolean - Show listbox with font names.
  • OptShowColor: boolean - Show color-box for font color.
  • OptShowStyles: boolean - Show listbox with font basic styles (bold, italic).
  • OptShowStylesEx: boolean - Show checkboxes for font extended styles (underline, crossed).
  • OptShowSizes: boolean - Show listbox with font sizes.
  • OptShowPreview: boolean - Show Preview panel.
  • OptShowApply: boolean - Show Apply button.
  • OptSelectName: boolean - Initially select font name in listbox of names.
  • OptSelectStyle: boolean - Initially select font style in listbox of styles.
  • OptSelectSize: boolean - Initially select font size in listbox of sizes.
  • OptSelectColor: boolean - Initially select font color in color-box.
  • OnClickApply: TNotifyEvent - Called on pressing Apply button.