Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Set origin of TBrush

Status
Not open for further replies.

droide01

Technical User
Oct 20, 2001
1
ES
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

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top