Ignore:
Timestamp:
Dec 22, 2016, 8:49:19 PM (8 years ago)
Author:
chronos
Message:
  • Modified: Updated BGRABitmap package.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • GraphicTest/Packages/bgrabitmap/bgrabitmap.pas

    r472 r494  
    55                 Free easy-to-use memory bitmap 32-bit,
    66                 8-bit for each channel, transparency.
    7                  Channels in that order : B G R A
     7                 Channels can be in the following orders:
     8                 - B G R A (recommended for Windows, required for fpGUI)
     9                 - R G B A (recommended for Gtk and MacOS)
    810
    911                 - Drawing primitives
    … …  
    3840
    3941{$mode objfpc}{$H+}
     42{$i bgrabitmap.inc}
    4043
    4144interface
    … …  
    4649uses
    4750  Classes, SysUtils,
    48 {$IFDEF LCLwin32}
    49   BGRAWinBitmap,
     51{$IFDEF BGRABITMAP_USE_FPGUI}
     52    BGRAfpGUIBitmap,
    5053{$ELSE}
    51   {$IFDEF LCLgtk}
    52   BGRAGtkBitmap,
    53   {$ELSE}
    54     {$IFDEF LCLgtk2}
    55   BGRAGtkBitmap,
    56     {$ELSE}
    57       {$IFDEF LCLqt}
    58   BGRAQtBitmap,
    59       {$ELSE}
    60   BGRADefaultBitmap,
    61       {$ENDIF}
    62     {$ENDIF}
    63   {$ENDIF}
     54        {$IFDEF BGRABITMAP_USE_LCL}
     55          {$IFDEF LCLwin32}
     56                BGRAWinBitmap,
     57          {$ELSE}
     58                {$IFDEF LCLgtk}
     59                BGRAGtkBitmap,
     60                {$ELSE}
     61                  {$IFDEF LCLgtk2}
     62                BGRAGtkBitmap,
     63                  {$ELSE}
     64                        {$IFDEF LCLqt}
     65                BGRAQtBitmap,
     66                        {$ELSE}
     67              {$IFDEF DARWIN}
     68        BGRAMacBitmap,
     69              {$ELSE}
     70                BGRALCLBitmap,
     71              {$ENDIF}
     72                        {$ENDIF}
     73                  {$ENDIF}
     74                {$ENDIF}
     75          {$ENDIF}
     76        {$ELSE}
     77          BGRANoGuiBitmap,
     78        {$ENDIF}
    6479{$ENDIF}
    65   Graphics;
     80  BGRAGraphics;
    6681
    6782type
    68 {$IFDEF LCLwin32}
    69   TBGRABitmap = TBGRAWinBitmap;
     83{$IFDEF BGRABITMAP_USE_FPGUI}
     84  TBGRABitmap = class(TBGRAfpGUIBitmap);
    7085{$ELSE}
    71   {$IFDEF LCLgtk}
    72   TBGRABitmap = TBGRAGtkBitmap;
    73   {$ELSE}
    74     {$IFDEF LCLgtk2}
    75   TBGRABitmap = TBGRAGtkBitmap;
     86    {$IFDEF BGRABITMAP_USE_LCL}
     87      {$IFDEF LCLwin32}
     88        TBGRABitmap = class(TBGRAWinBitmap);
     89      {$ELSE}
     90        {$IFDEF LCLgtk}
     91        TBGRABitmap = class(TBGRAGtkBitmap);
     92        {$ELSE}
     93          {$IFDEF LCLgtk2}
     94        TBGRABitmap = class(TBGRAGtkBitmap);
     95          {$ELSE}
     96            {$IFDEF LCLqt}
     97        TBGRABitmap = class(TBGRAQtBitmap);
     98            {$ELSE}
     99              {$IFDEF DARWIN}
     100        TBGRABitmap = class(TBGRAMacBitmap);
     101              {$ELSE}
     102        TBGRABitmap = class(TBGRALCLBitmap);
     103              {$ENDIF}
     104            {$ENDIF}
     105          {$ENDIF}
     106        {$ENDIF}
     107      {$ENDIF}
    76108    {$ELSE}
    77       {$IFDEF LCLqt}
    78   TBGRABitmap = TBGRAQtBitmap;
    79       {$ELSE}
    80   TBGRABitmap = TBGRADefaultBitmap;
    81       {$ENDIF}
     109      TBGRABitmap = class(TBGRANoGUIBitmap);
    82110    {$ENDIF}
    83   {$ENDIF}
    84111{$ENDIF}
    85112
    … …  
    113140implementation
    114141
    115 uses GraphType, BGRABitmapTypes, BGRAReadBMP, BGRAReadGif,
    116   BGRAReadIco, bgrareadjpeg, BGRAReadLzp, BGRAReadPCX,
     142uses BGRABitmapTypes, BGRAReadBMP, BGRAReadBmpMioMap, BGRAReadGif,
     143  BGRAReadIco, BGRAReadJpeg, BGRAReadLzp, BGRAReadPCX,
    117144  BGRAReadPng, BGRAReadPSD, BGRAReadTGA, BGRAReadXPM,
    118145  BGRAWriteLzp;
Note: See TracChangeset for help on using the changeset viewer.