Discussion :

[Bourak]

Bonjour les developpeurs

Je vient de développez un programme qui utilise un outil pour découper les images avant de la stocker dans une base.

j'ai suivi des moyens en utilisant un composant TShape que je le met sur un TImage contenant l'image à decouper.Le shape est de forme rectangle et il est plaçer devant l'image puis je déplace le shape pour prendre les dimension d'un rectangle fixe puis je découpe l'image selon ce rectangle.

Le problème c'est que je n'ai pas trouvé des moyens pour faire redimensionner le shape pour être libre dans le choix du dimension du rectangle en utilisant la souris (méthode resize).

J'espère que j'ai bien expliquer mon problème.


Merci d'avance

[Archimède]

un truc de ce genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
  private
    { Déclarations privées }
    ancx,ancy,oldwidth,oldheight:word;
    dx,dy:integer;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
doublebuffered:=true;
end;
 
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift)  then
  begin
    dx:=x-ancx;
    dy:=y-ancy;
    with shape1 do
    begin
      width:=oldwidth+dx;
      height:=oldheight+dy;
    end;
  end
  else
  begin
    ancx:=x;
    ancy:=y;
    oldwidth:=shape1.Width;
    oldheight:=shape1.Height;
  end;
end;

@+