I changed the code to make it a full separate process function like below ,
Trect full has correct size 0,0,500,500
and Trect left size is 0,0,250,500
image size is 501 x501 pixel
but still no effect from this code 😞
procedure InsertonMyleft(aBMP : TBitmap);
var
tempBMP: TBitmap;
RecFull: TRectF;
RecLeft: TRectF;
begin
tempBMP := TBitmap.Create;
try
aBMP.Canvas.BeginScene;
tempBMP.Assign(aBMP);
tempBMP.SaveToFile('c:\temp\debugme.bmp');
RecFull := RectF(0, 0, aBMP.Width-1, aBMP.Height-1); // size of full trect, 0,0,500,500
RecLeft := RectF(0, 0, round((aBMP.Width-1) / 2), // just lest side
round((aBMP.Height-1) / 1));
aBMP.Canvas.DrawBitmap(tempBMP, RecFull, RecLeft, 50, True);
aBMP.Canvas.EndScene;
aBMP.SaveToFile('c:\temp\debugme2.bmp');
finally
tempBMP.Free;
end;
end;