Вопрос насчет курсоров и печати изображения

[Romich]

1)как сделать переключение курсоров по нажатию кнопок?????
2)и как вывести рисунок на печать с PaintBoxa=)

[DomiNick]

переключение курсоров

Эм... Поясните, что Вы имели ввиду.....

[Romich]

нажал на кнопку карандашь появился курсор в виде карандаша=) нажал кнопку ластик появился курсор в виде ластика и т.д

[vovk]

procedure TForm1.Button1Click(Sender: TObject);
begin
Cursor:=crHandPoint;
end;

ммм это имелось в виду? (в таком виде курсор в виде сжатой руки с отогнутым указательным пальцем будет над формой)

[Stilet]

Дополню ответ Вовка:
Можно просто получать следующее значение вниз, или тупо уменьшать "Курсор" на единицу.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Cursor<> crSizeAll then
 Cursor:=pred(Cursor)
else Cursor:=crDefault ;
end;

[Romich]

нееет ЛЮДИ ДОБРЫЕ вы не понимаете=)
я создал *.res файл там нарисавал курсоры (карандашь и ластик)! мне надо сделать переключение курсора по нажатию БУТАНОВ=)

[DomiNick]

Screen.Cursor:=-1; // убрать курсор

Screen.Cursors[1]:=LoadImage(hInstance, PChar('F:\Hypno.ani'), IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);
Screen.Cursor:=1;

[Romich]

я обажаю вас СПАСИБО огромное курсоры запахали=))
теперь помогите мне разобраться как вывести на печать изображение , нарисованное на PaintBox'e????

[spamer]

Romich посмотрите вот этот исходник, может быть поможет:

http://www.delphisources.ru/pages/so.../printers.html

[Romich]

бЛАГОДАРЮ всё запахпла все я сделал ОГРОМНОЕ СПС