Forum: Win32/Win64 API (native code)
by Bummi,
29. Mai 2013
Lass es mal bei
Container.PixelFormat := pf32Bit;
Find.PixelFormat := pf32Bit;
Forum: Win32/Win64 API (native code)
by Bummi,
29. Mai 2013
Ich hatte mir das so vorgestellt ....
type
pRGBQuadArray = ^TRGBQuadArray;
TRGBQuadArray = ARRAY OF TRGBQuad;
Function FindBitmap(Container,Find:TBitmap):TPoint;
var
SclS,SclF:pRGBQuadArray;
Forum: Win32/Win64 API (native code)
by Bummi,
25. Mai 2013
Neben den Punkten die Volker bereits aufgeführt hat greifst Du mit
schon 1 zu weit zu ...
Statt des ByteArray kannst Du eine Array of TRGBQuad verwenden
uses exgdi,exgdipapi,exgdipobj;
{$R *.dfm}
type