Hi,
I want to place a TShape in a TForm. This TShape use a Bitmap as:
bmp : TBitmap;
....
bmp := TBitmap.Create();
After I assign this bitmap to Shape.
Shape1.Brush.Bitmap := bmp;
The problem is the origin of representation of bitmap in the TShape. This is in (0,0) and I need to change to Shape1.Left and Shape1.Top.
Can i change this origin.
I saw that there is a Api windows SetBrushOrgEx
I ´ve tried this as show:
res = SetBrushOrgEx(Form1.Canvas.Handle,Shape1.Left,Shape1.Top,&p);
but none
can i help me?
Regargs
Droide01
I want to place a TShape in a TForm. This TShape use a Bitmap as:
bmp : TBitmap;
....
bmp := TBitmap.Create();
After I assign this bitmap to Shape.
Shape1.Brush.Bitmap := bmp;
The problem is the origin of representation of bitmap in the TShape. This is in (0,0) and I need to change to Shape1.Left and Shape1.Top.
Can i change this origin.
I saw that there is a Api windows SetBrushOrgEx
I ´ve tried this as show:
res = SetBrushOrgEx(Form1.Canvas.Handle,Shape1.Left,Shape1.Top,&p);
but none
can i help me?
Regargs
Droide01