mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-25 16:08:18 +02:00
imagesforlazarus package now register images at runtime too
git-svn-id: trunk@9963 -
This commit is contained in:
parent
8612764a25
commit
26e3119ea9
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -1827,7 +1827,6 @@ images/lazarus_about_logo.xpm -text svneol=native#image/x-xpixmap
|
|||||||
images/lazaruspackage.ico -text svneol=unset#image/x-icon
|
images/lazaruspackage.ico -text svneol=unset#image/x-icon
|
||||||
images/leftarrow.ico -text svneol=unset#image/x-icon
|
images/leftarrow.ico -text svneol=unset#image/x-icon
|
||||||
images/leftarrow.xpm -text svneol=native#image/x-xpixmap
|
images/leftarrow.xpm -text svneol=native#image/x-xpixmap
|
||||||
images/logo_big.jpg -text svneol=unset#image/jpeg
|
|
||||||
images/mainicon.ico -text svneol=unset#image/x-icon
|
images/mainicon.ico -text svneol=unset#image/x-icon
|
||||||
images/mainicon.lrs svneol=native#text/pascal
|
images/mainicon.lrs svneol=native#text/pascal
|
||||||
images/mainicon.xpm -text svneol=native#image/x-xpixmap
|
images/mainicon.xpm -text svneol=native#image/x-xpixmap
|
||||||
|
@ -6,7 +6,7 @@
|
|||||||
<CompilerOptions>
|
<CompilerOptions>
|
||||||
<Version Value="5"/>
|
<Version Value="5"/>
|
||||||
<SearchPaths>
|
<SearchPaths>
|
||||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
|
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||||
</SearchPaths>
|
</SearchPaths>
|
||||||
<CodeGeneration>
|
<CodeGeneration>
|
||||||
<Generate Value="Faster"/>
|
<Generate Value="Faster"/>
|
||||||
@ -25,7 +25,7 @@
|
|||||||
"/>
|
"/>
|
||||||
<License Value="LGPL"/>
|
<License Value="LGPL"/>
|
||||||
<Version Major="1" Release="1"/>
|
<Version Major="1" Release="1"/>
|
||||||
<Files Count="7">
|
<Files Count="8">
|
||||||
<Item1>
|
<Item1>
|
||||||
<Filename Value="lazpng.pas"/>
|
<Filename Value="lazpng.pas"/>
|
||||||
<UnitName Value="LazPNG"/>
|
<UnitName Value="LazPNG"/>
|
||||||
@ -36,12 +36,10 @@
|
|||||||
</Item2>
|
</Item2>
|
||||||
<Item3>
|
<Item3>
|
||||||
<Filename Value="lazpnm.pas"/>
|
<Filename Value="lazpnm.pas"/>
|
||||||
<HasRegisterProc Value="True"/>
|
|
||||||
<UnitName Value="LazPNM"/>
|
<UnitName Value="LazPNM"/>
|
||||||
</Item3>
|
</Item3>
|
||||||
<Item4>
|
<Item4>
|
||||||
<Filename Value="lazjpg.pas"/>
|
<Filename Value="lazjpg.pas"/>
|
||||||
<HasRegisterProc Value="True"/>
|
|
||||||
<UnitName Value="LazJPG"/>
|
<UnitName Value="LazJPG"/>
|
||||||
</Item4>
|
</Item4>
|
||||||
<Item5>
|
<Item5>
|
||||||
@ -50,13 +48,16 @@
|
|||||||
</Item5>
|
</Item5>
|
||||||
<Item6>
|
<Item6>
|
||||||
<Filename Value="laztga.pas"/>
|
<Filename Value="laztga.pas"/>
|
||||||
<HasRegisterProc Value="True"/>
|
|
||||||
<UnitName Value="LazTGA"/>
|
<UnitName Value="LazTGA"/>
|
||||||
</Item6>
|
</Item6>
|
||||||
<Item7>
|
<Item7>
|
||||||
<Filename Value="lazxpm.pas"/>
|
<Filename Value="lazxpm.pas"/>
|
||||||
<UnitName Value="LazXPM"/>
|
<UnitName Value="LazXPM"/>
|
||||||
</Item7>
|
</Item7>
|
||||||
|
<Item8>
|
||||||
|
<Filename Value="registerimg4laz.pas"/>
|
||||||
|
<UnitName Value="RegisterImg4Laz"/>
|
||||||
|
</Item8>
|
||||||
</Files>
|
</Files>
|
||||||
<Type Value="RunAndDesignTime"/>
|
<Type Value="RunAndDesignTime"/>
|
||||||
<RequiredPkgs Count="1">
|
<RequiredPkgs Count="1">
|
||||||
|
@ -7,15 +7,13 @@ unit ImagesForLazarus;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
LazPNG, LazPNM, LazJPG, LazBMP, LazTGA, LazXPM, LazarusPackageIntf;
|
LazPNG, LazPNM, LazJPG, LazBMP, LazTGA, LazXPM, RegisterImg4Laz,
|
||||||
|
LazarusPackageIntf;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
procedure Register;
|
procedure Register;
|
||||||
begin
|
begin
|
||||||
RegisterUnit('LazPNM', @LazPNM.Register);
|
|
||||||
RegisterUnit('LazJPG', @LazJPG.Register);
|
|
||||||
RegisterUnit('LazTGA', @LazTGA.Register);
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
|
@ -1,16 +1,20 @@
|
|||||||
WARNING WARNING WARNING WARNING WARNING
|
|
||||||
|
|
||||||
This package is broken. Read further.
|
The lazarus TJPEGImage is in lazjpeg.pas
|
||||||
|
|
||||||
The pasjpeg code in the current fpc sources have a bug.
|
It uses the pasjpeg and fpimage libs provided by FreePascal. See there for in
|
||||||
If you want jpeg, then you must use an older fpc and the jpeg from lazarus-ccr
|
more detailed jpeg handling.
|
||||||
on sourceforge. Not this package.
|
|
||||||
However, if you only need interlaced JPEG, you can use this package.
|
|
||||||
|
|
||||||
The Targa loder is not fully functional.
|
|
||||||
|
|
||||||
-------------------------------------------------------------------------------
|
JPEG (pronounced "jay-peg") is a standardized familly of algorithms for
|
||||||
|
compression of continous tone still images. Most JPEG processes are lossy,
|
||||||
|
the output image is not exactly identical to the input image. However, on
|
||||||
|
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 which has been ported to FreePascal.
|
||||||
|
|
||||||
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
We used a simple naming schema to help non expert working with this package.
|
We used a simple naming schema to help non expert working with this package.
|
||||||
The support type name and the support unit name are :
|
The support type name and the support unit name are :
|
||||||
|
|
||||||
@ -23,7 +27,7 @@ The lazarus TBMPImage is in lazbmp.pas
|
|||||||
The lazarus TTGAImage is in laztga.pas
|
The lazarus TTGAImage is in laztga.pas
|
||||||
The lazarus TXPMImage is in lazxpm.pas
|
The lazarus TXPMImage is in lazxpm.pas
|
||||||
|
|
||||||
This package uses the fpimage libs provided by FreePascal in the FCL/Image. See there for in
|
This package uses the fpimage libs provided by FreePascal in the FCL/Image.
|
||||||
more detailed jpeg handling.
|
See there for in more detailed jpeg handling.
|
||||||
|
|
||||||
Please report bugs to "Mazen NEIFER" <mazen@freepascal.org>
|
Please report bugs to "Mazen NEIFER" <mazen@freepascal.org>
|
||||||
|
Binary file not shown.
Before Width: | Height: | Size: 77 B |
Loading…
Reference in New Issue
Block a user