Artykuł opisuje w jaki sposób zastąpić zwykły kursor systemowy innym otwartym z pliku graficznego.
Umieść na formie na formie komponenty :
Komponent – Proponowana nazwa
DXTimer – DXTimer1
DXDraw – DXDraw1
DXImageList – DXImageList1
Najpierw musimy wyłączyć wyświetlanie domyślnego kursora systemu. Aby to zrobić w procedurze OnCreate Formy wstaw poniższy kod:
|
1 |
DXDraw1.Cursor := crNone; |
Następnie musimy umieścić nasz rysunek kursora w DXImageList1 (patrz : Wprowadzenie). Nazwijmy go mysz. Jako parametr DxDraw wpiszmy DxDraw1. W przypadku naszego kursora musimy dodatkowo ustawić TransparentColor na clWhite, ponieważ znajduje się on na białym tle.
Kolejnym etapem jest wyświetlanie oraz przesuwanie rysunku według pozycji kursora. Wykonamy to przy pomocy komponentu TDXTimer. Procedura w OnTimer powinna wyglądać następująco :
|
1 2 3 4 5 6 7 8 9 10 |
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer); var _mx, _my : Cardinal; begin _mx := mouse.CursorPos.x - form1.left; _my := mouse.CursorPos.y - form1.top; DXDraw1.Surface.Fill(0); DxImageList1.Items[0].Draw(DxDraw1.surface, _mx, _my, 0); DXDraw1.Flip; end; |
_mx, _my – współrzędne naszego nowego kursora. Polecenie Draw wyświetla kursor, a Flip przerzuca wszystko na ekran.
