TShape cd.

Jak mogę zpisać TSHa[e do pliku?
Jak po najechaniu na Shape napisać właściwości kursora (np. 23 od góry i 55 od lewej {pikseli})
Nie wiem czy wyraziłem się dostatecznie jasno...]
Please, answer to my question

1. CHodzi Ci o kompoennt czy grafike?
2. OnMouseMove

Chodzi mi o grafikę...
Sorry :-)

Na nic innego nie wpadłem (Nie sądzę żeby to było najlepsze rozwiązanie, ale działa):

1. Zadeklaruj klase w sekcji publicznej modułu po słowie Interface a przed Implementation. U mnie w D5 nie ma w sekcji publicznej Canvasa przy TShape, więc trzeba pokombinować.

Type
TMyShape=Class(TShape)
Public
Property Canvas;
End;

2. Zainstaluj sobie w swoim kodzie:

Var B:TBitmap;
C:TCanvas;
R:Trect;
begin
B:=TBitmap.Create;
C:=TMyShape(Shape1).Canvas;
R:=Shape1.ClientRect;
Dec(R.Right,R.Left);
R.Left:=0;
Dec(R.Bottom,R.Top);
R.Top:=0;
B.Width:=R.Right;
B.Height:=R.Bottom;
B.Canvas.CopyRect(R,C,R);
B.SaveToFile('C:\NazwaPliku.Bmp');
B.Free;
End;