[lazarus] Patch for trackbar.pp

[Luc Vigato]

-- 
"Feel free" - 10 GB Mailbox, 100 FreeSMS/Monat ...
Jetzt GMX TopMail testen: http://www.gmx.net/de/go/topmail
Index: ide/revision.inc
===================================================================
--- ide/revision.inc	(revision 9113)
+++ ide/revision.inc	(working copy)
@@ -1,2 +1,2 @@
 // Created by Svn2RevisionInc
-const RevisionStr = '8897:8904M';
+const RevisionStr = '';
Index: examples/trackbar.pp
===================================================================
--- examples/trackbar.pp	(revision 9113)
+++ examples/trackbar.pp	(working copy)
@@ -125,8 +125,8 @@
    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;