Cześć od tygodnia uczę się delphi teraz czytam o rysowaniu i postawiłem sobie ambitny cel aby zrobić rysowanie za kursorem o ile udało się to zrobić to ekran strasznie mrugał wiec dopisałem do tego używanie bitmapy i przerzucanie jej na ekran kod wygląda tak:
procedure TForm3.ObrazMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var temp:integer;
begin
mouse_down:=false;
end;
procedure TForm3.ObrazMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
oldx:=0;
oldy:=0;
mouse_down:=true;
end;
procedure TForm3.ObrazMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var buffer:TBitmap;
begin
buffer:=TBitmap.Create;
buffer:=Obraz.Picture.Bitmap;
if (mouse_down) then
begin
if (oldx=X) or (oldy=Y) then exit;
if (oldx=0) and (oldy=0) then
begin
//Obraz.Canvas.MoveTo(X,Y);
buffer.Canvas.MoveTo(X,Y);
oldx:=x;
oldy:=y;
end;
buffer.Canvas.MoveTo(oldx,oldy);
buffer.Canvas.LineTo(X,Y);
oldx:=x;
oldy:=y;
Obraz.Picture.Bitmap:=buffer;
end;
buffer.Free;
end;
Lecz teraz program wyłącza się po najechaniu na obiekt TImage
proszę was o pomoc gdyż zależy mi na rozwiązaniu mojego problemu