есть 4-ре точки (прямоугольник) в котором надо нарисовать эллиптическую дугу
и в конце этой дуги нарисовать стрелку (наконечник)
подскажите как это сделать правильно? (читать всё…)

Есть компонент 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.

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

Vladimir K.

На форме расположен компонент ScrollBox (Width = 600), внутри которого находится PaintBox (Width =15000). Движком гор. прокрутки ScrollBox’а можно передвигать PaintBox внутри ScrollBox’а.

Как определить х-координату левого угла видимой части PaintBox’а, если, допустим, я прокрутил какое-то расстояние скролом?

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