Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-15 07:45:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix compilation of the FMX package with Delphis older than XE5

Browse Source 
* The Unit FMX.Graphics is only available from XE5
This commit is contained in:
Michael Bunk 2017-09-15 11:02:59 +02:00
parent 8393f9c0fb
commit 8113790215
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
source/component/ocv.comp.ViewFMX.pas
View File

@ -193,7 +193,9 @@ begin
if Assigned(OnBeforePaint) then
OnBeforePaint(Self, FImage);
{$IFDEF DELPHIXE5_UP}
IPLImageToFMXBitmap(FImage.IpImage, BackBuffer);
{$IFEND}
Canvas.DrawBitmap(BackBuffer, RectF(0, 0, BackBuffer.Width, BackBuffer.Height), PaintRect, 1, True);
if Assigned(OnAfterPaint) then

11
source/ocv.fmxutils.pas
View File

@ -3,15 +3,21 @@ unit ocv.fmxutils;
interface
Uses
ocv.core.types_c,
FMX.Graphics;
ocv.core.types_c
{$IFDEF DELPHIXE5_UP}
, FMX.Graphics
{$IFEND}
;
{$IFDEF DELPHIXE5_UP}
procedure IPLImageToFMXBitmap(const IpImage: pIplImage; const FMXBitmap: TBitmap); inline;
{$IFEND}
implementation
Uses FMX.Types;
{$IFDEF DELPHIXE5_UP}
procedure IPLImageToFMXBitmap(const IpImage: pIplImage; const FMXBitmap: TBitmap); inline;
Var
BitmapData: TBitmapData;
@ -56,5 +62,6 @@ begin
FreeMem(SrcData);
end;
end;
{$IFEND}
end.