|
How to use TSimpleDrawer?
TSimpleDrawer has no own functionality and just publishes events related to all drawer's methods, so all you need to use TSimpleDrawer is just use some event. Let's look at teh simplest example. On the supposing that we use TStandardDrawer and want to change the standard cursor to our own cursor. It's very simple. Follow these steps.
- Drop TSimpleDrawer component onto your form.
- Double-click on the Drawers property of TImageEditor, add new item, link it with our TSimpleDrawer and move this item to the top of list.
- Select our TSimpleDrawer component and double-click on the OnSetCursor event to auto-create the event handler.
- Write some code, like this simplest one:
Processed:=True;
Cursor:=crCross;
- If you need something special, like different cursors for different positions, for different tools, etc, just analyze appropriate properties of passed Editor, like this:
Processed:=True;
with Editor do
case Tool of
someTool1: Cursor:=SomeCursor1;
someTool2: Cursor:=SomeCursor2;
someTool3:
// left half of the image
if NewMove.X<ImageWidth div 2 then Cursor:=SomeCursor3Left
else Cursor:=SomeCursor3Right;
else Cursor:=crDefault;
end;
|
