You've already forked lazarus-ccr
aarre
applications
bindings
components
Comba_Animation
aboutcomponent
acs
beepfp
callite
chelper
chemtext
cmdline
cmdlinecfg
colorpalette
cryptini
csvdocument
epiktimer
extrasyn
fpexif
fpsound
fpspreadsheet
fractions
freetypepascal
geckoport
gradcontrols
grid_semaphor
example
project1.lpi
project1.lpr
table01.stb
table02.stb
table03hidden.stb
table04hidden.stb
unit1.lfm
unit1.pas
TSemaphorDBGrid.xpm
readme.txt
semaphordbgridicon.res
semaphordbgrids.pas
semaphorgridlpk.lpk
semaphorgridlpk.pas
semaphorgrids.pas
semaphorgridsicon.res
tsemaphorgrid.xpm
industrialstuff
iosdesigner
iphonelazext
jujiboutils
jvcllaz
kcontrols
lazautoupdate
lazbarcodes
lazmapviewer
lclextensions
longtimer
manualdock
mbColorLib
mplayer
multithreadprocs
nvidia-widgets
onguard
orpheus
playsoundpackage
poweredby
powerpdf
rgbgraphics
richmemo
richview
rtfview
rx
scrolltext
smnetgradient
spktoolbar
svn
systools
tdi
thtmlport
tparadoxdataset
tvplanit
xdev_toolkit
zlibar
zmsql
examples
image_sources
lclbindings
wst
38 lines
1.6 KiB
ObjectPascal
38 lines
1.6 KiB
ObjectPascal
![]() |
{
|
||
|
***************************************************************************
|
||
|
* *
|
||
|
* This source is free software; you can redistribute it and/or modify *
|
||
|
* it under the terms of the GNU General Public License as published by *
|
||
|
* the Free Software Foundation; either version 2 of the License, or *
|
||
|
* (at your option) any later version. *
|
||
|
* *
|
||
|
* This code 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. See the GNU *
|
||
|
* General Public License for more details. *
|
||
|
* *
|
||
|
* A copy of the GNU General Public License is available on the World *
|
||
|
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
||
|
* obtain it by writing to the Free Software Foundation, *
|
||
|
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
|
||
|
* *
|
||
|
***************************************************************************
|
||
|
Author: Salvatore Coppola
|
||
|
}
|
||
|
|
||
|
program project1;
|
||
|
|
||
|
{$mode objfpc}{$H+}
|
||
|
|
||
|
uses
|
||
|
Interfaces, // this includes the LCL widgetset
|
||
|
Forms
|
||
|
{ add your units here }, Unit1;
|
||
|
|
||
|
begin
|
||
|
Application.Initialize;
|
||
|
Application.CreateForm(TForm1, Form1);
|
||
|
Application.Run;
|
||
|
end.
|
||
|
|