Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TForm1.sImage1MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- var
- x1,y1 : Integer;
- begin
- if s = False then
- begin
- if (x < 39) and (y > -1) and (y < 50) and (x > -1) then
- begin
- sImage1.Picture := sImage4.Picture;
- sImage1.Canvas.Pen.Color := clRed;
- sImage1.Canvas.Rectangle(x,sImage1.Height, x+1, 0);
- sImage1.Canvas.Rectangle(sImage1.Width,y, 0, y+1);
- end;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement