You've already forked lazarus-ccr
applications
bindings
components
Comba_Animation
aboutcomponent
acs
beepfp
callite
captcha
chelper
chemtext
cmdline
cmdlinecfg
colorpalette
cryptini
csvdocument
epiktimer
everettrandom
examplecomponent
exctrls
examples
ButtonEx
demo.lpi
demo.lpr
main.lfm
main.pas
unit2.lfm
unit2.pas
CheckComboBoxEx
CheckCtrlsEx
CurrSpinEditEx
ImageListEx
QuestionDlgEx
ShapeEx
images
source
exctrlspkg.lpk
exctrlspkg.pas
exctrlspkg_dsgn.lpk
exctrlspkg_dsgn.pas
extrasyn
fpexif
fpsound
fpspreadsheet
fractions
freetypepascal
geckoport
gradcontrols
grid_semaphor
gridprinter
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
splashabout
svn
systools
tdi
thtmlport
tparadoxdataset
tvplanit
xdev_toolkit
zlibar
zmsql
examples
image_sources
lclbindings
wst
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7485 8e941d3f-bd1b-0410-a28a-d453659cc2b4
59 lines
994 B
ObjectPascal
59 lines
994 B
ObjectPascal
unit unit2;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExButtons;
|
|
|
|
type
|
|
|
|
{ TForm2 }
|
|
|
|
TForm2 = class(TForm)
|
|
Label1: TLabel;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
OKBtn: TButtonEx;
|
|
CancelBtn: TButtonEx;
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
Form2: TForm2;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm2 }
|
|
|
|
procedure TForm2.FormCreate(Sender: TObject);
|
|
begin
|
|
OKBtn := TButtonEx.Create(nil);
|
|
OKBtn.Parent := self;
|
|
OKBtn.Top := Label1.Top + Label1.Height + 16;
|
|
OKBtn.Left := 16;
|
|
//OKBtn.AutoSize := true;
|
|
OKBtn.Caption := 'OK';
|
|
OKBtn.Default := true;
|
|
OKBtn.ModalResult := mrOK;
|
|
OKBtn.DefaultDrawing := false;
|
|
|
|
CancelBtn := TButtonEx.Create(nil);
|
|
CancelBtn.Parent := self;
|
|
CancelBtn.Top := OKBtn.Top;
|
|
CancelBtn.Left := 100;
|
|
//CancelBtn.AutoSize := true;
|
|
CancelBtn.Caption := 'Cancel';
|
|
CancelBtn.Cancel := true;
|
|
CancelBtn.ModalResult := mrCancel;
|
|
CancelBtn.DefaultDrawing := false;
|
|
end;
|
|
|
|
end.
|
|
|