mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 14:19:22 +02:00
started educationlaz package
git-svn-id: trunk@20630 -
This commit is contained in:
parent
ef2791cdc5
commit
7c13246fac
4
.gitattributes
vendored
4
.gitattributes
vendored
@ -332,6 +332,10 @@ components/editortoolbar/images/preferences16.xpm -text svneol=unset#image/x-xpi
|
|||||||
components/editortoolbar/jumpto.pas svneol=native#text/plain
|
components/editortoolbar/jumpto.pas svneol=native#text/plain
|
||||||
components/editortoolbar/jumpto_impl.pas svneol=native#text/plain
|
components/editortoolbar/jumpto_impl.pas svneol=native#text/plain
|
||||||
components/editortoolbar/toolbar.lrs svneol=native#text/pascal
|
components/editortoolbar/toolbar.lrs svneol=native#text/pascal
|
||||||
|
components/education/educationlaz.lpk svneol=native#text/plain
|
||||||
|
components/education/educationlaz.pas svneol=native#text/plain
|
||||||
|
components/education/eduoptionsdlg.lfm svneol=native#text/plain
|
||||||
|
components/education/eduoptionsdlg.pas svneol=native#text/plain
|
||||||
components/filebrowser/frmconfigfilebrowser.lfm svneol=native#text/plain
|
components/filebrowser/frmconfigfilebrowser.lfm svneol=native#text/plain
|
||||||
components/filebrowser/frmconfigfilebrowser.lrs svneol=native#text/pascal
|
components/filebrowser/frmconfigfilebrowser.lrs svneol=native#text/pascal
|
||||||
components/filebrowser/frmconfigfilebrowser.pp svneol=native#text/plain
|
components/filebrowser/frmconfigfilebrowser.pp svneol=native#text/plain
|
||||||
|
@ -30,6 +30,9 @@ dbexport
|
|||||||
editortoolbar
|
editortoolbar
|
||||||
A customizable tolbar for the source editor.
|
A customizable tolbar for the source editor.
|
||||||
|
|
||||||
|
educationlaz
|
||||||
|
Extends/configures the IDE for education, training, courses
|
||||||
|
|
||||||
filebrowser
|
filebrowser
|
||||||
A file browser window for the IDE.
|
A file browser window for the IDE.
|
||||||
|
|
||||||
|
51
components/education/educationlaz.lpk
Normal file
51
components/education/educationlaz.lpk
Normal file
@ -0,0 +1,51 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<Package Version="3">
|
||||||
|
<Name Value="EducationLaz"/>
|
||||||
|
<Author Value="Mattias Gaertner"/>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="8"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Description Value="IDE package for training, courses and education."/>
|
||||||
|
<License Value="LGPL-2 or any later"/>
|
||||||
|
<Version Major="1" Release="1"/>
|
||||||
|
<Files Count="1">
|
||||||
|
<Item1>
|
||||||
|
<Filename Value="eduoptionsdlg.pas"/>
|
||||||
|
<HasRegisterProc Value="True"/>
|
||||||
|
<UnitName Value="EduOptionsDlg"/>
|
||||||
|
</Item1>
|
||||||
|
</Files>
|
||||||
|
<i18n>
|
||||||
|
<EnableI18N Value="True"/>
|
||||||
|
<OutDir Value="languages"/>
|
||||||
|
</i18n>
|
||||||
|
<Type Value="RunAndDesignTime"/>
|
||||||
|
<RequiredPkgs Count="3">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
<MinVersion Major="1" Valid="True"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="IDEIntf"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<PackageName Value="FCL"/>
|
||||||
|
<MinVersion Major="1" Valid="True"/>
|
||||||
|
</Item3>
|
||||||
|
</RequiredPkgs>
|
||||||
|
<UsageOptions>
|
||||||
|
<UnitPath Value="$(PkgOutDir)/"/>
|
||||||
|
</UsageOptions>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
</PublishOptions>
|
||||||
|
</Package>
|
||||||
|
</CONFIG>
|
21
components/education/educationlaz.pas
Normal file
21
components/education/educationlaz.pas
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
{ This file was automatically created by Lazarus. do not edit!
|
||||||
|
This source is only used to compile and install the package.
|
||||||
|
}
|
||||||
|
|
||||||
|
unit EducationLaz;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
EduOptionsDlg, LazarusPackageIntf;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
begin
|
||||||
|
RegisterUnit('EduOptionsDlg', @EduOptionsDlg.Register);
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterPackage('EducationLaz', @Register);
|
||||||
|
end.
|
38
components/education/eduoptionsdlg.lfm
Normal file
38
components/education/eduoptionsdlg.lfm
Normal file
@ -0,0 +1,38 @@
|
|||||||
|
object EduOptionsDialog: TEduOptionsDialog
|
||||||
|
Left = 298
|
||||||
|
Height = 382
|
||||||
|
Top = 170
|
||||||
|
Width = 554
|
||||||
|
Caption = 'EduOptionsDialog'
|
||||||
|
ClientHeight = 382
|
||||||
|
ClientWidth = 554
|
||||||
|
OnCreate = FormCreate
|
||||||
|
LCLVersion = '0.9.27'
|
||||||
|
object ButtonPanel1: TButtonPanel
|
||||||
|
Left = 6
|
||||||
|
Height = 33
|
||||||
|
Top = 343
|
||||||
|
Width = 542
|
||||||
|
TabOrder = 0
|
||||||
|
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||||
|
end
|
||||||
|
object FramesTreeView: TTreeView
|
||||||
|
Left = 6
|
||||||
|
Height = 331
|
||||||
|
Top = 6
|
||||||
|
Width = 186
|
||||||
|
Align = alLeft
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
DefaultItemHeight = 19
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object FramePanel: TPanel
|
||||||
|
Left = 198
|
||||||
|
Height = 337
|
||||||
|
Top = 0
|
||||||
|
Width = 356
|
||||||
|
Align = alClient
|
||||||
|
Caption = 'FramePanel'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
end
|
74
components/education/eduoptionsdlg.pas
Normal file
74
components/education/eduoptionsdlg.pas
Normal file
@ -0,0 +1,74 @@
|
|||||||
|
{
|
||||||
|
*****************************************************************************
|
||||||
|
* *
|
||||||
|
* 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;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I eduoptionsdlg.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user