You've already forked lazarus-ccr
Disables gdi images when using the lcl and some other small changes
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1731 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@@ -16,7 +16,7 @@ uses
|
|||||||
Graphics;
|
Graphics;
|
||||||
|
|
||||||
var
|
var
|
||||||
GDIPlusActive: boolean;
|
GDIPlusActive: boolean = False;
|
||||||
|
|
||||||
type
|
type
|
||||||
TGpImage = class(TObject)
|
TGpImage = class(TObject)
|
||||||
|
@@ -7,9 +7,9 @@ unit HtmlComp;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
HtmlCompReg, URLSubs, DitherUnit, FramBrwz, FramView, GDIPL2A,
|
HtmlCompReg, URLSubs, DitherUnit, FramBrwz, FramView, GDIPL2A, HtmlGif1,
|
||||||
HtmlGif1, HTMLGif2, HtmlMisc, Htmlsbs1, Htmlsubs, HTMLUn2, Htmlview,
|
HTMLGif2, HtmlMisc, Htmlsbs1, Htmlsubs, htmlun2, htmlview, Readhtml,
|
||||||
Readhtml, StylePars, StyleUn, LazarusPackageIntf;
|
StylePars, StyleUn, LazarusPackageIntf;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
@@ -119,6 +119,7 @@
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF MSWINDOWS}
|
{$IFDEF MSWINDOWS}
|
||||||
|
{$IFDEF LCL}{$Define NoGDIPlus}{$ENDIF}
|
||||||
{.$Define NoGDIPlus} {The gdiplus.dll provides Alpha transparency support for
|
{.$Define NoGDIPlus} {The gdiplus.dll provides Alpha transparency support for
|
||||||
PNG images. If, for some reason the use of the gdiplus.dll is
|
PNG images. If, for some reason the use of the gdiplus.dll is
|
||||||
undesirable, define "NoGDIPlus" by removing the '.'. Defining both
|
undesirable, define "NoGDIPlus" by removing the '.'. Defining both
|
||||||
|
@@ -28,9 +28,10 @@ URLCON.PAS are covered by separate copyright notices located in those modules.
|
|||||||
|
|
||||||
{$i htmlcons.inc}
|
{$i htmlcons.inc}
|
||||||
|
|
||||||
unit HTMLUn2;
|
unit htmlun2;
|
||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
SysUtils, Classes,
|
SysUtils, Classes,
|
||||||
{$IFNDEF LCL}
|
{$IFNDEF LCL}
|
||||||
@@ -485,7 +486,7 @@ function GetImageWidth(Image: TGpObject): integer;
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
{$IFNDEF LCL} jpeg, {$ENDIF} DitherUnit,
|
{$IFNDEF LCL} jpeg, {$ENDIF} DitherUnit,
|
||||||
{$ifndef NoOldPng}
|
{$ifndef NoOldPng}
|
||||||
PngImage1,
|
PngImage1,
|
||||||
{$endif}
|
{$endif}
|
||||||
|
@@ -28,7 +28,7 @@ URLCON.PAS are covered by separate copyright notices located in those modules.
|
|||||||
|
|
||||||
{$i htmlcons.inc}
|
{$i htmlcons.inc}
|
||||||
|
|
||||||
unit Htmlview;
|
unit htmlview;
|
||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
@@ -43,7 +43,7 @@ uses
|
|||||||
{$IFNDEF LCL}
|
{$IFNDEF LCL}
|
||||||
vwPrint, MetafilePrinter, mmSystem,
|
vwPrint, MetafilePrinter, mmSystem,
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
HTMLUn2, Forms, Dialogs, ExtCtrls, ReadHTML, HTMLSubs, StyleUn, Printers, Menus,
|
htmlun2, Forms, Dialogs, ExtCtrls, ReadHTML, HTMLSubs, StyleUn, Printers, Menus,
|
||||||
GDIPL2A;
|
GDIPL2A;
|
||||||
|
|
||||||
const
|
const
|
||||||
|
Reference in New Issue
Block a user