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:
|
Version:
1.6 ▾
|
lazarus
/
usr
/
share
/
lazarus
/
1.6
/
components
/
codetools
/
examples
/
scanexamples
/
addeventexample.pas
|
|---|
unit AddEventExample;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
TForm1 = class(TComponent)
PageControl1: TPageControl;
procedure Button1Click(Sender: TObject);
procedure CheckBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
public
MyBitmap: TBitmap;
end;
TMyComponent = class(TComponent)
end;
implementation
end.