Markering

Ved at tegne din \"firkant\" i Paint

!!!! hvis du markerer noget i paint kommer der en eller anden speciel animeret firkant frem der viser markeringen hvordan laver man dén?

Du laver en DrawRect, med nogle parametre til hvordan den skal tegne i forhold til baggrunds farven

kunne man få et eks.?

Selvfølig kan man da det :)

...

var
  Form1: TForm1;
  mybitmap : Tbitmap;
  sx, sy : integer;
implementation

{$R *.DFM}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
sx := x;
sy := y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if ssleft in shift then
  with image1.canvas do
    begin
      //draw only picture
      draw(0,0,mybitmap);
      brush.style := bsclear;
      //draw black lines
      pen.color := clblack;
      pen.style := pssolid;
      polygon([ point(sx,sy),
                point(x, sy),
                point(x,  y),
                point(sx, y) ]);
      //draw white dots
      pen.color := clwhite;
      pen.style := psdot;
      polygon([ point(sx,sy),
                point(x, sy),
                point(x,  y),
                point(sx, y) ]);
    end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//increase buffer in memory
form1.doublebuffered := true;
end;

initialization
  mybitmap := Tbitmap.create;
  mybitmap.loadfromfile(\'D:\\winnt\\sæbebobler.bmp\'); //load picture from HD
finalization
  mybitmap.free;
end.

...

Håber du kan bruge det
ZeroHero