paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 00:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed example compiling

Browse Source 
git-svn-id: trunk@6857 -
This commit is contained in:
mattias 2005-02-27 10:09:41 +00:00
parent 8a54770d56
commit 0fdf2cd5ab
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/testtools.inc
View File

@ -346,7 +346,6 @@ cbbPenStyle := TComboBox.Create(Self); //Canvas.PenStyle
Items.Add('psDashDot');
Items.Add('psDashDotDot');
Items.Add('psDot');
Items.Add('psInsideFrame');
Items.Add('psSolid');
Show;
end;
@ -1892,8 +1891,6 @@ begin
BenchForm[5].Canvas.Pen.Style := psDashDotDot
Else If cbbPenStyle.Text = 'psDot' then
BenchForm[5].Canvas.Pen.Style := psDot
Else If cbbPenStyle.Text = 'psInsideFrame' then
BenchForm[5].Canvas.Pen.Style := psInsideFrame
Else If cbbPenStyle.Text = 'psSolid' then
BenchForm[5].Canvas.Pen.Style := psSolid;
@ -2886,6 +2883,9 @@ begin
end;
{
$Log$
Revision 1.16 2005/02/27 10:09:41 mattias
fixed example compiling
Revision 1.15 2004/03/08 00:12:42 mattias
fixed compilation