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

fixed typo

Browse Source 
git-svn-id: trunk@9114 -
This commit is contained in:
vincents 2006-04-10 18:15:22 +00:00
parent 7e9fc77a93
commit 01de1692b1
1 changed files with 5 additions and 5 deletions

10
examples/trackbar.pp
View File

@ -46,13 +46,13 @@ type
TForm1 = class(TFORM)
public
Button1: TButton;
Button2: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button8: TButton;
Track1 : TTRackBar;
Track2 : TTRackBar;
mnuMain: TMainMenu;
@ -125,8 +125,8 @@ Begin
if assigned (Track1) then begin
writeln ('Toggling showing tickmarks');
if Track1.TickStyle = tsNone
then Track1.TickStyle = tsAuto
else Track1.TickStyle = tsNone;
then Track1.TickStyle := tsAuto
else Track1.TickStyle := tsNone;
end;
End;