Есть компонент PaintBox, на котором размещена картинка. Нужно сделать, чтобы при передвижении указателя мышки по PaintBox’у вместе с ним и двигался прямоугольник, например, зеленый 40х40. Как реализовать?

Stilet

unit Unit1;

{$mode objfpc}{$H+}
interface
uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)

PaintBox1: TPaintBox;

procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure PaintBox1Paint(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;
var  ax,ay:integer;

Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.PaintBox1Paint(Sender: TObject);

begin

PaintBox1.Canvas.Brush.Color:=clGreen;

PaintBox1.Canvas.Rectangle(ax-10,ay-10,ax+10,ay+10);

end;
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

ax:=x; ay:=y;  PaintBox1.Repaint;

end;
end.

тема на форуме

(читать всё…)

Twix

Чем отличается подключения юнитов до implementation и после? (читать всё…)

(читать всё…)

KoBRaAndrey

Как узнать папку Temp на Delphi 2009? Я находил код но он не работает

(читать всё…)

(читать всё…)

Как запретить убивать процесс через диспетчер задач? (читать всё…)

Появилась необходимость создавать файлы большого (до 10 ГБ) размера. Содержимое файла не имеет значения. Размер файла задается перед его созданием. Как реализовать? (читать всё…)

Есть строка ‘ghbdtn’ ее нужно преобразовать в ‘привет’ и наоборот строку ‘руддщ’ преобразовать в ‘hello’. Как реализовать? (читать всё…)

Надо проверить пустая переменная сессии или нет $_SESSION[‘year’]
Ну или хотя бы не переменную сессии, а просто переменную $year. (читать всё…)