Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
lazarus / usr / share / lazarus / 1.6 / components / education / eduoptionsdlg.pas
Size: Mime:
{
 *****************************************************************************
  This file is part of the EducationLaz package

  See the file COPYING.modifiedLGPL.txt, included in this distribution,
  for details about the license.
 *****************************************************************************

  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.