fixed note about jpeg bug

git-svn-id: trunk@6803 -

components/jpeg/readme.txt

@@ -1,15 +1,4 @@
 
-WARNING  WARNING  WARNING  WARNING  WARNING
-
-This package is broken. Read further.
-
-The pasjpeg code in the current fpc sources have a bug.
-If you want jpeg, then you must use an older fpc and the jpeg from lazarus-ccr
-on sourceforge. Not this package.
-
--------------------------------------------------------------------------------
-
-
 The lazarus TJPEGImage is in lazjpeg.pas
 
 It uses the pasjpeg and fpimage libs provided by FreePascal. See there for in
@@ -23,7 +12,7 @@ typical photographic images, very good compression levels can be obtained
 with no visible change, and remarkably high compression levels are possible
 if you can tolerate a low-quality image. The Independent JPEG Group (IJG) has
 created a free, portable C library for JPEG compression and decompression of
-JPEG images.
+JPEG images which has been ported to FreePascal.
 
 
 

debugger/breakpointsdlg.pp

@@ -141,7 +141,7 @@ begin
   Result := '';
   if ABreakpoint is TIDEBreakPoint then begin
     CurBreakPoint:=TIDEBreakPoint(ABreakpoint);
-    for Action := Low(Action) to High(Action) do
+    for Action := Low(TIDEBreakPointAction) to High(TIDEBreakPointAction) do
       if Action in CurBreakpoint.Actions
       then begin
         if Result <> '' then Result := Result + ', ';
@@ -520,6 +520,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.23  2005/02/18 16:59:39  mattias
+  fixed note about jpeg bug
+
   Revision 1.22  2004/08/26 23:50:05  marc
   * Restructured debugger view classes
   * Fixed help

designer/controlselection.pp

@@ -1027,7 +1027,7 @@ var
 begin
   if (cssGuideLinesPainted in FStates) then begin
     if (FForm<>nil) and CacheGuideLines then
-      for g:=Low(g) to High(g) do begin
+      for g:=Low(TGuideLineType) to High(TGuideLineType) do begin
         if FGuideLinesCache[g].PaintedLineValid then
         begin
           LineRect:=FGuideLinesCache[g].PaintedLine;
@@ -2915,7 +2915,7 @@ begin
   if LineExists[glLeft] then
     DrawLine(Line[glLeft],EnvironmentOptions.GuideLineColorLeftTop);
 
-  for g:=Low(g) to High(g) do begin
+  for g:=Low(TGuideLineType) to High(TGuideLineType) do begin
     FGuideLinesCache[g].PaintedLineValid:=LineExists[g];
     FGuideLinesCache[g].PaintedLine:=Line[g];
   end;

packager/packagedefs.pas

@@ -1766,7 +1766,7 @@ var
 begin
   Result:=false;
   CurPos:=1;
-  for i:=Low(ints) to High(ints) do begin
+  for i:=1 to 4 do begin
     ints[i]:=0;
     if CurPos<length(s) then begin
       if i>Low(ints) then begin