{ ***************************************************************************** * * * This file is part of the EducationLaz package * * * * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * * but WITHOUT ANY WARRANTY; without even the implied warranty of * * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. * * * ***************************************************************************** Author: Mattias Gaertner Abstract: Dialog to setup the education package. } unit EduOptionsDlg; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, ButtonPanel, ComCtrls, ExtCtrls; type { TEduOptionsDialog } TEduOptionsDialog = class(TForm) ButtonPanel1: TButtonPanel; FramePanel: TPanel; FramesTreeView: TTreeView; procedure ButtonPanel1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { private declarations } public { public declarations } end; var EduOptionsDialog: TEduOptionsDialog; procedure Register; implementation procedure Register; begin end; { TEduOptionsDialog } procedure TEduOptionsDialog.FormCreate(Sender: TObject); begin ButtonPanel1.OKButton.OnClick:=@ButtonPanel1Click; end; procedure TEduOptionsDialog.ButtonPanel1Click(Sender: TObject); begin end; {$R *.lfm} end.