paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 18:16:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

Education: Fix compilation of EduOptionsDialog.

Browse Source
This commit is contained in:
Juha 2026-01-16 14:41:53 +02:00
parent 8894de2268
commit 04e58570c5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/education/eduoptionsdlg.pas
View File

@ -29,11 +29,12 @@ type
ButtonPanel1: TButtonPanel;
FramePanel: TPanel;
FramesTreeView: TTreeView;
procedure ButtonPanel1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
@ -43,6 +44,8 @@ procedure Register;
implementation
{$R *.lfm}
procedure Register;
begin
@ -55,6 +58,9 @@ begin
ButtonPanel1.OKButton.OnClick:=@ButtonPanel1Click;
end;
{$R *.lfm}
procedure TEduOptionsDialog.ButtonPanel1Click(Sender: TObject);
begin
;
end;
end.