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

fixed note about jpeg bug

Browse Source 
git-svn-id: trunk@6803 -
This commit is contained in:
mattias 2005-02-18 16:59:39 +00:00
parent 42c62c8f4b
commit 5673f4846e
4 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/jpeg/readme.txt
View File

@ -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 The lazarus TJPEGImage is in lazjpeg.pas
It uses the pasjpeg and fpimage libs provided by FreePascal. See there for in 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 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 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 created a free, portable C library for JPEG compression and decompression of
JPEG images. JPEG images which has been ported to FreePascal.

5
debugger/breakpointsdlg.pp
View File

@ -141,7 +141,7 @@ begin
Result := ''; Result := '';
if ABreakpoint is TIDEBreakPoint then begin if ABreakpoint is TIDEBreakPoint then begin
CurBreakPoint:=TIDEBreakPoint(ABreakpoint); CurBreakPoint:=TIDEBreakPoint(ABreakpoint);
for Action := Low(Action) to High(Action) do for Action := Low(TIDEBreakPointAction) to High(TIDEBreakPointAction) do
if Action in CurBreakpoint.Actions if Action in CurBreakpoint.Actions
then begin then begin
if Result <> '' then Result := Result + ', '; if Result <> '' then Result := Result + ', ';
@ -520,6 +520,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.22 2004/08/26 23:50:05 marc
* Restructured debugger view classes * Restructured debugger view classes
* Fixed help * Fixed help

4
designer/controlselection.pp
View File

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

2
packager/packagedefs.pas
View File

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