paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: testall: fixed start

Browse Source 
git-svn-id: trunk@38138 -
This commit is contained in:
mattias 2012-08-04 09:38:49 +00:00
parent fde6e9ac76
commit 0545a2c8ec
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/testtools.inc
View File

@ -2188,6 +2188,7 @@ end;
procedure TForm1.PanelOutBevelClick(Sender: TObject);
begin
if rgPanelInBevel=nil then exit;
case rgPanelInBevel.ItemIndex of
0 : Panel1.BevelOuter := bvLowered;
1 : Panel1.BevelOuter := bvRaised;
@ -2233,6 +2234,7 @@ end;
//++++++++++++++++++++++++++++++++ TBevel +++++++++++++++++++++++++++++++++++++++++++
procedure TForm1.BevelSettings(Sender : TObject);
begin
if chbBevelShape=nil then exit;
case chbBevelShape.ItemIndex of
0 : Bevel1.Shape := bsBox;
1 : Bevel1.Shape := bsFrame;
@ -2241,6 +2243,7 @@ begin
4 : Bevel1.Shape := bsLeftLine;
5 : Bevel1.Shape := bsRightLine;
end;
if chbBevelStyle=nil then exit;
if chbBevelStyle.ItemIndex = 0
then Bevel1.Style := bsLowered
else Bevel1.Style := bsRaised
@ -2386,6 +2389,7 @@ end;
procedure TForm1.EventOnClick(Sender : TObject);
begin
if lbEvents=nil then exit;
lbEvents.Items.Add(Sender.ClassName+'.Click');
EventWatch;
//DebugLn('Trace:'+Sender.ClassName+'.EventOnClick');