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

Merge pull request #90 from micha137/fmxgraphics-only-from-xe5

Browse Source 
Fix compilation of the FMX package with Delphis older than XE5
This commit is contained in:
Laentir Valetov 2017-09-15 22:18:16 +04:00 committed by GitHub
commit 404651d945
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.