program Project1;

uses
 kol,
 KOLMHFontDialog;

var form, btn, lbl: pcontrol;

procedure DoClick(Dummy,Sender: PObj);
var fd: PMHFontDialog; cd: PColorDialog;
begin
 fd := NewMHFontDialog(form);
 fd.options :=  fd.options + [fdEffects, fdInitFont];
 Colordlg:=NewColorDialog(ccoFullOpen);
 fd.InitFont.Assign(lbl.font);
 if fd.Execute then
   lbl.Font.assign(fd.Font);
 fd.Free;
end;

begin
 form := newForm(nil, 'testmhfont');
 lbl := NewLabel(form,'Test Font Color').AutoSize(True).ResizeParentRight;
 btn := NewButton(form,'Font').PlaceUnder.ResizeParentBottom;
 btn.OnClick := TOnEvent(MakeMethod(nil, @DoClick));
 run(form);
end.