рисование в TImage

[Rusl92]

Здравствуйте, помогите мне пожалуйста, по идее, с помощью программы можно было бы рисовать в TImage1 c помощью карандашика, а при отведении курсора от TImage, он должен становиться обычным:
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var
downkey: boolean = false;

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[1]:=LoadCursorFromFile('Cursor1.cur') ;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor:=1;
Image1.Canvas.MoveTo(X,Y);
if Button = mbLeft then downkey:=true;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
downkey:=false;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Screen.Cursor:=1;
if downkey then Image1.Canvas.LineTo(X,Y);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.FillRect(Rect(0,0,Ima ge1.Width,Image1.Height));
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Button1Click(Sender);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Screen.Cursor:=0;
end;

end.
но прогамма работает некорректно, в чем ошибка?

[N!ckeL]

Лично я делал так:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor:=1;
Image1.Canvas.Pixels[X,Y]:=clBlack;
if Button = mbLeft then downkey:=true;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if downkey then 
Image1.Canvas.Pixels[X,Y]:=clBlack;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image 1.Height));
end;

Я не говорю что это самый лучший вариант, но линия рисуется по пути карандаша, один минус это когда карандаш ведёш слишком быстро появляются пробелы.

[Rusl92]

У меня вопрос то другой: нужно чтобы при отведении курсора от ТИмаге он становился обычным! А когда подводишь на ТИмаге - он карандашик!

[Rusl92]

Так кто-нибудь мне подскажет?

[SunKnight]

есть такое свойство MouseMove

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x>Image1.width) or (y>Image1.height) or (x<Image1.left) or (y<Image1.Top) then
begin
сделать маус обычным
end;
end;

[_Dmitry]

Не получится.
OnMouseMove выполняется, когда мышь на компоненте, когда мышь уйдет событие не выполняется. Придется ставить hook на WM_MOUSEMOVE, ну или анализировать в Таймере.
В предыдущем вопросе об изменении курсора на карандаш, восстановление стандартного вида происходит в OnMouseMove соседнего компонента.
http://www.programmersforum.ru/showthread.php?t=16332

[Карась]

Сверх бредовая идея посетила меня

В событии MouseMove пишем:
x := x + 1;
If x := 100 Then x := 0;

Кидаем на Форму Таймер. Ево задача за два такта запоминать значение x.
Затем надо их сравнить. Ели они равны, значит событие MouseMove невыполняется. Меняем курсор.
Если значения различны, значит событие MouseMove выполняется

Гениально !

[juden]

а ты не побывал менять свойство Cursor у имейджа, мож поможет

[mutabor]

Сообщение от juden

а ты не побывал менять свойство Cursor у имейджа, мож поможет

Самый оптимальный вариант, только карандашика среди стандартных курсоров нет, придется свой подгрузить.

Насчет мышиных событий, в новых версиях Дельфи появились события MouseEnter и MouseLeave. В версиях где их нет, их аналог легко можно написать самому используя события MouseMove тех компонентов по к-рым ходит мышь, и таймер там не нужен.
Ключевая фраза уже тут прозвучала даже

восстановление стандартного вида происходит в OnMouseMove соседнего компонента